code:
;-------------------------------------------------
;角色ARGに裙ARGSを着せる。ARGS == ""なら脱がす
;-------------------------------------------------
@SET_SKIRT, ARGS, ARG
#DIMS MEMO_CLO
SIF ARG == 0 && TARGET > 0
	ARG = TARGET
MEMO_CLO = %CSTR:ARG:裙%
CALL PALAM_SKIRT, ARGS, ARG

EQUIP:ARG:裙 = STRLENS(CSTR:ARG:裙)
;ワンピは裙脱いだら服も脱掉
SIF CHECK_SHIRT("連衣裙", ARG) && (EQUIP:ARG:裙 == 0 || CHECK_SKIRT("連衣裙", ARG) == 0)
	CALL SET_SHIRT, "", ARG
;休闲褲不可なら脱掉
SIF CHECK_SKIRT("休闲褲不可", ARG) && CHECK_OUTER("休闲褲", ARG)
	CALL SET_OUTER, "", ARG

SIF MEMO_CLO != CSTR:ARG:裙
	TFLAG:着替えた = 1

;-------------------------------------------------
;ARGの裙の名前。ARGSに"略"と入れると略称になる
;-------------------------------------------------
@SKIRT(ARG, ARGS)
#FUNCTIONS
#DIMS CIPTYPE

VARSET LOCALS
SELECTCASE ARGS
CASE "CIP正面"
	;ワンピ
	IF CHECK_SKIRT("連衣裙", ARG)
		IF CHECK_SHIRT("旗袍", ARG)
			RETURNF "旗袍"
		ELSEIF CHECK_SHIRT("圣诞", ARG)
			RETURNF "圣诞裙"
		ELSEIF CHECK_SHIRT("围裙", ARG)
			RETURNF "围裙"
		ELSEIF CHECK_SHIRT("白色和金色装饰的民族衣装", ARG)
			LOCALS = 白色和金色装饰的民族衣装
			SIF CHECK_SHIRT("夏服", ARG)
				LOCALS += "夏服"
		ELSEIF CHECK_SHIRT("脏連体泳装", ARG)
			LOCALS = 脏連体泳装
		ELSEIF CHECK_SHIRT("長連帽風衣", ARG)
			IF CHECK_SHIRT("红黑色无袖連帽風衣", ARG)
				LOCALS = 红黑色无袖連帽風衣
			ELSE
				RETURNF "長連帽風衣"
			ENDIF
		ELSEIF CHECK_SHIRT("毛衣", ARG)
			RETURNF "连体毛衣"
		ELSE
			RETURNF ""
		ENDIF
	ELSEIF CHECK_SKIRT("裙", ARG)
		IF CHECK_SKIRT("百褶", ARG)
			LOCALS = 百褶裙
		ELSEIF CHECK_SKIRT("格子", ARG)
			LOCALS = 格子裙
		ELSEIF CHECK_SKIRT("紧身", ARG)
			LOCALS = 紧身裙
		ELSE
			RETURNF ""
		ENDIF
		IF CHECK_SKIRT("Micro", ARG)
			LOCALS = Micro%LOCALS%
		ELSEIF CHECK_SKIRT("迷你", ARG)
			LOCALS = 迷你%LOCALS%
		ENDIF
	ELSEIF CHECK_SKIRT("荷葉邊", ARG)
		SIF CFLAG:ARG:掀起裙子
			RETURNF ""
		SIF CHECK_SKIRT("花柄", ARG)
			RETURNF "花柄荷葉邊"
		RETURNF "荷葉邊"
	ELSE
		RETURNF ""
	ENDIF
CASE "CIP背面"
	;ワンピ
	IF CHECK_SKIRT("連衣裙", ARG)
		IF CHECK_SHIRT("毛衣", ARG)
			RETURNF "背面露背针织毛衣"
		ENDIF
	ELSE
		RETURNF ""
	ENDIF
CASE "CIP淚珠泳衣"
	IF CHECK_SKIRT("荷葉邊", ARG)
		SIF CFLAG:ARG:掀起裙子
			RETURNF ""
		SIF CHECK_SKIRT("花柄", ARG)
			RETURNF "花柄荷葉邊"
		RETURNF "荷葉邊"
	ELSE
		RETURNF ""
	ENDIF
CASE "CIP正面カラー", "CIP背面カラー", "CIP淚珠泳衣カラー"
	SELECTCASE ARGS
	CASE "CIP正面カラー"
		CIPTYPE = CIP正面
	CASE "CIP背面カラー"
		CIPTYPE = CIP背面
	CASE "CIP淚珠泳衣カラー"
		CIPTYPE = CIP淚珠泳衣
	ENDSELECT
	LOCALS = %CLOCOLOR_MAIDFACE(SKIRT(ARG, CIPTYPE), CHECK_CLOCOLOR(CSTR:ARG:裙), ARG)%
	SIF LOCALS == "" && CHECK_SKIRT("連衣裙", ARG)
		LOCALS = %CLOCOLOR_MAIDFACE(SHIRT(ARG, "種類"), CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	RETURNF LOCALS
CASE "略"
	IF CHECK_SKIRT("鎧", ARG)
		LOCALS = 垂れ
	ELSEIF CHECK_SKIRT("荷葉邊", ARG)
		LOCALS = 荷葉邊
	ELSEIF CHECK_SKIRT("情趣内衣", ARG)
		LOCALS = 下摆
	ELSEIF CHECK_SKIRT("恤", ARG)
		LOCALS = 下摆
	ELSEIF CHECK_SKIRT("袴", ARG)
		LOCALS = 袴
	ELSEIF CHECK_SKIRT("和服", ARG) || CHECK_SKIRT("振袖", ARG) || CHECK_SKIRT("和服", ARG) || CHECK_SKIRT("浴衣", ARG)
		LOCALS = 下摆
	ELSEIF CHECK_SKIRT("巻き裙", ARG)
		LOCALS = 腰布
	ELSEIF CHECK_SKIRT("下摆", ARG)
		LOCALS = 下摆
	ELSEIF CHECK_SKIRT("前垂", ARG)
		LOCALS = 前垂
	ELSE
		LOCALS = 裙
	ENDIF
CASE "", "種類"
	;LOCALSに名称が入る
	SPLIT CSTR:ARG:裙, "/", LOCALS
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;ARG番の裙の名称(基本的には用いない)
;-------------------------------------------------
@NAME_SKIRT(ARG)
#FUNCTIONS

RETURNF LOCALS

;-------------------------------------------------
;角色ARGに裙ARGSを着せた場合のCSTR処理
;-------------------------------------------------
@PALAM_SKIRT, ARGS, ARG
;追加で記述された属性を一時的に保管する
#DIMS STR_ADD

SIF ARG == 0 && TARGET > 0
	ARG = TARGET

STR_ADD = %EXTSTR(ARGS, "/")%
ARGS = %EXTSTR(ARGS, "", "/")%

SELECTCASE ARGS
CASE "", "没有"
	CSTR:ARG:裙 =
CASE "帯裙撑的蓬蓬裙"
	CSTR:ARG:裙 = 帯裙撑的蓬蓬裙/褶边/
CASE "花柄荷葉邊"
	CSTR:ARG:裙 = 花柄荷葉邊/泳装/花柄/
CASE "荷葉邊"
	CSTR:ARG:裙 = 荷葉邊/泳装/
CASE "紧身裙", "長紧身裙", "迷你紧身裙", "Micro紧身裙"
	CSTR:ARG:裙 = %ARGS%/收下摆/

CASE "百褶裙"
	CSTR:ARG:裙 = 百褶裙/
CASE "迷你百褶裙"
	CSTR:ARG:裙 = 迷你百褶裙/
CASE "Micro百褶裙"
	CSTR:ARG:裙 = Micro百褶裙/

CASE "格子裙"
	CSTR:ARG:裙 = 格子裙/
CASE "迷你格子裙"
	CSTR:ARG:裙 = 迷你格子裙/
CASE "Micro格子裙"
	CSTR:ARG:裙 = Micro格子裙/

CASE "緋袴"
	CSTR:ARG:裙 = 緋袴/赤/
CASE "露脐装超短裙袴"
	CSTR:ARG:裙 = 露脐装超短裙袴/赤/
CASE "超短迷你袴"
	CSTR:ARG:裙 = 超短迷你袴/赤/
CASEELSE
	CSTR:ARG:裙 = %ARGS%\/
ENDSELECT

CSTR:ARG:裙 = %MERGE_STR(CSTR:ARG:裙, STR_ADD)%

;-------------------------------------------------
;ARGの裙が条件ARGSを満たすか確認する
;-------------------------------------------------
@CHECK_SKIRT(ARGS, ARG)
#FUNCTION
SIF ARG == 0 && TARGET
	ARG = TARGET
SIF EQUIP:ARG:裙 == 0
	RETURNF 0

SELECTCASE ARGS
CASE "恤"
	SIF STRCOUNT(CSTR:ARG:裙, "恤") && STRCOUNT(CSTR:ARG:裙, "收下摆") == 0
		RETURNF 1
CASE "休闲褲不可"
	SIF STRCOUNTS(CSTR:ARG:裙, "休闲褲不可", "紧身")
		RETURNF 1
CASE "超短迷你", "Micro"
	SIF STRCOUNTS(CSTR:ARG:裙, "超短迷你", "Micro")
		RETURNF 1
CASE "迷你"
	SIF STRCOUNTS(CSTR:ARG:裙, "迷你", "Micro")
		RETURNF 1
CASEELSE
	SIF STRCOUNT(CSTR:ARG:裙, ARGS)
		RETURNF 1
ENDSELECT
RETURNF 0


code:
;-------------------------------------------------
;角色ARGに贴身制服ARGSを着せる。ARGS == ""なら脱がす
;-------------------------------------------------
@SET_BODYS, ARGS, ARG
#DIMS MEMO_CLO
SIF ARG == 0 && TARGET > 0
	ARG = TARGET
MEMO_CLO = %CSTR:ARG:贴身制服%
;汚れ＆移開たりしたフラグ等を初期化して新品にする
STAIN:ARG:贴身制服ボトム = 0
STAIN:ARG:贴身制服トップ = 0

CALL PALAM_BODYS, ARGS, ARG
;コモンフラグを設定する
CSTR:ARG:贴身制服 = %SET_CLO_COMMON(CSTR:ARG:贴身制服, ARG)%

EQUIP:ARG:贴身制服 = STRLENS(CSTR:ARG:贴身制服)

;内衣は脱がす
IF EQUIP:ARG:贴身制服
	CALL SET_PANTIES, "", ARG
	CALL SET_BRA, "", ARG
ENDIF
SIF MEMO_CLO != CSTR:ARG:贴身制服
	TFLAG:着替えた = 1

;-------------------------------------------------
;ARGの贴身制服の名前。ARGSに"略"と入れると略称になる
;-------------------------------------------------
@BODYS(ARG, ARGS)
#FUNCTIONS
#DIMS CIPTYPE

VARSET LOCALS
SELECTCASE ARGS
CASE "CIP正面"
	IF CHECK_BODYS("兔", ARG)
		SIF CHECK_BODYS("高開衩", ARG)
			RETURNF "高開衩兔女郎服制服"
		LOCALS = 兔女郎制服
	ELSEIF CHECK_BODYS("競泳泳装", ARG)
		SIF CHECK_BODYS("高開衩", ARG)
			RETURNF "高開衩競泳泳装"
		LOCALS = 競泳泳装
	ELSEIF CHECK_BODYS("紧身短褲型死库水", ARG)
		LOCALS = 紧身短褲型死库水
	ELSEIF CHECK_BODYS("新死库水", ARG)
		LOCALS = 新死库水
	ELSEIF CHECK_BODYS("死库水", ARG)
		LOCALS = 死库水
	ELSE
		RETURNF ""
	ENDIF
CASE "CIP背面"
	RETURNF ""
CASE "CIP正面カラー", "CIP背面カラー"
	SELECTCASE ARGS
	CASE "CIP正面カラー"
		CIPTYPE = CIP正面
	CASE "CIP背面カラー"
		CIPTYPE = CIP背面
	ENDSELECT
	RETURNF CLOCOLOR_MAIDFACE(BODYS(ARG, CIPTYPE), CHECK_CLOCOLOR(CSTR:ARG:贴身制服), ARG)
CASE "略"
	IF CHECK_BODYS("競泳泳装", ARG)
		LOCALS = 競泳泳装
	ELSEIF CHECK_BODYS("死库水", ARG)
		LOCALS = 死库水
	ELSEIF CHECK_BODYS("連体泳装", ARG)
		IF CHECK_BODYS("勒紧的", ARG)
			LOCALS = 高開衩泳装
		ELSE
			LOCALS = 連体泳装
		ENDIF
	ELSEIF CHECK_BODYS("彈弓泳衣", ARG)
		LOCALS = 彈弓泳衣
	ELSEIF CHECK_CLO("拘束衣", ARG)
		LOCALS = 拘束衣
	ELSEIF CHECK_BODYS("兔", ARG)
		LOCALS = 兔女郎制服
	ELSEIF CHECK_BODYS("緊身内衣", ARG)
		LOCALS = 緊身内衣
	ELSEIF CHECK_BODYS("泳装", ARG)
		LOCALS = 泳装
	ELSE
		LOCALS = 贴身制服
	ENDIF
CASE "種類"
	;LOCALSに名称が入る
	SPLIT CSTR:ARG:贴身制服, "/", LOCALS
CASE ""
	;LOCALSに名称が入る
	SPLIT CSTR:ARG:贴身制服, "/", LOCALS
	RETURNF @"%CLOCOLOR(CSTR:ARG:贴身制服, "形容詞")%%LOCALS%"
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;ARG番の贴身制服の名称。換装などで表を作る際に使う
;-------------------------------------------------
@NAME_BODYS(ARG)
#FUNCTIONS
VARSET LOCALS

SELECTCASE ARG
CASE 0
	LOCALS = 緊身内衣
CASE 1
	LOCALS = 性感緊身内衣
CASE 2
	LOCALS = 漆皮緊身内衣
CASE 3
	LOCALS = 兔女郎制服
CASE 4
	LOCALS = 高開衩兔女郎服
CASE 5
	LOCALS = 拘束衣
CASE 6
	LOCALS = 死库水
CASE 7
	LOCALS = 連体泳装
CASE 8
	LOCALS = 高開衩泳装
CASE 9
	LOCALS = 競泳泳装
CASE 10
	LOCALS = 彈弓泳衣
ENDSELECT

RETURNF LOCALS

;-------------------------------------------------
;角色ARGに贴身制服ARGSを着せた場合のCSTR処理
;-------------------------------------------------
@PALAM_BODYS, ARGS, ARG
;追加で記述された属性を一時的に保管する
#DIMS STR_ADD

SIF ARG == 0 && TARGET > 0
	ARG = TARGET

STR_ADD = %EXTSTR(ARGS, "/")%
ARGS = %EXTSTR(ARGS, "", "/")%

SELECTCASE ARGS
CASE "", "没有"
	CSTR:ARG:贴身制服 =
CASE "緊身内衣"
	CSTR:ARG:贴身制服 = 緊身内衣/
CASE "性感緊身内衣"
	CSTR:ARG:贴身制服 = 性感緊身内衣/高開衩/谷間露出/
CASE "漆皮緊身内衣"
	CSTR:ARG:贴身制服 = 漆皮緊身内衣/高開衩/Ｔ字褲/带拉链的/谷間露出/
CASE "兔女郎制服"
	CSTR:ARG:贴身制服 = 兔女郎制服/Ｔ字褲/谷間露出/半杯/
CASE "高開衩兔女郎服", "高開衩兔女郎服制服"
	CSTR:ARG:贴身制服 = 高開衩兔女郎服/Ｔ字褲/漆皮/谷間露出/半杯/
CASE "拘束衣"
	CSTR:ARG:贴身制服 = 拘束衣/皮革/带拉链的/谷間露出/乳頭露出/露脐/
CASE "紐拘束衣"
	CSTR:ARG:贴身制服 = 紐拘束衣/皮革/带拉链的/谷間露出/乳頭露出/露脐/
CASE "紧身短褲型死库水"
	CSTR:ARG:贴身制服 = 紧身短褲型死库水/泳装/紺色/不可移開/
CASE "新死库水"
	CSTR:ARG:贴身制服 = 新死库水/泳装/紺色/
CASE "死库水"
	CSTR:ARG:贴身制服 = 死库水/泳装/
CASE "連体泳装"
	CSTR:ARG:贴身制服 = 連体泳装/
CASE "高開衩連衣裙"
	CSTR:ARG:贴身制服 = 高開衩連衣裙/高開衩/連体泳装/
CASE "高開衩泳装"
	CSTR:ARG:贴身制服 = 高開衩泳装/Ｔ字褲/連体泳装/
CASE "競泳泳装"
	CSTR:ARG:贴身制服 = 競泳泳装/
CASE "高開衩競泳泳装"
	CSTR:ARG:贴身制服 = 高開衩競泳泳装/高開衩/
CASE "彈弓泳衣"
	CSTR:ARG:贴身制服 = 彈弓泳衣/泳装/高開衩/Ｔ字褲/谷間露出/露脐/
CASEELSE
	CSTR:ARG:贴身制服 = %ARGS%/
ENDSELECT

CSTR:ARG:贴身制服 = %MERGE_STR(CSTR:ARG:贴身制服, STR_ADD)%

;-------------------------------------------------
;ARGの贴身制服が条件ARGSを満たすか確認する
;-------------------------------------------------
@CHECK_BODYS(ARGS, ARG)
#FUNCTION
SIF ARG == 0 && TARGET
	ARG = TARGET
SIF EQUIP:ARG:贴身制服 == 0
	RETURNF 0
SELECTCASE ARGS
CASE "休闲褲型"
	SIF STRCOUNT(CSTR:ARG:贴身制服, "紧身短褲")
		RETURNF 1
CASE "半脱可"
	SIF STRCOUNTS(CSTR:ARG:贴身制服, "半脱的", "半脱不可")
		RETURNF 0
	RETURNF 1
;主に"阴部のチラ見せ撮影"の判定で使う
CASE "めくり可能"
	;めくれなさそうなもの
	SIF STRCOUNTS(CSTR:ARG:贴身制服, "带拉链的", "皮革")
		RETURNF 0
	RETURNF 1
;不可移開でなく、ずらしていない
CASE "ずらし可", "可以移開"
	SIF STRCOUNT(CSTR:ARG:贴身制服, "Ｖ露出")
		RETURNF 0
	IF STRCOUNT(CSTR:ARG:贴身制服, "带拉链的")
		SIF STRCOUNT(CSTR:ARG:贴身制服, "带拉链的開")
			RETURNF 0
		RETURNF 1
	ENDIF
	SIF STRCOUNTS(CSTR:ARG:贴身制服, "移開的", "不可移開")
		RETURNF 0
	RETURNF 1
;带拉链的が有、あけていない
CASE "带拉链的閉"
	SIF STRCOUNT(CSTR:ARG:贴身制服, "带拉链的開")
		RETURNF 0
	SIF STRCOUNT(CSTR:ARG:贴身制服, "带拉链的")
		RETURNF 1
CASE "ＶＡ露出"
	SIF STRCOUNT(CSTR:ARG:贴身制服, "Ｖ露出") && STRCOUNT(CSTR:ARG:贴身制服, "Ａ露出")
		RETURNF 1
CASE "開洞"
	SIF STRCOUNTS(CSTR:ARG:贴身制服, "带拉链的開", "移開的", "破開的", "Ｖ露出", "開衩")
		RETURNF 0
	RETURNF 1
CASE "Ａ開洞"
	SIF STRCOUNTS(CSTR:ARG:贴身制服, "带拉链的開", "移開的", "破開的", "Ａ露出", "開衩")
		RETURNF 0
	RETURNF 1
CASE "勒紧的"
	SIF STRCOUNTS(CSTR:ARG:贴身制服, "移開的", "带拉链的開", "Ｖ露出", "開衩", "破開的")
		RETURNF 0
	SIF STRCOUNTS(CSTR:ARG:贴身制服, "高開衩")
		RETURNF 1
CASE "闷热的"
	SIF STRCOUNTS(CSTR:ARG:贴身制服, "移開的", "带拉链的開", "Ｖ露出", "開衩", "破開的")
		RETURNF 0
	SIF CHECK_STAIN(STAIN:ARG:贴身制服ボトム, "闷热的")
		RETURNF 1
CASE "湿的"
	SIF STRCOUNTS(CSTR:ARG:贴身制服, "移開的", "带拉链的開", "Ｖ露出", "開衩", "破開的", "通気性没有")
		RETURNF 0
	SIF CHECK_STAIN(STAIN:ARG:贴身制服ボトム, "湿的")
		RETURNF 1
CASEELSE
	SIF STRCOUNT(CSTR:ARG:贴身制服, ARGS)
		RETURNF 1
ENDSELECT

RETURNF 0

license: unknown


code:
;-------------------------------------------------
;角色ARGにARGSを着せる。ARGS == ""なら脱がす
;-------------------------------------------------
@SET_OUTER, ARGS, ARG
#DIMS MEMO_CLO
SIF ARG == 0 && TARGET > 0
	ARG = TARGET
MEMO_CLO = %CSTR:ARG:外套%
;汚れ＆移開たりしたフラグ等を初期化して新品にする
STAIN:ARG:外套 = 0

CALL PALAM_OUTER, ARGS, ARG

;コモンフラグを設定する
CSTR:ARG:外套 = %SET_CLO_COMMON(CSTR:ARG:外套, ARG)%
EQUIP:ARG:外套 = STRLENS(CSTR:ARG:外套)

;连褲襪を履いたら襪子は脱掉
SIF CHECK_OUTER("连褲襪", ARG)
	CALL SET_SOCKS, "", ARG
;裙不可なら脱掉
SIF CHECK_OUTER("裙不可", ARG)
	CALL SET_SKIRT, "", ARG
;休闲褲不可なら脱掉
SIF CHECK_SKIRT("休闲褲不可", ARG) && CHECK_OUTER("休闲褲", ARG)
	CALL SET_SKIRT, "", ARG
;布鲁马被りは禁止
SIF CHECK_PANTIES("布鲁马", ARG) && CHECK_OUTER("布鲁马", ARG)
	CALL SET_PANTIES, "", ARG
;外套履いたなら、下ろしてた胖次は穿く
SIF EQUIP:ARG:外套 && CHECK_PANTIES("下拉半遮", ARG)
	CALL SETFLAG, "整理胖次", ARG
SIF CHECK_OUTER("紧身短褲", ARG)
	CALL SET_BODYS, "", ARG
SIF MEMO_CLO != CSTR:ARG:外套
	TFLAG:着替えた = 1

;-------------------------------------------------
;ARGの外套の名前。ARGSに"略"と入れると略称になる
;-------------------------------------------------
@OUTER(ARG, ARGS)
#FUNCTIONS
#DIM LCOUNT
#DIMS COLOR_ABOUT
#DIMS CIPTYPE

VARSET LOCALS
SELECTCASE ARGS
CASE "CIP正面"
	IF CHECK_OUTER("布鲁马", ARG)
		RETURNF "布鲁马"
	ELSEIF CHECK_OUTER("開裆皮裤", ARG)
		RETURNF "開裆皮裤"
	ELSEIF CHECK_OUTER("热褲", ARG)
		IF CHECK_OUTER("前開", ARG)
			RETURNF "前開热褲"
		ELSEIF CHECK_OUTER("迷你", ARG)
			RETURNF "迷你热褲"
		ELSEIF CHECK_OUTER("牛仔", ARG)
			RETURNF "牛仔热褲"
		ELSE
			RETURNF "热褲"
		ENDIF
	ELSEIF CHECK_OUTER("長褲", ARG)
		IF CHECK_OUTER("男物", ARG)
			LOCALS = メンズ胖次
		ELSE
			LOCALS = 長褲
		ENDIF
		SIF CHECK_OUTER("前開", ARG)
			LOCALS = 前開%LOCALS%
	ELSEIF CHECK_OUTER("运动衫休闲褲", ARG)
		RETURNF "运动衫休闲褲"
	ELSEIF CHECK_OUTER("五分褲", ARG)
		LOCALS = 五分褲
	ELSEIF CHECK_OUTER("紧身短褲", ARG)
		;紧身短褲は裙を履いてるかで大きく分岐させる
		IF SKIRT(ARG, "CIP正面") != ""
			RETURNF "褲襪"
		ELSE
			RETURNF "紧身短褲"
		ENDIF
	ELSEIF CHECK_OUTER("网纹褲襪", ARG) || CHECK_OUTER("渔网连褲襪", ARG)
		SIF CHECK_OUTER("開放型", ARG)
			RETURNF "開放型网纹褲襪"
		RETURNF "网纹褲襪"
	ELSEIF CHECK_OUTER("褲襪", ARG)
		SIF CHECK_OUTER("開放型", ARG)
			RETURNF "開放型褲襪"
		RETURNF "褲襪"
	ELSEIF CHECK_OUTER("连褲襪", ARG)
		SIF CHECK_OUTER("開放型", ARG)
			RETURNF "開放型连褲襪"
		RETURNF "连褲襪"
	ELSE
		RETURNF ""
	ENDIF
CASE "CIP背面"
	IF CHECK_OUTER("開裆皮裤", ARG)
		RETURNF ""
	ELSEIF CHECK_OUTER("热褲", ARG)
		IF CHECK_OUTER("迷你", ARG)
			RETURNF ""
		ELSEIF CHECK_OUTER("牛仔", ARG)
			RETURNF "背面牛仔热褲"
		ELSE
			RETURNF "背面热褲"
		ENDIF
	ELSEIF CHECK_OUTER("牛仔褲", ARG) || CHECK_OUTER("長褲", ARG)
		SIF CHECK_OUTER("男物", ARG)
			RETURNF ""
		RETURNF "背面長褲"
	ELSE
		RETURNF ""
	ENDIF
CASE "CIP紧身短褲"
	SIF CHECK_OUTER("紧身短褲", ARG)
		RETURNF "紧身短褲"
	RETURNF ""
CASE "CIP正面カラー", "CIP背面カラー"
	SELECTCASE ARGS
	CASE "CIP正面カラー"
		CIPTYPE = CIP正面
	CASE "CIP背面カラー"
		CIPTYPE = CIP背面
	ENDSELECT
	RETURNF CLOCOLOR_MAIDFACE(OUTER(ARG, CIPTYPE), CHECK_CLOCOLOR(CSTR:ARG:外套), ARG)

CASE "略"
	IF CHECK_OUTER("布鲁马", ARG)
		LOCALS = 布鲁马
	ELSEIF CHECK_OUTER("热褲", ARG)
		LOCALS = 热褲
	ELSEIF CHECK_OUTER("短褲", ARG)
		LOCALS = 短褲
	ELSEIF CHECK_OUTER("紧身短褲", ARG)
		LOCALS = 紧身短褲
	ELSEIF CHECK_OUTER("睡衣", ARG)
		LOCALS = 睡衣休闲褲
	ELSEIF CHECK_OUTER("五分褲", ARG)
		LOCALS = 五分褲
	ELSEIF CHECK_OUTER("短褲", ARG)
		LOCALS = 短褲
	ELSEIF CHECK_OUTER("运动衫", ARG)
		LOCALS = 运动衫
	;ELSEIF CHECK_OUTER("低腰牛仔褲", ARG)
	;	LOCALS = 低腰牛仔褲
	ELSEIF CHECK_OUTER("牛仔褲", ARG)
		LOCALS = 牛仔褲
	ELSEIF CHECK_OUTER("褲裙", ARG)
		LOCALS = キュロット
	ELSEIF CHECK_OUTER("袴", ARG)
		LOCALS = 袴
	ELSEIF CHECK_OUTER("网纹褲襪", ARG) || CHECK_OUTER("渔网连褲襪", ARG)
		SIF CHECK_OUTER("開放型", ARG)
			RETURNF "開放型网纹褲襪"
		RETURNF "网纹褲襪"
	ELSEIF CHECK_OUTER("褲襪", ARG)
		SIF CHECK_OUTER("開放型", ARG)
			RETURNF "開放型褲襪"
		RETURNF "褲襪"
	ELSEIF CHECK_OUTER("连褲襪", ARG)
		SIF CHECK_OUTER("開放型", ARG)
			RETURNF "開放型连褲襪"
		RETURNF "连褲襪"
	ELSEIF CHECK_OUTER("打底褲", ARG)
		LOCALS = 打底褲
	ELSEIF EQUIP:ARG:外套
		LOCALS = 休闲褲
	ENDIF
CASE "種類"
	SPLIT CSTR:ARG:外套, "/", LOCALS
CASE ""
	;LOCALS:0に名称、LOCALS:1～に色が入る場合がある
	SPLIT CSTR:ARG:外套, "/", LOCALS
	RETURNF @"%CLOCOLOR(CSTR:ARG:外套, "形容詞")%%LOCALS%"
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;ARG番の外套の名称
;-------------------------------------------------
@NAME_OUTER(ARG)
#FUNCTIONS
VARSET LOCALS

SELECTCASE ARG
CASE 0
	LOCALS = 布鲁马
;CASE 1
;	LOCALS = 高開衩布鲁马
CASE 2
	LOCALS = 紧身短褲
CASE 3
	LOCALS = 热褲
CASE 4
	LOCALS = 短褲
CASE 5
	LOCALS = 五分褲
CASE 6
	LOCALS = 休闲褲
CASE 7
	LOCALS = 运动衫休闲褲
CASE 8
	LOCALS = 牛仔褲
CASE 9
	LOCALS = 低腰牛仔褲
CASE 10
	LOCALS = 褲裙
CASE 11
	LOCALS = 打底褲
CASE 12
	LOCALS = 连褲襪
CASE 13
	LOCALS = 渔网连褲襪
CASE 14
	LOCALS = 開放型连褲襪
CASE 15
	LOCALS = 褲襪
CASE 16
	LOCALS = 网纹褲襪
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;角色ARGに外套ARGSを着せた場合のCSTR処理
;-------------------------------------------------
@PALAM_OUTER, ARGS, ARG
;追加で記述された属性を一時的に保管する
#DIMS STR_ADD

SIF ARG == 0 && TARGET > 0
	ARG = TARGET

STR_ADD = %EXTSTR(ARGS, "/")%
ARGS = %EXTSTR(ARGS, "", "/")%

SELECTCASE ARGS
CASE "", "没有"
	CSTR:ARG:外套 =
CASE "布鲁马"
	CSTR:ARG:外套 = 布鲁马/
;CASE "高開衩布鲁马"
;	CSTR:ARG:外套 = 高開衩布鲁马/Ｔ字褲/
CASE "紧身短褲"
	CSTR:ARG:外套 = 紧身短褲/不可移開/
CASE "热褲", "短褲"
	CSTR:ARG:外套 = %ARGS%/不可移開/不可手交/可从缝隙偷窥的/休闲褲/社会の窓/
CASE "前開热褲", "前開短褲"
	CSTR:ARG:外套 = %ARGS%/不可移開/不可手交/可从缝隙偷窥的/休闲褲/社会の窓/
CASE "牛仔热褲", "ダメージ短褲"
	CSTR:ARG:外套 = %ARGS%/不可移開/不可手交/可从缝隙偷窥的/休闲褲/社会の窓/
CASE "迷你热褲", "迷你短褲"
	CSTR:ARG:外套 = %ARGS%/不可移開/不可手交/可从缝隙偷窥的/低腰/休闲褲/社会の窓/
CASE "長褲"
	CSTR:ARG:外套 = 長褲/不可移開/不可手交/休闲褲/長褲/
CASE "前開長褲"
	CSTR:ARG:外套 = 前開長褲/不可移開/不可手交/休闲褲/長褲/

CASE "開裆皮裤"
	CSTR:ARG:外套 = 開裆皮裤/不可移開/不可手交/休闲褲/長褲/Ｖ露出/Ａ露出/皮革/黒/

CASE "五分褲"
	CSTR:ARG:外套 = 五分褲/不可移開/不可手交/可从缝隙偷窥的/休闲褲/男物可/
CASE "运动衫休闲褲"
	CSTR:ARG:外套 = 运动衫休闲褲/不可移開/不可手交/休闲褲/男物可/
CASE "牛仔褲"
	CSTR:ARG:外套 = 牛仔褲/不可移開/不可手交/休闲褲/男物可/社会の窓/長褲/
CASE "前開牛仔褲"
	CSTR:ARG:外套 = 前開牛仔褲/不可移開/不可手交/休闲褲/男物可/社会の窓/長褲/
CASE "低腰牛仔褲"
	CSTR:ARG:外套 = 低腰牛仔褲/不可移開/不可手交/休闲褲/社会の窓/長褲/
CASE "打底褲"
	CSTR:ARG:外套 = 打底褲/不可移開/不可手交/休闲褲/
CASE "塑身高褲"
	CSTR:ARG:外套 = 塑身高褲/不可移開/不可手交/休闲褲/長褲/
CASE "连褲襪"
	CSTR:ARG:外套 = 连褲襪/不可移開/不可手交/透明/
CASE "渔网连褲襪"
	CSTR:ARG:外套 = 渔网连褲襪/不可移開/不可手交/蕾丝/黒/
CASE "開放型连褲襪"
	CSTR:ARG:外套 = 開放型连褲襪/不可移開/不可手交/Ｖ露出/Ａ露出/
CASE "连褲襪黒", "黑色连褲襪"
	CSTR:ARG:外套 = 连褲襪/不可移開/不可手交/透明/黒/
CASE "连褲襪赤"
	CSTR:ARG:外套 = 连褲襪/不可移開/不可手交/透明/赤/
CASE "连褲襪白"
	CSTR:ARG:外套 = 连褲襪/不可移開/不可手交/透明/白/

CASE "褲襪"
	CSTR:ARG:外套 = 褲襪/不可移開/不可手交/
CASE "開放型褲襪"
	CSTR:ARG:外套 = 開放型褲襪/不可移開/不可手交/Ｖ露出/Ａ露出/
CASE "网纹褲襪"
	CSTR:ARG:外套 = 网纹褲襪/不可移開/不可手交/黒/
CASE "開放型网纹褲襪"
	CSTR:ARG:外套 = 開放型网纹褲襪/不可移開/不可手交/Ｖ露出/Ａ露出/黒/

CASE "工装裤"
	CSTR:ARG:外套 = 工装裤/不可移開/不可手交/休闲褲/男物可/社会の窓/裙不可/

CASE "休闲褲"
	CSTR:ARG:外套 = 休闲褲/不可移開/不可手交/休闲褲/男物可/社会の窓/長褲/
CASE "前開休闲褲"
	CSTR:ARG:外套 = 前開休闲褲/不可移開/不可手交/休闲褲/男物可/社会の窓/長褲/
CASE "西褲"
	CSTR:ARG:外套 = 西褲/不可移開/不可手交/休闲褲/男物可/社会の窓/長褲/
CASE "学生休闲褲"
	CSTR:ARG:外套 = 学生休闲褲/不可移開/不可手交/休闲褲/男物/社会の窓/長褲/

CASE "褲裙"
	CSTR:ARG:外套 = 褲裙/不可移開/不可手交/可从缝隙偷窥的/休闲褲/
CASE "馬上袴"
	CSTR:ARG:外套 = 馬上袴/不可移開/不可手交/休闲褲/男物可/裙不可/
CASE "圣诞休闲褲"
	CSTR:ARG:外套 = 圣诞休闲褲/不可移開/不可手交/休闲褲/男物可/
CASEELSE
	CSTR:ARG:外套 = %ARGS%/
ENDSELECT

CSTR:ARG:外套 = %MERGE_STR(CSTR:ARG:外套, STR_ADD)%

;-------------------------------------------------
;ARGの外套が条件ARGSを満たすか確認する
;-------------------------------------------------
@CHECK_OUTER(ARGS, ARG)
#FUNCTION
SIF ARG == 0 && TARGET
	ARG = TARGET
SIF EQUIP:ARG:外套 == 0
	RETURNF 0

SELECTCASE ARGS
CASE "前開可"
	;既に開かれている
	SIF STRCOUNT(CSTR:ARG:外套, "前開")
		RETURNF 0
	SIF STRCOUNTS(CSTR:ARG:外套, "热褲", "長褲")
		RETURNF 1
CASE "连褲襪"
	;褲襪もOK
	SIF STRCOUNTS(CSTR:ARG:外套, "连褲襪", "褲襪") == 0
		RETURNF 0
	RETURNF 1
;主に埴輪ルックの判定で使う
CASE "丈長休闲褲"
	;休闲褲じゃないとダメ
	SIF STRCOUNTS(CSTR:ARG:外套, "休闲褲", "長褲") == 0
		RETURNF 0
	;丈の短いもの
	SIF STRCOUNTS(CSTR:ARG:外套, "热褲", "短")
		RETURNF 0
	RETURNF 1
CASE "股間の隙間"
	;太ももの付け根までを布地が締め付けている服
	SIF STRCOUNTS(CSTR:ARG:外套, "紧身短褲", "热褲", "短褲")
		RETURNF 1
;主に"阴部のチラ見せ撮影"の判定で使う
CASE "めくり可能"
	;めくれなさそうなもの
	SIF STRCOUNTS(CSTR:ARG:外套, "连褲襪", "不可移開")
		RETURNF 0
	RETURNF 1
;不可移開でなく、ずらしていない
CASE "ずらし可", "可以移開"
	SIF STRCOUNT(CSTR:ARG:外套, "Ｖ露出")
		RETURNF 0
	IF STRCOUNT(CSTR:ARG:外套, "带拉链的")
		SIF STRCOUNT(CSTR:ARG:外套, "带拉链的開")
			RETURNF 0
		RETURNF 1
	ENDIF
	SIF STRCOUNTS(CSTR:ARG:外套, "移開的", "不可移開")
		RETURNF 0
	RETURNF 1
;连褲襪で、破いていない
CASE "破ける"
	SIF STRCOUNT(CSTR:ARG:外套, "破開的")
		RETURNF 0
	SIF STRCOUNTS(CSTR:ARG:外套, "连褲襪", "网纹褲襪")
		RETURNF 1
;带拉链的が有、あけていない
CASE "带拉链的閉"
	SIF STRCOUNT(CSTR:ARG:外套, "带拉链的開")
		RETURNF 0
	SIF STRCOUNT(CSTR:ARG:外套, "带拉链的")
		RETURNF 1
CASE "ＶＡ露出"
	SIF STRCOUNT(CSTR:ARG:外套, "Ｖ露出") && STRCOUNT(CSTR:ARG:外套, "Ａ露出")
		RETURNF 1
	SIF STRCOUNT(CSTR:ARG:外套, "開放型")
		RETURNF 1
CASE "開洞"
	SIF STRCOUNTS(CSTR:ARG:外套, "带拉链的開", "移開的", "破開的", "Ｖ露出", "開衩", "開放型")
		RETURNF 0
	RETURNF 1
CASE "開洞有连褲襪"
	SIF STRCOUNTS(CSTR:ARG:外套, "带拉链的開", "移開的", "破開的", "Ｖ露出", "開衩", "開放型")
		RETURNF 0
	SIF STRCOUNT(CSTR:ARG:外套, "连褲襪")
		RETURNF 1
CASE "Ａ開洞"
	SIF STRCOUNTS(CSTR:ARG:外套, "带拉链的開", "移開的", "破開的", "Ａ露出", "開衩", "開放型")
		RETURNF 0
	RETURNF 1
CASE "勒紧的"
	SIF STRCOUNTS(CSTR:ARG:外套, "移開的", "带拉链的開", "Ｖ露出", "開衩", "破開的", "開放型")
		RETURNF 0
	SIF STRCOUNTS(CSTR:ARG:外套, "高開衩")
		RETURNF 1
CASE "低腰"
	SIF STRCOUNTS(CSTR:ARG:外套, "低腰", "超低腰")
		RETURNF 1
CASE "闷热的"
	SIF STRCOUNTS(CSTR:ARG:外套, "移開的", "带拉链的開", "Ｖ露出", "開衩", "破開的", "開放型")
		RETURNF 0
	SIF CHECK_STAIN(STAIN:ARG:外套, "闷热的")
		RETURNF 1
CASE "湿的"
	SIF STRCOUNTS(CSTR:ARG:外套, "移開的", "带拉链的開", "Ｖ露出", "開衩", "破開的", "通気性没有", "開放型")
		RETURNF 0
	SIF CHECK_STAIN(STAIN:ARG:外套, "湿的")
		RETURNF 1
CASEELSE
	SIF STRCOUNT(CSTR:ARG:外套, ARGS)
		RETURNF 1
ENDSELECT
RETURNF 0


code:
;-------------------------------------------------
;角色ARGにARGSを着せる。ARGS == ""なら脱がす
;-------------------------------------------------
@SET_SOCKS, ARGS, ARG
#DIMS MEMO_CLO
SIF ARG == 0 && TARGET > 0
	ARG = TARGET
MEMO_CLO = %CSTR:ARG:襪子%
;汚れ＆移開たりしたフラグ等を初期化して新品にする
STAIN:ARG:襪子 = 0
IF COND("脚の使用", ARG)
	CALL PALAM_SOCKS, ARGS, ARG
ELSE
	CSTR:ARG:襪子 =
ENDIF
EQUIP:ARG:襪子 = STRLENS(CSTR:ARG:襪子)
SIF MEMO_CLO != CSTR:ARG:襪子
	TFLAG:着替えた = 1

;-------------------------------------------------
;ARGの襪子の名前。ARGSに"略"と入れると略称になる
;-------------------------------------------------
@SOCKS(ARG, ARGS)
#FUNCTIONS
#DIMS COLOR_ABOUT
#DIMS CIPTYPE

VARSET LOCALS
SELECTCASE ARGS
CASE "CIP正面"
	IF CHECK_SOCKS("ガーター", ARG)
		LOCALS = 情趣吊带内衣
	ELSE
		RETURNF ""
	ENDIF
CASE "CIPすじ"
	SIF CHECK_SOCKS("逆兔女郎褲襪", ARG)
		RETURNF "紧身逆兔女郎褲襪"
	RETURNF ""
CASE "CIPMicro"
	SIF CHECK_SOCKS("逆兔女郎褲襪", ARG)
		RETURNF "Micro逆兔女郎褲襪"
	RETURNF ""
CASE "CIP正面カラー", "CIP背面カラー"
	SELECTCASE ARGS
	CASE "CIP正面カラー"
		CIPTYPE = CIP正面
	CASE "CIP背面カラー"
		CIPTYPE = CIP背面
	ENDSELECT
	RETURNF CLOCOLOR_MAIDFACE(SOCKS(ARG, CIPTYPE), CHECK_CLOCOLOR(CSTR:ARG:襪子), ARG)
CASE "略"
	IF CHECK_SOCKS("短布襪", ARG)
		LOCALS = 短布襪
	ELSEIF CHECK_SOCKS("褲襪", ARG)
		LOCALS = 褲襪
	ELSEIF CHECK_SOCKS("连褲襪", ARG)
		LOCALS = 连褲襪
	ELSEIF CHECK_SOCKS("打底褲", ARG)
		LOCALS = 打底褲
	ELSEIF CHECK_SOCKS("長筒襪", ARG)
		LOCALS = 長筒襪
	ELSEIF CHECK_SOCKS("襪", ARG)
		LOCALS = 襪
	ELSEIF EQUIP:ARG:襪子
		LOCALS = 襪子
	ENDIF
CASE "種類"
	IF CHECK_SOCKS("短布襪", ARG)
		LOCALS = 短布襪
	ELSEIF CHECK_SOCKS("连褲襪", ARG)
		LOCALS = 连褲襪
	ELSEIF CHECK_SOCKS("打底褲", ARG)
		LOCALS = 打底褲
	ELSEIF CHECK_SOCKS("吊帯長筒襪", ARG)
		LOCALS = 吊帯長筒襪
	ELSEIF CHECK_SOCKS("吊帯襪", ARG)
		LOCALS = 吊帯襪
	ELSEIF CHECK_SOCKS("長筒襪", ARG)
		LOCALS = 長筒襪
	ELSEIF CHECK_SOCKS("襪", ARG)
		LOCALS = 襪
	ELSEIF EQUIP:ARG:襪子
		LOCALS = 襪子
	ENDIF
CASE ""
	;LOCALSに名称が入る
	SPLIT CSTR:ARG:襪子, "/", LOCALS
	COLOR_ABOUT = %CLOCOLOR(CSTR:ARG:襪子, "形容詞")%

	SELECTCASE COLOR_ABOUT
	CASE ""
	CASEELSE
		LOCALS = %CLOCOLOR(CSTR:ARG:襪子, "形容詞")%%LOCALS%
	ENDSELECT
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;ARG番の襪子の名称。換装などで表を作る際に使う
;-------------------------------------------------
@NAME_SOCKS(ARG)
#FUNCTIONS
VARSET LOCALS

SELECTCASE ARG
CASE 0
	LOCALS = 短襪
CASE 1
	LOCALS = 膝下襪
CASE 2
	LOCALS = 及膝襪
CASE 3
	LOCALS = 褶边襪
CASE 4
	LOCALS = 高筒襪
CASE 5
	LOCALS = 短布襪
CASE 6
	LOCALS = 長筒襪
CASE 7
	LOCALS = 网纹長筒襪
CASE 8
	LOCALS = 吊帯長筒襪
CASE 9
	LOCALS = 吊帯襪
ENDSELECT

RETURNF LOCALS

;-------------------------------------------------
;角色ARGに襪子ARGSを着せた場合のCSTR処理
;-------------------------------------------------
@PALAM_SOCKS, ARGS, ARG
;追加で記述された属性を一時的に保管する
#DIMS STR_ADD

SIF ARG == 0 && TARGET > 0
	ARG = TARGET

STR_ADD = %EXTSTR(ARGS, "/")%
ARGS = %EXTSTR(ARGS, "", "/")%

SELECTCASE ARGS
CASE "", "没有"
	CSTR:ARG:襪子 =
CASE "短襪"
	CSTR:ARG:襪子 = 短襪/直到脚腕/
CASE "膝下襪"
	CSTR:ARG:襪子 = 膝下襪/
CASE "及膝襪"
	CSTR:ARG:襪子 = 及膝襪/
CASE "高筒襪"
	CSTR:ARG:襪子 = 高筒襪/直到大腿/

CASE "長筒襪"
	CSTR:ARG:襪子 = 長筒襪/直到大腿/
CASE "网纹長筒襪"
	CSTR:ARG:襪子 = 网纹長筒襪/蕾丝/直到大腿/
CASE "吊帯長筒襪"
	CSTR:ARG:襪子 = 吊帯長筒襪/直到大腿/
CASE "吊帯襪"
	CSTR:ARG:襪子 = 吊帯襪/直到大腿/

CASE "逆兔女郎褲襪"
	CSTR:ARG:襪子 = 逆兔女郎褲襪/直到大腿/

CASE "褶边短襪"
	CSTR:ARG:襪子 = 褶边短襪/直到脚腕/
CASE "褶边襪"
	CSTR:ARG:襪子 = 褶边襪/
CASE "褶边过膝襪"
	CSTR:ARG:襪子 = 褶边过膝襪/直到大腿/

CASE "短布襪"
	CSTR:ARG:襪子 = 短布襪/直到脚腕/

CASE "黑色及膝襪"
	CSTR:ARG:襪子 = 黑色及膝襪/
CASE "襪子"
	CSTR:ARG:襪子 = 襪子/
CASEELSE
	CSTR:ARG:襪子 = %ARGS%/
ENDSELECT

CSTR:ARG:襪子 = %MERGE_STR(CSTR:ARG:襪子, STR_ADD)%

;-------------------------------------------------
;襪子ARGSの番号
;-------------------------------------------------
@NUM_SOCKS(ARGS)
#FUNCTION
#DIM LCOUNT

FOR LCOUNT, 100, 400
	SELECTCASE NAME_SOCKS(LCOUNT)
	CASE ARGS
		RETURNF LCOUNT
	ENDSELECT
NEXT
RETURNF 100

;-------------------------------------------------
;ARGの襪子が条件ARGSを満たすか確認する
;-------------------------------------------------
@CHECK_SOCKS(ARGS, ARG)
#FUNCTION
SIF ARG == 0 && TARGET
	ARG = TARGET
SIF EQUIP:ARG:襪子 == 0
	RETURNF 0
SIF STRCOUNT(CSTR:ARG:襪子, ARGS)
	RETURNF 1
RETURNF 0


code:
;-------------------------------------------------
;角色ARGにARGSを着せる。ARGS == ""なら脱がす
;-------------------------------------------------
@SET_SHOES, ARGS, ARG
#DIMS MEMO_CLO
SIF ARG == 0 && TARGET > 0
	ARG = TARGET
MEMO_CLO = %CSTR:ARG:靴%

;汚れ＆移開たりしたフラグ等を初期化して新品にする
STAIN:ARG:靴 = 0
IF COND("靴の着用", ARG)
	CALL PALAM_SHOES, ARGS, ARG
ELSE
	CSTR:ARG:靴 =
ENDIF
EQUIP:ARG:靴 = STRLENS(CSTR:ARG:靴)
SIF MEMO_CLO != CSTR:ARG:靴
	TFLAG:着替えた = 1

;-------------------------------------------------
;ARGの靴の名前。ARGSに"略"と入れると略称になる
;-------------------------------------------------
@SHOES(ARG, ARGS)
#FUNCTIONS

VARSET LOCALS
SELECTCASE ARGS
CASE "略"
	IF CHECK_SHOES("平底鞋", ARG)
		LOCALS = 平底鞋
	ELSEIF CHECK_SHOES("小皮靴", ARG)
		LOCALS = 小皮靴
	ELSEIF CHECK_SHOES("凉鞋", ARG)
		LOCALS = 凉鞋
	ELSEIF CHECK_SHOES("靴", ARG)
		LOCALS = 靴
	ELSEIF CHECK_SHOES("高跟鞋", ARG)
		LOCALS = 高跟鞋
	ELSEIF CHECK_SHOES("草履", ARG)
		LOCALS = 草履
	ELSEIF CHECK_SHOES("无后跟鞋", ARG)
		LOCALS = 无后跟鞋
	ELSEIF CHECK_SHOES("運動鞋", ARG)
		LOCALS = 運動鞋
	ELSEIF CHECK_SHOES("木屐", ARG)
		LOCALS = 木屐
	ELSEIF CHECK_SHOES("莫卡辛软皮鞋", ARG)
		LOCALS = 莫卡辛软皮鞋
	ELSEIF EQUIP:ARG:靴
		LOCALS = 靴
	ELSE
		LOCALS = 足
	ENDIF
CASE "種類"
	;LOCALSに名称が入る
	SPLIT CSTR:ARG:靴, "/", LOCALS
CASE ""
	;LOCALSに名称が入る
	SPLIT CSTR:ARG:靴, "/", LOCALS
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;ARG番の靴の名称。換装などで表を作る際に使う
;-------------------------------------------------
@NAME_SHOES(ARG)
#FUNCTIONS
VARSET LOCALS

SELECTCASE ARG
CASE 0
	LOCALS = 小皮靴
CASE 1
	LOCALS = 運動鞋
CASE 2
	LOCALS = 平底鞋
CASE 3
	LOCALS = 无后跟鞋
CASE 4
	LOCALS = 凉鞋
CASE 5
	LOCALS = 高跟鞋

CASE 6
	LOCALS = 靴
CASE 7
	LOCALS = 短靴
CASE 8
	LOCALS = 短筒女靴
CASE 9
	LOCALS = 長靴

CASE 10
	LOCALS = 草履
CASE 11
	LOCALS = 木屐
ENDSELECT

RETURNF LOCALS

;-------------------------------------------------
;角色ARGに靴ARGSを着せた場合のCSTR処理
;-------------------------------------------------
@PALAM_SHOES, ARGS, ARG
;追加で記述された属性を一時的に保管する
#DIMS STR_ADD

SIF ARG == 0 && TARGET > 0
	ARG = TARGET

STR_ADD = %EXTSTR(ARGS, "/")%
ARGS = %EXTSTR(ARGS, "", "/")%

SELECTCASE ARGS
CASE "", "没有"
	CSTR:ARG:靴 =
CASE "平底鞋"
	CSTR:ARG:靴 = 平底鞋/直到脚腕/
CASE "小皮靴"
	CSTR:ARG:靴 = 小皮靴/直到脚腕/
CASE "凉鞋"
	CSTR:ARG:靴 = 凉鞋/直到脚腕/足指露出/
CASE "短靴"
	CSTR:ARG:靴 = 短靴/直到脚腕/
CASE "靴"
	CSTR:ARG:靴 = 靴/
CASE "長靴"
	CSTR:ARG:靴 = 長靴/
CASE "高跟鞋"
	CSTR:ARG:靴 = 高跟鞋/直到脚腕/
CASE "草履"
	CSTR:ARG:靴 = 草履/直到脚腕/
CASE "无后跟鞋"
	CSTR:ARG:靴 = 无后跟鞋/直到脚腕/
CASE "運動鞋"
	CSTR:ARG:靴 = 運動鞋/直到脚腕/
CASE "短筒女靴"
	CSTR:ARG:靴 = 短筒女靴/直到脚腕/
CASE "木屐"
	CSTR:ARG:靴 = 木屐/直到脚腕/足指露出/
CASE "芭蕾舞鞋"
	CSTR:ARG:靴 = 芭蕾舞鞋/直到脚腕/
CASE "莫卡辛软皮鞋"
	CSTR:ARG:靴 = 莫卡辛软皮鞋/直到脚腕/
CASE "靴"
	CSTR:ARG:靴 = 靴/直到脚腕/
CASE "皮靴"
	CSTR:ARG:靴 = 皮靴/直到脚腕/
CASEELSE
	CSTR:ARG:靴 = %ARGS%/
ENDSELECT

CSTR:ARG:靴 = %MERGE_STR(CSTR:ARG:靴, STR_ADD)%

;-------------------------------------------------
;ARGの靴が条件ARGSを満たすか確認する
;-------------------------------------------------
@CHECK_SHOES(ARGS, ARG)
#FUNCTION
SIF ARG == 0 && TARGET
	ARG = TARGET
SIF EQUIP:ARG:靴 == 0
	RETURNF 0
SIF STRCOUNT(CSTR:ARG:靴, ARGS)
	RETURNF 1
RETURNF 0

;靴を脱いで記憶させる処理
@SET_SHOES_MEMO, ARG
SIF ARG == 0 && TARGET > 0
	ARG = TARGET
SIF CSTR:ARG:靴 == "" || CONFIG("在家里脱鞋") == 0 || PLACE("自宅") == 0
	RETURN 0
CSTR:ARG:脱掉的靴 = %CSTR:ARG:靴%
CSTR:ARG:靴 =
EQUIP:ARG:靴 = 0

;脱いでいた靴を履かせる処理
@SET_SHOES_RE, ARG
SIF ARG == 0 && TARGET > 0
	ARG = TARGET
SIF CSTR:ARG:脱掉的靴 == ""
	RETURN 0
STAIN:ARG:靴 = 0
CSTR:ARG:靴 = %CSTR:ARG:脱掉的靴%
CSTR:ARG:脱掉的靴 =
EQUIP:ARG:靴 = STRLENS(CSTR:ARG:靴)


code:
;-------------------------------------------------
;角色ARGに手套ARGSを着せる。ARGS == ""なら脱がす
;-------------------------------------------------
@SET_GLOVE, ARGS, ARG
#DIMS MEMO_CLO
SIF ARG == 0 && TARGET > 0
	ARG = TARGET
MEMO_CLO = %CSTR:ARG:手套%

;汚れ＆移開たりしたフラグ等を初期化して新品にする
STAIN:ARG:手套 = 0

CALL PALAM_GLOVE, ARGS, ARG

EQUIP:ARG:手套 = STRLENS(CSTR:ARG:手套)
SIF MEMO_CLO != CSTR:ARG:手套
	TFLAG:着替えた = 1

;-------------------------------------------------
;ARGの手套の名前。ARGSに"略"と入れると略称になる
;-------------------------------------------------
@GLOVE(ARG, ARGS)
#FUNCTIONS

VARSET LOCALS
SELECTCASE ARGS
CASE "略"
	IF CHECK_GLOVE("手露出", ARG)
		LOCALS = 手
	ELSEIF CHECK_GLOVE("指露出", ARG)
		LOCALS = 指
	ELSEIF CHECK_GLOVE("鎧", ARG)
		LOCALS = 篭手
	ELSEIF CHECK_GLOVE("肉球", ARG)
		LOCALS = 肉球
	ELSE
		LOCALS = 手套
	ENDIF
CASE "種類"
	;LOCALSに名称が入る
	SPLIT CSTR:ARG:手套, "/", LOCALS
CASE ""
	;LOCALSに名称が入る
	SPLIT CSTR:ARG:手套, "/", LOCALS
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;ARG番の手套の名称。換装などで表を作る際に使う
;-------------------------------------------------
@NAME_GLOVE(ARG)
#FUNCTIONS

VARSET LOCALS

SELECTCASE ARG
CASE 0
	LOCALS = 絲綢手套
CASE 1
	LOCALS = 礼服手套
CASE 2
	LOCALS = 皮革袖套
CASE 3
	LOCALS = 礼服袖套
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;角色ARGに手套ARGSを着せた場合のCSTR処理
;-------------------------------------------------
@PALAM_GLOVE, ARGS, ARG
;追加で記述された属性を一時的に保管する
#DIMS STR_ADD

SIF ARG == 0 && TARGET > 0
	ARG = TARGET

STR_ADD = %EXTSTR(ARGS, "/")%
ARGS = %EXTSTR(ARGS, "", "/")%

SELECTCASE ARGS
CASE "", "没有"
	CSTR:ARG:手套 =
CASE "手套"
	CSTR:ARG:手套 = 手套/
CASE "絹手套"
	CSTR:ARG:手套 = 絹手套/
CASE "革手套"
	CSTR:ARG:手套 = 革手套/黒/
CASE "絲綢手套"
	CSTR:ARG:手套 = 絲綢手套/
CASE "礼服手套"
	CSTR:ARG:手套 = 礼服手套/長/蕾丝/
CASE "皮革袖套"
	CSTR:ARG:手套 = 皮革袖套/直到手肘/手露出/黒/
CASE "皮革手套"
	CSTR:ARG:手套 = 皮革手套/長/革/黒/
CASE "礼服袖套"
	CSTR:ARG:手套 = 礼服袖套/長/蕾丝/手露出/
CASE "手臂束缚器"
	CSTR:ARG:手套 = 手臂束缚器/長/革/指の使用禁止/黒/
CASEELSE
	CSTR:ARG:手套 = %ARGS%/
ENDSELECT

CSTR:ARG:手套 = %MERGE_STR(CSTR:ARG:手套, STR_ADD)%

;-------------------------------------------------
;ARGの手套が条件ARGSを満たすか確認する
;-------------------------------------------------
@CHECK_GLOVE(ARGS, ARG)
#FUNCTION
SIF ARG == 0 && TARGET
	ARG = TARGET
SIF EQUIP:ARG:手套 == 0
	RETURNF 0

SELECTCASE ARGS
CASE "前腕露出"
	SIF STRCOUNTS(CSTR:ARG:手套, "直到手肘", "長") == 0
		RETURNF 1
CASEELSE
	SIF STRCOUNT(CSTR:ARG:手套, ARGS)
		RETURNF 1
ENDSELECT

RETURNF 0


code:
;-------------------------------------------------
;角色ARGに飾品ARGSをつける。ARGS == "" なら全部取下
;これだけは / で区切って10個程度まで装備可能
;他のものと異なり各装備に追加の属性などは無く、記号的な意味が非常に很强
;既に着けている飾品に区分が被った物がある場合には上書きする
;-------------------------------------------------
@SET_OTHER, ARGS, ARG
#DIM LCOUNT
#DIMS MEMO_CLO
SIF ARG == 0 && TARGET > 0
	ARG = TARGET
MEMO_CLO = %CSTR:ARG:飾品%

SELECTCASE ARGS
CASE ""
	CSTR:ARG:飾品 =
CASEELSE
	VARSET LOCALS
	SPLIT ARGS, "/", LOCALS

	;すでに装備している物から区分被りを消す
	FOR LCOUNT, 0, 10
		SELECTCASE LOCALS:LCOUNT
		CASE ""
			CONTINUE
		CASEELSE
			CALL RESET_OTHER, LOCALS:LCOUNT, ARG
		ENDSELECT
	NEXT
	CSTR:ARG:飾品 += @"%ARGS%\/"
	;念のため "/" の整理
	CALL RESET_OTHER, "", ARG
ENDSELECT

EQUIP:ARG:飾品 = STRLENS(CSTR:ARG:飾品)
SIF MEMO_CLO != CSTR:ARG:飾品
	TFLAG:着替えた = 1
RETURN 1

;-------------------------------------------------
;ARGが身に着けているARGSをはずし、順番を区分依存で揃える
;身に着けていない場合は何も起きない…のでARGSに""を入れる事で不要な "/" の整理も出来る
;-------------------------------------------------
@RESET_OTHER, ARGS, ARG
#DIM LCOUNT
#DIMS ORDER_OTHER, 10

SIF ARG == 0 && TARGET
	ARG = TARGET

VARSET LOCALS
SPLIT CSTR:ARG:飾品, "/", LOCALS
CSTR:ARG:飾品 =

VARSET ORDER_OTHER
FOR LCOUNT, 0, 10

	SELECTCASE LOCALS:LCOUNT
	;ARGSと一致する場合は飛ばす
	CASE "", ARGS
		CONTINUE
	;ARGSが"其他"以外の区分ならばARGSと同じ区分のものを飛ばす
	CASEELSE
		SIF TYPE_OTHER(ARGS) != "" && TYPE_OTHER(LOCALS:LCOUNT) == TYPE_OTHER(ARGS)
			CONTINUE
	ENDSELECT

	SELECTCASE TYPE_OTHER(LOCALS:LCOUNT)
	CASE "首"
		ORDER_OTHER:0 += @"%LOCALS:LCOUNT%\/"
	CASE "眼鏡"
		ORDER_OTHER:1 += @"%LOCALS:LCOUNT%\/"
	CASE "帽子"
		ORDER_OTHER:2 += @"%LOCALS:LCOUNT%\/"
	CASE "饰耳"
		ORDER_OTHER:3 += @"%LOCALS:LCOUNT%\/"
	CASE "髪飾"
		ORDER_OTHER:4 += @"%LOCALS:LCOUNT%\/"
	CASE "外套"
		ORDER_OTHER:5 += @"%LOCALS:LCOUNT%\/"
	CASEELSE
		SIF LOCALS:LCOUNT != ""
			ORDER_OTHER:6 += @"%LOCALS:LCOUNT%\/"
	ENDSELECT
NEXT

FOR LCOUNT, 0, 10
	SELECTCASE ORDER_OTHER:LCOUNT
	CASE ""
		CONTINUE
	CASEELSE
		CSTR:ARG:飾品 += @"%ORDER_OTHER:LCOUNT%"
	ENDSELECT
NEXT

EQUIP:ARG:飾品 = STRLENS(CSTR:ARG:飾品)

;-------------------------------------------------
;CSTR:ARG:飾品にARGSと完全一致するものがある場合には外し、そうでないなら装備させる
;-------------------------------------------------
@INVERTSET_OTHER, ARGS, ARG
SIF ARG == 0 && TARGET
	ARG = TARGET
IF STRCOUNT(@"\/%CSTR:ARG:飾品%", @"\/%ARGS%\/")
	CALL RESET_OTHER, ARGS, ARG
ELSE
	CALL SET_OTHER, ARGS, ARG
ENDIF

;-------------------------------------------------
;飾品ARGSの区分を返す。其他など特定区分に属さないものの場合は空文字が返る
;-------------------------------------------------
@TYPE_OTHER(ARGS)
#FUNCTIONS
#DIMS CHECK_TABLE
#DIM LCOUNT

CHECK_TABLE = 首/眼鏡/帽子/饰耳/髪飾/外套
VARSET LOCALS
SPLIT CHECK_TABLE, "/", LOCALS

FOR LCOUNT, 0, 10
	SIF LOCALS:LCOUNT == ""
		BREAK
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASE "首"
		SIF STRCOUNTS(ARGS, "首", "吊坠", "項鏈", "領帯", "颈环", "围巾", "披肩")
			RETURNF LOCALS:LCOUNT
	CASE "眼鏡"
		SIF STRCOUNTS(ARGS, "眼鏡", "单片眼鏡", "鏡", "眼罩")
			RETURNF LOCALS:LCOUNT
	CASE "帽子"
		SIF STRCOUNTS(ARGS, "礼帽", "帽", "礼服頭花", "高礼帽", "帽", "婚礼頭纱", "面")
			RETURNF LOCALS:LCOUNT
	CASE "饰耳"
		SIF STRCOUNT(ARGS, "耳")
			RETURNF LOCALS:LCOUNT
	CASE "髪飾"
		SIF STRCOUNTS(ARGS, "髮箍", "蝴蝶結", "頭箍", "頭冠", "簪子", "髪", "发卡", "飾り")
			RETURNF LOCALS:LCOUNT
	CASE "外套"
		SIF STRCOUNTS(ARGS, "外套", "斗篷", "外套", "夹克", "夹克", "連帽風衣", "褞袍", "羽織", "披风", "运动衫", "V领毛衣", "圍裙", "裤吊带", "前開")
			RETURNF LOCALS:LCOUNT
	ENDSELECT
NEXT
RETURNF ""

;-------------------------------------------------
;角色ARGが身に着ける飾品内の、ARGS区分の飾品の名前。基本的に一つしか身に着けないものが対象
;ARGS区分のものを身に着けているか否かの判定にも使える。
;-------------------------------------------------
@OTHER(ARG, ARGS)
#FUNCTIONS
#DIM LCOUNT

VARSET LOCALS
SPLIT CSTR:ARG:飾品, "/", LOCALS

FOR LCOUNT, 0, 10
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASEELSE
		SIF TYPE_OTHER(LOCALS:LCOUNT) == ARGS
			RETURNF LOCALS:LCOUNT
	ENDSELECT
NEXT
RETURNF ""

;-------------------------------------------------
;ARG番の飾品の名称。換装などで表を作る際に使う
;-------------------------------------------------
@NAME_OTHER(ARG)
#FUNCTIONS
VARSET LOCALS

SELECTCASE ARG
CASE 0
	LOCALS = 領帯
CASE 1
	LOCALS = 蝴蝶結領帯丝巾
CASE 2
	LOCALS = 褶边領帯
CASE 3
	LOCALS = 蝶形領帯

CASE 5
	LOCALS = 围巾
CASE 6
	LOCALS = 披肩

CASE 10
	LOCALS = 颈环
CASE 11
	LOCALS = 项圈
CASE 12
	LOCALS = 海豚吊坠

CASE 20
	LOCALS = 眼鏡
CASE 21
	LOCALS = 专家眼鏡
CASE 22
	LOCALS = 黑框眼鏡
CASE 23
	LOCALS = 金丝眼鏡
CASE 24
	LOCALS = 玳瑁眼鏡
CASE 25
	LOCALS = 单片眼鏡
CASE 26
	LOCALS = 太阳鏡
CASE 27
	LOCALS = 眼罩

CASE 30
	LOCALS = 絲綢礼帽
CASE 31
	LOCALS = 魔女の帽子
CASE 32
	LOCALS = 贝雷帽
CASE 33
	LOCALS = 礼服頭花
CASE 34
	LOCALS = 女仆帽
CASE 35
	LOCALS = 妇人礼帽
CASE 36
	LOCALS = 草帽
CASE 37
	LOCALS = 针织帽
CASE 38
	LOCALS = 护士帽
CASE 39
	LOCALS = 半遮帽
CASE 40
	LOCALS = 鸭舌帽
CASE 41
	LOCALS = 修女帽
CASE 42
	LOCALS = 聖誕帽

CASE 50
	LOCALS = 猫耳
CASE 51
	LOCALS = 兔耳
CASE 52
	LOCALS = 狐耳
CASE 53
	LOCALS = 犬耳
CASE 54
	LOCALS = 牛耳

CASE 60
	LOCALS = 髮箍
CASE 61
	LOCALS = 蝴蝶結
CASE 62
	LOCALS = 頭箍
CASE 63
	LOCALS = 頭冠
CASE 64
	LOCALS = 簪子
CASE 65
	LOCALS = 頭上太阳鏡

CASE 70
	LOCALS = 披风
CASE 71
	LOCALS = 斗篷
CASE 72
	LOCALS = 厚外套
CASE 73
	LOCALS = 织布外套
CASE 74
	LOCALS = 风衣外套
CASE 75
	LOCALS = 粗呢外套
CASE 76
	LOCALS = 披风外套
CASE 77
	LOCALS = 羽绒夹克
CASE 78
	LOCALS = 露肩夹克
CASE 79
	LOCALS = 运动衫

CASE 80
	LOCALS = 腿环
CASE 81
	LOCALS = 裤吊带
CASE 82
	LOCALS = 褶边裙吊带
ENDSELECT

RETURNF LOCALS

;-------------------------------------------------
;ARGの身につけている小物が条件ARGSを満たすか確認する
;-------------------------------------------------
@CHECK_OTHER(ARGS, ARG)
#FUNCTION
SIF ARG == 0 && TARGET
	ARG = TARGET
SIF EQUIP:ARG:飾品 == 0
	RETURNF 0

SELECTCASE ARGS
CASE "首", "眼鏡", "帽子", "饰耳", "髪飾", "外套"
	SIF OTHER(ARG, ARGS) != ""
		RETURNF 1
CASE "髪飾蝴蝶結"
	SIF STRCOUNTS(@"\/%CSTR:ARG:飾品%", "/蝴蝶結/", "/両側蝴蝶結/", "/单側蝴蝶結/", "/頭後蝴蝶結/", "/頭上蝴蝶結/")
		RETURNF 1
CASEELSE
	SIF STRCOUNT(CSTR:ARG:飾品, ARGS)
		RETURNF 1
ENDSELECT
RETURNF 0


code:
;-------------------------------------------------
;現在的衣服の表記
;ARGS = 短縮表示 の時にはグローブなどをConfigによっては不顯示
;ARGS = 衣装表示 の時には没穿内褲などの不要な表示を省く
;ARGS = 拡大表示 の時にはフォントを弄らない＆２行表示
;-------------------------------------------------
@PRINT_DRESS, ARG, ARGS
#DIM LCOUNT
#DIM FLAG_BUTTON
#DIMS DRESS
#DIMS EQUIP_PIERCE
#DIMS EQUIP_PIERCE_SHORT

;衣装的污垢などを表示前に計算
CALL STAIN_CALC_COSPLAY, ARG

DRESS =
EQUIP_PIERCE =
EQUIP_PIERCE_SHORT =
FLAG_BUTTON = 0

IF ARGS == "MASTER衣服SHOP表示"
	ARGS = 短縮表示
	FLAG_BUTTON = 1
ENDIF

IF EQUIP:ARG:服
	DRESS = %DRESS%%SHIRT(ARG)%\@ CHECK_SHIRT("半脱的", ARG) ? (半脱) # \@\@ CHECK_STAIN(STAIN:ARG:服, "精液") ? <精> # \@
	IF CHECK_SHIRT("つなぎ")
		IF CHECK_OUTER("破開的", ARG)
			DRESS += "(破)"
		ELSEIF CHECK_OUTER("移開的", ARG)
			DRESS += "(移開)"
		ELSEIF CHECK_OUTER("带拉链的開", ARG)
			DRESS += "(開)"
		ELSEIF CHECK_OUTER("開衩", ARG)
			DRESS += "(開衩)"
		ELSEIF CHECK_OUTER("ＶＡ露出", ARG)
			DRESS += "(穴開き)"
		ELSEIF CHECK_OUTER("Ａ露出", ARG)
			DRESS += "(Ａ穴開き)"
		ELSEIF CHECK_OUTER("Ｖ露出", ARG)
			DRESS += "(Ｖ穴開き)"
		ELSEIF ARGS != "衣装表示"
			SIF CHECK_CLO("外套直穿き", ARG)
				DRESS += "(直穿き)"
			;汚れ
			IF !CHECK_CLO("Ｖ露出", ARG)
				IF CHECK_STAIN(STAIN:ARG:外套, "尿")
					DRESS += "<尿>"
				ELSEIF CHECK_STAIN(STAIN:ARG:外套, "湿的")
					DRESS += "<濡>"
				ELSEIF CHECK_STAIN(STAIN:ARG:外套, "闷热的")
					DRESS += "<蒸>"
				ENDIF
				;SIF CHECK_STAIN(STAIN:ARG:外套, "精液")
				;	DRESS += "<精>"
			ENDIF
		ENDIF
	ENDIF

	SIF FLAG_BUTTON
		DRESS += "_8000"

	DRESS += "/"
ENDIF

IF EQUIP:ARG:贴身制服
	DRESS = %DRESS%%BODYS(ARG)%
	IF CHECK_BODYS("移開的", ARG)
		DRESS += "(移開)"
	ELSEIF CHECK_BODYS("带拉链的開", ARG)
		DRESS += "(開)"
	ELSEIF CHECK_BODYS("带拉链的", ARG)
		DRESS += "(带拉链的)"
	ELSEIF CHECK_BODYS("ＶＡ露出", ARG)
		DRESS += "(穴開き)"
	ELSEIF CHECK_BODYS("Ａ露出", ARG)
		DRESS += "(Ａ穴開き)"
	ELSEIF CHECK_BODYS("Ｖ露出", ARG)
		DRESS += "(Ｖ穴開き)"
	;汚れ
	ELSEIF ARGS != "衣装表示"
		IF CHECK_STAIN(STAIN:ARG:贴身制服ボトム, "尿")
			DRESS += "<尿>"
		ELSEIF CHECK_STAIN(STAIN:ARG:贴身制服ボトム, "湿的")
			DRESS += "<濡>"
		ELSEIF CHECK_STAIN(STAIN:ARG:贴身制服ボトム, "闷热的")
			DRESS += "<蒸>"
		ENDIF
		SIF CHECK_STAIN(STAIN:ARG:贴身制服ボトム, "精液")
			DRESS += "<精>"
	ENDIF

	SIF FLAG_BUTTON
		DRESS += "_8001"

	DRESS += "/"
ENDIF

SIF EQUIP:ARG:裙 && CHECK_SHIRT("連衣裙", ARG) == 0
	DRESS = %DRESS%%SKIRT(ARG)%\@ CHECK_BRA("移開的", ARG) ? (移開) # \@\@ FLAG_BUTTON ? _8002 # \@/

;上半身の状態格子
SIF CHECK_CLO("没穿外衣", ARG)
	DRESS += "没穿外衣/"

;胸罩は、上に何か着ていたりする時などは非表示
SIF EQUIP:ARG:胸罩 && (ARGS != "短縮表示" || COND("胸罩透け", ARG) || CHECK_CLO("谷間露出", ARG) || CHECK_SHIRT("透明", ARG) || CHECK_SHIRT("乳房露出", ARG) || EQUIP:ARG:服 + EQUIP:ARG:贴身制服 == 0)
	DRESS = %DRESS%%BRA(ARG)%\@ FLAG_BUTTON ? _8003 # \@/

IF EQUIP:ARG:外套 && CHECK_OUTER("つなぎ") == 0 && CHECK_CLO("外套未確認", ARG) == 0
	DRESS = %DRESS%%OUTER(ARG)%
	IF CHECK_OUTER("破開的", ARG)
		DRESS += "(破)"
	ELSEIF CHECK_OUTER("移開的", ARG)
		DRESS += "(移開)"
	ELSEIF CHECK_CLO("贴身制服露出", ARG)

	ELSEIF CHECK_OUTER("带拉链的開", ARG)
		DRESS += "(開)"
	ELSEIF CHECK_OUTER("带拉链的", ARG)
		DRESS += "(带拉链的)"
	ELSEIF CHECK_OUTER("開衩", ARG)
		DRESS += "(開衩)"
	ELSEIF CHECK_OUTER("ＶＡ露出", ARG) && CHECK_OUTER("開放型", ARG) == 0
		DRESS += "(穴開き)"
	ELSEIF CHECK_OUTER("Ａ露出", ARG) && CHECK_OUTER("開放型", ARG) == 0
		DRESS += "(Ａ穴開き)"
	ELSEIF CHECK_OUTER("Ｖ露出", ARG) && CHECK_OUTER("開放型", ARG) == 0
		DRESS += "(Ｖ穴開き)"
	ELSEIF ARGS != "衣装表示"
		SIF CHECK_CLO("外套直穿き", ARG) && CHECK_CLO("胖次未確認", ARG) == 0 && CHECK_OUTER("開放型", ARG) == 0
			DRESS += "(直穿き)"
		;汚れ
		IF !CHECK_CLO("Ｖ露出", ARG)
			IF CHECK_STAIN(STAIN:ARG:外套, "尿")
				DRESS += "<尿>"
			ELSEIF CHECK_STAIN(STAIN:ARG:外套, "湿的")
				DRESS += "<濡>"
			ELSEIF CHECK_STAIN(STAIN:ARG:外套, "闷热的")
				DRESS += "<蒸>"
			ENDIF
			SIF CHECK_STAIN(STAIN:ARG:外套, "精液")
				DRESS += "<精>"
		ENDIF
	ENDIF

	SIF FLAG_BUTTON
		DRESS += "_8004"

	DRESS += "/"
ENDIF

IF EQUIP:ARG:胖次 && (COND("颜绘シミュ中") || CHECK_CLO("胖次未確認", ARG) == 0)
	DRESS = %DRESS%%PANTIES(ARG)%
	IF CHECK_PANTIES("移開的", ARG)
		DRESS += "(移開)"
	ELSEIF CHECK_PANTIES("带拉链的開", ARG)
		DRESS += "(開)"
	ELSEIF CHECK_PANTIES("ＶＡ露出", ARG)
		SIF CHECK_PANTIES("開放型開洞", ARG) == 0
			DRESS += "(穴開き)"
	ELSEIF CHECK_PANTIES("Ａ露出", ARG)
		SIF CHECK_PANTIES("後開型", ARG) == 0 && CHECK_PANTIES("前貼", ARG) == 0
			DRESS += "(Ａ穴開き)"
	ELSEIF CHECK_PANTIES("Ｖ露出", ARG)
		SIF CHECK_PANTIES("開放型開洞", ARG) == 0
			DRESS += "(Ｖ穴開き)"
	ELSEIF ARGS != "衣装表示"
		;SIF CHECK_PANTIES("開洞带污迹的", ARG)
		;	DRESS += "<带污迹的>"
		IF CHECK_STAIN(STAIN:ARG:胖次, "尿")
			DRESS += "<尿>"
		ELSEIF CHECK_STAIN(STAIN:ARG:胖次, "湿的")
			DRESS += "<濡>"
		ELSEIF CHECK_STAIN(STAIN:ARG:胖次, "汗")
			DRESS += "<汗>"
		ELSEIF CHECK_STAIN(STAIN:ARG:胖次, "闷热的")
			DRESS += "<蒸>"
		ENDIF
		SIF CHECK_STAIN(STAIN:ARG:胖次, "精液")
			DRESS += "<精>"
	ENDIF

	SIF FLAG_BUTTON
		DRESS += "_8005"

	DRESS += "/"
;色だけ分かっている場合
ELSEIF EQUIP:ARG:胖次 && COND("胖次色確認", ARG)
	DRESS += @"%CLOCOLOR(CSTR:ARG:胖次, "形容詞")%胖次？\/"
ELSEIF EQUIP:ARG:胖次 && COND("胖次おぼろげ確認", ARG)
	DRESS += @"胖次？\/"
ELSEIF CSTR:ARG:脱掉的胖次 != ""
	SWAP CSTR:ARG:胖次, CSTR:ARG:脱掉的胖次
	DRESS = %DRESS%%PANTIES(ARG)%(足首)\/
	SWAP CSTR:ARG:胖次, CSTR:ARG:脱掉的胖次
ENDIF

IF CHECK_CLO("裸体", ARG)
	DRESS += "裸体/"
ELSEIF CHECK_CLO("没穿下衣", ARG)
	DRESS += "没穿下衣/"
ELSEIF CHECK_CLO("没穿内褲", ARG)
	SIF ARGS != "衣装表示" && CHECK_CLO("胖次未確認", ARG) == 0 && EQUIP:ARG:贴身制服 == 0
		DRESS += "没穿内褲/"
ENDIF

IF ARGS == "拡大表示" && EQUIP:ARG:服 && EQUIP:ARG:胖次 && EQUIP:ARG:胸罩
	CALL PRINT_LIST, DRESS, ARGS
	DRESS =
ENDIF

SIF EQUIP:ARG:襪子
	DRESS = %DRESS%%SOCKS(ARG)%\@ CHECK_STAIN(STAIN:ARG:襪子, "精液") ? <精> # \@\@ FLAG_BUTTON ? _8006 # \@/

SIF EQUIP:ARG:靴
	DRESS = %DRESS%%SHOES(ARG)%\@ CHECK_STAIN(STAIN:ARG:靴, "精液") ? <精> # \@\@ FLAG_BUTTON ? _8007 # \@/

SIF EQUIP:ARG:手套
	DRESS = %DRESS%%GLOVE(ARG)%\@ CHECK_STAIN(STAIN:ARG:靴, "精液") ? <精> # \@\@ FLAG_BUTTON ? _8008 # \@/

IF EQUIP:ARG:飾品
	IF FLAG_BUTTON
		VARSET LOCALS
		SPLIT CSTR:ARG:飾品, "/", LOCALS
		FOR LCOUNT, 0, 100
			SIF LOCALS:LCOUNT == ""
				BREAK
			IF LOCALS:LCOUNT == "黒色颈环"
				DRESS = %DRESS%黄色\/%LOCALS:LCOUNT%\_{8100+LCOUNT}\/
			ELSE
				DRESS = %DRESS%%LOCALS:LCOUNT%\_{8100+LCOUNT}\/
			ENDIF
		NEXT
	ELSE
		IF STRCOUNT(CSTR:ARG:飾品, "黒色颈环")
			DRESS = %DRESS%黄色\/%CSTR:ARG:飾品%\/
		ELSE
			DRESS = %DRESS%%CSTR:ARG:飾品%\/
		ENDIF
	ENDIF
ENDIF
SIF ARGS == "衣装表示" && COND("晒痕", ARG)
	DRESS += @"晒痕%CONDS("(晒痕)", ARG)%/"

IF ARG != MASTER && ARGS != "衣装表示"
	IF COND("調教中")
		SIF COND("腋毛", ARG) && CHECK_CLO("腋露出", ARG)
			DRESS += @"%TEXTS("腋")%毛:%CONDS("腋毛")%\/"
		IF COND("陰毛", ARG) && (CHECK_CLO("陰毛露出", ARG) || CHECK_CLO("Ｖ露出") )
			IF CONDS("陰毛", ARG) == "保养完毕" && CEVENT("陰毛の名称", ARG)
				DRESS += @"陰毛:%CONDS("陰毛", ARG)%(%CEVENTS("陰毛の名称", ARG)%)\/"
			ELSE
				DRESS += @"陰毛:%CONDS("陰毛", ARG)%\/"
			ENDIF
		ENDIF
		;穿環表示
		IF TALENT:ARG:陰蒂環
			IF PENIS(ARG)
				EQUIP_PIERCE += "陰茎"
				EQUIP_PIERCE_SHORT += "Ｐ"
			ELSE
				EQUIP_PIERCE += "阴蒂"
				EQUIP_PIERCE_SHORT += "Ｃ"
			ENDIF
		ENDIF
		IF TALENT:ARG:陰唇環
			EQUIP_PIERCE += "ラビア"
			EQUIP_PIERCE_SHORT += "Ｖ"
		ENDIF
		IF TALENT:ARG:乳环
			EQUIP_PIERCE += "乳頭"
			EQUIP_PIERCE_SHORT += "Ｂ"
		ENDIF
		IF TALENT:ARG:肚脐环
			EQUIP_PIERCE += "肚臍"
			EQUIP_PIERCE_SHORT += "肚臍"
		ENDIF
		IF TALENT:ARG:尿道穿環
			EQUIP_PIERCE += "尿道"
			EQUIP_PIERCE_SHORT += "尿道"
		ENDIF
		IF EQUIP_PIERCE_SHORT != ""
			IF COND("穿環数") >= 2
				DRESS += @"%EQUIP_PIERCE_SHORT%穿環\/"
			ELSE
				DRESS += @"%EQUIP_PIERCE%穿環\/"
			ENDIF
		ENDIF
	ELSE
		IF COND("胖次詳細確認", ARG)
			SIF TALENT:ARG:常時Ｖ振動棒
				DRESS += "Ｖ振動棒/"
			SIF TALENT:ARG:常時Ａ肛塞
				DRESS += "Ａ塞子/"
			SIF TALENT:ARG:常時尿道塞
				DRESS += "尿道塞子/"
		ENDIF
	ENDIF
ENDIF
IF FLAG_BUTTON
	SIF CSTR:ARG:脱掉的衣服一览 != ""
		DRESS += "服を着る_8009/"
ENDIF
SIF DRESS == ""
	RETURN 0

SIF ARGS == "拡大表示" && EQUIP:ARG:服 && EQUIP:ARG:胖次 && EQUIP:ARG:胸罩
	PRINTL

CALL PRINT_LIST, DRESS, ARGS

@PRINT_DRESSL, ARG, ARGS
CALL PRINT_DRESS, ARG, ARGS
PRINTL

@PRINT_DRESSW, ARG, ARGS
CALL PRINT_DRESS, ARG, ARGS
PRINTW

@PRINT_UNDERWEARS, ARG
#DIMS DRESS

DRESS =
IF EQUIP:ARG:胸罩 && EQUIP:ARG:胖次
	DRESS = [%BRA(ARG)%]＆[%PANTIES(ARG)%]
ELSEIF EQUIP:ARG:胸罩
	DRESS = 只穿着[%BRA(ARG)%]
ELSEIF EQUIP:ARG:胖次
	DRESS = 只穿着[%PANTIES(ARG)%]
ELSE
	DRESS = 什么都没穿
ENDIF

PRINTFORM %DRESS%

;-------------------------------------------------
;ARGの衣装全てから条件を判定して文字列を出力する。
;-------------------------------------------------
@CLO(ARGS, ARG)
#FUNCTIONS
#DIMS MEMO_CLO

LOCALS =
SIF ARG == 0 && TARGET
	ARG = TARGET
SELECTCASE ARGS
CASE "股間"
	IF CHECK_CLO("贴身制服露出", ARG)
		LOCALS = %BODYS(ARG, "略")%
	ELSEIF CHECK_CLO("外套露出", ARG)
		LOCALS = %OUTER(ARG, "略")%
	ELSEIF CHECK_CLO("胖次露出", ARG)
		LOCALS = %PANTIES(ARG, "略")%
	ENDIF
CASE "お尻"
	IF CHECK_CLO("Ｔ字褲臀圍", ARG)
		IF EQUIP:ARG:胖次 && CHECK_CLO("胖次視認可能", ARG)
			IF CHECK_PANTIES("Ｃ胖次", ARG) || CHECK_PANTIES("丁字褲", ARG) || CHECK_PANTIES("兜襠布", ARG)
				RETURNF PANTIES(ARG)
			ELSEIF CHECK_PANTIES("Ｔ字褲", ARG)
				LOCALS = Ｔ字褲の
			ENDIF
		ELSEIF CHECK_OUTER("Ｔ字褲", ARG) || CHECK_BODYS("Ｔ字褲", ARG)
			LOCALS = Ｔ字褲の
		ENDIF
	ENDIF
	IF CHECK_CLO("贴身制服露出", ARG)
		LOCALS += @"%BODYS(ARG, "略")%"
	ELSEIF CHECK_CLO("外套露出", ARG)
		LOCALS += @"%OUTER(ARG, "略")%"
	ELSEIF CHECK_CLO("胖次露出", ARG)
		LOCALS += @"%PANTIES(ARG, "略")%"
	ENDIF
CASE "内褲冲"
	IF EQUIP:ARG:外套 && !CHECK_OUTER("不可手交", ARG)
		LOCALS = %OUTER(ARG)%
	ELSEIF EQUIP:ARG:胖次 && !CHECK_PANTIES("不可手交", ARG)
		LOCALS = %PANTIES(ARG)%
	ENDIF
CASE "掀起裙子", "掀起裙子：詳細"
	SELECTCASE SKIRT(ARG, "略")
	CASE "下摆"
		IF EQUIP:ARG:服 && ARGS == "掀起裙子：詳細"
			LOCALS = %SHIRT(ARG, "略")%の下摆
		ELSE
			LOCALS = %SKIRT(ARG)%
		ENDIF
	CASEELSE
		LOCALS = %SKIRT(ARG, "略")%
	ENDSELECT
CASE "颜绘衣装の色"
	LOCALS = %CLO("颜绘衣装", ARG)%
	RETURNF SUBSTRINGU(LOCALS, STRLENSU(LOCALS) - 1, 1)
CASE "颜绘衣装"
	;飾品の外套其他枠をまず見る(他の服を上書きするもの)
	IF CHECK_OTHER("粗呢外套", ARG)
		LOCALS = 粗呢外套%CLOCOLOR_MAIDFACE("粗呢外套", CHECK_CLOCOLOR(OTHER(ARG, "外套") ), ARG )%
		SIF CHECK_SHIRT("水手", ARG)
			LOCALS = 水手%CLOCOLOR_MAIDFACE("水手", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%＆%LOCALS%

	;次いで服
	ELSEIF CHECK_SHIRT("哥特式披风", ARG)
		LOCALS = 哥特式披风%CLOCOLOR_MAIDFACE("哥特式披风", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("浴衣", ARG)
		LOCALS = 浴衣
	ELSEIF CHECK_SHIRT("脏連体泳装", ARG)
		LOCALS = 脏連体泳装
	ELSEIF CHECK_SHIRT("軍服", ARG)
		LOCALS = 軍服
	ELSEIF CHECK_SHIRT("圆领衬衫", ARG)
		LOCALS = 圆领衬衫%CLOCOLOR_MAIDFACE("圆领衬衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("宽大的Ｔ恤", ARG) || CHECK_SHIRT("半開衬衫", ARG)
		LOCALS = 宽大的Ｔ恤%CLOCOLOR_MAIDFACE("Ｔ恤", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("Ｔ恤", ARG)
		LOCALS = Ｔ恤%CLOCOLOR_MAIDFACE("Ｔ恤", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("巫女服", ARG)
		LOCALS = 巫女服
	ELSEIF CHECK_SHIRT("白色和金色装饰的民族衣装", ARG)
		IF CHECK_SHIRT("腋露出", ARG)
			LOCALS = 白色和金色装饰的民族衣装夏服
		ELSE
			LOCALS = 白色和金色装饰的民族衣装
		ENDIF
	ELSEIF CHECK_SHIRT("红黑色无袖連帽風衣", ARG)
		LOCALS = 红黑色无袖連帽風衣
	ELSEIF CHECK_SHIRT("圍裙", ARG)
		LOCALS = 圍裙
	ELSEIF CHECK_SHIRT("外套", ARG)
		IF EQUIP:ARG:服 == 0
			LOCALS = 裸外套%CLOCOLOR_MAIDFACE("外套", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
		ELSE
			LOCALS = 外套%CLOCOLOR_MAIDFACE("外套", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
		ENDIF
	ELSEIF CHECK_SHIRT("睡衣", ARG)
		LOCALS = 睡衣%CLOCOLOR_MAIDFACE("睡衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("无袖連帽風衣", ARG)
		LOCALS = 无袖連帽風衣%CLOCOLOR_MAIDFACE("无袖連帽風衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("連帽風衣", ARG)
		LOCALS = 連帽風衣%CLOCOLOR_MAIDFACE("連帽風衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("吊帯衫", ARG)
		LOCALS = 吊帯衫%CLOCOLOR_MAIDFACE("吊帯衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("婚纱礼服", ARG)
		LOCALS = 婚纱礼服
	ELSEIF CHECK_SHIRT("修道服", ARG)
		LOCALS = 修道服
	ELSEIF CHECK_SHIRT("护士服", ARG)
		LOCALS = 护士服
	ELSEIF CHECK_SHIRT("逆兔女郎套装", ARG)
		LOCALS = 逆兔女郎套装
	ELSEIF CHECK_SHIRT("聖誕服", ARG)
		LOCALS = 聖誕服
	ELSEIF CHECK_SHIRT("针织露肩衣", ARG)
		LOCALS = 针织露肩衣
	ELSEIF CHECK_SHIRT("オフショル", ARG)
		LOCALS = 露肩外衣%CLOCOLOR_MAIDFACE("露肩外衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("无袖高領毛衣", ARG)
		LOCALS = 无袖高領毛衣%CLOCOLOR_MAIDFACE("无袖高領毛衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("毛衣", ARG) && CHECK_SHIRT("腋露出", ARG)
		LOCALS = 无袖毛衣%CLOCOLOR_MAIDFACE("无袖毛衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("縦毛衣", ARG)
		LOCALS = 縦毛衣%CLOCOLOR_MAIDFACE("縦毛衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("毛衣", ARG)
		LOCALS = 针织毛衣%CLOCOLOR_MAIDFACE("针织毛衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("開胸高領毛衣", ARG)
		LOCALS = 開胸高領毛衣%CLOCOLOR_MAIDFACE("開胸高領毛衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("高領毛衣", ARG)
		LOCALS = 高領毛衣%CLOCOLOR_MAIDFACE("高領毛衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("哥特蘿莉礼服", ARG)
		LOCALS = 哥特蘿莉礼服%CLOCOLOR_MAIDFACE("哥特蘿莉礼服", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("夏日礼服", ARG)
		LOCALS = 夏日礼服%CLOCOLOR_MAIDFACE("夏日礼服", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("褶边連衣裙", ARG)
		LOCALS = 褶边連衣裙%CLOCOLOR_MAIDFACE("褶边連衣裙", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("露肩連衣裙", ARG)
		LOCALS = 露肩連衣裙%CLOCOLOR_MAIDFACE("露肩連衣裙", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%

	ELSEIF CHECK_SHIRT("哥特礼服", ARG)
		LOCALS = 哥特礼服
	ELSEIF CHECK_SHIRT("哥特連衣裙", ARG)
		LOCALS = 哥特連衣裙
	ELSEIF CHECK_SHIRT("洛丽塔連衣裙", ARG)
		LOCALS = 洛丽塔連衣裙
	ELSEIF CHECK_SHIRT("白色連衣裙", ARG)
		LOCALS = 白色連衣裙
	ELSEIF CHECK_SHIRT("格子連衣裙", ARG)
		IF CHECK_SHIRT("Ｂ黒蝴蝶結", ARG)
			LOCALS = 格子連衣裙Ｂ黒蝴蝶結
		ELSEIF CHECK_SHIRT("黒蝴蝶結", ARG)
			LOCALS = 格子連衣裙黒蝴蝶結
		ELSEIF CHECK_SHIRT("Ｂ", ARG)
			LOCALS = 格子連衣裙Ｂ
		ELSE
			LOCALS = 格子連衣裙
		ENDIF
	ELSEIF CHECK_SHIRT("中世紧身高袍", ARG)
		LOCALS = 中世紧身高袍%CLOCOLOR_MAIDFACE("中世紧身高袍", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("紧身高袍", ARG)
		LOCALS = 紧身高袍%CLOCOLOR_MAIDFACE("紧身高袍", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("皮革夹克", ARG)
		IF CHECK_SHIRT("恤", ARG)
			LOCALS = 恤皮革夹克黒
		ELSE
			LOCALS = 皮革夹克黒
		ENDIF
	ELSEIF CHECK_SHIRT("前開的衬衫", ARG)
		LOCALS = 前開的衬衫%CLOCOLOR_MAIDFACE("前開的衬衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("前開的衬衫", ARG)
		LOCALS = 前開的衬衫%CLOCOLOR_MAIDFACE("前開的衬衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("校服", ARG)
		SELECTCASE CSTR:ARG:学年
		CASE "初等部", "中等部"
			LOCALS = 校服Ａ
		CASEELSE
			LOCALS = 校服Ｂ
		ENDSELECT
	ELSEIF CHECK_SHIRT("水手", ARG)
		IF CHECK_SHIRT("腋露出", ARG)
			LOCALS = 无袖水手%CLOCOLOR_MAIDFACE("水手", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
		ELSE
			LOCALS = 水手%CLOCOLOR_MAIDFACE("水手", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
		ENDIF
	ELSEIF CHECK_SHIRT("背心", ARG)
		LOCALS = 背心%CLOCOLOR_MAIDFACE("背心", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("V领毛衣", ARG)
		LOCALS = V领毛衣%CLOCOLOR_MAIDFACE("V领毛衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("西装外衣", ARG) && CHECK_SHIRT("領帯", ARG)
		LOCALS = 領帶西装%CLOCOLOR_MAIDFACE("領帶西装", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("西装外衣", ARG)
		LOCALS = 西装外衣%CLOCOLOR_MAIDFACE("西装外衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("褶边女式衬衫", ARG)
		LOCALS = 褶边女式衬衫%CLOCOLOR_MAIDFACE("褶边女式衬衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("蕾丝女式衬衫", ARG)
		LOCALS = 蕾丝女式衬衫%CLOCOLOR_MAIDFACE("蕾丝女式衬衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("无袖女式衬衫", ARG)
		IF CHECK_SHIRT("領帯", ARG)
			LOCALS = 領帯无袖女式衬衫%CLOCOLOR_MAIDFACE("領帯无袖女式衬衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
		ELSEIF CHECK_SHIRT("Ａ", ARG)
			LOCALS = 无袖女式衬衫Ａ
		ELSEIF CHECK_SHIRT("Ｂ", ARG) || AGE(ARG) >= 3
			LOCALS = 无袖女式衬衫Ｂ
		ELSE
			LOCALS = 无袖女式衬衫Ａ
		ENDIF
	ELSEIF CHECK_SHIRT(@"%CALLNAME:MASTER%の衬衫", ARG)
		LOCALS = 彼恤%CLOCOLOR_MAIDFACE("彼恤", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("宽松女式衬衫", ARG) || CHECK_SHIRT("美式校服", ARG) || CHECK_SHIRT("没系扣子的女式衬衫", ARG)
		LOCALS = 宽松女式衬衫
	ELSEIF CHECK_SHIRT("制服", ARG)
		IF TALENT:ARG:男性
			LOCALS = 領帯女式衬衫黒
		ELSE
			LOCALS = 西装外衣灰色
		ENDIF
	ELSEIF CHECK_SHIRT("領帯女式衬衫", ARG)
		LOCALS = 領帯女式衬衫%CLOCOLOR_MAIDFACE("領帯女式衬衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("衬衫", ARG) || CHECK_SHIRT("女式衬衫", ARG)
		IF CHECK_SHIRT("蝴蝶結領帯丝巾", ARG)
			LOCALS = 蝴蝶結女式衬衫%CLOCOLOR_MAIDFACE("蝴蝶結女式衬衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
		ELSE
			LOCALS = 女式衬衫白
		ENDIF
	ELSEIF CHECK_SHIRT("学生服", ARG)
		LOCALS = 領帯女式衬衫赤
	ELSEIF CHECK_SHIRT("詰襟运动衫", ARG)
		LOCALS = 詰襟运动衫%CLOCOLOR_MAIDFACE("詰襟运动衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("运动衫", ARG)
		LOCALS = 运动衫%CLOCOLOR_MAIDFACE("运动衫", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("体操服", ARG)
		LOCALS = 体操服%CLOCOLOR_MAIDFACE("体操服", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("執事服", ARG)
		LOCALS = 執事服%CLOCOLOR_MAIDFACE("執事服", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("女仆装", ARG)
		LOCALS = 女仆装%CLOCOLOR_MAIDFACE("女仆装", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("開胸旗袍", ARG)
		LOCALS = 開胸旗袍%CLOCOLOR_MAIDFACE("開胸旗袍", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("旗袍", ARG)
		LOCALS = 旗袍%CLOCOLOR_MAIDFACE("旗袍", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("情趣内衣", ARG)
		LOCALS = 情趣内衣%CLOCOLOR_MAIDFACE("情趣内衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("晨衣", ARG)
		LOCALS = 晨衣%CLOCOLOR_MAIDFACE("晨衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("紋付袴", ARG)
		LOCALS = 紋付袴
	ELSEIF CHECK_SHIRT("振袖", ARG)
		LOCALS = 振袖%CLOCOLOR_MAIDFACE("振袖", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("浴衣", ARG)
		LOCALS = 浴衣%CLOCOLOR_MAIDFACE("浴衣", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("和服", ARG) || CHECK_SHIRT("和服", ARG)
		LOCALS = 和服%CLOCOLOR_MAIDFACE("和服", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CHECK_SHIRT("啦啦队制服", ARG)
		LOCALS = 啦啦队制服
	ELSEIF CHECK_SHIRT("吊帯背心", ARG)
		LOCALS = 吊帯背心%CLOCOLOR_MAIDFACE("吊帯背心", CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%
	ELSEIF CLO("颜绘衣装：内衣と泳装", ARG) != ""
		LOCALS = %CLO("颜绘衣装：内衣と泳装", ARG)%
	ELSEIF EQUIP:ARG:服 || EQUIP:ARG:贴身制服
		LOCALS = 恤
	ENDIF
CASE "颜绘衣装：内衣と泳装"
	IF CHECK_BODYS("拘束衣", ARG)
		LOCALS = 拘束衣%CLOCOLOR_MAIDFACE("拘束衣", CHECK_CLOCOLOR(CSTR:ARG:贴身制服), ARG)%
	ELSEIF CHECK_BODYS("兔", ARG)
		LOCALS = 兔女郎制服%CLOCOLOR_MAIDFACE("兔女郎制服", CHECK_CLOCOLOR(CSTR:ARG:贴身制服), ARG)%
	ELSEIF CHECK_BODYS("競泳泳装", ARG)
		LOCALS = 競泳%CLOCOLOR_MAIDFACE("競泳泳装", CHECK_CLOCOLOR(CSTR:ARG:贴身制服), ARG)%
	ELSEIF CHECK_BODYS("新死库水", ARG) || CHECK_BODYS("紧身短褲型死库水", ARG)
		LOCALS = 新死库水紺色
	ELSEIF CHECK_BODYS("死库水", ARG)
		LOCALS = 死库水%CLOCOLOR_MAIDFACE("死库水", CHECK_CLOCOLOR(CSTR:ARG:贴身制服), ARG)%
	ELSEIF CHECK_BODYS("連体泳装", ARG) || CHECK_BODYS("緊身内衣", ARG)
		LOCALS = 连体泳装黒
	ELSEIF CHECK_BODYS("泳装", ARG)
		LOCALS = 抹胸赤
	ELSEIF EQUIP:ARG:胸罩
		IF CHECK_BRA("抹胸", ARG) || CHECK_BRA("裹胸布", ARG) || CHECK_BRA("乳贴", ARG)
			RETURNF ""
		ELSEIF CHECK_BRA("拘束衣", ARG)
			SELECTCASE CLOCOLOR(CSTR:ARG:胸罩)
			;色街道
			CASE "黒", "真紅", "赤"
				LOCALS = 拘束衣胸罩%CLOCOLOR(CSTR:ARG:胸罩)%
			CASEELSE
				LOCALS = 拘束衣胸罩黒
			ENDSELECT
			SIF CHECK_BRA("乳房露出", ARG)
				LOCALS = 紐%LOCALS%
		ELSEIF CHECK_BRA("褶边吊罩", ARG)
			SELECTCASE CLOCOLOR(CSTR:ARG:胸罩)
			;色街道
			CASE "白", "純白", "黒", "灰色", "真紅", "赤", "桃色", "紫", "青", "水色", "薄緑", "緑色", "黄色", "橙色", "米色"
				LOCALS = 褶边吊罩%CLOCOLOR(CSTR:ARG:胸罩)%
			CASEELSE
				LOCALS = 褶边吊罩黒
			ENDSELECT
		ELSEIF CHECK_BRA("吊帯衫", ARG)
			LOCALS = 吊帯衫%CLOCOLOR_MAIDFACE("吊帯衫", CHECK_CLOCOLOR(CSTR:ARG:胸罩), ARG)%
		ELSEIF CHECK_BRA("猫型胸罩", ARG)
			LOCALS = 猫型胸罩%CLOCOLOR_MAIDFACE("猫型胸罩", CHECK_CLOCOLOR(CSTR:ARG:胸罩), ARG)%
		ELSEIF CHECK_BRA("吊帯背心", ARG)
			SELECTCASE CLOCOLOR(CSTR:ARG:胸罩)
			CASE "緑色", "薄緑"
				LOCALS = 吊帯背心緑色
			CASE "紫", "青", "薄青色", "紺色"
				LOCALS = 吊帯背心青
			CASE "白", "純白"
				LOCALS = 吊帯背心白
			CASEELSE
				LOCALS = 吊帯背心黒
			ENDSELECT
		ELSEIF CHECK_BRA("乳贴", ARG)
			LOCALS = 裸体
		ELSEIF CHECK_BRA("運動胸罩", ARG)
			LOCALS = 運動胸罩%CLOCOLOR(CSTR:ARG:胸罩)%
		ELSEIF CHECK_BRA("褶边比基尼", ARG)
			SELECTCASE CLOCOLOR(CSTR:ARG:胸罩)
			;色街道
			CASE "白", "純白", "黒", "灰色", "真紅", "赤", "桃色", "紫", "青", "水色", "薄緑", "緑色", "黄色", "橙色", "米色"
				LOCALS = 褶边比基尼%CLOCOLOR(CSTR:ARG:胸罩)%
			CASE "豹纹", "水玉白黒"
				LOCALS = 褶边比基尼黒
			CASE "薄桃色", "水玉粉紅"
				LOCALS = 褶边比基尼桃色
			CASE "水玉黄色", "虎紋"
				LOCALS = 褶边比基尼橙色
			CASE "水玉水色"
				LOCALS = 褶边比基尼水色
			CASEELSE
				LOCALS = 褶边比基尼黒
			ENDSELECT
		ELSEIF CHECK_BRA("满杯", ARG)
			IF CHECK_BRA("水玉", ARG)
				SELECTCASE CLOCOLOR(CSTR:ARG:胸罩, "色のみ")
				CASE "水玉粉紅"
					RETURNF "杯罩桃色"
				CASE "水玉黄色"
					RETURNF "杯罩黄色"
				CASE "水玉黒"
					RETURNF "杯罩灰色"
				CASE "水玉水色"
					RETURNF "杯罩水色"
				CASE "水玉白"
					RETURNF "杯罩灰色"
				CASE "水玉白黒"
					RETURNF "杯罩黒"
				CASEELSE
					RETURNF "杯罩黒"
				ENDSELECT
			ELSEIF CHECK_BRA("條紋", ARG)
				SELECTCASE CLOCOLOR(CSTR:ARG:胸罩, "色のみ")
				CASE "紅白"
					RETURNF "杯罩赤"
				CASE "緑白"
					RETURNF "杯罩緑色"
				CASE "黄白"
					RETURNF "杯罩黄色"
				CASE "黒白"
					RETURNF "杯罩黒"
				CASE "青白"
					RETURNF "杯罩白"
				CASEELSE
					RETURNF "杯罩白"
				ENDSELECT
			ELSE
				SELECTCASE CLOCOLOR(CSTR:ARG:胸罩)
				;色街道
				CASE "白", "純白", "黒", "灰色", "真紅", "赤", "桃色", "紫", "青", "水色", "薄緑", "緑色", "黄色", "橙色", "米色"
					LOCALS = 杯罩%CLOCOLOR(CSTR:ARG:胸罩)%
				CASE "豹纹", "虎紋"
					LOCALS = 杯罩黒
				CASEELSE
					LOCALS = 杯罩黒
				ENDSELECT
			ENDIF
		ELSE
			SELECTCASE CLOCOLOR(CSTR:ARG:胸罩)
			;色街道
			CASE "白", "純白", "黒", "灰色", "真紅", "赤", "桃色", "紫", "青", "水色", "薄緑", "緑色", "黄色", "橙色", "米色"
				LOCALS = 内衣胸罩%CLOCOLOR(CSTR:ARG:胸罩)%
			CASE "豹纹", "虎紋"
				LOCALS = 内衣胸罩黒
			CASEELSE
				LOCALS = 内衣胸罩黒
			ENDSELECT
		ENDIF
	ENDIF
;@CLO_ABOUTと近いが、こちらは可能な限り短く出力する
CASE "現在的格好"
	IF CHECK_OTHER("外套", ARG)
		LOCALS = %OTHER(ARG, "外套")%姿
	ELSEIF CHECK_CLO("学生服姿", ARG)
		LOCALS = 制服姿
	ELSEIF CHECK_CLO("体操服姿", ARG)
		LOCALS = 体操服姿
	ELSEIF CHECK_CLO("比基尼姿", ARG)
		IF CHECK_CLO("Micro比基尼姿", ARG)
			LOCALS = Micro比基尼姿
		ELSE
			LOCALS = 比基尼姿
		ENDIF
	ELSEIF CHECK_CLO("泳装姿", ARG)
		LOCALS = 泳装姿
	ELSEIF CHECK_CLO("内衣姿", ARG)
		LOCALS = 内衣姿
	ELSEIF CHECK_CLO("裸体", ARG)
		LOCALS = 裸体
	ELSEIF CFLAG:ARG:Cosplay中
		IF EQUIP:ARG:服
			IF CHECK_SHIRT("の服", ARG)
				LOCALS = %EXTSTR(SHIRT(ARG), "", "の服")%姿
			ELSE
				LOCALS = %SHIRT(ARG)%姿
			ENDIF
		ELSEIF EQUIP:ARG:贴身制服
			LOCALS = %BODYS(ARG)%姿
		ENDIF
	ENDIF
CASE "現在的格好＆の"
	SIF CLO("現在的格好", ARG) != ""
		LOCALS = %CLO("現在的格好", ARG)%の
;运动衫or睡衣or其他で分岐(运动衫と睡衣は色が違う)
CASE "萌え袖可能"
	;詰襟运动衫は没有にしておく
	SIF CHECK_SHIRT("詰襟运动衫", ARG) || CHECK_OTHER("外套", ARG)
		RETURNF ""

	;衣领颜色(飾品の外套使用)
	IF CHECK_OTHER("运动衫", ARG)
		LOCALS = 运动衫%CLOCOLOR_MAIDFACE("运动衫", CHECK_CLOCOLOR(OTHER(ARG, "外套") ), ARG)%
	ELSEIF CHECK_OTHER("露肩夹克", ARG)
		LOCALS = 萌え袖%CLOCOLOR_MAIDFACE("露肩夹克", CHECK_CLOCOLOR(OTHER(ARG, "外套") ), ARG)%
	ELSEIF CHECK_OTHER("V领毛衣", ARG)
		LOCALS = 萌え袖%CLOCOLOR_MAIDFACE("前開V领毛衣", CHECK_CLOCOLOR(OTHER(ARG, "外套") ), ARG)%
	;服
	ELSEIF CHECK_SHIRT("运动衫", ARG)
		RETURNF CLO("颜绘衣装", ARG)
	ELSEIF CHECK_SHIRT("睡衣", ARG)
		RETURNF CLO("颜绘衣装", ARG)
	ELSEIF CHECK_SHIRT("萌え袖", ARG)
		RETURNF @"萌え袖%CLOCOLOR_MAIDFACE(SHIRT(ARG, "種類"), CHECK_CLOCOLOR(CSTR:ARG:服), ARG)%"
	ENDIF
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;ARGの身につけている衣装全てを総合して、ARGSが可能かを判定する
;-------------------------------------------------
@CHECK_CLO(ARGS, ARG)
#FUNCTION

SIF ARG == 0 && TARGET
	ARG = TARGET
;下には胖次など、セットたりえるもの必須
SELECTCASE ARGS
CASE "CIPすじ"
	SELECTCASE PANTIES(ARG, "CIP正面")
	CASE "前貼", "すじ", "贴身開放型開洞胖次", "Ｃ胖次"
		RETURNF 1
	ENDSELECT
CASE "CIP発生"
	SIF EQUIP:ARG:裙
		RETURNF 0
	IF EQUIP:ARG:贴身制服
		SIF CHECK_BODYS("泳装", ARG)
			RETURNF 1
		SIF CFLAG:ARG:Cosplay中 == 0
			RETURNF 0
	ENDIF
	IF EQUIP:ARG:外套
		SIF CHECK_OUTER("连褲襪", ARG) == 0 && CHECK_OUTER("褲襪", ARG) == 0
			RETURNF 0
		SIF OUTER(ARG, "CIP正面") != ""
			RETURNF 1
	ENDIF
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("男物", ARG)
		RETURNF 0
	RETURNF 1
CASE "インナー衣领颜色表示"
	SIF STRCOUNT(CLO("颜绘衣装", ARG), "恤没有連帽風衣") && CLO("颜绘衣装：内衣と泳装", ARG) != ""
		RETURNF 1
	SIF EQUIP:ARG:服 && CHECK_SHIRT("半脱的", ARG) == 0 && CHECK_SHIRT("谷間露出", ARG) == 0
		RETURNF 0
	RETURNF 1

CASE "所持内衣"
	SIF CHECK_BRA("所持内衣", ARG) || CHECK_PANTIES("所持内衣", ARG)
		RETURNF 1
CASE "自分の服"
	SIF COND("便装に着替えた", ARG)
		RETURNF 1
CASE "恥ずかしい恰好"
	SIF COND("颜绘シミュ中")
		RETURNF 0
	IF TALENT:ARG:害羞
		;上が胸罩or素肌が見えている
		IF EQUIP:ARG:服 + EQUIP:ARG:贴身制服 == 0 && TALENT:ARG:男性 == 0
			;例外
			IF CHECK_BRA("泳装", ARG) && CHECK_BRA("性感", ARG) == 0
			ELSE
				RETURNF 1
			ENDIF
		ENDIF
		;下が内衣or素肌が見えている
		IF EQUIP:ARG:裙 + EQUIP:ARG:外套 + EQUIP:ARG:贴身制服 == 0
			;例外
			IF CHECK_PANTIES("泳装", ARG) && CHECK_PANTIES("性感", ARG) == 0
			ELSE
				RETURNF 1
			ENDIF
		ENDIF
	ELSEIF TALENT:ARG:不知羞恥 == 0
		;上が胸罩or素肌が見えている
		SIF EQUIP:ARG:服 + EQUIP:ARG:贴身制服 == 0 && TALENT:ARG:男性 == 0
			RETURNF 1
		;下が内衣or素肌が見えている
		IF EQUIP:ARG:裙 + EQUIP:ARG:外套 + EQUIP:ARG:贴身制服 == 0
			SIF COND("池面", ARG) == 0 || EQUIP:ARG:胖次 == 0
				RETURNF 1
		ENDIF
	ELSE
		SIF FLAG:二人きり
			RETURNF 0
		SIF EQUIP:ARG:胖次 + EQUIP:ARG:胸罩 + EQUIP:ARG:服 + EQUIP:ARG:裙 + EQUIP:ARG:贴身制服 + EQUIP:ARG:外套 == 0
			RETURNF 1
	ENDIF
CASE "没穿外衣"
	SIF EQUIP:ARG:胖次 + EQUIP:ARG:裙 + EQUIP:ARG:外套 && EQUIP:ARG:胸罩 + EQUIP:ARG:服 + EQUIP:ARG:贴身制服 == 0
		RETURNF 1
;上には胸罩など、セットたりえるもの必須
CASE "没穿下衣"
	SIF EQUIP:ARG:服 + EQUIP:ARG:胸罩 && EQUIP:ARG:胖次 + EQUIP:ARG:裙 + EQUIP:ARG:贴身制服 + EQUIP:ARG:外套 == 0
		RETURNF 1
;何かを脱いで没穿外衣状態になれるか
CASE "没穿外衣可能"
	;連衣裙の場合は脱いだ後に胖次か休闲褲が必要
	IF CHECK_SHIRT("連衣裙", ARG)
		SIF EQUIP:ARG:胖次 + EQUIP:ARG:外套
			RETURNF 1
	ELSE
		SIF EQUIP:ARG:胸罩 + EQUIP:ARG:服 == 0
			RETURNF 0
		SIF EQUIP:ARG:胖次 + EQUIP:ARG:裙 + EQUIP:ARG:外套
			RETURNF 1
	ENDIF
CASE "没穿下衣可能"
	;連衣裙の場合は脱いだ後に胸罩が必要
	IF CHECK_SHIRT("連衣裙", ARG)
		SIF EQUIP:ARG:胸罩
			RETURNF 1
	ELSE
		SIF EQUIP:ARG:胖次 + EQUIP:ARG:裙 + EQUIP:ARG:外套 == 0
			RETURNF 0
		SIF EQUIP:ARG:胸罩 + EQUIP:ARG:服
			RETURNF 1
	ENDIF
CASE "裙脱衣可能"
	SIF CHECK_SHIRT("連衣裙", ARG)
		RETURNF 0
	SIF EQUIP:ARG:裙
		RETURNF 1
;裙など、胖次が見えない状態必須。没穿内褲＆连褲襪ならOKとする
CASE "没穿内褲"
	SIF EQUIP:ARG:服 + EQUIP:ARG:裙 == 0
		RETURNF 0
	SIF EQUIP:ARG:胖次
		RETURNF 0
	IF EQUIP:ARG:外套
		;连褲襪
		SIF CHECK_OUTER("连褲襪", ARG) || CHECK_OUTER("開洞", ARG) == 0
			RETURNF 1
	ELSE
		RETURNF 1
	ENDIF

CASE "全裸"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胖次 + EQUIP:ARG:胸罩 + EQUIP:ARG:服 + EQUIP:ARG:裙 + EQUIP:ARG:贴身制服 + EQUIP:ARG:外套
		RETURNF 0
	SIF EQUIP:ARG:襪子 + EQUIP:ARG:靴 + EQUIP:ARG:手套
		RETURNF 0
	RETURNF 1
CASE "裸体"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胖次 + EQUIP:ARG:胸罩 + EQUIP:ARG:服 + EQUIP:ARG:裙 + EQUIP:ARG:贴身制服 + EQUIP:ARG:外套
		RETURNF 0
	RETURNF 1
CASE "身体のラインの出る格好"
	SIF EQUIP:ARG:服 + EQUIP:ARG:裙
		RETURNF 0
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	RETURNF 1
CASE "内衣姿"
	SIF EQUIP:ARG:胖次 + EQUIP:ARG:胸罩 && EQUIP:ARG:服 + EQUIP:ARG:裙 + EQUIP:ARG:贴身制服 + EQUIP:ARG:外套 == 0
		RETURNF 1
CASE "蕾丝情趣内衣姿"
	SIF CHECK_SHIRT("蕾丝情趣内衣", ARG)
		RETURNF 1
	IF EQUIP:ARG:服 == 0
		SIF CHECK_BRA("蕾丝情趣内衣", ARG) && CHECK_PANTIES("蕾丝情趣内衣", ARG)
			RETURNF 1
	ENDIF
;裙の下に休闲褲類を履いていて、それが周りからも分かる状態。ボトムレイヤード。
CASE "埴輪ルック"
	SIF CHECK_SKIRT("裙", ARG) == 0
		RETURNF 0
	SIF CHECK_OUTER("丈長休闲褲", ARG)
		RETURNF 1
;裙履いてないとか色々です
CASE "胖次が見える格好"
	SIF EQUIP:ARG:胖次 == 0
		RETURNF 0
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:裙
		RETURNF 0
	SIF CHECK_CLO("胖次露出", ARG) == 0
		RETURNF 0
	RETURNF 1
CASE "胸罩が見える格好"
	SIF EQUIP:ARG:胸罩 == 0
		RETURNF 0
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:服 && !CHECK_SHIRT("乳房露出", ARG)
		RETURNF 0
	RETURNF 1
CASE "裤吊带", "褶边裙吊带"
	SIF CHECK_SHIRT(ARGS, ARG) || CHECK_OUTER(ARGS, ARG) || CHECK_OTHER(ARGS, ARG)
		RETURNF 1
CASE "学生服姿"
	SIF CHECK_SHIRT("学生服", ARG) || CHECK_SHIRT("水手", ARG) || CHECK_SHIRT("西装外衣", ARG)
		RETURNF 1
CASE "体操服姿"
	SIF EQUIP:ARG:裙 && CHECK_SKIRT("裙", ARG)
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("泳装", ARG)
		RETURNF 0
	SIF CHECK_SHIRT("体操服", ARG) || CHECK_SHIRT("运动衫", ARG)
		RETURNF 1
CASE "泳装姿"
	;SIF EQUIP:ARG:服 && CHECK_SHIRT("泳装", ARG) == 0
	;	RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("泳装", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:裙 && CHECK_SKIRT("泳装", ARG) == 0
		RETURNF 0
	IF EQUIP:ARG:贴身制服 && CHECK_BODYS("泳装", ARG)
		RETURNF 1
	ELSEIF EQUIP:ARG:胖次
		SIF EQUIP:ARG:胸罩 && CHECK_BRA("泳装", ARG) == 0
			RETURNF 0
		SIF CHECK_PANTIES("泳装", ARG)
			RETURNF 1
	ELSEIF EQUIP:ARG:胸罩
		SIF CHECK_BRA("泳装", ARG)
			RETURNF 1
	ENDIF
CASE "比基尼姿"
	SIF EQUIP:ARG:服 + EQUIP:ARG:裙 + EQUIP:ARG:贴身制服 + EQUIP:ARG:外套
		RETURNF 0
	IF EQUIP:ARG:胖次
		SIF EQUIP:ARG:胸罩 && CHECK_BRA("泳装", ARG) == 0
			RETURNF 0
		SIF CHECK_PANTIES("泳装", ARG)
			RETURNF 1
	ELSEIF EQUIP:ARG:胸罩
		SIF CHECK_BRA("泳装", ARG)
			RETURNF 1
	ENDIF
CASE "Micro比基尼姿"
	SIF CHECK_CLO("比基尼姿", ARG) == 0
		RETURNF 0
	SIF CHECK_BRA("Micro", ARG) && CHECK_PANTIES("Micro", ARG)
		RETURNF 1
CASE "拘束衣"
	SIF EQUIP:ARG:服 + EQUIP:ARG:裙
		RETURNF 0
	SIF CHECK_BODYS("拘束衣", ARG)
		RETURNF 1
	SIF CHECK_BRA("拘束衣", ARG) || CHECK_PANTIES("拘束衣", ARG)
		RETURNF 1
CASE "外套直穿き"
	SIF EQUIP:ARG:外套 && EQUIP:ARG:胖次 == 0
		RETURNF 1
CASE "上下が揃ってない"
	SIF CHECK_CLO("没穿下衣", ARG) || CHECK_CLO("没穿外衣", ARG)
		RETURNF 1
	SIF EQUIP:ARG:服 && CHECK_CLO("胖次が見える格好", ARG)
		RETURNF 1
	SIF EQUIP:ARG:服 == 0 && EQUIP:ARG:胸罩 && EQUIP:ARG:裙 + EQUIP:ARG:外套
		RETURNF 1

CASE "電源BOX保持可能"
	;物理的に行けるか＆コードが見える服装だと露出癖5LVが必要
	IF EQUIP:ARG:裙
		SIF CHECK_SKIRT("迷你", ARG) + CHECK_SKIRT("下摆", ARG) && ABL:ARG:露出癖 < 5
			RETURNF 0
	ELSE
		SIF ABL:ARG:露出癖 < 5
			RETURNF 0
		IF EQUIP:ARG:外套
			;開洞有连褲襪着用時は無理
	 		SIF CHECK_OUTER("连褲襪", ARG) && CHECK_OUTER("開洞", ARG)
				RETURNF 0
			SIF CHECK_OUTER("休闲褲", ARG) && CHECK_OUTER("股間の隙間", ARG) == 0
				RETURNF 0
		ENDIF
	ENDIF
	RETURNF 1
CASE "開洞見せ可能"
	SIF EQUIP:ARG:胖次 == 0 || TALENT:ARG:男性
		RETURNF 0
	SIF CHECK_PANTIES("男物", ARG) || CHECK_PANTIES("開洞", ARG) == 0 || CHECK_PANTIES("泳装", ARG) || CHECK_PANTIES("半脱ぎ時太もも保持可能", ARG) == 0
		RETURNF 0
	RETURNF 1
CASE "内褲冲"
	SIF EQUIP:ARG:贴身制服
		RETURNF 0
	IF EQUIP:ARG:外套
		SIF !CHECK_OUTER("不可手交", ARG)
			RETURNF 1
	ELSEIF EQUIP:ARG:胖次 && !CHECK_PANTIES("不可手交", ARG)
		RETURNF 1
	ENDIF
CASE "闷热的"
	IF EQUIP:ARG:贴身制服 && CHECK_BODYS("闷热的", ARG)
		RETURNF 1
	ELSEIF EQUIP:ARG:外套 && CHECK_OUTER("闷热的", ARG)
		RETURNF 1
	ELSEIF EQUIP:ARG:胖次 && CHECK_PANTIES("闷热的", ARG)
		RETURNF 1
	ENDIF
CASE "湿的"
	IF EQUIP:ARG:贴身制服
		SIF CHECK_BODYS("湿的", ARG)
			RETURNF 1
	ELSEIF EQUIP:ARG:外套
		SIF CHECK_OUTER("湿的", ARG)
			RETURNF 1
	ELSEIF EQUIP:ARG:胖次
		SIF CHECK_PANTIES("湿的", ARG)
			RETURNF 1
	ENDIF
;胸罩など、胸を覆うものは"半脱"る
CASE "半脱可"
	IF EQUIP:ARG:服 && CHECK_SHIRT("半脱可", ARG)
		RETURNF 1
	ELSEIF EQUIP:ARG:贴身制服 && CHECK_BODYS("半脱可", ARG)
		RETURNF 1
	ELSEIF EQUIP:ARG:胸罩 && CHECK_BRA("半脱可", ARG)
		SIF EQUIP:ARG:服 && CHECK_SHIRT("半脱不可", ARG)
			RETURNF 0
		SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("半脱不可", ARG)
			RETURNF 0
		RETURNF 1
	ENDIF
CASE "谷間露出"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:服 && !CHECK_SHIRT("半脱的", ARG) && !CHECK_SHIRT("谷間露出", ARG)
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && !CHECK_BODYS("半脱的", ARG) && !CHECK_BODYS("谷間露出", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胸罩 && !CHECK_BRA("半脱的", ARG) && !CHECK_BRA("谷間露出", ARG)
		RETURNF 0
	RETURNF 1
CASE "乳輪露出"
	;乳頭露出なら当然ＯＫ
	SIF CHECK_CLO("乳頭露出", ARG)
		RETURNF 1
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	;以下は巨乳輪でないと起きない
	SIF COND("巨乳輪", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:服 && !CHECK_SHIRT("半脱的", ARG)
		RETURNF 0
	IF EQUIP:ARG:贴身制服 && !CHECK_BODYS("半脱的", ARG)
		SIF CHECK_BODYS("半杯", ARG)
			RETURNF 1
	ENDIF
	IF EQUIP:ARG:胸罩 && !CHECK_BRA("半脱的", ARG)
		SIF CHECK_BRA("半杯", ARG) || CHECK_BRA("Micro", ARG)
			RETURNF 1
	ENDIF
	RETURNF 0
CASE "乳頭露出"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:服 && !CHECK_SHIRT("半脱的", ARG) && !CHECK_SHIRT("乳頭露出", ARG) && !CHECK_SHIRT("乳房露出", ARG)
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && !CHECK_BODYS("半脱的", ARG) && !CHECK_BODYS("乳頭露出", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胸罩 && !CHECK_BRA("半脱的", ARG) && !CHECK_BRA("乳頭露出", ARG)
		RETURNF 0
	RETURNF 1
CASE "胖次下ろし可"
	SIF EQUIP:ARG:外套
		RETURNF 0
	SIF CHECK_PANTIES("下ろせる", ARG)
		RETURNF 1
CASE "ずらし可", "可以移開"
	IF EQUIP:ARG:贴身制服
		SIF CHECK_BODYS("可以移開", ARG)
			RETURNF 1
	ELSEIF EQUIP:ARG:外套
		SIF CHECK_OUTER("可以移開", ARG)
			RETURNF 1
	ELSEIF EQUIP:ARG:胖次
		SIF CHECK_PANTIES("可以移開", ARG)
			RETURNF 1
	ENDIF
CASE "布鲁马露出"
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 0
	IF EQUIP:ARG:外套
		SIF CHECK_OUTER("布鲁马", ARG) && CHECK_OUTER("開洞", ARG)
			RETURNF 1
	ELSE
		SIF CHECK_PANTIES("布鲁马", ARG) && CHECK_PANTIES("開洞", ARG)
			RETURNF 1
	ENDIF
CASE "布鲁马はみ胖次可能"
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 0
	IF EQUIP:ARG:外套 && CHECK_OUTER("布鲁马", ARG) && CHECK_OUTER("開洞", ARG)
		SIF CHECK_OUTER("高開衩布鲁马", ARG)
			RETURNF 0
		SIF EQUIP:ARG:胖次 && CHECK_PANTIES("はみ胖次可能", ARG)
			RETURNF 1
	ENDIF
CASE "外套露出"
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		RETURNF 1
CASE "贴身制服露出"
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 1
CASE "泳装ボトム露出"
	IF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		SIF CHECK_BODYS("泳装", ARG)
			RETURNF 1
	ELSEIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		RETURNF 0
	ELSEIF EQUIP:ARG:胖次
		SIF CHECK_PANTIES("泳装", ARG)
			RETURNF 1
	ENDIF
CASE "连褲襪露出"
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("连褲襪", ARG) && CHECK_OUTER("開洞", ARG)
		RETURNF 1
CASE "胸罩露出"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:服 && !CHECK_SHIRT("半脱的", ARG) && !CHECK_SHIRT("乳房露出", ARG)
		RETURNF 0
	RETURNF 1
CASE "胖次露出"
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胖次
		RETURNF 1
CASE "胖次花绳可能"
	SIF CHECK_PANTIES("胖次花绳可能", ARG) == 0
		RETURNF 0
	;以下は胖次露出の条件
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胖次
		RETURNF 1

CASE "胖次視認可能"
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG) && CHECK_OUTER("连褲襪", ARG) == 0
		RETURNF 0
	RETURNF 1
CASE "胖次を脱掉のが難儀"
	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		RETURNF 1
CASE "胖次を脱いだらＶ露出"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:裙
		RETURNF 0
	RETURNF 1

;例えば下摆長めの恤を着ていて下が休闲褲、など
CASE "掀起裙子の価値无"
	SIF CHECK_SKIRT("下摆", ARG) && CHECK_OUTER("休闲褲", ARG)
		RETURNF 1
	SIF CHECK_CLO("埴輪ルック", ARG)
		RETURNF 1
;未確認は調教中は使わない
CASE "外套未確認"
	SIF CFLAG:ARG:股間確認済
		RETURNF 0
	;连褲襪と休闲褲は例外
	SIF CHECK_OUTER("连褲襪", ARG) || CHECK_OUTER("打底褲", ARG) || CHECK_OUTER("休闲褲", ARG)
		RETURNF 0
	SIF EQUIP:ARG:裙
		RETURNF 1
CASE "胖次未確認"
	SIF COND("胖次形状確認", ARG)
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 1
	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		RETURNF 1
	SIF EQUIP:ARG:裙 && CHECK_SKIRT("透明", ARG) == 0
		RETURNF 1
CASE "胸罩未確認"
	SIF COND("胸罩形状確認", ARG)
		RETURNF 0
	SIF EQUIP:ARG:服 && !CHECK_SHIRT("半脱的", ARG) && !CHECK_SHIRT("谷間露出", ARG) && CHECK_SHIRT("透明", ARG) == 0
		RETURNF 1
	SIF EQUIP:ARG:贴身制服 && !CHECK_BODYS("半脱的", ARG) && !CHECK_BODYS("谷間露出", ARG)
		RETURNF 1

;贴身制服や胖次では陰毛が隠しきれていません
CASE "ハミ毛", "ハミ毛：裙無視"
	SELECTCASE ARGS
	CASE "ハミ毛：裙無視"
	CASEELSE
		SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
			RETURNF 0
		SIF EQUIP:ARG:裙
			RETURNF 0
	ENDSELECT

	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		RETURNF 0
	;ここでの陰毛はモサモサ度依存なので外見年齢が若い場合は若干考慮される
	IF EQUIP:ARG:贴身制服
		;高開衩＆(自然or随意生長)
		IF CHECK_BODYS("高開衩", ARG)
			SELECTCASE COND("陰毛", ARG)
			CASE IS >= 7
				RETURNF 1
			CASE 6
				;大姐姐以上で自然
				SIF AGE(ARG) >= 3
					RETURNF 1
			ENDSELECT
		ENDIF
	ELSEIF EQUIP:ARG:胖次
		;随意生長は常時はみ毛
		SIF COND("陰毛", ARG) >= 7
			RETURNF 1

		;Microは生えてたら見える
		IF CHECK_PANTIES("Micro", ARG)
			RETURNF MAX(COND("陰毛", ARG) - 3, 0)
		;低腰は整えている程度だと見える
		ELSEIF CHECK_PANTIES("低腰", ARG) || CHECK_PANTIES("Ｃ胖次", ARG)
			SELECTCASE COND("陰毛", ARG)
			CASE 5, 6
				;大姐姐以上なら見える
				SIF AGE(ARG) >= 3
					RETURNF 1
			ENDSELECT
		;高開衩は剃ってないと見える
		ELSEIF CHECK_PANTIES("高開衩", ARG) || CHECK_PANTIES("淚珠泳衣", ARG)
			SELECTCASE COND("陰毛", ARG)
			CASE 6
				;大姐姐以上なら見える
				SIF AGE(ARG) >= 3
					RETURNF 1
			ENDSELECT
		ENDIF
	ENDIF
CASE "胖次ハミ毛"
	SIF EQUIP:ARG:胖次 == 0
		RETURNF 0
	;随意生長は常時はみ毛
	SIF COND("陰毛", ARG) >= 7
		RETURNF 1

	;Microは生えてたら見える
	IF CHECK_PANTIES("Micro", ARG)
		RETURNF MAX(COND("陰毛", ARG) - 3, 0)
	;低腰は整えている程度だと見える
	ELSEIF CHECK_PANTIES("低腰", ARG) || CHECK_PANTIES("Ｃ胖次", ARG)
		SELECTCASE COND("陰毛", ARG)
		CASE 5, 6
			;大姐姐以上なら見える
			SIF AGE(ARG) >= 3
				RETURNF 1
		ENDSELECT
	;高開衩は剃ってないと見える
	ELSEIF CHECK_PANTIES("高開衩", ARG) || CHECK_PANTIES("淚珠泳衣", ARG)
		SELECTCASE COND("陰毛", ARG)
		CASE 6
			;大姐姐以上なら見える
			SIF AGE(ARG) >= 3
				RETURNF 1
		ENDSELECT
	ENDIF
CASE "透け毛"
	;生えてない
	SIF COND("陰毛", ARG) <= 3
		RETURNF 0
	;ハミ毛ならそっち優先
	SIF CHECK_CLO("ハミ毛", ARG)
		RETURNF 0
	SIF EQUIP:ARG:裙
		RETURNF 0
	IF EQUIP:ARG:贴身制服
		SIF CHECK_BODYS("透明", ARG)
			RETURNF 1
	ELSEIF EQUIP:ARG:外套
		SIF CHECK_OUTER("连褲襪", ARG) && CHECK_OUTER("開洞", ARG) && EQUIP:ARG:胖次 == 0
			RETURNF 1
	ELSEIF EQUIP:ARG:胖次
		SIF CHECK_PANTIES("透明", ARG)
			RETURNF 1
	ENDIF
	RETURNF 0
;ハミ毛や透け毛ではなく、全体が完全に見えている状態
CASE "陰毛露出"
	;生えてない
	SIF COND("陰毛", ARG) <= 3
		RETURNF 0
	;ハミ毛や透け毛状態ならそっち優先
	SIF CHECK_CLO("ハミ毛", ARG) || CHECK_CLO("透け毛", ARG)
		RETURNF 0
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:裙
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 0
	IF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		SIF CHECK_OUTER("前開", ARG) == 0
			RETURNF 0
	ENDIF
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("開洞", ARG)
		RETURNF 0
	RETURNF 1
CASE "勒紧的"
	;男性だと勒紧的は無理かなぁ
	SIF TALENT:ARG:男性
		RETURNF 0
	SIF EQUIP:ARG:胖次 + EQUIP:ARG:贴身制服 + EQUIP:ARG:外套 == 0
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("勒紧的", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("勒紧的", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("勒紧的", ARG) == 0
		RETURNF 0
	RETURNF 1
;Ｖ露出とは異なるのに注意
CASE "大陰唇露出"
	SIF TALENT:ARG:男性
		RETURNF 0
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胖次 + EQUIP:ARG:贴身制服 + EQUIP:ARG:外套 == 0
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("勒紧的", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("勒紧的", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("勒紧的", ARG) == 0
		RETURNF 0
	RETURNF 1
;贴身制服や胖次では鼠径部が隠しきれていません
CASE "鼠径部露出"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:裙
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG) && CHECK_OUTER("高開衩", ARG) == 0
		RETURNF 0
	IF EQUIP:ARG:贴身制服
		SIF CHECK_BODYS("高開衩", ARG)
			RETURNF 1
	ELSEIF EQUIP:ARG:胖次
		SIF CHECK_PANTIES("Micro", ARG) || CHECK_PANTIES("高開衩", ARG) || CHECK_PANTIES("Ｃ胖次", ARG)
			RETURNF 1
	ENDIF
;下腹部から下が全部見えていて、明らかに何も着けていないとみて分かる状態です
CASE "股間露出"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:裙
		RETURNF 0
	SIF EQUIP:ARG:贴身制服
		RETURNF 0
	IF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		SIF CHECK_OUTER("前開", ARG) == 0
			RETURNF 0
	ENDIF
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("開洞", ARG)
		RETURNF 0
	RETURNF 1
;ガーターや開放型连褲襪、及膝襪などです
CASE "股間だけ露出"
	SIF CHECK_SOCKS("直到大腿", ARG)
		RETURNF 1
	SIF CHECK_OUTER("连褲襪", ARG) && CHECK_OUTER("Ｖ露出", ARG)
		RETURNF 1
;淫紋が見えている状態です
CASE "淫紋露出"
	;淫紋が無ければ勿論駄目
	SIF MARK:ARG:淫紋 == 0
		RETURNF 0
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 || EQUIP:ARG:裙
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("低腰", ARG) == 0 && CHECK_OUTER("前開", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:服 && CHECK_SHIRT("露脐", ARG) == 0
		RETURNF 0
	RETURNF 1
CASE "淫紋露出：裙無視"
	;淫紋が無ければ勿論駄目
	SIF MARK:ARG:淫紋 == 0
		RETURNF 0
	SIF EQUIP:ARG:贴身制服
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("低腰", ARG) == 0
		RETURNF 0
	RETURNF 1
CASE "露脐"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:服 && CHECK_SHIRT("露脐", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:裙 && CHECK_SKIRT("露脐", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("露脐", ARG) == 0
		RETURNF 0
	RETURNF 1
;低腰な外套（一般には休闲褲）を履いていて、お尻の上半分が見えている状態です。胖次は加味しない
CASE "低腰臀圍"
	SIF EQUIP:ARG:外套 == 0 || CHECK_OUTER("低腰", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:飾品 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	RETURNF 1
CASE "Ｔ字褲臀圍"
	IF EQUIP:ARG:外套
		SIF CHECK_OUTER("Ｔ字褲", ARG) == 0
			RETURNF 0
	ENDIF
	IF EQUIP:ARG:贴身制服
		SIF CHECK_BODYS("Ｔ字褲", ARG) == 0
			RETURNF 0
	ENDIF
	IF EQUIP:ARG:胖次
		SIF CHECK_PANTIES("Ｔ字褲", ARG) == 0
			RETURNF 0
	ENDIF
	SIF CHECK_OUTER("Ｔ字褲", ARG) || CHECK_BODYS("Ｔ字褲", ARG) || CHECK_PANTIES("Ｔ字褲", ARG)
		RETURNF 1
CASE "後開型臀圍"
	IF EQUIP:ARG:外套
		SIF CHECK_OUTER("後開型", ARG) == 0 && CHECK_OUTER("连褲襪", ARG) == 0
			RETURNF 0
	ENDIF
	IF EQUIP:ARG:贴身制服
		SIF CHECK_BODYS("後開型", ARG) == 0
			RETURNF 0
	ENDIF
	IF EQUIP:ARG:胖次
		SIF CHECK_PANTIES("後開型", ARG) == 0
			RETURNF 0
	ENDIF
	SIF CHECK_OUTER("後開型", ARG) || CHECK_BODYS("後開型", ARG) || CHECK_PANTIES("後開型", ARG)
		RETURNF 1
;主に"阴部のチラ見せ撮影"の判定で使う
CASE "めくり可能"
	SIF EQUIP:ARG:胖次 + EQUIP:ARG:外套 + EQUIP:ARG:贴身制服 == 0
		RETURNF 0
	SIF CHECK_CLO("Ｖ露出", ARG)
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("めくり可能", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("めくり可能", ARG) == 0
		RETURNF 0
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("めくり可能", ARG) == 0
		RETURNF 0
	RETURNF 1
CASE "带拉链的Ｖ露出可能"
	;すでに露出していたら駄目
	SIF CHECK_CLO("Ｖ露出", ARG)
		RETURNF 0
	SIF CHECK_BODYS("带拉链的", ARG) || CHECK_OUTER("带拉链的", ARG) || CHECK_PANTIES("带拉链的", ARG)
		RETURNF 1

CASE "Ｐ露出"
	SIF PENIS(ARG) == 0
		RETURNF 0
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("開洞", ARG)
		RETURNF 0
	RETURNF 1
CASE "Ｖ露出"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("開洞", ARG)
		RETURNF 0
	RETURNF 1
;これはＶ露出を含む
CASE "Ｖ露出可"
	;調教外ならＯＫとする
	SIF COND("調教中", ARG) == 0 && CHECK_PANTIES("脱衣不可", ARG) == 0
		RETURNF 1
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("開洞", ARG) && CHECK_BODYS("可以移開", ARG) == 0
		RETURNF 0
	IF EQUIP:ARG:外套 && CHECK_OUTER("開洞", ARG)
		SIF CHECK_OUTER("连褲襪", ARG)
			RETURNF 0
		SIF CHECK_OUTER("可以移開", ARG) == 0
			RETURNF 0
	ENDIF
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("開洞", ARG) && CHECK_PANTIES("可以移開", ARG) == 0
		RETURNF 0
	RETURNF 1
CASE "Ａ露出"
	SIF COND("調教中", ARG) == 0 && CHECK_OTHER("外套", ARG)
		RETURNF 0
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("Ａ開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:外套 && CHECK_OUTER("Ａ開洞", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("Ａ開洞", ARG)
		RETURNF 0
	RETURNF 1
;これはＡ露出を含む
CASE "Ａ露出可"
	;調教外ならＯＫとする
	SIF COND("調教中", ARG) == 0 && CHECK_PANTIES("貞操帯", ARG) == 0
		RETURNF 1
	SIF EQUIP:ARG:贴身制服 && CHECK_BODYS("Ａ開洞", ARG) && !CHECK_BODYS("可以移開", ARG)
		RETURNF 0
	SIF EQUIP:ARG:外套 && !CHECK_OUTER("连褲襪", ARG) && CHECK_OUTER("Ａ開洞", ARG) && !CHECK_OUTER("可以移開", ARG)
		RETURNF 0
	SIF EQUIP:ARG:胖次 && CHECK_PANTIES("Ａ開洞", ARG) && !CHECK_PANTIES("可以移開", ARG)
		RETURNF 0
	RETURNF 1

CASE "移開的"
	IF EQUIP:ARG:贴身制服 && CHECK_BODYS("移開的", ARG)
		RETURNF 1
	ELSEIF EQUIP:ARG:外套 && CHECK_OUTER("移開的", ARG)
		RETURNF 1
	ELSEIF EQUIP:ARG:胖次 && CHECK_PANTIES("移開的", ARG)
		RETURNF 1
	ENDIF
CASE "腋露出"
	SIF EQUIP:ARG:服 && CHECK_SHIRT("腋露出", ARG) == 0
		RETURNF 0
	SIF CHECK_OTHER("外套", ARG)
		RETURNF 0
	RETURNF 1
CASE "足露出"
	SIF EQUIP:ARG:靴
		RETURNF 0
	SIF EQUIP:ARG:襪子 && CHECK_SOCKS("足露出", ARG) == 0
		RETURNF 0
	RETURNF 1
ENDSELECT

RETURNF 0

;-------------------------------------------------
;角色ARGの衣装ARGSに色や游戏的な制限など、それぞれでいちいち記述すると設定忘れが快要醒了なフラグはまとめてここで設定
;胖次,胸罩,服,贴身制服,外套にのみ作用する。ここを通ったら "共通属性追加済/" が足される
;-------------------------------------------------
@SET_CLO_COMMON(ARGS, ARG)
#FUNCTIONS
#DIM LCOUNT
;追加で発生した属性は全部これに記述
#DIMS STR_ADD
;衣装の名称
#DIMS CLONAME
;結果的に作られた衣装の文字列
#DIMS CLOSTR
#DIMS COLOR_ABOUT

SIF ARG == 0 && TARGET > 0
	ARG = TARGET
SIF ARGS == "" || STRCOUNT(ARGS, "共通属性追加済")
	RETURNF ARGS

;ARGSの色を見る
COLOR_ABOUT = %CHECK_CLOCOLOR(ARGS)%
;色グループからの選択設定があるかを見る
SELECTCASE COLOR_ABOUT
CASE "條紋色", "水玉色", "豹纹", "儿童胖次颜色"
	COLOR_ABOUT = %SET_CLOCOLOR(COLOR_ABOUT, ARGS)%
CASE "淡色", "Ｈ的颜色", "隨機顏色", "辣妹", "男式色", "比基尼色"
	IF CSTR:ARG:喜欢的颜色 != "" && RAND:3
		COLOR_ABOUT = %SET_CLOCOLOR(TEXTR(CSTR:ARG:喜欢的颜色), ARGS)%
	ELSE
		COLOR_ABOUT = %SET_CLOCOLOR(COLOR_ABOUT, ARGS)%
	ENDIF
ENDSELECT

;ARGSから色設定を消し去る
ARGS = %RESET_CLOCOLOR(ARGS)%

VARSET STR_ADD
VARSET LOCALS
;LOCALSを用いて属性ごとに分解
SPLIT ARGS, "/", LOCALS

CLONAME = %LOCALS%

;色が設定されているべき衣装なのに設定されていないのなら追加する
SIF COLOR_ABOUT == ""
	COLOR_ABOUT = %CLOCOLOR_MAIDFACE(CLONAME, "", ARG)%

;変更された名前を取得
LOCALS = %CLONAME%
CLOSTR =
FOR LCOUNT, 0, 100
	;空文字列なら終了
	SIF LOCALS:LCOUNT == ""
		BREAK

	SIF STRCOUNT(LOCALS:LCOUNT, "皮革") || STRCOUNT(LOCALS:LCOUNT, "革")
		STR_ADD += "通気性没有/不可移開/不可手交/"
	SIF STRCOUNT(LOCALS:LCOUNT, "比基尼")
		STR_ADD += "泳装/"
	SIF STRCOUNT(LOCALS:LCOUNT, "兔")
		STR_ADD += "谷間露出/腋露出/"
	SIF STRCOUNT(LOCALS:LCOUNT, "无袖")
		STR_ADD += "腋露出/"
	SIF STRCOUNT(LOCALS:LCOUNT, "Micro") && STRCOUNT(LOCALS:LCOUNT, "胸罩") == 0
		STR_ADD += "高開衩/Ｔ字褲/超低腰/"
	;胖次の形状
	IF STRCOUNT(LOCALS:LCOUNT, "Ｃ胖次")
		STR_ADD += "Ｔ字褲/不可手交/不可移開/"
	ELSEIF STRCOUNT(LOCALS:LCOUNT, "前貼")
		STR_ADD += "Ａ露出/不可手交/不可移開/"
	ELSEIF STRCOUNT(LOCALS:LCOUNT, "丁字褲")
		STR_ADD += "高開衩/Ｔ字褲/"
	ELSEIF STRCOUNT(LOCALS:LCOUNT, "淚珠泳衣")
		STR_ADD += "Ｔ字褲/Micro/"
	ELSEIF STRCOUNT(LOCALS:LCOUNT, "貞操帯")
		STR_ADD += "通気性没有/不可移開/不可手交/脱衣不可/Ａ露出/"
	ENDIF

	SIF STRCOUNT(LOCALS:LCOUNT, "女式衬衫") == 0 && STRCOUNT(LOCALS:LCOUNT, "胸罩") && STRCOUNT(LOCALS:LCOUNT, "スポーツ") == 0
		STR_ADD += "谷間露出/"
	;SIF STRCOUNT(LOCALS:LCOUNT, "半杯")
	;	STR_ADD += "乳頭露出/"
	SIF STRCOUNT(LOCALS:LCOUNT, "１／４杯胸罩") || STRCOUNT(LOCALS:LCOUNT, "開放型胸罩")
		STR_ADD += "乳頭露出/"

	SELECTCASE LOCALS:LCOUNT
	CASE "正面蝴蝶結"
		LOCALS:LCOUNT = 正面蝴蝶結%TEXTR("紐/三角")%%TEXTR("赤/黒/青/黄/白")%
	CASE "正面蝴蝶結紐"
		LOCALS:LCOUNT = 正面蝴蝶結紐%TEXTR("赤/黒/青/黄/白")%
	CASE "正面蝴蝶結三角"
		LOCALS:LCOUNT = 正面蝴蝶結三角%TEXTR("赤/黒/青/黄/白")%
	ENDSELECT

	;衣装を再構成
	CLOSTR += @"%LOCALS:LCOUNT%/"
NEXT

;最終的に出来た文字列に同じ属性が複数書かれないように整理
VARSET LOCALS
SPLIT @"%CLOSTR%%COLOR_ABOUT%/%STR_ADD%共通属性追加済/", "/", LOCALS
CLOSTR =
FOR LCOUNT, 0, 100
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASEELSE
		;既に追加されている属性なら弾く
		SIF STRCOUNT(CLOSTR, @"/%LOCALS:LCOUNT%/")
			CONTINUE
		CLOSTR += @"%LOCALS:LCOUNT%/"
	ENDSELECT
NEXT

RETURNF CLOSTR

;-------------------------------------------------
;ARGの全衣装に@SET_CLO_COMMON を作用させて、EQUIPを再計算する
;-------------------------------------------------
@CHECK_ALLCLOFLAG, ARG
SIF ARG == 0 && TARGET > 0
	ARG = TARGET

;コモンフラグを設定する
CSTR:ARG:胖次 = %SET_CLO_COMMON(CSTR:ARG:胖次, ARG)%
CSTR:ARG:胸罩 = %SET_CLO_COMMON(CSTR:ARG:胸罩, ARG)%
CSTR:ARG:服 = %SET_CLO_COMMON(CSTR:ARG:服, ARG)%
CSTR:ARG:贴身制服 = %SET_CLO_COMMON(CSTR:ARG:贴身制服, ARG)%
CSTR:ARG:外套 = %SET_CLO_COMMON(CSTR:ARG:外套, ARG)%

;EQUIPを再計算する
EQUIP:ARG:胖次 = STRLENS(CSTR:ARG:胖次)
EQUIP:ARG:胸罩 = STRLENS(CSTR:ARG:胸罩)
EQUIP:ARG:服 = STRLENS(CSTR:ARG:服)
EQUIP:ARG:裙 = STRLENS(CSTR:ARG:裙)
EQUIP:ARG:贴身制服 = STRLENS(CSTR:ARG:贴身制服)
EQUIP:ARG:外套 = STRLENS(CSTR:ARG:外套)
EQUIP:ARG:襪子 = STRLENS(CSTR:ARG:襪子)
EQUIP:ARG:靴 = STRLENS(CSTR:ARG:靴)
EQUIP:ARG:手套 = STRLENS(CSTR:ARG:手套)
EQUIP:ARG:飾品 = STRLENS(CSTR:ARG:飾品)

SIF CONFIG("女仆帽") && CHECK_SHIRT("女仆装", ARG) && CHECK_OTHER("礼服頭花", ARG)
	CALL SET_OTHER, "女仆帽", ARG

;-------------------------------------------------
;角色ARGの服装的污垢やずらしなどを直して、初期状態に戻す
;ARGSには"半脱的", "移開的", "带拉链的開", "破開的"を入れることが出来、その場合にはARGSのみを除取下る
;飾品には何もしなくてよい
;-------------------------------------------------
@RESETFLAG_CLO, ARG, ARGS
#DIM LCOUNT
#DIM LCOUNT2

SELECTCASE ARGS
CASE "移開的"
	FOR LCOUNT, 40, 49
		SIF EQUIP:ARG:LCOUNT == 0
			CONTINUE

		VARSET LOCALS
		SPLIT CSTR:ARG:LCOUNT, "/", LOCALS
		CSTR:ARG:LCOUNT =

		FOR LCOUNT2, 0, 100
			;状態変更の文字列は除く
			SELECTCASE LOCALS:LCOUNT2
			CASE ""
				BREAK
			CASE ARGS
				CONTINUE
			ENDSELECT
			CSTR:ARG:LCOUNT = %CSTR:ARG:LCOUNT%%LOCALS:LCOUNT2%/
		NEXT
	NEXT
CASEELSE
	SELECTCASE ARGS
	CASE "汚れは就这様"
	CASEELSE
		FOR LCOUNT, 10, 19
			STAIN:ARG:LCOUNT = 0
		NEXT
	ENDSELECT

	FOR LCOUNT, 40, 49
		SIF EQUIP:ARG:LCOUNT == 0
			CONTINUE

		VARSET LOCALS
		SPLIT CSTR:ARG:LCOUNT, "/", LOCALS
		CSTR:ARG:LCOUNT =

		FOR LCOUNT2, 0, 100
			;状態変更の文字列は除く
			SELECTCASE LOCALS:LCOUNT2
			CASE ""
				BREAK
			CASE "半脱的", "移開的", "带拉链的開", "破開的"
				CONTINUE
			ENDSELECT
			CSTR:ARG:LCOUNT = %CSTR:ARG:LCOUNT%%LOCALS:LCOUNT2%/
		NEXT
	NEXT
ENDSELECT
;-------------------------------------------------
;ARGの種族衣装の有無を判定(どれか一つでも満たしていると1を返す)
;-------------------------------------------------
@CLO_ORI(ARG, ARGS, ARGS:1, ARGS:2, ARGS:3, ARGS:4)
#FUNCTION
#DIM LCOUNT
FOR LCOUNT, 0, 5
	SIF ARGS:LCOUNT == ""
		BREAK
	SIF CSVCSTR(NO:ARG, GETNUM(CSTR, ARGS:LCOUNT) ) != ""
		RETURNF 1
NEXT
RETURNF 0

;-------------------------------------------------
;ARGの現在的格好を簡略表示する
;ARGSに"姿"と入れてあると、違和感ない場合には"～姿"と表示する
;-------------------------------------------------
@CLO_ABOUT(ARG, ARGS)
#FUNCTIONS

VARSET LOCALS
IF STRCOUNTS(OTHER(ARG, "外套"), "外套", "褞袍")
	LOCALS = %OTHER(ARG, "外套")%姿
ELSEIF EQUIP:ARG:服
	;特殊な名称になるセット
	IF CHECK_SHIRT("美式校服", ARG) && CHECK_SKIRT("裙", ARG)
		LOCALS = 美式校服
	ELSE
		;柄がある？
		IF SHIRT(ARG, "柄") != ""
			LOCALS = 『%SHIRT(ARG, "柄")%』と書かれた%SHIRT(ARG, "略")%
		ELSE
			LOCALS = %SHIRT(ARG)%
		ENDIF
		IF CHECK_SKIRT("裙", ARG)
			IF CHECK_SHIRT("連衣裙", ARG)
				IF CHECK_SKIRT("超短迷你", ARG)
					LOCALS = 超短迷你%LOCALS%
				ELSEIF CHECK_SKIRT("迷你", ARG)
					LOCALS = 露脐装超短裙%LOCALS%
				ENDIF
			ELSE
				LOCALS = %LOCALS%＆%SKIRT(ARG)%
			ENDIF
			SIF CHECK_CLO("埴輪ルック", ARG)
				LOCALS += "(はにわルック)"
		ELSEIF EQUIP:ARG:贴身制服
			LOCALS = %LOCALS%＆%BODYS(ARG)%
		ELSEIF EQUIP:ARG:外套
			SIF STRCOUNT(OUTER(ARG, "略"), SHIRT(ARG, "略") ) == 0
				LOCALS = %LOCALS%＆%OUTER(ARG)%
		ELSEIF CHECK_CLO("胖次が見える格好", ARG)
			LOCALS = %LOCALS%＆%PANTIES(ARG)%
		ENDIF
	ENDIF
ELSEIF EQUIP:ARG:贴身制服
	LOCALS = %BODYS(ARG)%
	;SIF EQUIP:ARG:外套
	;	LOCALS = %LOCALS%＆%OUTER(ARG, "略")%
ELSEIF CHECK_OTHER("外套", ARG)
	LOCALS = %OTHER(ARG, "外套")%
;以下は上半身が内衣or裸
ELSEIF EQUIP:ARG:外套 && CHECK_OUTER("连褲襪", ARG) == 0
	IF EQUIP:ARG:胸罩
		LOCALS = %BRA(ARG)%＆%OUTER(ARG)%
	ELSE
		LOCALS = %OUTER(ARG)%
	ENDIF

ELSEIF CHECK_CLO("泳装姿", ARG)
	IF EQUIP:ARG:胖次
		LOCALS = %PANTIES(ARG)%
	ELSE
		LOCALS = %BRA(ARG)%
	ENDIF
	SIF CHECK_SKIRT("泳装", ARG)
		LOCALS += @"＆%SKIRT(ARG)%"
ELSEIF CHECK_CLO("内衣姿", ARG)
	IF CHECK_PANTIES("肉球印花胖次", ARG) && CHECK_BRA("猫型胸罩", ARG)
		LOCALS = 猫蕾丝情趣内衣
	ELSEIF CHECK_PANTIES("高開衩布鲁马", ARG)
		LOCALS = 高開衩布鲁马
		SIF EQUIP:ARG:胸罩
			LOCALS = %BRA(ARG)%＆%LOCALS%
	ELSEIF CHECK_PANTIES("拘束衣", ARG) || CHECK_BRA("拘束衣", ARG)
		IF CHECK_BRA("拘束衣", ARG)
			LOCALS = %CLOCOLOR(CSTR:ARG:胸罩, "形容詞")%拘束衣
		ELSE
			LOCALS = %CLOCOLOR(CSTR:ARG:胖次, "形容詞")%拘束衣
		ENDIF
	ELSEIF EQUIP:ARG:胖次 && EQUIP:ARG:胸罩
		IF CHECK_PANTIES("蕾丝", ARG) && CHECK_BRA("蕾丝", ARG)
			LOCALS = 蕾丝的
		ELSEIF CHECK_PANTIES("褶边", ARG) && CHECK_BRA("褶边", ARG)
			LOCALS = 褶边の
		ELSEIF CHECK_PANTIES("透明", ARG) && CHECK_BRA("透明", ARG)
			LOCALS = 透明の
		ELSEIF CHECK_PANTIES("皮革", ARG) && CHECK_BRA("皮革", ARG)
			LOCALS = 拘束衣風の
		ENDIF

		IF CHECK_PANTIES("Ｖ露出", ARG)
			LOCALS += "穴開き内衣"
		ELSEIF CHECK_PANTIES("Ａ露出", ARG)
			LOCALS += "後開型内衣"
		ELSEIF CHECK_PANTIES("Ｃ胖次", ARG)|| CHECK_PANTIES("丁字褲", ARG)|| CHECK_PANTIES("淚珠泳衣", ARG) || CHECK_BRA("１／４杯胸罩", ARG)
			LOCALS += "エロ内衣"
		ELSEIF CHECK_PANTIES("Micro", ARG)
			LOCALS += "極小内衣"
		ELSEIF CHECK_PANTIES("Ｔ字褲", ARG)
			LOCALS += "Ｔ字褲内衣"
		ELSEIF CHECK_PANTIES("超低腰", ARG)
			LOCALS += "超低腰内衣"
		ELSEIF CHECK_PANTIES("性感", ARG) || CHECK_BRA("性感", ARG)
			LOCALS += "エロ内衣"
		ELSE
			LOCALS += "内衣姿"
		ENDIF

		;色描写
		IF CLOCOLOR(CSTR:ARG:胸罩) == CLOCOLOR(CSTR:ARG:胖次)
			IF CHECK_PANTIES("條紋", ARG)
				LOCALS = 條紋模様の%LOCALS%
			ELSEIF CHECK_PANTIES("水玉模様", ARG)
				LOCALS = 水玉模様の%LOCALS%
			ELSEIF CHECK_PANTIES("豹纹", ARG)
				LOCALS = 豹纹の%LOCALS%
			ELSE
				LOCALS = %CLOCOLOR(CSTR:ARG:胖次, "形容詞")%%LOCALS%
			ENDIF
		ENDIF
	ELSEIF EQUIP:ARG:胸罩
		LOCALS = %BRA(ARG)%
	ELSE
		LOCALS = %PANTIES(ARG)%
	ENDIF
ELSEIF EQUIP:ARG:裙
	IF EQUIP:ARG:胸罩
		LOCALS = %BRA(ARG)%＆%SKIRT(ARG)%
	ELSE
		LOCALS = %SKIRT(ARG)%
	ENDIF
	SIF CHECK_CLO("埴輪ルック", ARG)
		LOCALS += "(はにわルック)"
;以下は裸
ELSEIF CHECK_CLO("全裸", ARG)
	LOCALS = 全裸
;超例外
ELSEIF CHECK_OTHER("兔耳", ARG) && CHECK_OTHER("領帯", ARG)
	LOCALS = 全裸兔
ELSE
	IF CHECK_OUTER("连褲襪", ARG)
		LOCALS += "连褲襪"
		SIF EQUIP:ARG:襪子 || EQUIP:ARG:靴 || EQUIP:ARG:手套
			LOCALS += "、"
	ENDIF
	IF EQUIP:ARG:襪子
		LOCALS += "襪子"
		SIF EQUIP:ARG:靴 || EQUIP:ARG:手套
			LOCALS += "、"
	ENDIF
	IF EQUIP:ARG:靴
		LOCALS += "靴"
		SIF EQUIP:ARG:手套
			LOCALS += "、"
	ENDIF
	SIF EQUIP:ARG:手套
		LOCALS += "手套"

	LOCALS = 全裸に%LOCALS%のみ
ENDIF

SELECTCASE ARGS
CASE "姿"
	;＆が含まれている場合は＆を"に"変える
	IF STRCOUNT(LOCALS, "＆")
		LOCALS = %EXTSTR(LOCALS, "", "＆")%に%EXTSTR(LOCALS, "＆")%
	ELSEIF STRCOUNTS(LOCALS, "姿", "全裸") == 0
		LOCALS += "姿"
	ENDIF
ENDSELECT

RETURNF LOCALS