code:
;-------------------------------------------------
;角色ARGに装扮ARGSを着せる
;衣装を変えた場合は着替えたとみなす
;-------------------------------------------------
@SET_COORDINATE, ARGS, ARG
#DIM LCOUNT
;換装前の衣装の記録
#DIMS BEFORE_CLO
#DIMS AFTER_CLO
#DIM MEMO_TARGET
#DIMS BEFORE_UNDERWEAR
#DIMS AFTER_UNDERWEAR

MEMO_TARGET = TARGET

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

SELECTCASE ARGS
CASE "内衣"
	IF CEVENT("内衣固定") == 0
		IF COND("所持内衣数")
			CALL SETFLAG, "所持内衣に更衣", TARGET
		ELSE
			TRYCALLFORM CLOTHES_K{NO:TARGET}, "内衣"
		ENDIF
		TFLAG:换上了自己的内衣 = 1
		;换上了自己的内衣場合には色を合わせる
		CALL EQ_CLOCOLOR, TARGET
	ENDIF
CASEELSE
	VARSET BEFORE_CLO
	VARSET AFTER_CLO
	CALL DEL_CEVENT, "内衣固定"
	;着ていた服を記憶する。一致するかを見るだけなので文字列コピーで良い
	STR:変更衣装 = %ARGS%
	CALL SETFLAG, "衣装の記録", TARGET

	;内衣以外のフラグは消去
	CALL SETFLAG, "内衣以外全脱ぎ", TARGET
	CALL SET_OTHER, ""

	;常につけている飾品があるならそれをつける
	TRYCALLFORM CLOTHES_K{NO:TARGET}, "飾品"

	BEFORE_CLO = %CSTR:胖次%_%CSTR:胸罩%_%CSTR:服%_%CSTR:裙%_%CSTR:贴身制服%_%CSTR:外套%_%CSTR:襪子%_%CSTR:靴%_%CSTR:手套%_%CSTR:飾品%
	BEFORE_UNDERWEAR = %CSTR:胖次%_%CSTR:胸罩%

	TFLAG:着替えた = 0
	CFLAG:CIP発生済 = 0

	SELECTCASE ARGS
	;角色衣装
	CASE "制服", "体操服", "泳装", "便装", "居家服", "外出装", "约会衣装", "朝袭衣装", "夜袭衣装"
		TRYCALLFORM CLOTHES_K{NO:TARGET}, ARGS

		SELECTCASE ARGS
		CASE "制服", "便装", "外出装"
			;服装ごとの固定内衣がある場合
			IF @"%CSTR:胖次%_%CSTR:胸罩%" != BEFORE_UNDERWEAR
			;所持内衣の設定有
			ELSEIF COND("所持内衣数") && COND("内衣穿き替え領帯ミング") && RAND:3
				CALL SETFLAG, "所持内衣に更衣", TARGET
			;内衣を変えないことも
			ELSEIF COND("内衣穿き替え領帯ミング") == 0 && RAND:4
				STR:換装衣装 = %BEFORE_UNDERWEAR%
				CALL SETFLAG, "内衣の換装", TARGET
			ENDIF
		CASE "体操服"
			IF CHECK_PANTIES("布鲁马")
			;内衣を変えないことも
			ELSEIF COND("内衣穿き替え領帯ミング") == 0 || STRCOUNT(BEFORE_UNDERWEAR, "所持内衣")
				STR:換装衣装 = %BEFORE_UNDERWEAR%
				CALL SETFLAG, "内衣の換装", TARGET
			;所持内衣の設定有
			ELSEIF COND("所持内衣数") && COND("内衣穿き替え領帯ミング")
				CALL SETFLAG, "所持内衣に更衣", TARGET
			ENDIF
		ENDSELECT
		AFTER_CLO = %CSTR:胖次%_%CSTR:胸罩%_%CSTR:服%_%CSTR:裙%_%CSTR:贴身制服%_%CSTR:外套%_%CSTR:襪子%_%CSTR:靴%_%CSTR:手套%_%CSTR:飾品%

		;着替えが起きていない場合は適当なものを呼び出して着せる
		IF BEFORE_CLO == AFTER_CLO && TFLAG:着替えた == 0
			SELECTCASE ARGS
			CASE "制服", "体操服", "泳装", "居家服"
				TRYCALLFORM CLOTHES_K{NO:TARGET}, "便装"
			CASE "外出装"
				IF COND("夜") || PLACE("自宅") || PLACE("野外") || PLACE("情人旅館")
					TRYCALLFORM CLOTHES_K{NO:TARGET}, "便装"
				ELSE
					TRYCALLFORM CLOTHES_K{NO:TARGET}, "制服"
				ENDIF
			CASE "约会衣装"
				TRYCALLFORM CLOTHES_K{NO:TARGET}, "便装"
			CASE "朝袭衣装"
				IF CFLAG:夜型
					TRYCALLFORM CLOTHES_K{NO:TARGET}, "便装"
				ELSE
					TRYCALLFORM CLOTHES_K{NO:TARGET}, "制服"
					SIF BEFORE_CLO == AFTER_CLO && TFLAG:着替えた == 0
						TRYCALLFORM CLOTHES_K{NO:TARGET}, "便装"
				ENDIF
				SIF COND("外套脱衣発生")
					CALL RESET_OTHER, "外套", TARGET
			CASE "夜袭衣装"
				TRYCALLFORM CLOTHES_K{NO:TARGET}, "便装"
				SIF COND("外套脱衣発生")
					CALL RESET_OTHER, "外套", TARGET
			ENDSELECT
		ENDIF
	;イベントデーの特別な衣装
	CASE "新年", "猫の日", "女仆の日", "比基尼の日", "七夕", "兔女郎の日", "万圣节", "圣诞节"
		TRYCALLFORM CLOTHES_K{NO:TARGET}, ARGS
		AFTER_CLO = %CSTR:胖次%_%CSTR:胸罩%_%CSTR:服%_%CSTR:裙%_%CSTR:贴身制服%_%CSTR:外套%_%CSTR:襪子%_%CSTR:靴%_%CSTR:手套%_%CSTR:飾品%

		;着替えが起きていない場合は適当なものを呼び出して着せる
		IF BEFORE_CLO == AFTER_CLO && TFLAG:着替えた == 0
			SELECTCASE ARGS
			CASE "女仆の日"
				IF TALENT:男性 && COND("伪娘") == 0
					CALL SETFLAG, "衣装記録からの復元", TARGET
				ELSE
					CALL SET_COSTUME, "女仆装"
				ENDIF
			CASE "比基尼の日"
				IF TALENT:男性 && COND("伪娘") == 0
					CALL SETFLAG, "衣装記録からの復元", TARGET
				ELSE
					CALL SET_COSTUME, "比基尼"
				ENDIF
			CASE "兔女郎の日"
				IF TALENT:男性 && COND("伪娘") == 0
					CALL SETFLAG, "衣装記録からの復元", TARGET
				ELSEIF COND("合意：露出PLAY") && RAND:3 == 0
					CALL SET_COSTUME, "逆兔女郎"
				ELSE

					IF (TALENT:魅力 || TALENT:喜歡引人注目 || ABL:露出癖 >= 5) && RAND:2
						CALL SET_COSTUME, "高開衩兔女郎服制服"
					ELSE
						CALL SET_COSTUME, "兔女郎制服"
					ENDIF

					;変化を付ける事も
					SIF TALENT:小悪魔 || TALENT:好色
						CSTR:贴身制服 += "带拉链的/"
				ENDIF
			CASE "新年"
				IF TALENT:男性
					CALL SETFLAG, "衣装記録からの復元", TARGET
				ELSE
					CALL SET_COSTUME, "振袖"
				ENDIF
			CASE "七夕"
				IF TALENT:男性
					CALL SETFLAG, "衣装記録からの復元", TARGET
				ELSE
					CALL SET_COSTUME, "浴衣"
				ENDIF
			CASE "圣诞节"
				IF TALENT:男性 || COND("夜") == 0
					CALL SETFLAG, "衣装記録からの復元", TARGET
				ELSE
					CALL SET_COSTUME, "聖誕服"
				ENDIF
			CASEELSE
				SIF BEFORE_CLO == AFTER_CLO && TFLAG:着替えた == 0
					CALL SETFLAG, "衣装記録からの復元", TARGET
			ENDSELECT
		ENDIF
	;それ以外はコスチュームARGSを着せる
	CASEELSE
		CALL SET_COSTUME, ARGS, TARGET
	ENDSELECT

	;共通属性を着けて、EQUIPを見る
	CALL CHECK_ALLCLOFLAG, TARGET

	;着替えた後の衣装
	AFTER_CLO = %CSTR:胖次%_%CSTR:胸罩%_%CSTR:服%_%CSTR:裙%_%CSTR:贴身制服%_%CSTR:外套%_%CSTR:襪子%_%CSTR:靴%_%CSTR:手套%_%CSTR:飾品%
	AFTER_UNDERWEAR = %CSTR:胖次%_%CSTR:胸罩%

	;胖次と胸罩の変更が起きた場合はロックする
	SIF BEFORE_UNDERWEAR != AFTER_UNDERWEAR
		CALL SET_CEVENT, "内衣固定"

	;着替えた場合はフラグON
	IF STR:衣装記録 != AFTER_CLO
		CALL SETFLAG, "着替えをした"

		;泳装などに着替えた場合はそれまでの内衣をしまう
		IF CHECK_CLO("泳装姿") || EQUIP:贴身制服
			CALL SETFLAG, "内衣をしまう"
		ELSE
			;しまった内衣があるなら身に着ける
			CALL SETFLAG, "しまった内衣を身に着ける"
		ENDIF
	ENDIF
	;连褲襪指定してる？
	SIF CHECK_OUTER("连褲襪")
		CALL SETFLAG, "请求换上连褲襪", TARGET
ENDSELECT

;胖次の着用禁止
SIF CHECK_CLO("泳装姿") == 0 && COND("身嗜み：没穿内褲")
	CALL SET_PANTIES, ""
SIF CFLAG:電源BOX && CHECK_CLO("電源BOX保持可能") == 0
	CFLAG:電源BOX = 0

TARGET = MEMO_TARGET

;-------------------------------------------------
;角色ARGにコスチュームARGSを着せる。ARGSは/で区切って追加属性をくっつける事も出来る
;例）CALL SET_COSTUME, "水手服/白" とすると、水手服に対応したCSTRに本来の文字列に加えて 白/ が追加される
;（色を変更する場合には、元からあったものを上書きするので複数の色を持つ衣装になる心配はしなくてよい）
;主にコスチュームの色を変更したい時に使うと良い
;-------------------------------------------------
@SET_COSTUME, ARGS, ARG
#DIMS MEMO_COS
;追加で記述された属性を一時的に保管する
#DIMS STR_ADD

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

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

SELECTCASE ARGS
CASE "女教師"
	CALL SET_SHIRT, @"蝴蝶結領帯丝巾女式衬衫/女教師/%STR_ADD%", ARG
	CALL SET_SKIRT, "紧身裙", ARG
	CALL SET_OUTER, "開放型连褲襪", ARG
	CALL SET_SHOES, "平底鞋", ARG
CASE "和服"
	CALL SET_SHIRT, @"和服/%STR_ADD%", ARG
	CALL SET_SOCKS, "短布襪", ARG
	CALL SET_SHOES, "草履", ARG
CASE "紋付袴"
	CALL SET_SHIRT, @"紋付袴/%STR_ADD%", ARG
	CALL SET_OUTER, "馬上袴", ARG
	CALL SET_SOCKS, "短布襪", ARG
	CALL SET_SHOES, "草履", ARG

CASE "執事服"
	CALL SET_SHIRT, @"執事服/%STR_ADD%", ARG
	CALL SET_OUTER, "西褲", ARG
	CALL SET_GLOVE, "絹手套", ARG
	CALL SET_SOCKS, "襪子", ARG
	CALL SET_SHOES, "革靴", ARG

CASE "女仆装"
	CALL SET_SHIRT, @"女仆装/%STR_ADD%", ARG
	CALL SET_SOCKS, "吊帯襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
	CALL SET_OTHER, "颈环/礼服頭花", ARG
CASE "法式女仆装"
	CALL SET_SHIRT, @"法式女仆装/%STR_ADD%", ARG
	CALL SET_SOCKS, "吊帯襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
	CALL SET_OTHER, "颈环/礼服頭花", ARG
CASE "圍裙"
	CALL SET_SHIRT, @"圍裙/%STR_ADD%", ARG
CASE "修女服"
	CALL SET_SHIRT, @"修道服/%STR_ADD%", ARG
	CALL SET_SOCKS, "吊帯長筒襪", ARG
	CALL SET_SHOES, "短靴", ARG
	CALL SET_OTHER, "修女帽", ARG
CASE "护士"
	CALL SET_SHIRT, @"护士服/%STR_ADD%", ARG
	CALL SET_SOCKS, "長筒襪", ARG
	CALL SET_SHOES, "凉鞋", ARG
	CALL SET_OTHER, "护士帽", ARG
CASE "旗袍"
	CALL SET_SHIRT, @"旗袍/%STR_ADD%", ARG
	CALL SET_SHOES, "高跟鞋", ARG
CASE "開胸旗袍"
	CALL SET_SHIRT, @"開胸旗袍/%STR_ADD%", ARG
	CALL SET_SHOES, "高跟鞋", ARG
CASE "巫女"
	CALL SET_SHIRT, @"巫女服/%STR_ADD%", ARG
	CALL SET_SKIRT, "緋袴", ARG
	CALL SET_SOCKS, "短布襪", ARG
	CALL SET_SHOES, "草履", ARG
CASE "婚纱礼服"
	CALL SET_SHIRT, @"婚纱礼服/%STR_ADD%", ARG
	CALL SET_SOCKS, "吊帯長筒襪", ARG
	CALL SET_GLOVE, "絲綢手套", ARG
	CALL SET_SHOES, "平底鞋", ARG
	CALL SET_OTHER, "頭冠/頭纱", ARG

CASE "啦啦队制服"
	CALL SET_SHIRT, @"啦啦队制服/%STR_ADD%", ARG
	CALL SET_SKIRT, "迷你百褶裙/赤", ARG
	CALL SET_SOCKS, "褶边襪", ARG
	CALL SET_SHOES, "運動鞋", ARG
CASE "拘束衣"
	CALL SET_PANTIES, @"拘束衣胖次/%STR_ADD%", ARG
	CALL SET_BRA, @"拘束衣胸罩/%STR_ADD%", ARG
	CALL SET_GLOVE, "皮革手套", ARG
	CALL SET_SHOES, "靴", ARG
CASE "紐拘束衣"
	CALL SET_PANTIES, @"開放型拘束衣胖次/%STR_ADD%", ARG
	CALL SET_BRA, @"紐拘束衣胸罩/%STR_ADD%", ARG
	CALL SET_GLOVE, "皮革手套", ARG
	CALL SET_SHOES, "靴", ARG
CASE "兔女郎制服", "兔"
	CALL SET_BODYS, @"兔女郎制服/%STR_ADD%", ARG
	CALL SET_OUTER, "网纹褲襪", ARG
	CALL SET_SHOES, "高跟鞋", ARG
	CALL SET_OTHER, "蝶形領帯/兔耳", ARG
CASE "高開衩兔女郎服制服", "高開衩兔女郎服"
	CALL SET_BODYS, @"高開衩兔女郎服制服/%STR_ADD%", ARG
	CALL SET_OUTER, "网纹褲襪", ARG
	CALL SET_SHOES, "高跟鞋", ARG
	CALL SET_OTHER, "蝶形領帯/兔耳", ARG
CASE "生足兔女郎制服"
	CALL SET_BODYS, @"兔女郎制服/%STR_ADD%", ARG
	CALL SET_SHOES, "高跟鞋", ARG
	CALL SET_OTHER, "蝶形領帯/兔耳", ARG
CASE "连褲襪兔女郎制服"
	CALL SET_BODYS, @"兔女郎制服/%STR_ADD%", ARG
	CALL SET_OUTER, "连褲襪", ARG
	CALL SET_SHOES, "高跟鞋", ARG
	CALL SET_OTHER, "蝶形領帯/兔耳", ARG
CASE "褲襪兔女郎制服"
	CALL SET_BODYS, @"兔女郎制服/%STR_ADD%", ARG
	CALL SET_OUTER, "褲襪", ARG
	CALL SET_SHOES, "高跟鞋", ARG
	CALL SET_OTHER, "蝶形領帯/兔耳", ARG
CASE "開放型连褲襪兔女郎制服"
	CALL SET_BODYS, @"兔女郎制服/%STR_ADD%", ARG
	CALL SET_OUTER, "開放型连褲襪", ARG
	CALL SET_SHOES, "高跟鞋", ARG
	CALL SET_OTHER, "蝶形領帯/兔耳", ARG
CASE "開放型褲襪兔女郎制服"
	CALL SET_BODYS, @"兔女郎制服/%STR_ADD%", ARG
	CALL SET_OUTER, "開放型褲襪", ARG
	CALL SET_SHOES, "高跟鞋", ARG
	CALL SET_OTHER, "蝶形領帯/兔耳", ARG
CASE "開放型网纹褲襪兔女郎制服"
	CALL SET_BODYS, @"兔女郎制服/%STR_ADD%", ARG
	CALL SET_OUTER, "開放型网纹褲襪", ARG
	CALL SET_SHOES, "高跟鞋", ARG
	CALL SET_OTHER, "蝶形領帯/兔耳", ARG
;他にもいろいろバリエーションあるかも…？
CASE "逆兔女郎", "逆兔女郎套装"
	CALL SET_SHIRT, @"逆兔女郎套装/%STR_ADD%", ARG
	CALL SET_GLOVE, "礼服手套/黒", ARG
	CALL SET_SOCKS, "逆兔女郎褲襪", ARG
	CALL SET_SHOES, "高跟鞋", ARG
	CALL SET_OTHER, "兔耳", ARG
	IF TALENT:ARG:男性
		CALL SET_PANTIES, "丁字褲", ARG
	ELSE
		CALL SET_PANTIES, "Ｃ胖次", ARG
	ENDIF
	CALL SET_BRA, "心形乳貼", ARG
CASE "全裸兔"
	CALL SETFLAG, "扒成裸体", ARG
	IF CONDS("顔の色") == "色白"
		CALL SET_GLOVE, "絲綢手套/黒"
	ELSE
		CALL SET_GLOVE, "絲綢手套"
	ENDIF
	CALL SET_SOCKS, "褶边短襪", ARG
	CALL SET_SHOES, "高跟鞋", ARG
	IF STR_ADD != ""
		CALL SET_OTHER, @"蝶形領帯/兔耳(%STR_ADD%)/腿环", ARG
	ELSE
		CALL SET_OTHER, "蝶形領帯/兔耳/腿环", ARG
	ENDIF

CASE "猫内衣"
	CALL SET_PANTIES, @"肉球印花胖次/%STR_ADD%", ARG
	CALL SET_BRA, "猫型胸罩", ARG
	SIF TALENT:ARG:動物耳 == 0
		CALL SET_OTHER, "猫耳", ARG
CASE "浴衣"
	CALL SET_SHIRT, @"浴衣/%STR_ADD%", ARG
	CALL SET_SHOES, "木屐", ARG
CASE "振袖"
	CALL SET_SHIRT, @"振袖/%STR_ADD%", ARG
	CALL SET_SOCKS, "短布襪", ARG
	CALL SET_SHOES, "草履", ARG
	CALL SET_OTHER, "簪子", ARG
CASE "羽織袴"
	CALL SET_SHIRT, @"和服/%STR_ADD%", ARG
	CALL SET_OUTER, "馬上袴", ARG
	CALL SET_OTHER, "羽織", ARG
	CALL SET_SOCKS, "短布襪", ARG
	CALL SET_SHOES, "草履", ARG

CASE "聖誕服"
	CALL SET_SHIRT, @"聖誕服/%STR_ADD%", ARG
	CALL SET_SOCKS, "及膝襪", ARG
	CALL SET_SHOES, "靴", ARG
	CALL SET_OTHER, "聖誕帽", ARG
CASE "聖誕服男"
	CALL SET_SHIRT, @"聖誕服/%STR_ADD%", ARG
	CALL SET_OUTER, "圣诞休闲褲", ARG
	CALL SET_SOCKS, "短襪", ARG
	CALL SET_SHOES, "靴", ARG
	CALL SET_OTHER, "聖誕帽", ARG

CASE "水手服"
	CALL SET_SHIRT, @"水手服/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "百褶裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "露脐装超短裙水手服"
	CALL SET_SHIRT, @"水手服/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "迷你百褶裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "超短水手服"
	CALL SET_SHIRT, @"超短水手服/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "Micro百褶裙", ARG
	CALL SET_SOCKS, "及膝襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "无袖水手服"
	CALL SET_SHIRT, @"无袖水手服/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "百褶裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG

CASE "西装外衣"
	CALL SET_SHIRT, @"蝴蝶結領帯丝巾西装外衣/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "露脐装超短裙西装外衣"
	CALL SET_SHIRT, @"蝴蝶結領帯丝巾西装外衣/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "迷你格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "超短迷你西装外衣"
	CALL SET_SHIRT, @"蝴蝶結領帯丝巾西装外衣/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "Micro格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG

CASE "領帶西装"
	CALL SET_SHIRT, @"領帶西装/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "露脐装超短裙領帶西装"
	CALL SET_SHIRT, @"領帶西装/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "迷你格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "超短迷你領帶西装"
	CALL SET_SHIRT, @"領帶西装/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "Micro格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG

CASE "男子西装"
	CALL SET_SHIRT, @"男子西装/学生服/%STR_ADD%", ARG
	CALL SET_OUTER, "西褲", ARG
	CALL SET_SOCKS, "襪子", ARG
	CALL SET_SHOES, "運動鞋", ARG

CASE "女式衬衫"
	CALL SET_SHIRT, @"女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "露脐装超短裙女式衬衫"
	CALL SET_SHIRT, @"女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "迷你格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "超短迷你女式衬衫"
	CALL SET_SHIRT, @"女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "Micro格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG

CASE "領帯女式衬衫"
	CALL SET_SHIRT, @"領帯女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "露脐装超短裙領帯女式衬衫"
	CALL SET_SHIRT, @"領帯女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "迷你格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "超短迷你領帯女式衬衫"
	CALL SET_SHIRT, @"領帯女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "Micro格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG

CASE "蝴蝶結領帯丝巾女式衬衫"
	CALL SET_SHIRT, @"蝴蝶結領帯丝巾女式衬衫/%STR_ADD%", ARG
	CALL SET_SKIRT, "紧身裙", ARG
	CALL SET_SOCKS, "吊帯長筒襪", ARG
	CALL SET_SHOES, "高跟鞋", ARG

CASE "宽松女式衬衫"
	CALL SET_SHIRT, @"宽松女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "露脐装超短裙宽松女式衬衫"
	CALL SET_SHIRT, @"宽松女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "迷你格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "超短迷你宽松女式衬衫"
	CALL SET_SHIRT, @"宽松女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "Micro格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "露脐女式衬衫"
	CALL SET_SHIRT, @"露脐女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "迷你格子裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG

CASE "背心"
	CALL SET_SHIRT, @"背心/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "百褶裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "露脐装超短裙背心"
	CALL SET_SHIRT, @"背心/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "迷你百褶裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "超短迷你背心"
	CALL SET_SHIRT, @"背心/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "Micro百褶裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "男子背心"
	CALL SET_SHIRT, @"男子背心/学生服/%STR_ADD%", ARG
	CALL SET_OUTER, "休闲褲", ARG
	CALL SET_SOCKS, "襪子", ARG
	CALL SET_SHOES, "運動鞋", ARG

CASE "V领毛衣"
	CALL SET_SHIRT, @"V领毛衣/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "百褶裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "露脐装超短裙V领毛衣"
	CALL SET_SHIRT, @"V领毛衣/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "迷你百褶裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
CASE "超短迷你V领毛衣"
	CALL SET_SHIRT, @"V领毛衣/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "Micro百褶裙", ARG
	CALL SET_SOCKS, "膝下襪", ARG
	CALL SET_SHOES, "小皮靴", ARG

CASE "美式校服"
	CALL SET_SHIRT, @"美式校服女式衬衫/学生服/%STR_ADD%", ARG
	CALL SET_SKIRT, "Micro格子裙", ARG
	CALL SET_SOCKS, "及膝襪", ARG
	CALL SET_SHOES, "小皮靴", ARG
	CALL SET_OTHER, "領帯", ARG

CASE "校服"
	CALL SET_SHIRT, @"校服/学生服/%STR_ADD%", ARG
	CALL SET_OUTER, "学生休闲褲", ARG
	CALL SET_SOCKS, "襪子", ARG
	CALL SET_SHOES, "運動鞋", ARG

CASE "体操服布鲁马", "体操服高開衩布鲁马", "体操服五分褲", "体操服紧身短褲", "体操服运动衫"
	SELECTCASE ARGS
	CASE "体操服高開衩布鲁马"
		CALL SET_SHIRT, @"体操服(短)/%STR_ADD%", ARG
	CASEELSE
		CALL SET_SHIRT, @"体操服/%STR_ADD%", ARG
	ENDSELECT

	SELECTCASE ARGS
	CASE "体操服布鲁马"
		CALL SET_OUTER, "布鲁马", ARG
	CASE "体操服高開衩布鲁马"
		CALL SET_PANTIES, "高開衩布鲁马", ARG
	CASE "体操服五分褲"
		CALL SET_OUTER, "五分褲", ARG
	CASE "体操服紧身短褲"
		CALL SET_OUTER, "紧身短褲", ARG
	CASE "体操服运动衫"
		CALL SET_OUTER, "运动衫休闲褲", ARG
	ENDSELECT
	CALL SET_SOCKS, "短襪", ARG
	CALL SET_SHOES, "運動鞋", ARG

CASE "运动衫布鲁马", "运动衫高開衩布鲁马", "运动衫五分褲", "运动衫紧身短褲", "上下运动衫"
	CALL SET_SHIRT, @"运动衫/%STR_ADD%", ARG
	SELECTCASE ARGS
	CASE "运动衫布鲁马"
		CALL SET_OUTER, "布鲁马", ARG
	CASE "运动衫高開衩布鲁马"
		CALL SET_PANTIES, "高開衩布鲁马", ARG
	CASE "运动衫五分褲"
		CALL SET_OUTER, "五分褲", ARG
	CASE "运动衫紧身短褲"
		CALL SET_OUTER, "紧身短褲", ARG
	CASE "上下运动衫"
		CALL SET_OUTER, @"运动衫休闲褲/%STR_ADD%", ARG
	ENDSELECT
	CALL SET_SOCKS, "短襪", ARG
	CALL SET_SHOES, "運動鞋", ARG

CASE "前開运动衫布鲁马"
	CALL SET_SHIRT, @"体操服/%STR_ADD%", ARG
	CALL SET_OUTER, "布鲁马", ARG
	CALL SET_SOCKS, "短襪", ARG
	CALL SET_SHOES, "運動鞋", ARG
	CALL SET_OTHER, "前開运动衫", ARG
CASE "Ｔ恤运动衫"
	CALL SET_SHIRT, @"Ｔ恤/%STR_ADD%", ARG
	CALL SET_OUTER, "运动衫休闲褲", ARG
	CALL SET_SOCKS, "短襪", ARG
	CALL SET_SHOES, "運動鞋", ARG

CASE "工装裤"
	CALL SET_OUTER, @"工装裤/%STR_ADD%", ARG
	CALL SET_SHIRT, @"Ｔ恤", ARG
CASE "死库水"
	CALL SET_BODYS, @"死库水/%STR_ADD%", ARG
CASE "新死库水"
	CALL SET_BODYS, @"新死库水/%STR_ADD%", ARG
CASE "紧身短褲型死库水"
	CALL SET_BODYS, @"紧身短褲型死库水/%STR_ADD%", ARG
CASE "競泳泳装"
	CALL SET_BODYS, @"競泳泳装/%STR_ADD%", ARG
CASE "高開衩競泳泳装"
	CALL SET_BODYS, @"高開衩競泳泳装/%STR_ADD%", ARG
CASE "比基尼"
	CALL SET_PANTIES, @"比基尼/%STR_ADD%", ARG
	CALL SET_BRA, "褶边比基尼胸罩", ARG
	CALL SET_SHOES, "凉鞋", ARG
CASE "紐比基尼"
	CALL SET_PANTIES, @"紐比基尼/%STR_ADD%", ARG
	CALL SET_BRA, "比基尼胸罩", ARG
	CALL SET_SHOES, "凉鞋", ARG
CASE "Ｔ字褲比基尼"
	CALL SET_PANTIES, @"Ｔ字褲比基尼/%STR_ADD%", ARG
	CALL SET_BRA, "褶边比基尼胸罩", ARG
	CALL SET_SHOES, "凉鞋", ARG
CASE "紐Ｔ字褲比基尼"
	CALL SET_PANTIES, @"紐Ｔ字褲比基尼/%STR_ADD%", ARG
	CALL SET_BRA, "比基尼胸罩", ARG
	CALL SET_SHOES, "凉鞋", ARG
CASE "丁字褲比基尼"
	CALL SET_PANTIES, @"丁字褲比基尼/%STR_ADD%", ARG
	CALL SET_BRA, "褶边比基尼胸罩", ARG
	CALL SET_SHOES, "凉鞋", ARG
CASE "紐丁字褲比基尼"
	CALL SET_PANTIES, @"紐丁字褲比基尼/%STR_ADD%", ARG
	CALL SET_BRA, "比基尼胸罩", ARG
	CALL SET_SHOES, "凉鞋", ARG
CASE "白比基尼"
	CALL SET_PANTIES, @"白色比基尼/%STR_ADD%", ARG
	CALL SET_BRA, "白色比基尼胸罩", ARG
	CALL SET_SHOES, "凉鞋", ARG
CASE "黒比基尼"
	CALL SET_PANTIES, @"黑色比基尼/%STR_ADD%", ARG
	CALL SET_BRA, "黑色比基尼胸罩", ARG
	CALL SET_SHOES, "凉鞋", ARG
CASE "Micro比基尼"
	CALL SET_PANTIES, @"Micro比基尼/%STR_ADD%", ARG
	CALL SET_BRA, "Micro比基尼胸罩", ARG
	CALL SET_SHOES, "凉鞋", ARG
CASE "淚珠泳衣比基尼", "淚珠泳衣"
	CALL SET_PANTIES, @"淚珠泳衣比基尼/%STR_ADD%", ARG
	CALL SET_BRA, "Micro比基尼胸罩", ARG
	CALL SET_SHOES, "凉鞋", ARG

CASE "衝浪胖次"
	CALL SET_PANTIES, @"衝浪胖次/%STR_ADD%", ARG
	CALL SET_BRA, "", ARG
	CALL SET_SHOES, "凉鞋", ARG

CASE @"%CALLNAME:MASTER%の衬衫"
	CALL SET_SHIRT, @"%CALLNAME:MASTER%の衬衫/%STR_ADD%", ARG

;これは今年の泳装を用意してあるのが前提
CASE "今年の泳装"
	CALL SETFLAG, "今年の泳装の復元", ARG
ENDSELECT
SIF CHECK_OUTER("休闲褲", ARG) && CHECK_SHIRT("和裤子颜色搭配", ARG) && CHECK_CUSEABLE(OUTER(ARG, "種類"), CLOCOLOR(CSTR:ARG:服), ARG)
	CSTR:ARG:外套 = %MERGE_STR(CSTR:ARG:外套, CLOCOLOR(CSTR:ARG:服) )%

;-------------------------------------------------
;服装ARGSのパターンがあるならそれを並べる
;ARGSにはNAME_LASTCHOICE, ARGS:1にはTYPE_LASTCHOICEが入ってるのを想定
;-------------------------------------------------
@CLO_PAT(ARGS, ARGS:1)
#FUNCTIONS
#DIMS NAME_LASTCHOICE
#DIMS TYPE_LASTCHOICE

NAME_LASTCHOICE = %ARGS%
TYPE_LASTCHOICE = %ARGS:1%

SELECTCASE NAME_LASTCHOICE
CASE "水手服", "无袖水手服", "露脐装超短裙水手服", "超短水手服"
	SELECTCASE TYPE_LASTCHOICE
	CASE "装扮"
		RETURNF "水手服/无袖水手服/露脐装超短裙水手服/超短水手服"
	CASEELSE
		RETURNF "水手服/无袖水手服/超短水手服"
	ENDSELECT
CASE "西装外衣", "領帶西装", "露脐装超短裙西装外衣", "露脐装超短裙領帶西装", "男子西装"
	SELECTCASE TYPE_LASTCHOICE
	CASE "装扮"
		RETURNF "西装外衣/領帶西装/露脐装超短裙西装外衣/露脐装超短裙領帶西装/男子西装"
	CASEELSE
		RETURNF "西装外衣/領帶西装/男子西装"
	ENDSELECT
CASE "女式衬衫", "領帯女式衬衫", "蝴蝶結領帯丝巾女式衬衫", "宽松女式衬衫", "褶边女式衬衫", "蕾丝女式衬衫", "露脐女式衬衫"
	SELECTCASE TYPE_LASTCHOICE
	CASE "装扮"
		RETURNF "女式衬衫/領帯女式衬衫/蝴蝶結領帯丝巾女式衬衫/宽松女式衬衫/露脐女式衬衫"
	CASEELSE
		RETURNF "女式衬衫/領帯女式衬衫/蝴蝶結領帯丝巾女式衬衫/宽松女式衬衫/露脐女式衬衫/褶边女式衬衫/蕾丝女式衬衫"
	ENDSELECT

CASE "无袖女式衬衫", "无袖女式衬衫Ｂ", "露脐无袖女式衬衫", "領帯无袖女式衬衫", "露脐領帯无袖女式衬衫"
	RETURNF "无袖女式衬衫/无袖女式衬衫Ｂ/露脐无袖女式衬衫/領帯无袖女式衬衫/露脐領帯无袖女式衬衫"

CASE "背心", "露脐装超短裙背心", "男子背心"
	SELECTCASE TYPE_LASTCHOICE
	CASE "装扮"
		RETURNF "背心/露脐装超短裙背心/男子背心"
	CASEELSE

	ENDSELECT
CASE "V领毛衣", "露脐装超短裙V领毛衣"
	SELECTCASE TYPE_LASTCHOICE
	CASE "装扮"
		RETURNF "V领毛衣/露脐装超短裙V领毛衣"
	CASEELSE

	ENDSELECT
CASE "体操服布鲁马", "体操服高開衩布鲁马", "前開运动衫布鲁马", "运动衫布鲁马"
	RETURNF "体操服布鲁马/体操服高開衩布鲁马/前開运动衫布鲁马/运动衫布鲁马"
CASE "体操服五分褲", "运动衫五分褲"
	RETURNF "体操服五分褲/运动衫五分褲"
CASE "体操服紧身短褲", "运动衫紧身短褲"
	RETURNF "体操服紧身短褲/运动衫紧身短褲"
CASE "体操服运动衫", "上下运动衫"
	RETURNF "体操服运动衫/上下运动衫"
CASE "連衣裙", "褶边連衣裙", "露肩連衣裙", "哥特連衣裙", "洛丽塔連衣裙"
	RETURNF "連衣裙/褶边連衣裙/露肩連衣裙/哥特連衣裙/洛丽塔連衣裙"
CASE "格子連衣裙", "格子連衣裙黒蝴蝶結", "格子連衣裙Ｂ", "格子連衣裙Ｂ黒蝴蝶結"
	RETURNF "格子連衣裙/格子連衣裙黒蝴蝶結/格子連衣裙Ｂ/格子連衣裙Ｂ黒蝴蝶結"

CASE "拘束衣", "紐拘束衣"
	RETURNF "拘束衣/紐拘束衣"
CASE "兔女郎制服", "高開衩兔女郎服制服"
	RETURNF "兔女郎制服/高開衩兔女郎服制服"
CASE "競泳泳装", "高開衩競泳泳装"
	RETURNF "競泳泳装/高開衩競泳泳装"

CASE "旗袍", "開胸旗袍"
	RETURNF "旗袍/開胸旗袍"
CASE "Ｔ恤", "宽大的Ｔ恤", "怪图案Ｔ恤"
	RETURNF "Ｔ恤/宽大的Ｔ恤/怪图案Ｔ恤"
CASE "皮革夹克", "恤皮革夹克"
	RETURNF "皮革夹克/恤皮革夹克"
CASE "中世紧身高袍", "紧身高袍"
	RETURNF "中世紧身高袍/紧身高袍"
CASE "运动衫", "詰襟运动衫"
	RETURNF "运动衫/詰襟运动衫"
CASE "吊帯背心", "露脐吊帯背心", "運動胸罩"
	SELECTCASE TYPE_LASTCHOICE
	CASE "外衣"
		RETURNF "吊帯背心/露脐吊帯背心"
	CASE "胸罩"
		RETURNF "吊帯背心/運動胸罩"
	ENDSELECT
CASE "吊帯衫", "露脐吊帯衫"
	RETURNF "吊帯衫/露脐吊帯衫"
CASE "連帽風衣", "无袖連帽風衣", "長連帽風衣"
	RETURNF "連帽風衣/无袖連帽風衣/長連帽風衣"

CASE "针织毛衣", "縦毛衣", "无袖毛衣", "露背针织毛衣", "萌袖毛衣"
	RETURNF "针织毛衣/縦毛衣/无袖毛衣/露背针织毛衣/萌袖毛衣"
CASE "高領毛衣", "開胸高領毛衣"
	RETURNF "高領毛衣/開胸高領毛衣"

CASE "热褲", "牛仔热褲", "迷你热褲", "前開热褲"
	RETURNF "热褲/牛仔热褲/迷你热褲/前開热褲"
CASE "休闲褲", "西褲", "前開休闲褲"
	RETURNF "休闲褲/西褲/前開休闲褲"
CASE "牛仔褲", "前開牛仔褲", "低腰牛仔褲"
	RETURNF "牛仔褲/前開牛仔褲/低腰牛仔褲"

CASE "连褲襪", "開放型连褲襪"
	RETURNF "连褲襪/開放型连褲襪"
CASE "网纹褲襪", "開放型网纹褲襪"
	RETURNF "网纹褲襪/開放型网纹褲襪"
CASE "褲襪", "開放型褲襪"
	RETURNF "褲襪/開放型褲襪"

CASE "百褶裙", "長百褶裙", "迷你百褶裙", "Micro百褶裙"
	RETURNF "百褶裙/長百褶裙/迷你百褶裙/Micro百褶裙"
CASE "格子裙", "長格子裙", "迷你格子裙", "Micro格子裙"
	RETURNF "格子裙/長格子裙/迷你格子裙/Micro格子裙"
CASE "紧身裙", "長紧身裙", "迷你紧身裙", "Micro紧身裙"
	RETURNF "紧身裙/長紧身裙/迷你紧身裙/Micro紧身裙"
CASE "荷葉邊", "花柄荷葉邊"
	RETURNF "荷葉邊/花柄荷葉邊"

CASE "內褲", "简约內褲"
	RETURNF "內褲/简约內褲"

CASE "褶边の胖次", "褶边高開衩"
	RETURNF "褶边の胖次/褶边高開衩"

CASE "比基尼", "紐比基尼", "Ｔ字褲比基尼", "紐Ｔ字褲比基尼"
	SELECTCASE TYPE_LASTCHOICE
	CASE "装扮"
		RETURNF "比基尼/紐比基尼/Ｔ字褲比基尼/紐Ｔ字褲比基尼/丁字褲比基尼/紐丁字褲比基尼"
	CASEELSE
		RETURNF "紐比基尼/比基尼/Ｔ字褲比基尼/紐Ｔ字褲比基尼"
	ENDSELECT

CASE "丁字褲", "紐丁字褲"
	RETURNF "紐丁字褲/丁字褲"
CASE "丁字褲比基尼", "紐丁字褲比基尼"
	SELECTCASE TYPE_LASTCHOICE
	CASE "装扮"
		RETURNF "比基尼/紐比基尼/Ｔ字褲比基尼/紐Ｔ字褲比基尼/丁字褲比基尼/紐丁字褲比基尼"
	CASEELSE
		RETURNF "紐丁字褲比基尼/丁字褲比基尼"
	ENDSELECT

CASE "四角内褲", "四角褲"
	RETURNF "四角内褲/四角褲"

CASE "满杯胸罩", "简约胸罩", "條紋胸罩"
	RETURNF "简约胸罩/满杯胸罩/條紋胸罩"
CASE "開放型胸罩", "１／４杯胸罩"
	RETURNF "開放型胸罩/１／４杯胸罩"
CASE "比基尼胸罩", "褶边比基尼胸罩", "Micro比基尼胸罩"
	RETURNF "比基尼胸罩/褶边比基尼胸罩/Micro比基尼胸罩"
CASE "抹胸", "裹胸布"
	RETURNF "抹胸/裹胸布"
CASE "乳贴", "心形乳貼", "圆形乳贴", "×型乳贴", "星型乳贴"
	RETURNF "乳贴/心形乳貼/圆形乳贴/×型乳贴/星型乳贴"
CASE "拘束衣胸罩", "紐拘束衣胸罩"
	RETURNF "拘束衣胸罩/紐拘束衣胸罩"

CASE "手套", "絹手套", "革手套"
	RETURNF "手套/絹手套/革手套"
CASE "礼服袖套", "皮革袖套"
	RETURNF "礼服袖套/皮革袖套"

CASE "襪子", "短襪"
	RETURNF "襪子/短襪"
CASE "褶边短襪", "褶边襪", "褶边过膝襪"
	RETURNF "褶边短襪/褶边襪/褶边过膝襪"
CASE "吊帯長筒襪", "吊帯襪"
	RETURNF "吊帯長筒襪/吊帯襪"

CASE "革靴", "莫卡辛软皮鞋"
	RETURNF "革靴/莫卡辛软皮鞋"
CASE "凉鞋", "无后跟鞋"
	RETURNF "凉鞋/无后跟鞋"
CASE "靴", "長靴", "短靴", "短筒女靴"
	RETURNF "靴/長靴/短靴/短筒女靴"

CASE "眼鏡", "专家眼鏡", "黑框眼鏡", "金丝眼鏡", "玳瑁眼鏡", "瓶底眼鏡", "圈圈眼鏡", "瓶底胡须眼鏡", "圈圈胡须眼鏡"
	RETURNF "眼鏡/专家眼鏡/黑框眼鏡/金丝眼鏡/玳瑁眼鏡/瓶底眼鏡/圈圈眼鏡/瓶底胡须眼鏡/圈圈胡须眼鏡"
CASE "太阳鏡", "頭上太阳鏡"
	RETURNF "太阳鏡/頭上太阳鏡"

CASE "前開連帽風衣", "前開无袖連帽風衣"
	RETURNF "前開連帽風衣/前開无袖連帽風衣"
CASE "外套", "粗呢外套"
	RETURNF "外套/粗呢外套"
CASE "工作围裙", "厨房围裙", "打工围裙", "圍裙"
	RETURNF "工作围裙/厨房围裙/打工围裙/圍裙"
CASE "裤吊带", "褶边裙吊带"
	RETURNF "裤吊带/褶边裙吊带"
ENDSELECT
RETURNF ""

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

SELECTCASE ARG
;0～19 Cosplay
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 = Micro比基尼
CASE 12
	LOCALS = 振袖
CASE 13
	LOCALS = 浴衣
CASE 14
	LOCALS = 淚珠泳衣比基尼
CASE 15
	LOCALS = 聖誕服
CASE 16
	LOCALS = 逆兔女郎

;20～39 制服
CASE 20
	LOCALS = 水手服
CASE 21
	LOCALS = 露脐装超短裙水手服
CASE 22
	LOCALS = 超短水手服

CASE 25
	LOCALS = 西装外衣
CASE 26
	LOCALS = 露脐装超短裙西装外衣

CASE 30
	LOCALS = 美式校服

CASE 35
	LOCALS = 蝴蝶結領帯丝巾女式衬衫

CASE 38
	LOCALS = 校服
CASE 39
	LOCALS = 男子西装

;40～59 体操服
CASE 40
	LOCALS = 体操服布鲁马
CASE 41
	LOCALS = 体操服五分褲
CASE 42
	LOCALS = 体操服紧身短褲
CASE 43
	LOCALS = 体操服运动衫

;60～79 泳装
CASE 60
	LOCALS = 死库水
CASE 61
	LOCALS = 競泳泳装
CASE 62
	LOCALS = 白比基尼
CASE 63
	LOCALS = 黒比基尼
CASE 64
	LOCALS = 奶牛比基尼
CASE 65
	LOCALS = 虎紋比基尼
ENDSELECT
RETURNF LOCALS


code:
;-------------------------------------------------
;文字列ARGSから泳装の種類や名称を返す
;ARGS:1が指定无だと泳装の概要を返す
;-------------------------------------------------
@SWIM(ARGS, ARGS:1)
#FUNCTIONS
#DIMS SUNTAN_TOP
#DIMS SUNTAN_BOT

SELECTCASE ARGS:1
CASE ""
	VARSET LOCALS
	SPLIT ARGS, "_", LOCALS
	RETURNF LOCALS:10
CASE "種類"
	IF STRCOUNT(ARGS, "男式比基尼")
		RETURNF "男式比基尼"
	ELSEIF STRCOUNT(ARGS, "衝浪胖次")
		RETURNF "衝浪胖次"
	ELSEIF STRCOUNT(ARGS, "紧身短褲型死库水")
		RETURNF "紧身短褲型死库水"

	ELSEIF STRCOUNT(ARGS, "淚珠泳衣")
		RETURNF "淚珠泳衣"
	ELSEIF STRCOUNT(ARGS, "丁字褲")
		RETURNF "丁字褲"
	ELSEIF STRCOUNT(ARGS, "Micro比基尼")
		RETURNF "Micro比基尼"
	ELSEIF STRCOUNT(ARGS, "比基尼")
		RETURNF "比基尼"
	ELSEIF STRCOUNT(ARGS, "高開衩競泳泳装")
		RETURNF "高開衩競泳泳装"
	ELSEIF STRCOUNT(ARGS, "競泳泳装")
		RETURNF "競泳泳装"
	ELSEIF STRCOUNT(ARGS, "新死库水")
		RETURNF "新死库水"
	ELSEIF STRCOUNT(ARGS, "死库水")
		RETURNF "死库水"

	;ワンピ系泳装はまだ画像が無い
	ELSEIF STRCOUNT(ARGS, "高開衩連衣裙")
		RETURNF "高開衩連衣裙"
	ELSEIF STRCOUNT(ARGS, "連体泳装")
		RETURNF "連体泳装"
	ELSEIF STRCOUNT(ARGS, "彈弓泳衣")
		RETURNF "彈弓泳衣"
	ENDIF

;基本的には種類と一緒だがセパレートなどを考慮
CASE "晒痕", "晒痕トップ", "晒痕ボトム"
	SUNTAN_TOP =
	SUNTAN_BOT =

	SELECTCASE ARGS:1
	CASE "晒痕", "晒痕ボトム"
		IF STRCOUNT(ARGS, "男式比基尼")
			SUNTAN_BOT += "男式比基尼"
		ELSEIF STRCOUNT(ARGS, "衝浪胖次")
			SUNTAN_BOT += "衝浪胖次"

		ELSEIF STRCOUNT(ARGS, "淚珠泳衣")
			SUNTAN_BOT += "淚珠泳衣"
		ELSEIF STRCOUNT(ARGS, "丁字褲")
			SUNTAN_BOT += "丁字褲"
		ELSEIF STRCOUNT(ARGS, "Micro比基尼")
			SUNTAN_BOT += "Micro比基尼"
		ELSEIF STRCOUNT(ARGS, "比基尼")
			SUNTAN_BOT += "比基尼"
		ELSEIF STRCOUNT(ARGS, "高開衩競泳泳装")
			SUNTAN_BOT += "高開衩競泳泳装"
		ELSEIF STRCOUNT(ARGS, "競泳泳装")
			SUNTAN_BOT += "競泳泳装"
		ELSEIF STRCOUNT(ARGS, "紧身短褲型死库水")
			;SUNTAN_TOP += "紧身短褲型死库水"
			SUNTAN_BOT += "新死库水"
		ELSEIF STRCOUNT(ARGS, "新死库水")
			SUNTAN_BOT += "新死库水"
		ELSEIF STRCOUNT(ARGS, "死库水")
			SUNTAN_BOT += "死库水"
		ENDIF
	ENDSELECT

	SELECTCASE ARGS:1
	CASE "晒痕", "晒痕トップ"
		IF STRCOUNT(ARGS, "褶边比基尼胸罩")
			SUNTAN_TOP += "褶边比基尼胸罩"
		ELSEIF STRCOUNT(ARGS, "Micro比基尼胸罩")
			SUNTAN_TOP += "Micro比基尼胸罩"
		ELSEIF STRCOUNT(ARGS, "比基尼胸罩")
			SUNTAN_TOP += "比基尼胸罩"
		ELSEIF STRCOUNT(ARGS, "高開衩競泳泳装")
			SUNTAN_TOP += "高開衩競泳泳装"
		ELSEIF STRCOUNT(ARGS, "競泳泳装")
			SUNTAN_TOP += "競泳泳装"
		ELSEIF STRCOUNT(ARGS, "紧身短褲型死库水")
			SUNTAN_TOP += "紧身短褲型死库水"
		ELSEIF STRCOUNT(ARGS, "新死库水")
			SUNTAN_TOP += "新死库水"
		ELSEIF STRCOUNT(ARGS, "死库水")
			SUNTAN_TOP += "死库水"
		ELSEIF STRCOUNT(ARGS, "吊帯衫")
			SUNTAN_TOP += "吊帯衫"
		ENDIF
	ENDSELECT
	SIF SUNTAN_BOT == SUNTAN_TOP
		SUNTAN_TOP =
	SIF ARGS:1 == "晒痕" && SUNTAN_BOT != "" && SUNTAN_TOP != ""
		RETURNF @"%SUNTAN_BOT%＆%SUNTAN_TOP%"
	RETURNF @"%SUNTAN_BOT%%SUNTAN_TOP%"

CASE "ボトム"
	IF STRCOUNT(ARGS, "荷葉邊")
		RETURNF "荷葉邊"
	ELSEIF STRCOUNT(ARGS, "短褲")
		RETURNF "短褲"
	ELSEIF STRCOUNT(ARGS, "热褲")
		RETURNF "热褲"
	ELSEIF STRCOUNT(ARGS, "迷你裙")
		RETURNF "迷你裙"
	ENDIF

CASE "外衣"
	IF STRCOUNT(ARGS, "吊帯衫")
		RETURNF "吊帯衫"
	ELSEIF STRCOUNT(ARGS, "运动衫")
		RETURNF "运动衫"
	ELSEIF STRCOUNT(ARGS, "Ｔ恤")
		RETURNF "Ｔ恤"
	ENDIF

ENDSELECT

RETURNF ""

;-------------------------------------------------
;泳装ARGSの名称に属性を勝手に付け加える
;CSTR:今年の泳装 = %ADDPALAM_SWIM("Micro比基尼")%の様にして使う
;-------------------------------------------------
@ADDPALAM_SWIM(ARGS)
#FUNCTIONS

;泳装本体の属性
SELECTCASE SWIM(ARGS, "種類")
CASE "男式比基尼"
	ARGS += "上半身露出/露脐/随意生長露出/男物/"
CASE "衝浪胖次"
	ARGS += "上半身露出/露脐/男物/"
CASE "淚珠泳衣"
	ARGS += "谷間露出/巨乳輪露出/露脐/下腹部露出/鼠径部露出/Ｔ字褲/陰毛露出/超Ｈ/"
CASE "Micro比基尼", "丁字褲"
	ARGS += "谷間露出/巨乳輪露出/露脐/下腹部露出/鼠径部露出/Ｔ字褲/陰毛露出/Ｈ/"
CASE "比基尼"
	ARGS += "谷間露出/露脐/下腹部露出/随意生長露出/"

CASE "競泳泳装"
	ARGS += "連衣裙/鼠径部露出/自然露出/"
CASE "高開衩競泳泳装"
	ARGS += "連衣裙/鼠径部露出/高開衩/自然露出/Ｈ/"
CASE "死库水"
	ARGS += "連衣裙/"

CASE "高開衩連衣裙"
	ARGS += "連衣裙/谷間露出/鼠径部露出/高開衩/Ｔ字褲/自然露出/Ｈ/"
CASE "連体泳装"
	ARGS += "連衣裙/体型カバー/随意生長露出/"
CASE "彈弓泳衣"
	ARGS += "連衣裙/谷間露出/巨乳輪露出/露脐/鼠径部露出/陰唇露出/高開衩/Ｔ字褲/陰毛露出/超Ｈ/"
ENDSELECT

SELECTCASE SWIM(ARGS, "ボトム")
CASE "荷葉邊"
	ARGS += "股間守備/肚臍守備/下腹部守備/"
CASE "短褲", "热褲"
	ARGS += "股間守備/"
CASE "迷你裙"
	ARGS += "股間守備/"
ENDSELECT

SELECTCASE SWIM(ARGS, "外衣")
CASE "运动衫"
	ARGS += "胸守備/肚臍守備/下腹部守備/"
CASE "吊帯衫", "Ｔ恤"
	ARGS += "胸守備/"
ENDSELECT

RETURNF ARGS

@CHECK_SWIM(ARGS, ARG)
#FUNCTION
SIF ARG == 0 && TARGET
	ARG = TARGET
SIF CSTR:ARG:今年の泳装 == ""
	RETURNF 0

SELECTCASE ARGS
CASEELSE
	SIF STRCOUNT(CSTR:ARG:今年の泳装, ARGS)
		RETURNF 1
ENDSELECT
RETURNF 0

;-------------------------------------------------
;角色ARGの泳装を着る上で重要な身体的特徴を羅列する
;-------------------------------------------------
@SWIM_APP(ARG)
#FUNCTIONS
SIF ARG == 0 && TARGET > 0
	ARG = TARGET

VARSET LOCALS

LOCALS += @"黄色/%CONDS("体型", ARG)%\/"

SIF TALENT:ARG:扶她
	LOCALS += "黄色/扶她/"
SIF TALENT:ARG:女性 == 0
	LOCALS += @"黄色\/阴茎尺寸：%CONDS("阴茎尺寸", ARG)%\/"

;乳頭
IF COND("巨乳輪", ARG) && TALENT:ARG:乳环
	LOCALS += "黄色/巨乳輪＆乳頭穿環/"
ELSEIF COND("巨乳輪", ARG)
	LOCALS += "黄色/巨乳輪/"
ELSEIF TALENT:ARG:乳环
	LOCALS += "黄色/乳頭穿環/"
ENDIF

SIF TALENT:ARG:肚脐环
	LOCALS += "黄色/肚脐环/"

SIF BASE:ARG:陰毛
	LOCALS += @"黄色/陰毛:%CONDS("陰毛", ARG)%\/"

SIF MARK:ARG:淫紋
	LOCALS += "黄色/淫紋/"

RETURNF LOCALS

;-------------------------------------------------
;partnerの泳装ARGSからちょっとしたコメントを返す
;ARGS:1に"単独文"と指定されている場合には、PRINTFORMW %COMMENT_SWIM(ARGS, "単独文")%で通用する文章のみを選ぶ
;-------------------------------------------------
@COMMENT_SWIM(ARGS, ARGS:1)
#FUNCTIONS
#DIMS CHOICES_BOTTOM
;SIF ARG == 0 && TARGET
;	ARG = TARGET

CHOICES_BOTTOM = %SWIM(ARGS, "ボトム")%

VARSET LOCALS

SELECTCASE SWIM(ARGS, "種類")
CASE "男式比基尼", "衝浪胖次"
	IF ARGS:1 == "単独文"
		IF COND("伪娘")
			LOCALS += @"也許選擇這個會是愚蠢的決定……%CALLNAME:TARGET%那難以認同屬於男性的容貌在男士泳衣的襯托下更加的引人注目、強烈到引發不適的地步。\/"
			LOCALS += @"是男士泳衣反而將%CALLNAME:TARGET%的中性魅力更加誇張的凸顯出來了嗎、說實在的很在意周圍的視線啊……\/"
		ENDIF
	ELSE
		LOCALS += "男式/"
	ENDIF
CASE "比基尼"
	IF CHECK_SWIM("股間守備")
		IF ARGS:1 == "単独文"
			LOCALS += "和比基尼相比露出度稍有減少、作為服装來說也很漂亮。/"
		ELSE
			LOCALS += "極具挑逗性的/"
		ENDIF
	ELSE
		IF ARGS:1 == "単独文"
			LOCALS += @"%TEXTR("可愛與性感絕妙的搭配著、給人一種相當好的感覺。/正因為像是約會泳衣的代名詞一樣、有點難以忍受慾望了……")%\/"
		ELSE
			LOCALS += @"%TEXTR("可愛與性感絕妙的搭配著的/風格大膽的/約會泳衣的代名詞一樣的")%\/"
		ENDIF
	ENDIF
CASE "連体泳装"
	SELECTCASE CHOICES_BOTTOM
	CASE "荷葉邊"
		IF ARGS:1 == "単独文"
			LOCALS += "重疊在遮掩住身體曲線的修身泳衣上的荷葉邊讓泳装顯得更加涼爽、相當漂亮的感覺。/"
		ELSE
			LOCALS += "極具挑逗性的/"
		ENDIF
	ENDSELECT
	IF ARGS:1 == "単独文"
		LOCALS += @"%TEXTR(@"說到這種時候穿的泳衣就是比基尼吧。但是總覺得散發的氛圍十分整潔的樣子。\/正因為露出度較少、反而更加的凸顯了%CALLNAME:TARGET%本身的魅力……")%\/"
	ELSE
		LOCALS += @"%TEXTR("散發著整潔的氣氛的/不像校園泳衣那麼誇張、但確實難以凸顯身體線條的/因為素材優秀而曝光較少的")%\/"
		SIF COND("豐腴")
			LOCALS += "似乎能將疏於鍛鍊的腰肢更良好地補正的樣子"
	ENDIF
CASE "Micro比基尼"
	IF CHECK_SWIM("股間守備")
		IF ARGS:1 == "単独文"
			LOCALS += @"因%CHOICES_BOTTOM%而被更加的強調的微型比基尼、眼神被無法抑制的吸引住了……/"
		ELSE
			LOCALS += @"因%CHOICES_BOTTOM%、被更加的強調的微型比基尼/"
		ENDIF
	ELSE
		IF ARGS:1 == "単独文"
			IF TALENT:女性 == 0
				LOCALS += "也許在下身應該加上什麼遮掩一下……如果在公眾場合勃起的話、會引發略帶危險的事態吧。/"
			ELSE
				LOCALS += "……不管看上幾次、也無法認為是游衣的、過度大膽的衣服。/"
				SIF TALENT:巨乳
					LOCALS += @"布料本身的狹小反而把重要的地方更加凸顯了、而%CALLNAME:TARGET%本身的巨乳也帶來了可怕的破壞力……\/"
			ENDIF
		ELSE
			LOCALS += @"%TEXTR("幾乎無法認為是泳衣了/相當大膽的程度/缺乏布料、結果重要的地方完全沒有被隱藏起來")%\/"
			IF TALENT:巨乳
				LOCALS += "巨乳的話也有著可怕的破壞力/"
			;ELSEIF TALENT:貧乳
			;	LOCALS += "やはり貧乳にはこれに限る/"
			ENDIF
		ENDIF
	ENDIF
CASE "競泳泳装"
	IF ARGS:1 == "単独文"
		IF TALENT:巨乳
			LOCALS += "勉強拘束著的樣子卻反過來更加的凸顯了巨乳與被勒緊更顯纖細的腰肢、以及被繃緊的布料明顯的凸顯的鼠蹊部和股間所洋溢的熱烈感、實在讓人為之目眩……/"
		ELSEIF TALENT:男性 == 0
			LOCALS += "巧妙貼緊身體、強調出女性起伏的上身與被勒緊更顯纖細的腰肢、以及被繃緊的布料明顯的凸顯的鼠蹊部和股間所洋溢的熱烈感、實在讓人為之目眩……/"
		ELSE
			LOCALS += "巧妙貼緊身體、凸顯出羞澀兩點的上身與被勒緊更顯纖細的腰肢、以及被繃緊的布料勾畫出的睪丸和陰莖所洋溢出的微妙的淫靡氛圍、實在讓人為之目眩……/"
		ENDIF
	ELSE
		LOCALS += "充分勾畫出身體線條/"
		IF TALENT:巨乳
			LOCALS += @"勉強的拘束著巨乳的樣子卻反過來更加的凸顯了\/"
		ELSEIF TALENT:男性 == 0
			LOCALS += "巧妙貼緊身體、強調女性的起伏的修身泳衣/"
		ELSE
			LOCALS += "巧妙貼緊身體、勾畫出股間淫靡地膨脹著的、令人在意的地方/"
		ENDIF
	ENDIF
ENDSELECT

IF CHECK_SWIM("Ｈ")
	IF CHECK_SWIM("股間守備")
		IF ARGS:1 == "単独文"
			LOCALS += @"雖然%CHOICES_BOTTOM%很相稱、但作為在公眾場合穿著的泳衣、還是稍微有點過激了……\/"
		ELSE
			LOCALS += @"雖然%CHOICES_BOTTOM%很相稱、但作為在公眾場合穿著的泳衣、還是過激了\/"
		ENDIF
	ELSEIF TALENT:男性 == 0
		IF ARGS:1 == "単独文"
			LOCALS += "這還真是……對於在公眾場合穿著的泳衣來說並不合適……如果動作稍微大一點、身體各處都會暴露出來吧。/"
		ELSE
			LOCALS += "作為在公眾場合穿著的泳衣、稍微有點過激了點吧/"
		ENDIF
	ELSE
		IF ARGS:1 == "単独文"
			LOCALS += "這還真是……對於男性穿著的泳衣來說太過勉強……被狹小的布料緊緊包裹的股間的性器、格外的引人注目。/"
		ELSE
			LOCALS += "作為在公眾場合穿著的泳衣、還是太過危險了吧/"
		ENDIF
	ENDIF
ENDIF
;ちんこ
IF TALENT:女性 == 0
	IF CHECK_SWIM("股間守備")
		IF ARGS:1 == "単独文"
			LOCALS += @"因%CHOICES_BOTTOM%的優秀配合、那股間膨脹的東西被隱藏起來了。\/"
		ELSE
			LOCALS += @"因%CHOICES_BOTTOM%的作用、那股間熱烈的事物被掩藏起來了\/"
		ENDIF
	ELSEIF SIZE("阴茎", TARGET) >= 2
		IF ARGS:1 == "単独文"
			LOCALS += "也許在下身在加上什麼布料會比較好……股間的膨脹、稍微有點顯眼。/"
		ELSE
			LOCALS += "股間的膨脹、稍微有點顯眼/"
		ENDIF
	ENDIF
ENDIF

;腰細い
IF COND("苗条")
	IF TALENT:巨尻 > TALENT:巨乳
		IF CHECK_SWIM("股間守備")
			IF ARGS:1 == "単独文"

			ELSE
				LOCALS += @"把這豐腴的巨尻隱藏起來是否有些可惜呢\/"
			ENDIF
		ENDIF
	ENDIF
	IF TALENT:男性 == 0 && CHECK_SWIM("体型カバー") == 0
		IF ARGS:1 == "単独文"
			LOCALS += "美麗腰肢的纖細被更加的凸顯了……啊、已經無意識的伸出手想要去觸摸了。/"
		ELSE
			LOCALS += "腰肢的纖細被更加的凸顯了"
		ENDIF
	ENDIF
ENDIF
IF TALENT:女性 && CHECK_SWIM("鼠径部露出") && CHECK_SWIM("股間守備") == 0
	IF ARGS:1 == "単独文"
		LOCALS += "毫不留情的暴露著的鼠蹊部和股間所散發著的熱烈氛圍讓人眼前一亮……/"
	ELSE
		LOCALS += "毫不留情的暴露著的鼠蹊部和股間所散發著的熱烈氛圍讓人眼前一亮/"
	ENDIF
ENDIF
IF CHECK_SWIM("陰唇露出")
	IF CHECK_SWIM("股間守備")
		IF ARGS:1 == "単独文"
			LOCALS += @"不會發生意外得多虧了%CHOICES_BOTTOM%的遮掩、但說真的在公共場合這樣實在是太過激了點……\/"
		ELSE
			LOCALS += @"不會發生意外得多虧了%CHOICES_BOTTOM%的遮掩、但說真的在公共場合穿著這個實在是太過激了點\/"
		ENDIF
	ELSEIF TALENT:男性 == 0
		IF ARGS:1 == "単独文"
			LOCALS += "股間的布料太過窄小、不能遮住飽滿的陰唇、如果在行走的時候不夠注意的話、會被別人叫住吧……/"
		ELSE
			LOCALS += "股間的布料太過窄小、不能遮住飽滿的陰唇/"
		ENDIF
	ELSE
		IF ARGS:1 == "単独文"
			LOCALS += "股間的布料太過窄小、不能遮住挺立的陰莖、如果不是用手提包保護起來的話、早已被人叫住了吧……/"
		ELSE
			LOCALS += "股間的布料太過窄小、反而凸顯出勃起的陰莖/"
		ENDIF
	ENDIF
ENDIF
IF TALENT:女性 && CHECK_SWIM("高開衩") && CHECK_SWIM("股間守備") == 0
	IF ARGS:1 == "単独文"
		LOCALS += "股間高衩款式的緊繃布料的襯托是雙腿看起來更加修長、散發著性的魅力……感覺到週邊人們驚訝而淫靡的視線了。/"
	ELSE
		LOCALS += @"%TEXTR("股間那高衩款式的緊繃布料讓腰部的線條更顯性感/股間深深勒進陰唇的濡濕的布料非常引人注目/在高衩的效果下、纖細的雙腿顯得更加修長")%\/"
	ENDIF
ENDIF
IF CHECK_SWIM("Ｔ字褲") && CHECK_SWIM("股間守備") == 0
	IF ARGS:1 == "単独文"
		LOCALS += @"在後側的絲帶的襯托下、能清楚的看見的%CALLNAME:TARGET%的尻部顯得更具魅力……\/"
	ELSE
		LOCALS += @"在後側的絲帶的襯托下、\@ TALENT:巨尻 ?豐腴的 # \@尻部顯得更加圓潤\/"
	ENDIF
ENDIF

IF CHECK_SWIM("胸守備") == 0
	IF TALENT:巨乳 && CHECK_SWIM("谷間露出") && RAND:3 == 0
		IF ARGS:1 == "単独文"
			LOCALS += @"因為沒有披上外衣、理所當然的%CALLNAME:TARGET%的巨乳快要溢出來了……\/"
		ELSE
			IF TALENT:巨乳 >= 2 && RAND:2
				LOCALS += "值得自豪的爆乳快要溢出來了/"
			ELSE
				LOCALS += "巨乳快要溢出來了/"
			ENDIF
		ENDIF
	ENDIF
	IF COND("巨乳輪") && CHECK_SWIM("巨乳輪露出")
		IF ARGS:1 == "単独文"
			LOCALS += @"在不完善的設計下、%CALLNAME:TARGET%那巨大的乳輪明顯的暴露出來了……\/"
		ELSE
			LOCALS += "在不完善的設計下那巨大的乳輪暴露出來了/"
		ENDIF
	ENDIF
ENDIF

;肚臍
IF CHECK_SWIM("肚臍守備") == 0
	IF CHECK_SWIM("露脐") && TALENT:肚脐环
		IF ARGS:1 == "単独文"
			LOCALS += "肚臍穿刺的小小圓環格外的引人注目、洋溢著淫靡的美感。/"
		ELSE
			LOCALS += "肚臍穿刺的圓環帶著淫靡的美感/"
		ENDIF
	ENDIF
ENDIF
IF MARK:淫紋 && CHECK_SWIM("下腹部露出") && CHECK_SWIM("下腹部守備") == 0
	IF ARGS:1 == "単独文"
		IF TALENT:男性 == 0
			LOCALS += "在子宮的位置被深深烙印著淫靡而鮮明的花紋、粉紫的色調散發著淫猥的氣氛。/"
		ELSE
			LOCALS += "下腹部被深深烙印著淫靡而鮮明的花紋、粉紫的色調散發著淫猥的氣氛。/"
		ENDIF
	ELSE
		LOCALS += "下腹部被畫下的淫紋洋溢著淫靡的氣氛/"
	ENDIF
ENDIF

;陰毛
SELECTCASE COND("陰毛")
CASE IS >= 7
	IF CHECK_SWIM("股間守備")
		IF STRCOUNTS(ARGS, "陰毛露出", "自然露出", "随意生長露出")
			IF ARGS:1 == "単独文"
				LOCALS += @"在%CHOICES_BOTTOM%的作用下、本來可能從泳衣縫隙中伸出的柔軟陰毛被遮掩著、感覺相當良好。\/"
			ELSE
				LOCALS += @"在%CHOICES_BOTTOM%的作用下、柔軟的陰毛被完善的遮掩著\/"
			ENDIF
		ENDIF
	ELSEIF CHECK_SWIM("随意生長露出")
		IF ARGS:1 == "単独文"
			LOCALS += "也許應該稍微做一些修剪或者在下面穿點什麼……旺盛地生長的陰毛悄悄伸出來了。/"
		ELSE
			LOCALS += "旺盛地生長的陰毛悄悄伸出來了/"
		ENDIF
	ELSEIF CHECK_SWIM("自然露出")
		IF ARGS:1 == "単独文"
			LOCALS += "也許應該稍微做一些修剪或者在下面穿點什麼……陰毛一叢叢的伸了出來。/"
		ELSE
			LOCALS += "陰毛一叢叢的伸了出來/"
		ENDIF
	ELSEIF CHECK_SWIM("陰毛露出")
		IF ARGS:1 == "単独文"
			IF TALENT:女性 == 0
				LOCALS += "在窄小的泳衣下無論是陰毛還是蓄勢待發的陰莖都被明顯的強調著、顯得相當不妙的樣子……/"
			ELSE
				LOCALS += "也許應該稍微做一些修剪或者在下面穿點什麼……泳装的面料太過狹小、能看見陰毛寬闊的生長著。/"
			ENDIF
		ELSE
			LOCALS += "是面料狹小的緣故吧、能看見陰毛寬闊的生長著/"
		ENDIF
	ENDIF
CASE 6
	IF CHECK_SWIM("股間守備")
		IF STRCOUNTS(ARGS, "陰毛露出", "自然露出")
			IF ARGS:1 == "単独文"
				LOCALS += @"在%CHOICES_BOTTOM%的作用下、本來可能從泳衣縫隙中伸出的柔軟陰毛被遮掩著、感覺相當良好。\/"
			ELSE
				LOCALS += @"在%CHOICES_BOTTOM%的作用下、柔軟的陰毛被完善的遮掩著\/"
			ENDIF
		ENDIF
	ELSEIF CHECK_SWIM("自然露出")
		IF ARGS:1 == "単独文"
			LOCALS += "也許應該在下面穿點什麼……陰毛微微的从布料露出了。/"
		ELSE
			LOCALS += "陰毛微微的从布料露出/"
		ENDIF
	ELSEIF CHECK_SWIM("陰毛露出")
		IF ARGS:1 == "単独文"
			IF TALENT:女性 == 0
				LOCALS += "在窄小的泳衣下無論是陰毛還是蓄勢待發的陰莖都被明顯的強調著、顯得相當不妙的樣子……/"
			ELSE
				LOCALS += "也許應該在下面穿點什麼……因為用料的缺乏、一眼就能看見陰毛的露出。/"
			ENDIF
		ELSE
			LOCALS += "因為用料的缺乏、陰毛輕易地露出了/"
		ENDIF
	ENDIF
CASE 5
	IF CHECK_SWIM("股間守備")
		IF CHECK_SWIM("陰毛露出")
			IF ARGS:1 == "単独文"
				LOCALS += @"在%CHOICES_BOTTOM%的作用下、本來可能從泳衣縫隙中伸出的柔軟陰毛被遮掩著、感覺相當良好。\/"
			ELSE
				LOCALS += @"在%CHOICES_BOTTOM%的作用下、柔軟的陰毛被完善的遮掩著\/"
			ENDIF
		ENDIF
	ELSEIF CHECK_SWIM("陰毛露出")
		IF ARGS:1 == "単独文"
			IF TALENT:女性 == 0
				LOCALS += "在窄小的泳衣下無論是陰毛還是蓄勢待發的陰莖都被明顯的強調著、顯得相當不妙的樣子……/"
			ELSE
				LOCALS += "在窄小的泳衣下能隱約看見陰毛、但因為被修整過反而留下了漂亮的印象。/"
			ENDIF
		ELSE
			IF TALENT:女性 == 0
				LOCALS += "在窄小的泳衣下無論是陰毛還是蓄勢待發的陰莖都被明顯的強調著的/"
			ELSE
				LOCALS += "能隱約看見陰毛、但因為被修整過反而留下了漂亮的印象的/"
			ENDIF
		ENDIF
	ENDIF
CASE 4
	IF CHECK_SWIM("股間守備")
		IF CHECK_SWIM("陰毛露出")
			IF ARGS:1 == "単独文"
				LOCALS += @"在%CHOICES_BOTTOM%的作用下、可能從窄小布料中伸出的柔軟陰毛被遮掩著、感覺相當良好。\/"
			ELSE
				LOCALS += @"在%CHOICES_BOTTOM%的作用下、柔軟的陰毛被完善的遮掩著\/"
			ENDIF
		ENDIF
	ELSEIF CHECK_SWIM("陰毛露出")
		IF ARGS:1 == "単独文"
			IF TALENT:女性 == 0
				LOCALS += "在窄小的泳衣下無論是陰毛還是蓄勢待發的陰莖都被明顯的強調著、顯得相當不妙的樣子……/"
			ELSE
				LOCALS += "窄小的泳衣很難遮掩住陰毛、但如果不是在極近的距離凝視的話就沒問題。/"
			ENDIF
		ELSE
			SELECTCASE CONDS("陰毛")
			CASE "剃过留痕"
				LOCALS += "因為能看見微微的毛茬、剛剛修剪過陰毛的事實一目了然/"
			CASE "無髭"
				LOCALS += "能看見帶著微小毛茬的、不檢點的陰部/"
			CASE "还没長出来"
				LOCALS += "微微生長了一點的陰毛能從緊勒的泳衣下看見/"
			ENDSELECT
		ENDIF
	ENDIF
CASE 1 TO 3
	IF CHECK_SWIM("股間守備")
		IF CHECK_SWIM("陰毛露出")
			IF ARGS:1 == "単独文"
				LOCALS += @"在%CHOICES_BOTTOM%的作用下、原本窄小布料不可能隱藏的部分被遮掩著、感覺相當良好。\/"
			ELSE
				LOCALS += @"在%CHOICES_BOTTOM%的作用下、窄小布料難以遮掩的部分被完善的隱藏著\/"
			ENDIF
		ENDIF
	ELSEIF CHECK_SWIM("陰毛露出")
		IF ARGS:1 == "単独文"
			LOCALS += "因為缺少荷葉邊和泳裙的遮掩、被泳衣勒緊的股間正一覽無遺……/"
		ELSE
			LOCALS += "介於布料的窄小、並不能完全看見輕薄的陰毛/"
		ENDIF
	ENDIF
ENDSELECT

RETURNF TEXTR(LOCALS)

;-------------------------------------------------
;ARGの泳装設定
;-------------------------------------------------
@SIMULATE_SWIM_BUY, ARG
#DIM LCOUNT
#DIM MEMO_LINECOUNT
#DIMS CHOICES
#DIMS TYPE_LASTCHOICE
#DIMS NAME_LASTCHOICE

SIF ARG == 0 && TARGET
	ARG = TARGET

MEMO_LINECOUNT = LINECOUNT

VARSET LOCALS
SPLIT STR:LASTCHOICE, "_", LOCALS
TYPE_LASTCHOICE = %LOCALS:0%
NAME_LASTCHOICE = %LOCALS:1%

;	[IF_DEBUG]
;		PRINTFORML STR:LASTCHOICE = %STR:LASTCHOICE%
;		VARSET LOCALS
;		SPLIT STR:CIP再現文字列, "/", LOCALS
;		FOR LCOUNT, 0, 5
;			SELECTCASE LOCALS:LCOUNT
;			CASE ""
;				SIF LCOUNT >= 1
;					BREAK
;				PRINTL
;			CASEELSE
;				PRINTFORML %LOCALS:LCOUNT%
;			ENDSELECT
;		NEXT
;	[ENDIF]

IF CHECK_CLO("裸体", ARG)
	IF TALENT:ARG:不知羞恥 || TALENT:ARG:小悪魔
		CALL EMOTION_PLUS, "小悪魔/对话框兴奋", ARG
	ELSEIF TALENT:ARG:害羞
		CALL EMOTION_PLUS, "害羞/对话框汗２/唇边手", ARG
	ELSE
		CALL EMOTION_PLUS, "红潮恍惚/对话框・・・", ARG
	ENDIF
ELSEIF TALENT:ARG:恋慕 || TALENT:ARG:淫乱
	CALL EMOTION_PLUS, "夸奖/对话框兴奋", ARG
ELSEIF TALENT:ARG:不知羞恥 || TALENT:ARG:小悪魔
	CALL EMOTION_PLUS, "小悪魔/对话框兴奋", ARG
ELSEIF TALENT:ARG:害羞 && CHECK_CLO("恥ずかしい恰好", ARG)
	CALL EMOTION_PLUS, "害羞/对话框兴奋", ARG
ELSE
	CALL EMOTION_PLUS, "重置/紅潮/对话框兴奋", ARG
ENDIF

CALL START_PRINT_LINEUP
PRINTL

IF COND("池面", ARG)
	CALL PRINT_STRL, @"%BL(21)%_緑_海胖次_:\@ EQUIP:ARG:胖次 ? _黄色_%PANTIES(ARG)%_ #  \@"
	CALL SELECTSL, "没有/男式比基尼/衝浪胖次", "胖次_", BL(21)

	;CALL PRINT_STRL, @"%BL(21)%_灰色_比基尼胸罩_:\@ EQUIP:ARG:胸罩 ? _黄色_%BRA(ARG)%_ #  \@"
	;CALL PRINT_STRL, @"%BL(21)%_灰色_[比基尼胸罩][褶边比基尼胸罩][Micro比基尼胸罩]"
ELSE
	CALL PRINT_STRL, @"%BL(21)%_緑_比基尼_:\@ EQUIP:ARG:胖次 ? _黄色_%PANTIES(ARG)%_ #  \@"
	CALL SELECTSL, "没有/紐比基尼/比基尼/Ｔ字褲比基尼/紐Ｔ字褲比基尼/丁字褲比基尼/紐丁字褲比基尼", "胖次_", BL(21)
	CALL SELECTSL, "Micro比基尼/淚珠泳衣比基尼", "胖次_", BL(21)

	CALL PRINT_STRL, @"%BL(21)%_緑_比基尼胸罩_:\@ EQUIP:ARG:胸罩 ? _黄色_%BRA(ARG)%_ #  \@"
	CALL SELECTSL, "没有/比基尼胸罩/褶边比基尼胸罩/Micro比基尼胸罩", "胸罩_", BL(21)

	CALL PRINT_STRL, @"%BL(21)%_緑_贴身制服_:\@ EQUIP:ARG:贴身制服 ? _黄色_%BODYS(ARG)%_ #  \@"
	CALL SELECTSL, "没有/新死库水/紧身短褲型死库水/死库水/高開衩競泳泳装/競泳泳装", "贴身制服_", BL(21)
ENDIF

CALL PRINT_LINEUP

CALL PRINT_CUTIN, "縮小", ARG
CALL START_PRINT_LINEUP, "CIP"

IF COND("池面", ARG)
	CALL PRINT_STRL, @"%BL(21)%_水色_外衣_:\@ EQUIP:ARG:服 ? _黄色_%SHIRT(ARG)%_ #  \@"
	CALL SELECTSL, "没有/运动衫/Ｔ恤", "外衣_", BL(21)

	CALL PRINT_STRL, @"%BL(21)%_水色_ボトム_:\@ EQUIP:ARG:外套 ? _黄色_%OUTER(ARG)%_ #  \@"
	CALL SELECTSL, "没有/迷你热褲/前開热褲", "外套_", BL(21)
	CALL PRINT_LINEUP, "CIP"

	CALL PRINT_CUTIN, "縮小背面", ARG
	CALL START_PRINT_LINEUP, "CIP"
ELSE
	CALL PRINT_STRL, @"%BL(21)%_水色_外衣_:\@ EQUIP:ARG:服 ? _黄色_%SHIRT(ARG)%_ #  \@"
	CALL SELECTSL, "没有/吊帯衫/运动衫/Ｔ恤", "外衣_", BL(21)

	CALL PRINT_STRL, @"%BL(21)%_水色_ボトム_:\@ EQUIP:ARG:外套 ? _黄色_%OUTER(ARG)%_ #  \@"
	CALL SELECTSL, "没有/迷你热褲/前開热褲", "外套_", BL(21)
	CALL PRINT_LINEUP, "CIP"

	CALL PRINT_CUTIN, "縮小背面", ARG
	CALL START_PRINT_LINEUP, "CIP"
	CALL PRINT_STRL, @"%BL(21)%_水色_裙_:\@ EQUIP:ARG:裙 ? _黄色_%SKIRT(ARG)%_ #  \@"
	CALL SELECTSL, "没有/花柄荷葉邊/荷葉邊", "裙_", BL(21)
ENDIF
PRINTL
IF CUSEABLE(NAME_LASTCHOICE, ARG) != ""
	IF TYPE_LASTCHOICE == "胸罩"
		CALL SELECTSL, CUSEABLE(PANTIES(ARG, "種類"), ARG), "", @"%BL(21)%_緑_花纹変更_:"
	ELSE
		CALL SELECTSL, CUSEABLE(NAME_LASTCHOICE, ARG), "", @"%BL(21)%_緑_花纹変更_:"
	ENDIF
ELSE
	PRINTL
ENDIF
CALL PRINT_LINEUP, "CIP"

CALL MULTILINE, MAX(20 - (LINECOUNT - MEMO_LINECOUNT), 0)

CALL PRINT_STRL, @"只今の格好は　_黄色_%CLO_ABOUT(ARG)%_%SHOW_APP_CHANGE(ARG, " with")%　です"

IF EQUIP:ARG:胖次 || EQUIP:ARG:贴身制服
	CALL PRINT_STRL, "这様就好？　　　　 _BUTTON_[ＯＫ！]"
ELSE
	CALL PRINT_STRL, "这様就好？　　　　 _灰色_[ＯＫ！]"
ENDIF

INPUTS
CHOICES = %EXTSTR(RESULTS, "[", "]")%
CLEARLINE 1

SELECTCASE CHOICES
CASE "ＯＫ！"
	IF EQUIP:ARG:胖次 || EQUIP:ARG:贴身制服
		CALL SETFLAG, "今年の泳装の記録", ARG
		RETURN 1
	ELSE
		PRINTFORMW 比基尼ボトムor贴身制服を着せてください
	ENDIF
CASE "Ｗ剪刀手してもらう"
	CSTR:ARG:颜绘変化 = Ｗ剪刀手
;柄＆色
CASE "水玉粉紅", "水玉黒", "水玉黄色", "水玉水色", "水玉白黒", "水玉白"
	CSTR:ARG:胖次 = %MERGE_STR(CSTR:ARG:胖次, CHOICES)%
	SIF EQUIP:ARG:胸罩
		CSTR:ARG:胸罩 = %MERGE_STR(CSTR:ARG:胸罩, CHOICES)%
CASE "茶色", "黄色", "橙色", "黒", "紫", "青", "紺色", "薄青色", "真紅", "赤", "薄桃色", "桃色", "白", "純白", "緑色", "薄緑", "灰色", "水色", "豹纹", "奶牛", "虎紋", "柄", "米色", "濃紫"
	SELECTCASE TYPE_LASTCHOICE
	CASE "胖次"
		CSTR:ARG:胖次 = %MERGE_STR(CSTR:ARG:胖次, CHOICES)%
		SIF EQUIP:ARG:胸罩
			CSTR:ARG:胸罩 = %MERGE_STR(CSTR:ARG:胸罩, CHOICES)%
	CASE "胸罩"
		CSTR:ARG:胸罩 = %MERGE_STR(CSTR:ARG:胸罩, CHOICES)%
		CSTR:ARG:胖次 = %MERGE_STR(CSTR:ARG:胖次, CHOICES)%
	CASE "外套"
		CSTR:ARG:外套 = %MERGE_STR(CSTR:ARG:外套, CHOICES)%
	CASE "连褲襪"
		CSTR:ARG:外套 = %MERGE_STR(CSTR:ARG:外套, CHOICES)%
	CASE "情趣吊带内衣"
		CSTR:ARG:襪子 = %MERGE_STR(CSTR:ARG:襪子, CHOICES)%
	CASE "贴身制服"
		CSTR:ARG:贴身制服 = %MERGE_STR(CSTR:ARG:贴身制服, CHOICES)%
	CASE "外衣"
		CSTR:ARG:服 = %MERGE_STR(CSTR:ARG:服, CHOICES)%
	CASE "裙"
		CSTR:ARG:裙 = %MERGE_STR(CSTR:ARG:裙, CHOICES)%
	ENDSELECT
;それ以外は種類選択。区分_名称 となっている
CASEELSE
	STR:LASTCHOICE = %CHOICES%
	VARSET LOCALS
	SPLIT CHOICES, "_", LOCALS
	CHOICES = %LOCALS:1%

	SELECTCASE LOCALS
	CASE "胖次"
		CALL SET_PANTIES, @"%CHOICES%/泳装", ARG
		IF EQUIP:ARG:胸罩 == 0
			SELECTCASE CHOICES
			CASE "没有"
				CALL SET_BRA, CHOICES, ARG
			CASE "比基尼"
				CALL SET_BRA, @"比基尼胸罩/%CLOCOLOR(CSTR:ARG:胖次)%", ARG
			CASE "丁字褲", "Micro比基尼", "淚珠泳衣比基尼"
				CALL SET_BRA, @"Micro比基尼胸罩/%CLOCOLOR(CSTR:ARG:胖次)%", ARG
			ENDSELECT
		ELSE
			CSTR:ARG:胸罩 = %MERGE_STR(CSTR:ARG:胸罩, CLOCOLOR(CSTR:ARG:胖次) )%
		ENDIF
	CASE "胸罩"
		CALL SET_BRA, @"%CHOICES%/泳装", ARG
	CASE "外套"
		IF EQUIP:ARG:外套
			CALL SET_OUTER, @"%CHOICES%/泳装/%CLOCOLOR(CSTR:ARG:外套)%", ARG
		ELSE
			CALL SET_OUTER, @"%CHOICES%/泳装", ARG
		ENDIF

		CALL SET_SHIRT, "", ARG
		CALL SET_SKIRT, "", ARG
	CASE "贴身制服"
		CALL SET_BODYS, CHOICES, ARG
	CASE "外衣"
		CALL SET_SHIRT, @"%CHOICES%/泳装", ARG

		CALL SET_OUTER, "", ARG
		CALL SET_SKIRT, "", ARG
	CASE "裙"
		CALL SET_SKIRT, @"%CHOICES%/泳装", ARG

		CALL SET_OUTER, "", ARG
		CALL SET_SHIRT, "", ARG
	ENDSELECT
	SIF CHOICES == "没有"
		STR:LASTCHOICE =
ENDSELECT

CLEARLINE LINECOUNT - MEMO_LINECOUNT
RESTART

license: unknown


code:
;-------------------------------------------------
;胖次收藏
;ARGの胖次ARGSを收藏する
;-------------------------------------------------
@COLLECT_PANTU, ARGS, ARG
SIF ARG == 0 && TARGET > 0
	ARG = TARGET

;現在的ところは重複は没有とする
SIF CPANTU(ARGS, ARG)
	RETURN 0

SIF CSTR:ARG:胖次收藏 == ""
	CSTR:ARG:胖次收藏 = \/

CSTR:ARG:胖次收藏 = %CSTR:ARG:胖次收藏%%ARGS%\/

;-------------------------------------------------
;ARGから胖次ARGSを收藏したか判定する
;-------------------------------------------------
@CPANTU(ARGS, ARG)
#FUNCTION
SIF ARG == 0 && TARGET > 0
	ARG = TARGET

LOCALS = \/%ARGS%\/

RETURNF STRCOUNT(CSTR:ARG:胖次收藏, LOCALS)

;-------------------------------------------------
;检查内褲時のテ接吻ト
;ARGSは何の下から出てきたか部分
;電源BOX使用中の時にはそれの描写も
;-------------------------------------------------
@TEXT_PANTU_CHECK, ARGS, ARGS:1
;すでに胖次知ってる場合
IF COND("胖次形状確認")
	CALL PRINT_CUTIN, "見たまま前後", TARGET
	IF ARGS:1 == "连褲襪露出" && EQUIP:胖次
		PRINTFORMW 隔著半透明的%OUTER(TARGET)%能清楚看見的%PANTIES(TARGET)%顯得格外醒目……
	ELSEIF ARGS:1 == "外套露出"
 		IF CHECK_OUTER("休闲褲") == 0
			PRINTFORMW 包裹著股間的過分合身的%OUTER(TARGET, "略")%顯得格外醒目……
		ELSE
			PRINTFORMW 借着难得的机会%CALLNAME:PLAYER%仔细端详了被%OUTER(TARGET, "略")%包裹的腰间。
		ENDIF
	ELSEIF EQUIP:胖次 == 0
		IF ARGS:1 == "连褲襪露出"
			PRINTFORMW 薄薄的%OUTER(TARGET, "略")%隔着的股間顯得格外醒目……
		ELSE
			PRINTFORMW %CALLNAME:PLAYER%仔细地观察着%CALLNAME:TARGET%什么都没有穿的無防備的股間……
		ENDIF
	ELSE
		PRINTFORMW 包裹着股間的%PANTIES(TARGET)%顯得格外醒目……
	ENDIF
	RETURN 1
ENDIF

SELECTCASE ARGS:1
CASE ""
	IF EQUIP:外套
		CALL PRINT_CUTIN, "見たまま正面/外套OFF/连褲襪OFF", TARGET
	ELSE
		CALL PRINT_CUTIN, "見たまま前後", TARGET
	ENDIF
CASEELSE
	CALL PRINT_CUTIN, "見たまま前後", TARGET
ENDSELECT

SELECTCASE ARGS
CASE "外套"
	PRINTFORM 從%OUTER(TARGET)%下露出的……
CASEELSE
	PRINTFORM 從%ARGS%下露出的……
ENDSELECT

;開放型连褲襪だとここには来ない
IF ARGS:1 == "连褲襪露出" && EQUIP:胖次
	PRINTFORMW 是隔著半透明的%OUTER(TARGET)%能清楚看見的%PANTIES(TARGET)%！
	CALL TEXT_PANTU_ANAL
ELSEIF ARGS:1 == "外套露出"
 	IF CHECK_OUTER("休闲褲") == 0
		PRINTFORMW 是包裹著股間的過分合身的%OUTER(TARGET, "略")%！
	ELSEIF CHECK_OUTER("热褲")
		PRINTFORMW 是被称为裤子而言有些過激的%OUTER(TARGET, "略")%！
	ELSE
		PRINTFORMW 是看起来很好动的%OUTER(TARGET, "略")%。
	ENDIF
	IF CHECK_OUTER("股間の隙間")
		;紧身短褲＆没穿内褲
		IF EQUIP:胖次 == 0 && CHECK_OUTER("紧身短褲")
			PRINTFORMW 大概布料下面就什麼也沒有吧……%CALLNAME:TARGET%的股間、如果仔細一點看的話、是連\@ PENIS(TARGET) ? 陰莖 # 陰唇 \@都可以明顯的勾勒出輪廓的程度了！！
		ELSEIF TALENT:大力士 && COND("豐腴") == 0
			PRINTFORMW %CALLNAME:TARGET%的股間与紧绷的大腿之間连接出来的逆三角形的隙間%TEXTR("令人移不開眼/非常的有魅力/酝酿着健康的魅力")%……
		ELSEIF COND("苗条")
			PRINTFORMW %CALLNAME:TARGET%的股間和纤细的大腿之間连接出来的逆三角形的隙間%TEXTR("令人移不開眼/非常的有魅力/酝酿着健康的魅力")%……
		ENDIF
	ENDIF
ELSEIF ARGS:1 == "贴身制服露出"
	IF CHECK_CLO("勒紧的")
		PRINTFORMW 是被%BODYS(TARGET, "略")%勒入的%TEXTS("陰毛：表現短め")%股間！
	ELSE
		PRINTFORMW 是股間上十分合身的%BODYS(TARGET, "略")%！
	ENDIF
	SIF CHECK_BODYS("高開衩")
		PRINTFORMW %TEXTR("目光无法从完全暴露著的腹股沟上移開/完全暴露著的腹股沟真的很有魅力/完全暴露著的腹股沟的景色真是美丽")%……
ELSEIF EQUIP:胖次 == 0 && (TEQUIP:創口貼 || CFLAG:創口貼装着)
	PRINTFORMW 是在%TEXTR("窄缝/阴部/蜜裂")%上的創口貼！
	IF CFLAG:創口貼装着 > 6
		PRINTFORMW 由于贴在上面的时间太长了、浸透了汗水和其他液体的創口貼看起来快要脱落了……
	ELSE
		PRINTFORMW 恰好%TEXTR("没有缝隙地/紧紧")%贴在一起、突出地浮现着%TEXTR("重要地方/阴部")%的形状……
	ENDIF

ELSEIF EQUIP:胖次 == 0
	IF ARGS:1 == "连褲襪露出"
		PRINTFORM 越过薄薄半透明的%OUTER(TARGET, "略")%看见的、完全裸露的%TEXTS("陰毛：表現短め")%
	ELSE
		PRINTFORM 完全裸露的%TEXTS("陰毛：表現短め")%
	ENDIF
	IF PENIS(TARGET)
		PRINTFORMW %TEXTR("下腹部/股間")%被你欣赏了一番！
	ELSE
		PRINTFORMW %TEXTR("下腹部/恥丘")%被你欣赏了一番！
	ENDIF
	IF COND("自撮りと同じ胖次")
		PRINTFORMW 也许、是从发送自拍的时候開始就一直没有穿内裤……？
	ELSEIF ARGS == "外套"
		PRINTFORMW 大概是直接穿在身上的緣故吧、%OUTER(TARGET, "略")%股間的布料滲入了汗液和各種各樣的東西、散發著相當顯著的%TEXTS("氣味")%……
	ELSEIF ARGS:1 == "连褲襪露出"

	ENDIF
;前に確認した胖次と一緒
ELSEIF CSTR:胖次 == CSTR:PREV_胖次 && COND("夜")
	PRINTFORMW 在午間的部室看過之後、再一次觀賞著%DETAIL_PANTIES(TARGET)%。
	SIF COND("電源BOX") == 0 || COND("電源BOX発覚")
		PRINTFORMW 整整一天的污垢被積累起來、僅僅只論%TEXTS("氣味")%就已經%TEXTR("非常強烈的/刺鼻的/在股間迴響的")%……
ELSE
	IF COND("自撮りと同じ胖次")
		PRINTFORMW 和收到的自拍上一样、是%PANTIES(TARGET)%。
	ELSE
		PRINTFORMW %DETAIL_PANTIES(TARGET)%被你欣赏了一番！
	ENDIF
	IF CHECK_PANTIES("Ａのみ露出") && COND("身嗜み：Ａ拡張")
		CALL TEXT_PANTU_ANAL
	ELSEIF COND("電源BOX") == 0 || COND("電源BOX発覚")
		CALL SHOW_PUBICHAIR
	ENDIF
ENDIF
CALL TEXT_PANTU_VIBE

;-------------------------------------------------
;上のもののやや簡略版
;-------------------------------------------------
@TEXT_PANTU_CHECK_SHORT
CALL PRINT_CUTIN, "胖次前後", TARGET
;すでに胖次知ってる場合
IF COND("胖次形状確認")
	PRINTFORMW 包裹着股間的%PANTIES(TARGET)%顯得格外醒目……
	RETURN 1
ENDIF
;前の時間で内衣確認済
IF CSTR:PREV_胖次 != ""
	PRINTFORM %CALLNAME:TARGET%的胖次是……
ELSE
	PRINTFORM %CALLNAME:TARGET%今日的胖次是……
ENDIF
;前に確認した胖次と一緒
IF CSTR:胖次 == CSTR:PREV_胖次 && COND("夜")
	PRINTFORMW 和午間的部室時看到的同樣是%PANTIES(TARGET)%、今天似乎沒有進行更換的樣子。
	SIF COND("電源BOX") == 0 || COND("電源BOX発覚")
		PRINTFORMW 整整一天的污垢被積累起來、僅僅只論%TEXTS("氣味")%就已經%TEXTR("非常強烈的/刺鼻的/在股間迴響的")%……
ELSEIF CHECK_CLO("Ｖ露出")
	PRINTFORMW %DETAIL_PANTIES(TARGET)%被你欣赏了一番！
	;PRINTFORMW %CALLNAME:TARGET%那豐潤的陰唇自不必說、就連緊緊夾住陰核的閃耀著的小小圓環也變得一目了然……
	;大陰唇が織り成す縦筋が
	;小用陰唇装飾する穿環
ELSEIF CHECK_PANTIES("Ａのみ露出")
	PRINTFORMW %DETAIL_PANTIES(TARGET)%被你欣赏了一番！
	CALL TEXT_PANTU_ANAL
ELSE
	SIF COND("自撮りと同じ胖次")
		PRINTFORM 和收到的自拍上一样、
	PRINTFORMW %PANTIES(TARGET)%的樣子。
	SIF CHECK_CLO("ハミ毛：裙無視")
		CALL SHOW_PUBICHAIR
ENDIF
CALL TEXT_PANTU_VIBE

@TEXT_PANTU_ANAL
IF CHECK_PANTIES("Ａのみ露出")
	IF COND("身嗜み：Ａ拡張")
		PRINTFORMW 因为尻穴周辺没有布料、能看见肛門时常拡張用肛塞的底部顔色……
	ENDIF
ENDIF

@TEXT_PANTU_VIBE
SIF COND("電源BOX") == 0 || COND("電源BOX発覚")
	RETURN 0
IF EQUIP:胖次 == 0 || CHECK_CLO("Ｖ露出")
	IF AGE(TARGET) == 1
		PRINTFORM %CALLNAME:TARGET%的%TEXTR("縦筋/裂口/阴部")%
	ELSE
		PRINTFORM %CALLNAME:TARGET%的%TEXTR("膣口/裂口/阴部")%
	ENDIF
ELSE
	PRINTFORM 內衣開口部分的下方
ENDIF
PRINTFORM 延伸出來的長長的電源線、
IF CHECK_OTHER("腿环")
	PRINTFORM 被腿环%TEXTR("固定著/夾住了/忍耐著")%
ELSEIF CHECK_SOCKS("直到大腿")
	PRINTFORM 用%SOCKS(TARGET)%%TEXTR("固定著/夾住了/忍耐著")%
ELSE
	PRINTFORM 被固定在大腿那裡
ENDIF
PRINTFORMW 正接着電源……看起来正用膣内振動着的振动棒%TEXTR("享受中/沉浸于自慰行為/追求着快楽")%的様子。

;-------------------------------------------------
;衣服を脱いでもらった時のテ接吻ト
;-------------------------------------------------
@EVENT_DATUI, ARGS
;淫紋が見えるよう变成了かを格子する
#DIM IS_VISIBLE_INMON
#DIMS HADAKETA

;淫紋確認の地の文を出すかの格子に使う
IS_VISIBLE_INMON = CHECK_CLO("淫紋露出")

SELECTCASE ARGS
CASE "裸体"
	PRINTFORM %CALLNAME:TARGET%
	IF COND("調教中") == 0 && CHARA_NUM("室内の邪魔者")
		PRINTFORM 毫不在意室內的旁觀者、
	;害羞
	ELSEIF TALENT:害羞 && RAND:3 == 0
		PRINT 不時害羞地微笑著並、
	;巨乳
	ELSEIF TALENT:巨乳 && RAND:3 == 0
		PRINT 炫耀著胸部和尻部的同時、
	;自尊心高い、小悪魔、魅力
	ELSEIF (TALENT:高慢 || TALENT:小悪魔) && RAND:3 == 0
		PRINT 用眼神挑逗著的同時、
	;淫乱
	ELSEIF TALENT:淫乱 && EQUIP:胖次 && RAND:3 == 0
		PRINTFORM 讓%CALLNAME:PLAYER%充分觀賞自己只穿著%PANTIES(TARGET, "内衣")%的姿態的同时、
	ELSEIF RAND:2 == 0
		PRINTFORM 在羞澀的把眼神投向%CALLNAME:PLAYER%的同時、
	ELSE
		PRINTFORM 看起來十分愉快的、
	ENDIF

	IF EQUIP:襪子 + EQUIP:靴 + EQUIP:手套
		IF EQUIP:手套
			IF EQUIP:襪子 + EQUIP:靴
				PRINTFORMW 只留下手和脚上的衣服、剩下的衣服全部脫下
			ELSE
				PRINTFORMW 只留下手套、剩下的衣服全部脫下
			ENDIF
		ELSEIF EQUIP:襪子
			IF EQUIP:靴
				PRINTFORMW 只留下%SHOES(TARGET, "略")%只留下%SOCKS(TARGET, "略")%、剩下的衣服全部脫下
			ELSE
				PRINTFORMW 只留下%SOCKS(TARGET, "略")%、剩下的衣服全部脫下
			ENDIF
		ELSE
			PRINTFORMW %SHOES(TARGET, "略")%以外的的衣服全部脫下
		ENDIF
	ELSEIF EQUIP:服 + EQUIP:贴身制服
		PRINTFORM 脫下衣服露出了赤裸的身體
	ELSEIF EQUIP:胖次 && RAND:2
		IF CHECK_PANTIES("前貼")
			PRINTFORM 撕下了%PANTIES(TARGET, "胖次")%变成了裸体
		ELSEIF CHECK_PANTIES("Ｃ胖次")
			PRINTFORM 脱掉了%PANTIES(TARGET, "胖次")%变成了裸体
		ELSE
			PRINTFORM 脫下%PANTIES(TARGET, "胖次")%露出了赤裸的身體
		ENDIF
	ELSE
		PRINTFORM 慢慢地脫掉了
	ENDIF

	IF CHECK_CLO("乳頭露出") == 0 && (COND("陥没乳頭") || COND("巨乳輪") || COND("乳頭肥大") || TALENT:乳环)
		PRINTFORMW 。
		IF CHECK_CLO("泳装姿")
			PRINTFORM 在脫下泳衣之後、
		ELSEIF EQUIP:贴身制服
			PRINTFORM 在脫下%BODYS(TARGET)%之後、
		ELSE
			PRINTFORM 在脫下衣物之後、
		ENDIF
		PRINTFORM 隨著%CALLNAME:TARGET%充滿魅力的身體一併顯露出來的

		IF COND("陥没乳頭")
			IF COND("巨乳輪")
				PRINTFORM 略有%TEXTR("陷沒/埋沒")%現象的乳頭以及%TEXTR("充滿雌性魅力的/大號的/巨大的")%乳輪
			ELSE
				PRINTFORM 略有%TEXTR("陷沒/埋沒")%現象的乳頭
			ENDIF
		ELSE
			IF TALENT:乳环 && RAND:2
				PRINTFORM 被%TEXTR("閃爍金屬光澤的圓環/增添了一份妖媚氣氛的穿環")%装飾著的乳頭
			ELSEIF COND("巨乳輪") && (COND("乳頭肥大") == 0 || RAND:2)
				PRINTFORM 嬌小的美麗乳頭以及%TEXTR("充滿雌性魅力的/大號的/巨大的")%乳輪
			ELSEIF COND("乳頭肥大")
				PRINTFORM 碩大的乳頭
			ELSE
				PRINTFORM 乳頭
			ENDIF
		ENDIF
		PRINTFORMW 、無法抑制的吸引著視線……
	ELSE
		PRINTFORMW …
	ENDIF

CASE "衣服"
	PRINTFORM %CALLNAME:TARGET%
	;害羞
	IF TALENT:害羞 && RAND:3
		PRINT 不時害羞地微笑著並、
	;巨乳 && RAND:3
	ELSEIF TALENT:巨乳
		PRINT 炫耀著胸部和尻部的同時、
	;自尊心高い、小悪魔、魅力
	ELSEIF (TALENT:高慢 || TALENT:小悪魔) && RAND:3
		PRINT 用眼神挑逗著的同時、
	;淫乱
	ELSEIF TALENT:淫乱 && EQUIP:胖次 && RAND:3
		PRINTFORM 讓%CALLNAME:PLAYER%充分觀賞自己只穿著%PANTIES(TARGET, "内衣")%的姿態的同时、
	ELSEIF RAND:2 || TALENT:好色 + TALENT:淫乱
		PRINTFORM 在羞澀的把眼神投向%CALLNAME:PLAYER%的同時、
	ELSE
		PRINT 看起來十分愉快的、
	ENDIF
	IF EQUIP:服 + EQUIP:贴身制服
		IF EQUIP:服
			PRINTFORM 脱下了%SHIRT(TARGET, "略")%、
		ELSE
			PRINTFORM 脱下了%BODYS(TARGET, "略")%、
		ENDIF
		IF EQUIP:胖次
			PRINTFORM %PANTIES(TARGET, "内衣")%姿
		ELSE
			PRINTFORM 像是初生嬰孩一樣
		ENDIF
		PRINTW 的姿態…
	ELSEIF EQUIP:胖次
		PRINTFORMW 將衣服一枚一枚慢慢地脫到只剩下%PANTIES(TARGET, "胖次")%的樣子了…
	ELSE
		PRINTFORMW 慢慢地脫掉了…
	ENDIF

	CALL SETFLAG, "薄着化：内衣姿", TARGET

	;淫紋イベント
	SIF IS_VISIBLE_INMON == 0 && MARK:淫紋 >= 2 && CFLAG:淫紋の様子 == 0 && CHECK_CLO("淫紋露出")
		CALL TEXT, "淫紋の様子：脱衣後"

CASE "胸罩"
	IF CHECK_BRA("乳贴")
		PRINTFORMW %CALLNAME:TARGET%将贴在乳頭上的乳贴撕了下来…
	ELSE
		PRINTFORMW %CALLNAME:TARGET%取下了\@ CHECK_CLO("泳装姿") ? 泳装的 #  \@文胸…
	ENDIF
	CALL SET_BRA, ""
CASE "脱掉衣服露出胸部"
	;半脱られる服を着ている
	IF CHECK_SHIRT("半脱可")
		IF CHECK_SHIRT("提起裙角")
			HADAKETA = 卷起%SHIRT(TARGET, "略")%
		ELSE
			HADAKETA = 脱下%SHIRT(TARGET, "略")%
		ENDIF
		IF (CHECK_BRA("胸罩") && CHECK_BRA("乳頭露出") == 0 && RAND:2) || CHECK_BRA("乳贴")
			IF RAND:2 && COND("胸罩形状確認") == 0
				IF CHECK_BRA("見栄え良し")
					PRINTFORM 展示了%HADAKETA%%BRA(TARGET)%
				ELSE
					PRINTFORM 展示%HADAKETA%%BRA(TARGET)%
				ENDIF
			ELSE
				PRINTFORM 露出了%HADAKETA%%BRA(TARGET)%
			ENDIF
			RETURN 1
		ELSE
			IF EQUIP:胸罩 && CHECK_BRA("胸罩") == 0
				PRINTFORM 将%BRA(TARGET, "略")%
			ELSEIF EQUIP:胸罩
				PRINTFORM 将穿着的文胸
			ENDIF
			PRINTFORM %HADAKETA%
		ENDIF
	ELSEIF CHECK_BRA("乳贴")
		PRINTFORM 撕下乳贴
	ELSEIF EQUIP:胸罩
		PRINTFORM 移開%BRA(TARGET)%
	ENDIF
	IF TALENT:乳环
		PRINTFORM 露出了与%TEXTS("乳頭：描写")%%TEXTR("乳頭/突起")%连在一起的%TEXTS("乳环")%
	ELSE
		PRINTFORM 露出了%TEXTS("乳頭：描写")%%TEXTR("乳頭/突起")%
	ENDIF
	SIF EQUIP:胸罩
		CALL SETFLAG_DAILY, "胸罩形状確認"
CASE "胖次脱いで手渡し"
	IF CHECK_PANTIES("前貼") || CHECK_PANTIES("Ｃ胖次")
		IF TALENT:淫乱 && RAND:3 == 0
			PRINTFORM %TEXTR("毫无羞耻心地/嫵媚地笑著/慢慢地")%用尻部對準%CALLNAME:PLAYER%後、像是在展示股間一樣前屈著慢慢脫下了胖次……
		ELSE
			PRINTFORM %CALLNAME:TARGET%
			IF (ABL:露出癖 >= 3 || TALENT:好色 || TALENT:献身) && CHECK_SKIRT("長")
				PRINTFORM 將%SKIRT(TARGET, "略")%的下端用嘴叼住、向%CALLNAME:PLAYER%挺出腰露出了自己的下腹部
			ELSE
				PRINTFORM 在%CALLNAME:PLAYER%的眼前
			ENDIF
		ENDIF
		IF CHECK_PANTIES("前貼")
			PRINTFORM 撕下%PANTIES(TARGET, "胖次")%、
		ELSE
			PRINTFORM 脱下%PANTIES(TARGET, "胖次")%、
		ENDIF
		IF PENIS(TARGET) == 0 && (ABL:露出癖 >= 3 || TALENT:好色) && CHECK_PANTIES("闷热的")
			IF CHECK_PANTIES("湿的") && RAND:3
				PRINTFORM %TEXTR("染上淫靡污漬的/沾染羞恥的色斑的/被愛液濡濕的")%
			ELSE
				PRINTFORM 散發著%CALLNAME:TARGET%身體%TEXTS("氣味")%的、
			ENDIF
			PRINTFORM 散發著溫熱的柔軟布料被
			IF TALENT:害羞
				PRINTFORM %TEXTR("目光游離、臉一直紅到耳根的/很害羞地")%
			ELSE
				PRINTFORM %TEXTR("微笑着/看起来很開心地")%
			ENDIF
			IF TALENT:開朗 + TALENT:好色 + TALENT:小悪魔 && RAND:3
				PRINTFORMW 露给%CALLNAME:PLAYER%看过之后、主动交给了%CALLNAME:PLAYER%。
			ELSE
				PRINTFORMW 露给%CALLNAME:PLAYER%看过之后、交给了%CALLNAME:PLAYER%。
			ENDIF
		ELSEIF CHECK_PANTIES("闷热的")
			PRINTFORMW 溫暖而濕潤的小小布料被%CALLNAME:TARGET%當面交給%CALLNAME:PLAYER%了。
		ELSE
			PRINTFORMW 遺留微微熱度的小小布料被%CALLNAME:TARGET%當面交給%CALLNAME:PLAYER%了。
		ENDIF
	ELSE
		IF TALENT:淫乱 && RAND:3 == 0
			PRINTFORM %TEXTR("毫无羞耻心地/嫵媚地笑著/慢慢地")%用尻部對準%CALLNAME:PLAYER%後、像是在展示股間一樣前屈著慢慢脫下了胖次……%PANTIES(TARGET, "胖次")%を降ろすと、
		ELSE
			PRINTFORM %CALLNAME:TARGET%
			IF (ABL:露出癖 >= 3 || TALENT:好色 || TALENT:献身) && CHECK_SKIRT("長")
				PRINTFORM 將%SKIRT(TARGET, "略")%的下端用嘴叼住、用完全展示出下腹部的姿势將胖次脫了下來、
			ELSE
				PRINTFORM 迅速地将%PANTIES(TARGET, "胖次")%脱下、
			ENDIF
		ENDIF
		IF PENIS(TARGET) == 0 && (ABL:露出癖 >= 3 || TALENT:好色) && CHECK_PANTIES("闷热的")
			IF CHECK_PANTIES("湿的") && RAND:3
				PRINTFORM %TEXTR("染上淫靡污漬的/沾染羞恥的色斑的/被愛液濡濕的")%
			ELSE
				PRINTFORM 散發著%CALLNAME:TARGET%身體%TEXTS("氣味")%的、
			ENDIF
			PRINTFORM 散發著溫熱的柔軟布料被
			IF TALENT:害羞
				PRINTFORM %TEXTR("目光游離、臉一直紅到耳根的/很害羞地")%
			ELSE
				IF TALENT:開朗 + TALENT:好色 + TALENT:小悪魔 && RAND:3 == 0
					PRINT 一邊嬌媚的微笑著一邊清楚地展示著的
				ELSE
					PRINTFORM %TEXTR("微笑着/看起来很開心地")%
				ENDIF
			ENDIF
			IF TALENT:開朗 + TALENT:好色 + TALENT:小悪魔 && RAND:3
				PRINTFORMW 露给%CALLNAME:PLAYER%看过之后、主动交给了%CALLNAME:PLAYER%。
			ELSE
				PRINTFORMW 露给%CALLNAME:PLAYER%看过之后、交给了%CALLNAME:PLAYER%。
			ENDIF
		ELSEIF CHECK_PANTIES("闷热的")
			PRINTFORMW 溫暖而濕潤的小小布料被%CALLNAME:TARGET%當面交給%CALLNAME:PLAYER%了。
		ELSE
			PRINTFORMW 遺留微微熱度的小小布料被%CALLNAME:TARGET%當面交給%CALLNAME:PLAYER%了。
		ENDIF
	ENDIF
CASEELSE
	IF CHECK_PANTIES("前貼") || CHECK_PANTIES("Ｃ胖次")
		IF (ABL:露出癖 - TALENT:害羞 + TALENT:不知羞恥 >= 3 || TALENT:好色) && CHECK_CLO("胖次露出")
			IF TALENT:淫乱 && RAND:3 == 0
				PRINTFORM %TEXTR("毫无羞耻心地/嫵媚地笑著/慢慢地")%用尻部對準%CALLNAME:PLAYER%後、像是在展示股間一樣前屈著慢慢脫下了胖次……
			ELSE
				PRINTFORM %CALLNAME:TARGET%
				IF (ABL:露出癖 >= 3 || TALENT:好色 || TALENT:献身) && CHECK_SKIRT("長")
					PRINTFORM 將%SKIRT(TARGET, "略")%的下端用嘴叼住、向%CALLNAME:PLAYER%挺出腰露出了自己的下腹部
				ELSE
					PRINTFORM 在%CALLNAME:PLAYER%的眼前
				ENDIF
			ENDIF
			IF CHECK_PANTIES("前貼")
				PRINTFORM 撕下%PANTIES(TARGET, "胖次")%、
			ELSE
				PRINTFORM 脱下%PANTIES(TARGET, "胖次")%、
			ENDIF
			IF PENIS(TARGET) == 0 && (ABL:露出癖 >= 3 || TALENT:好色) && CHECK_PANTIES("闷热的")
				IF CHECK_PANTIES("湿的") && RAND:3
					PRINTFORM %TEXTR("染上淫靡污漬的/沾染羞恥的色斑的/被愛液濡濕的")%
				ELSE
					PRINTFORM 散發著%CALLNAME:TARGET%身體%TEXTS("氣味")%的、
				ENDIF
				PRINTFORM 散發著溫熱的柔軟布料被
				IF TALENT:害羞
					PRINTFORM %TEXTR("目光游離、臉一直紅到耳根的/很害羞地")%
				ELSE
					PRINTFORM %TEXTR("微笑着/看起来很開心地")%
				ENDIF
				IF TALENT:開朗 + TALENT:好色 + TALENT:小悪魔 && RAND:3
					PRINTFORMW %CALLNAME:PLAYER%に見せ付けた後に手渡してきた…
				ELSE
					PRINTFORMW %CALLNAME:PLAYER%に見せた後に手渡してきた…
				ENDIF
			ELSEIF CHECK_PANTIES("闷热的")
				PRINTFORMW 溫暖而濕潤的小小布料被%CALLNAME:TARGET%當面交給%CALLNAME:PLAYER%了…
			ELSE
				PRINTFORMW 遺留微微熱度的小小布料被%CALLNAME:TARGET%當面交給%CALLNAME:PLAYER%了…
			ENDIF
		ELSE
			PRINTFORM %CALLNAME:TARGET%
			SIF TALENT:害羞
				PRINTFORM 一邊躲避著%CALLNAME:PLAYER%的視線、一边
			IF CHECK_PANTIES("前貼")
				PRINTFORMW 撕掉了贴纸…
			ELSE
				PRINTFORMW 脱掉了Ｃ胖次…
			ENDIF
		ENDIF
	ELSE
		IF TALENT:淫乱 && RAND:3 == 0 && CHECK_CLO("胖次露出")
			PRINTFORMW %CALLNAME:TARGET%用尻部對準%CALLNAME:PLAYER%後、像是在展示股間一樣前屈著慢慢脫下了%PANTIES(TARGET, "胖次")%…
		ELSEIF (ABL:露出癖 - TALENT:害羞 + TALENT:不知羞恥 >= 3 || TALENT:好色) && CHECK_CLO("胖次露出")
			PRINTFORM %CALLNAME:TARGET%
			IF (ABL:露出癖 >= 3 || TALENT:好色 || TALENT:献身) && CHECK_SKIRT("長")
				PRINTFORM 將%SKIRT(TARGET, "略")%的下端用嘴叼住、用完全展示出下腹部的姿势將胖次脫了下來、
			ELSE
				PRINTFORM 迅速地将%PANTIES(TARGET, "胖次")%脱下、
			ENDIF
			IF RAND:2 && EQUIP:裙 && CHECK_SKIRT("長") == 0
				PRINTFORMW 將%SKIRT(TARGET, "略")%大膽的捲起、讓%CALLNAME:PLAYER%肆意的觀賞毫無防備的股間……
			ELSEIF PENIS(TARGET) == 0 && (ABL:露出癖 >= 3 || TALENT:好色) && CHECK_PANTIES("闷热的")
				IF CHECK_PANTIES("湿的") && RAND:3
					PRINTFORM %TEXTR("染上淫靡污漬的/沾染羞恥的色斑的/被愛液濡濕的")%
				ELSE
					PRINTFORM 散發著%CALLNAME:TARGET%身體%TEXTS("氣味")%的、
				ENDIF
				PRINTFORM 散發著溫熱的柔軟布料被
				IF TALENT:害羞
					PRINTFORM %TEXTR("目光游離、臉一直紅到耳根的/很害羞地")%
				ELSE
					IF TALENT:開朗 + TALENT:好色 + TALENT:小悪魔 && RAND:3 == 0
						PRINT 一邊嬌媚的微笑著一邊清楚地展示著的
					ELSE
						PRINTFORM %TEXTR("微笑着/看起来很開心地")%
					ENDIF
				ENDIF
				IF TALENT:開朗 + TALENT:好色 + TALENT:小悪魔 && RAND:3
					PRINTFORMW 清楚的向%CALLNAME:PLAYER%展示著……
				ELSE
					PRINTFORMW 猶豫地展示給%CALLNAME:PLAYER%了……
				ENDIF
			ELSEIF CHECK_PANTIES("闷热的")
				PRINTFORMW 溫暖而濕潤的小小布料被%CALLNAME:TARGET%當面交給%CALLNAME:PLAYER%了…
			ELSE
				PRINTFORMW 遺留微微熱度的小小布料被%CALLNAME:TARGET%當面交給%CALLNAME:PLAYER%了…
			ENDIF
		ELSEIF TALENT:害羞
			IF MARK:屈服刻印 < 3
				PRINTFORMW %CALLNAME:TARGET%一邊躲避著%CALLNAME:PLAYER%的視線、一邊扭扭捏捏的將%PANTIES(TARGET, "内衣")%脫下了…
			ELSE
				PRINTFORMW %CALLNAME:PLAYER%慢慢脫下了红着脸的%CALLNAME:TARGET%的%PANTIES(TARGET, "内衣")%…
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:TARGET%脱下了%PANTIES(TARGET, "内衣")%…
		ENDIF
	ENDIF
	SELECTCASE ARGS
	CASE "胖次"
		CALL SET_PANTIES, ""
	CASE "内衣上下"
		CALL SET_BRA, ""
		CALL SET_PANTIES, ""
	ENDSELECT
ENDSELECT

;--------------------------------------------------------
;自発脱ぎ
;LOCALを自動脱ぎ度として用いる
;--------------------------------------------------------
@EVENT_AUTO_DATUI
;内衣を足首に絡めたりで一時的に脱いだだけの場合
#DIM IS_TEMPDATUIPANTU

;口上側での自動脱衣禁止措置
SIF CEVENT("禁止自動脱衣")
	RETURN 0
;自己脱いでくるのはどうだろう
;脱がない拜托中or75%で脱いでこない
SIF CONFIG("禁止自動脱衣") || RAND:4 || (COND("疲労") && BASE:性欲 >= MAXBASE:性欲)
	RETURN 0
;内褲冲指令
SIF PREVCOM == 97 && (CHECK_COM("玩弄Ａ手交") || CHECK_COM("洗面奶手交") )
	RETURN 0
;六九式、緊縛、眼罩中は脱いでこない
SIF TEQUIP:眼罩 || TEQUIP:拘束 || TEQUIP:六九式 || TEQUIP:深喉
	RETURN 0
;挿入、絶頂中は脱いできません
SIF INSERT("挿入") || INSERT("挿入中") || NOWEX:絶頂数合計
	RETURN 0
;既に裸体
SIF CHECK_CLO("裸体")
	RETURN 0
;Cosplay中
SIF CFLAG:Cosplay中
	RETURN 0

IS_TEMPDATUIPANTU = 0

;初期値は0～5
LOCAL = RAND:6

SELECTCASE SELECTCOM
;愛撫、胸愛撫、接吻は我慢できずに脱いでくる確率アップ
CASE 0, 5, 6
	LOCAL += 5
CASE TNUM("扒開阴道"), TNUM("扒開菊穴")
;性交系
CASE 60 TO 89, 120 TO 129
	RETURN 0
;Cosplay系
CASE 97, 175
	RETURN 0
ENDSELECT

LOCAL += TALENT:強気*10 + TALENT:好奇心*2 + TALENT:不在乎貞操*2 + TALENT:喜歡引人注目*3 + TALENT:不知羞恥*4 + TALENT:好色*5 + TALENT:淫乱*5
LOCAL -= TALENT:内気*3 + TALENT:冷静*2 + TALENT:保守的*2 + TALENT:害羞*3
LOCAL += (MIN(ABL:欲望, 10) + 1)/2 + (MIN(ABL:露出癖, 10) + 1)/2 + GET_PALAMLV(PALAM:Ｖ潤 + PALAM:欲情)
;媚薬
SIF TEQUIP:媚薬
	LOCAL += 5
;被逆推ている
SIF TEQUIP:推倒
	LOCAL += 3
;恍惚状態
SIF STATE("恍惚", PLAYER)
	LOCAL += 3

;攝像機
IF TEQUIP:攝像機
	LOCAL -= 5
	SIF COND("合意：露出PLAY")
		LOCAL += 5
ENDIF

;野外PLAY(人里)
IF COND("人里")
	LOCAL -= 10
	SIF COND("合意：露出PLAY")
		LOCAL += 5
	SIF COND("夜") == 0
		LOCAL -= 5
;野外PLAY(人里以外)
ELSEIF TEQUIP:野外PLAY
	LOCAL -= 3
	SIF COND("合意：露出PLAY")
		LOCAL += 5
	SIF COND("夜") == 0
		LOCAL -= 3
ENDIF

;服装による、脱いでくる条件の補正
;挿入系が選べない服装だと脱いできやすい
IF CHECK_PANTIES("Ｃ胖次")
	LOCAL += 10
ELSEIF CHECK_CLO("Ｖ露出可") == 0 && CHECK_CLO("Ａ露出可") == 0
	LOCAL += 10
ENDIF

;情緒が低いと脱いでこない
SELECTCASE MOOD_HEART()
CASE 0
	LOCAL /= 10
CASE IS < 3
	LOCAL /= 2
CASE IS >= 4
	LOCAL += 10
ENDSELECT

;まずは全裸化格子
IF LOCAL >= 30 && RAND:3 == 0 && CHECK_CLO("泳装姿") == 0
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%脫下了衣服、露出了美麗的赤裸身體……
	CALL SETFLAG, "扒成裸体", TARGET
	CALL KOJO_EVENT, "自発脱ぎ"
	RETURN 0
ENDIF

;既に股間が露出している
SIF CHECK_CLO("Ｖ露出") || CHECK_CLO("Ａ露出")
	RETURN 0

IF CHECK_CLO("贴身制服露出")
	IF CHECK_BODYS("带拉链的閉") && LOCAL >= 20
		PRINTL
		PRINTFORM %CALLNAME:TARGET%輕輕地張開雙腿、將%BODYS(TARGET, "略")%股間部分隱藏的拉鏈拉下……
		CSTR:贴身制服 += "带拉链的開/"
		IF (TALENT:恋慕 || TALENT:不知羞恥) && TALENT:男性 == 0 && CHECK_CLO("Ｖ露出")
			PRINTW 。
			PRINTFORMW 從手指稍微拓寬的狹小開口之中、可以隱約的看見%TEXTS("阴部：視覚")%……
		ELSE
			PRINTFORMW …
		ENDIF
		CALL KOJO_EVENT, "自発脱ぎ"
	ENDIF
ELSEIF CHECK_CLO("连褲襪露出")
	IF PALAM:欲情 < 30000
	ELSEIF LOCAL >= 15
		PRINTL
		PRINTFORM %CALLNAME:TARGET%小心的撕開了%OUTER(TARGET, "略")%股間的部分……
		CSTR:外套 += "破開的/"
		IF CHECK_CLO("Ｖ露出")
			PRINTFORMW 美麗的\@ PENIS(TARGET) ? 股間 # 陰部 \@在纖細布料的破洞中暴露出來了…
		ELSE
			PRINTFORMW 在纖細布料的小小洞口之中、可以清楚地看見散發著微微熱氣的胖次……
		ENDIF
		CALL KOJO_EVENT, "自発脱ぎ"
	ENDIF
;布鲁马は脱ぎません
ELSEIF CHECK_OUTER("布鲁马")
ELSEIF CHECK_CLO("外套露出")
	IF CHECK_OUTER("带拉链的")
		IF CHECK_OUTER("带拉链的閉") && LOCAL >= 20
			PRINTL
			PRINTFORM %CALLNAME:TARGET%輕輕地張開雙腿、將%OUTER(TARGET, "略")%股間部分隱藏的拉鏈拉下……
			CSTR:外套 += "带拉链的開/"
			IF (TALENT:恋慕 || TALENT:不知羞恥) && TALENT:男性 == 0 && CHECK_CLO("Ｖ露出")
				PRINTW 。
				PRINTFORMW 從手指稍微拓寬的狹小開口之中、可以隱約的看見%TEXTS("阴部：視覚")%……
			ELSE
				PRINTFORMW …
			ENDIF
			CALL KOJO_EVENT, "自発脱ぎ"
		ENDIF
	;胖次も穿いている
	ELSEIF EQUIP:胖次 && LOCAL >= 30
		PRINTL
		PRINTFORMW %CALLNAME:TARGET%小心的將%PANTIES(TARGET, "内衣")%連著%OUTER(TARGET, "略")%一起脫下來了…
		CALL SET_OUTER, ""
		CALL SET_PANTIES, ""
		CALL KOJO_EVENT, "自発脱ぎ"
	ELSEIF LOCAL >= 10
		PRINTL
		PRINTFORM %CALLNAME:TARGET%%OUTER(TARGET, "略")%
		IF TALENT:男性 == 0 && TEQUIP:推倒 && TALENT:不知羞恥 + TALENT:好色 + TALENT:淫乱 + TALENT:小悪魔 - TALENT:害羞 - TALENT:清楚 > 0
			PRINTFORMW %CALLNAME:TARGET%將%OUTER(TARGET, "略")%從身上脫下、羞怒的丟在%CALLNAME:PLAYER%的臉上……
			SIF PALAM:Ｖ潤 >= 3000 && PALAM:欲情 >= 3000 && RAND:3 == 0
				PRINTFORMW 在%CALLNAME:PLAYER%下意識的深嗅一口後、屬於%CALLNAME:TARGET%的濕潤的%TEXTS("气味")%漸漸流入鼻腔……
		ELSE
			PRINTFORMW 慢慢脫下……
		ENDIF
		CALL SET_OUTER, ""
		CALL KOJO_EVENT, "自発脱ぎ"
	ENDIF
ELSEIF CHECK_CLO("胖次露出")
	;带拉链的優先
	IF CHECK_PANTIES("带拉链的閉") && LOCAL >= 20
		PRINTL
		PRINTFORM %CALLNAME:TARGET%將內衣隱藏的拉鏈拉下……
		CSTR:胖次 += "带拉链的開/"
		IF TALENT:男性 == 0 && (TALENT:恋慕 || TALENT:不知羞恥) && CHECK_CLO("Ｖ露出")
			PRINTW 。
			PRINTFORMW 從手指稍微拓寬的狹小開口之中、可以隱約的看見%TEXTS("阴部：視覚")%……
		ELSE
			PRINTFORMW …
		ENDIF
		CALL KOJO_EVENT, "自発脱ぎ"
	ELSEIF CHECK_PANTIES("脱衣不可") == 0 && LOCAL >= 20
		PRINTL
		IF TEQUIP:推倒 && TALENT:不知羞恥 + TALENT:好色 + TALENT:淫乱 + TALENT:小悪魔 - TALENT:害羞 - TALENT:清楚 > 0
			PRINTFORM %CALLNAME:TARGET%將%PANTIES(TARGET, "略")%
			IF CHECK_PANTIES("前貼")
				PRINT 撕下、
			ELSEIF CHECK_PANTIES("Ｃ胖次")
				PRINT 取下了、
			ELSEIF CHECK_PANTIES("繩系胖次")
				PRINT 的紐扣一個個慢慢地解開了、
			ELSE
				PRINT 慢慢脫下了、
			ENDIF
			IF TEQUIP:面部騎乗
				PRINTFORMW 在丟到一旁後又慢慢地坐在%CALLNAME:PLAYER%的臉上了……
			ELSE
				PRINTFORMW 輕笑著丟到%CALLNAME:PLAYER%的臉上了……
			ENDIF
			IF TALENT:男性 == 0 && PALAM:Ｖ潤 >= 3000 && PALAM:欲情 >= 3000 && RAND:3 == 0
				IF RAND:2 && CHECK_PANTIES("Ｃ胖次") == 0
					PRINTFORMW 已經沾滿情色污漬的\@ CHECK_CLO("勒紧的") ? 深深勒進股間的 # 因濡濕而緊貼股間的 \@小小布料、因為膣道內側溢出的%TEXTR("黏稠/淫靡")%汁液而完全變成了深色調……
				ELSE
					PRINTFORMW 小小布料發出的屬於%CALLNAME:TARGET%的濃郁%TEXTS("气味")%悄悄飄進了%CALLNAME:PLAYER%的鼻腔……
				ENDIF
			ENDIF
		ELSE
			PRINTFORM %CALLNAME:TARGET%將%PANTIES(TARGET, "略")%
			IF CHECK_PANTIES("繩系胖次")
				PRINTFORMW 的紐扣一個個慢慢地解開了……
			ELSEIF CHECK_PANTIES("前貼")
				PRINTFORMW 撕下、慢慢地露出了%TEXTS("割れ目")%…
			ELSEIF CHECK_PANTIES("Ｃ胖次")
				PRINTFORMW 取下、慢慢地露出了%TEXTS("割れ目")%…
			ELSEIF TALENT:不知羞恥 && RAND:3 == 0
				PRINTFORMW 慢慢脫下、向%CALLNAME:PLAYER%仔細地展示過、得到許可後便丟到了遠處……
			ELSEIF ABL:露出癖 + TALENT:好色 && CHECK_PANTIES("男物") == 0 && CHECK_PANTIES("Ｃ胖次") == 0 && RAND:2
				PRINTFORMW 慢慢脫到小腿、拔出一隻腳後將它仔細地纏繞在另一隻腳的腳裸上……
				IS_TEMPDATUIPANTU = 1
			ELSEIF RAND:2 && TALENT:男性 == 0 && COND("陰毛") && COND("陰毛") != 6
				PRINTFORM 慢慢脫下、
				SIF RAND:2 && CHECK_PANTIES("Ｈ")
					PRINTFORM 被成熟風味的%PANTIES(TARGET, "内衣")%所掩藏著的
				SELECTCASE COND("陰毛")
				CASE 1
					PRINT 光潔無毛的
				CASE 2
					PRINT 完全脫毛的
				CASE 3
					PRINTFORM %TEXTR("剃毛済みの/光滑无毛の")%
				CASE 4
					;剃过留痕
					IF CONDS("陰毛") == "剃过留痕"
						PRINT 帶著微微毛茬兒的
					ELSE
						PRINT 生長著單薄陰毛的
					ENDIF
				CASE 5
					PRINTFORM %TEXTR("保养完毕みの/手入れの行き届いた")%
				CASE 6
					PRINT 被柔軟而茂密的陰毛遮蓋的
				CASE 7
					PRINT 被厚重的黑色密林深深掩藏的
				ENDSELECT
				PRINTFORMW %TEXTR("漂亮/淫靡")%的陰部顯露著……
			ELSE
				PRINTFORMW 慢慢脫下……
			ENDIF
			IF TALENT:男性 == 0 && PALAM:Ｖ潤 >= 3000 && PALAM:欲情 >= 3000 && RAND:3 == 0
				IF CHECK_PANTIES("通気性没有") && TALENT:男性 == 0
					PRINTFORMW 被毫無通氣性可言的布料緊緊密封的陰部中、雌性發情而產生的濃郁%TEXTS("气味")%、轉眼間在四周瀰漫開來……
				ELSEIF CHECK_PANTIES("男物") == 0 && CHECK_PANTIES("前貼") == 0 && CHECK_PANTIES("Ｃ胖次")
					PRINTFORMW %PANTIES(TARGET, "胖次")%的股間部分已然沾染了無法隱藏的色斑…
				ENDIF
			ENDIF
		ENDIF

		SIF IS_TEMPDATUIPANTU
			CALL SETFLAG, "内衣を一時的に脱掉", TARGET

		CALL KOJO_EVENT, "自発脱ぎ"

		SIF IS_TEMPDATUIPANTU == 0
			CALL SET_PANTIES, ""
	ENDIF
ENDIF

;移開的胖次とかを直す
@EVENT_ZURENAOSHI
;67%で直さない
SIF RAND:3 || COND("疲労") || TALENT:男性
	RETURN 0
;ずらしてない
SIF CHECK_CLO("移開的") == 0
	RETURN 0

SELECTCASE SELECTCOM
;愛撫の股間を重点的には弄らないもの
CASE 0, 5, 6
;愛撫系
CASE 0 TO 29
	RETURN 0
;道具系
CASE 30 TO 59
	RETURN 0
;性交系
CASE 60 TO 89, 120 TO 129
	RETURN 0
;SM系
CASE 130 TO 159
	RETURN 0
;Cosplay系
CASE 97, 175
	RETURN 0
;コミュニケーション系指令
CASE 280 TO 299
	RETURN 0
CASE TNUM("素股"), TNUM("尻素股"),
	RETURN 0
ENDSELECT

;内褲冲指令
SIF PREVCOM == 97 && (CHECK_COM("玩弄Ａ手交") || CHECK_COM("洗面奶手交") )
	RETURN 0
;六九式、緊縛、眼罩中
SIF TEQUIP:面部騎乗 || TEQUIP:眼罩 || TEQUIP:拘束 || TEQUIP:六九式 || TEQUIP:深喉 || TEQUIP:PLAYER:自慰
	RETURN 0
;挿入中、絶頂
SIF INSERT("挿入") || INSERT("挿入中") || NOWEX:絶頂数合計 || TEQUIP:振動棒 || TEQUIP:导管 || TEQUIP:肛用振動棒 || TEQUIP:尿道振動棒 || TEQUIP:肛塞
	RETURN 0

;ARGが0でないならテ接吻トは出力しない
VARSET LOCALS
SIF EQUIP:贴身制服 && CHECK_BODYS("移開的")
	LOCALS = %BODYS(TARGET, "略")%と
SIF EQUIP:外套 && CHECK_OUTER("移開的")
	LOCALS = %LOCALS%%OUTER(TARGET, "略")%と
SIF EQUIP:胖次 && CHECK_PANTIES("移開的")
	LOCALS = %LOCALS%%PANTIES(TARGET, "略")%と

PRINTL
PRINTFORMW %CALLNAME:TARGET%將%SUBSTRING(LOCALS, 0, STRLENS(LOCALS) - 2)%的位置不動聲色地調整好了……
CALL RESETFLAG_CLO, TARGET, "移開的"

;時間ごとに一度行うRAND_PANTU。時間帯などの調整が入っている
@RAND_PANTU_ALL
#DIM LCOUNT
#DIM MEMO_TIME
#DIM MEMO_DAY
#DIMS MEMO_PLACE

MEMO_TIME = TIME
MEMO_DAY = DAY
MEMO_PLACE = %SAVESTR:現在位置%

CALL SETFLAG, "次の時間帯のＴＰＯ"

FOR LCOUNT, 1, CHARANUM
	;胖次は謎にする
	CFLAG:LCOUNT:内衣確認済 = 0
	;日替わりと汚れが凄い場合には履き替える
	SIF COND("昼", LCOUNT) || (ABL:LCOUNT:欲望 >= 3 && TALENT:LCOUNT:容易濕 && RAND:2) || EQUIP:LCOUNT:胖次 == 0
		CALL RAND_PANTU, LCOUNT
NEXT

TIME = MEMO_TIME
DAY = MEMO_DAY
SAVESTR:現在位置 = %MEMO_PLACE%

;ARGSに"没穿内褲禁止"とすると必ず何かを穿く
@RAND_PANTU, ARG, ARGS
TFLAG:换上了自己的内衣 = 0
;PRINTFORM %CALLNAME:ARG% %CSTR:ARG:胸罩% →
CALL RAND_PANTU_MAIN, ARG, ARGS

;换上了自己的内衣場合は胸罩もセットなのでスキップ
SIF TFLAG:换上了自己的内衣 == 0
	CALL RAND_BRA, ARG, ARGS

;PRINTFORML \@ TFLAG:换上了自己的内衣 ? 自分の内衣： # \@%CSTR:ARG:胸罩%

@RAND_PANTU_MAIN, ARG, ARGS
#DIMS MEMO_PANTU

MEMO_PANTU = %CSTR:ARG:胖次%

;胖次の着用禁止
IF COND("身嗜み：没穿内褲", ARG) && ARGS != "没穿内褲禁止"
	CALL SET_PANTIES, "", ARG
	RETURN 0
ENDIF
;胖次を穿き替えない理由いろいろ
SIF COND("脚が無い", ARG) || EQUIP:ARG:贴身制服 || CHECK_PANTIES("泳装", ARG) || CHECK_PANTIES("脱衣不可", ARG) || CHECK_PANTIES("兜襠布", ARG) || CEVENT("内衣固定")
	RETURN 0
;外套がＶorＡ穴開きなら胖次ははかない
IF EQUIP:ARG:外套 && CHECK_OUTER("连褲襪", ARG) == 0 && (CHECK_OUTER("Ｖ露出", ARG) || CHECK_OUTER("Ａ露出", ARG) )
	CALL SET_PANTIES, "", ARG
	RETURN 0
ENDIF

;所持内衣の設定有
IF COND("所持内衣数", ARG)
	CALL SETFLAG, "所持内衣に更衣", ARG
	CALL SETFLAG, "随机汚胖次化", ARG
	RETURN 1
;随机内衣を行わないフラグを立てている場合は穿上自己的内衣
ELSEIF ARG == MASTER || CFLAG:ARG:随机内衣OFF
	CALL SET_COORDINATE, "内衣", ARG
	CALL SETFLAG, "随机汚胖次化", ARG
	RETURN 1
ENDIF

;外套が高開衩
IF EQUIP:ARG:外套 && CHECK_OUTER("高開衩", ARG)
	;人によっては没穿内褲(ちんこある人は连褲襪必須)
	IF ABL:ARG:露出癖 >= MAX(5, RAND:10) && ARGS != "没穿内褲禁止" && (CHECK_OUTER("连褲襪", ARG) || PENIS(ARG) == 0)
		CALL SET_PANTIES, "", ARG
		RETURN 0
	ELSEIF RAND:3 == 0 && (ABL:ARG:露出癖 >= 5 || TALENT:ARG:好色 || TALENT:ARG:淫乱) && DISLIKE_PANTIES("Ｃ胖次", ARG) == 0
		CALL SET_PANTIES, "Ｃ胖次", ARG
	ELSE
		CALL SET_PANTIES, "高開衩胖次", ARG
	ENDIF
;外套が低腰
ELSEIF EQUIP:ARG:外套 && CHECK_OUTER("低腰", ARG)
	;人によっては没穿内褲
	IF ABL:ARG:露出癖 >= MAX(5, RAND:10) && ARGS != "没穿内褲禁止"
		CALL SET_PANTIES, "", ARG
		RETURN 0
	ELSEIF RAND:2 && (ABL:ARG:露出癖 >= 3 || TALENT:ARG:好色 || TALENT:ARG:淫乱) && DISLIKE_PANTIES("超低腰胖次", ARG) == 0
		CALL SET_PANTIES, "超低腰胖次", ARG
	ELSE
		CALL SET_PANTIES, "低腰胖次", ARG
	ENDIF
ELSE
	CALL GET_RAND_PANTU, ARG, ARGS
ENDIF
;阴茎がある人は開放型開洞は随机だと穿かない
SIF PENIS(ARG) && CHECK_PANTIES("Ｖ露出", ARG)
	CALL SET_PANTIES, "後開型", ARG

CALL SETFLAG, "随机汚胖次化", ARG

@RAND_BRA, ARG, ARGS
;无胸罩主義なら无胸罩
IF COND("无胸罩主義", ARG)
	CALL SET_BRA, "", ARG
;Ｈ的胖次を選んだなら胸罩も同様に
ELSEIF CHECK_PANTIES("Ｈ", ARG)
	CALL SET_BRA, "Ｈ的胸罩", ARG
;好みの胸罩が設定されているなら、高確率でそれを選ぶ
ELSEIF CSTR:ARG:喜欢的胸罩 != "" && RAND:7
	CALL SET_BRA, TEXTR(CSTR:ARG:喜欢的胸罩), ARG
;そうでないなら、胖次に合わせた胸罩を選ぶ
ELSE
	CALL COORDINATE_BRA, ARG
ENDIF

;胸罩の色をあわせる
CALL EQ_CLOCOLOR, ARG

@GET_RAND_PANTU, ARG, ARGS
#DIM LCOUNT
;胖次の好き嫌いがあるので何を穿いているかを２段階で選別する
#DIMS PANTU_TABLE_PRE
#DIMS PANTU_TABLE

;何らかの内衣を選ぶので胖次重置
CALL SET_PANTIES, "", ARG

;没穿内褲(ちんこある人は後開型)
IF RAND:10 == 0 && ABL:ARG:露出癖 >= 7 && ARGS != "没穿内褲禁止"
	IF PENIS(ARG)
		CALL SET_PANTIES, "後開型", ARG
	ELSE
		RETURN 1
	ENDIF
ENDIF

;25%で自分の内衣
IF RAND:4 == 0
	CALL SET_COORDINATE, "内衣", ARG
	RETURN 1
ELSEIF TALENT:ARG:好色 + TALENT:ARG:淫乱 && ABL:ARG:露出癖 >= 5 && RAND:4 == 0 && DISLIKE_PANTIES("Ｈ的内衣", ARG) == 0
	IF PENIS(ARG) && COND("Ａ熟達", ARG) && RAND:3
		CALL SET_PANTIES, "後開型", ARG
	ELSE
		CALL SET_PANTIES, "Ｈ的内衣", ARG
	ENDIF
;好みの胖次が設定されているなら、高確率でそれを選ぶ
ELSEIF CSTR:ARG:喜欢的胖次 != "" && RAND:2
	CALL SET_PANTIES, TEXTR(CSTR:ARG:喜欢的胖次), ARG
ENDIF

;ここまでで選んだ胖次が服装的に問題ないかを格子
;丈が短い休闲褲だと四角褲などは場違い
IF CHECK_OUTER("布鲁马", ARG) || CHECK_OUTER("热褲", ARG)
	SIF CHECK_PANTIES("男物", ARG) || CHECK_PANTIES("兜襠布", ARG) || CHECK_PANTIES("貞操帯", ARG)
		CALL SET_PANTIES, "", ARG
;露脐装超短裙
ELSEIF CHECK_SKIRT("迷你", ARG)
	SIF CHECK_PANTIES("男物", ARG)
		CALL SET_PANTIES, "", ARG
;性別と心情的なもの加味
ELSEIF TALENT:ARG:恋慕 + TALENT:ARG:淫乱 && TALENT:ARG:男性 == 0 && TALENT:MASTER:男性
	IF CHECK_PANTIES("男物", ARG)
		IF EQUIP:ARG:外套 && CHECK_OUTER("男物可", ARG) == 0
			CALL SET_PANTIES, "", ARG
		ELSEIF FLAG:叫出来Ｈ中 || COND("约会中", ARG) || RAND:2
			CALL SET_PANTIES, "", ARG
		ENDIF
	ENDIF
ENDIF
SIF EQUIP:ARG:胖次
	RETURN 1

;以下は随机選択
PANTU_TABLE =
PANTU_TABLE_PRE = 內褲/

;素質などで穿いている胖次にバリエーション
SIF (ABL:ARG:露出癖 >= 3 || TALENT:ARG:不知羞恥) && (TALENT:ARG:小悪魔 || AGE(ARG) <= 2)
	PANTU_TABLE_PRE += "超低腰胖次/丁字褲/紐丁字褲/"
SIF (ABL:ARG:露出癖 >= 3 || TALENT:ARG:不知羞恥) && (TALENT:ARG:強気 || TALENT:ARG:開朗 || AGE(ARG) >= 3)
	PANTU_TABLE_PRE += "高開衩胖次/Micro內褲/"
SIF (ABL:ARG:露出癖 >= 5 || TALENT:ARG:不知羞恥) && TALENT:ARG:好色 + TALENT:ARG:喜歡引人注目
	PANTU_TABLE_PRE += "Ｃ胖次/"
SIF ABL:ARG:露出癖 >= 7 && TALENT:ARG:好色 + TALENT:ARG:淫乱
	PANTU_TABLE_PRE += "開放型開洞胖次/"
SIF TALENT:ARG:害羞 || TALENT:ARG:粗野 || PENIS(ARG)
	PANTU_TABLE_PRE += "四角内褲/"
SIF TALENT:ARG:高贵 + TALENT:ARG:清楚
	PANTU_TABLE_PRE += "蕾丝的胖次/褶边の胖次/"
SIF COND("Ａ熟達", ARG) && ABL:ARG:露出癖 >= 5 && COND("性処理中", ARG) + TALENT:ARG:好色 + TALENT:ARG:淫乱
	PANTU_TABLE_PRE += "後開型/"

;外見年齢による適性
SELECTCASE AGE(ARG)
;大人
CASE 4
	PANTU_TABLE_PRE += "全後衛胖次/蕾丝的胖次/丁字褲/紐丁字褲/"
;大姐姐
CASE 3
	PANTU_TABLE_PRE += "三角胖次/條紋胖次/蕾丝的胖次/透明胖次/褶边の胖次/丁字褲/紐丁字褲/"
;少女以下
CASEELSE
	PANTU_TABLE_PRE += "三角胖次/低腰胖次/條紋胖次/褶边の胖次/"
ENDSELECT

VARSET LOCALS
SPLIT PANTU_TABLE_PRE, "/", LOCALS

FOR LCOUNT, 0, 30
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASEELSE
		SIF DISLIKE_PANTIES(LOCALS:LCOUNT, ARG) == 0
			PANTU_TABLE += @"%LOCALS:LCOUNT%\/"
	ENDSELECT
NEXT
CALL SET_PANTIES, TEXTR(PANTU_TABLE), ARG


code:
;-------------------------------------------------
;ARGSが色を表す文字列かを判定する。色の種類を増やしたらここにも追加する事
;各色についての名称はここに書いたものに統一する。紺色、緑色には注意
;-------------------------------------------------
@IS_CLOCOLOR(ARGS)
#FUNCTION
#DIM LCOUNT
VARSET LOCALS
SPLIT TEXT_ALLCOLOR(), "/", LOCALS
FOR LCOUNT, 0, 100
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		RETURNF 0
	CASE ARGS
		RETURNF 1
	ENDSELECT
NEXT

@TEXT_ALLCOLOR()
#FUNCTIONS
LOCALS = 紅白/緑白/青白/黄白/黒白/粉紅/橘/白黒/花柄/
LOCALS += "草莓紋/小熊紋/鱼紋/猫紋/小鸡紋/蝴蝶结紋/水玉模様/水玉粉紅/水玉黒/水玉黄色/水玉水色/水玉白黒/水玉白/"
LOCALS += "黄色/橙色/黒/濃紫/紫/薄青色/青/紺色/真紅/赤/薄桃色/桃色/純白/白/緑色/薄緑/灰色/水色/焦茶色/茶色/米色/"
LOCALS += "條紋/水玉色/豹纹/奶牛/虎紋/儿童胖次颜色/淡色/Ｈ的颜色/隨機顏色/比基尼色/辣妹/男式色/柄/"
;色のある无がバグの温床なので全てＯＫとして、後で本体側が使いやすい方を自動選択させる
LOCALS += "橘色/黒色/紫色/青色/赤色/桃/白色/薄緑色/條紋色/水玉色/辣妹色/"
LOCALS += "黄/橙/紺/薄青/薄桃/桃色/緑/灰/焦茶/茶/"
;特殊
LOCALS += "藤の花/"
RETURNF LOCALS

;-------------------------------------------------
;衣装文字列ARGSにARGS:1を、以下のルールを守りながら混ぜる
;・色に関してはARGS:1の要素で上書きさせる
;・正面蝴蝶結属性は"正面蝴蝶結"を含む文字列と入れ替え
;・共通属性追加済/は末尾に付け直す
;-------------------------------------------------
@MERGE_STR(ARGS, ARGS:1)
#FUNCTIONS
#DIM LCOUNT
#DIMS STR_ADD

SIF ARGS:1 == "" || ARGS == ""
	RETURNF ARGS

STR_ADD =
;ARGS:1の色文字列を使える状態に変換し的同时、ARGSに混ぜる文字列STR_ADDに作り変える
VARSET LOCALS
SPLIT ARGS:1, "/", LOCALS
FOR LCOUNT, 0, 10
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASEELSE
		;色文字列は使える状態に変換
		SIF IS_CLOCOLOR(LOCALS:LCOUNT)
			LOCALS:LCOUNT = %SET_CLOCOLOR(LOCALS:LCOUNT)%
		STR_ADD += @"%LOCALS:LCOUNT%\/"
	ENDSELECT
NEXT

;STR_ADDが色に関する場合は、ARGSから色文字列を拔出
SIF STR_ADD != RESET_CLOCOLOR(STR_ADD)
	ARGS = %RESET_CLOCOLOR(ARGS)%
;STR_ADDが正面蝴蝶結に関する場合はARGSから正面蝴蝶結属性を拔出
IF STRCOUNT(STR_ADD, "正面蝴蝶結") && STRCOUNT(ARGS, "正面蝴蝶結")
	VARSET LOCALS
	SPLIT ARGS, "/", LOCALS
	ARGS =
	FOR LCOUNT, 0, 100
		SELECTCASE LOCALS:LCOUNT
		CASE ""
			BREAK
		CASEELSE
			SIF STRCOUNT(LOCALS:LCOUNT, "正面蝴蝶結")
				CONTINUE
			ARGS += @"%LOCALS:LCOUNT%\/"
		ENDSELECT
	NEXT
ENDIF

;共通属性追加済みを末尾に付け直す処理
IF STRCOUNT(ARGS, "共通属性追加済")
	ARGS = %EXTSTR(ARGS, "", "共通属性追加済/")%
	STR_ADD += "共通属性追加済/"
ENDIF

ARGS += @"%STR_ADD%"

RETURNF ARGS

;-------------------------------------------------
;衣装文字列ARGSから色に関するものを消し去る
;色に関わる文字列かどうかは@IS_CLOCOLORで判定する
;-------------------------------------------------
@RESET_CLOCOLOR(ARGS)
#FUNCTIONS
#DIM LCOUNT

VARSET LOCALS
SPLIT ARGS, "/", LOCALS

ARGS =
FOR LCOUNT, 0, 100
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASEELSE
		SIF IS_CLOCOLOR(LOCALS:LCOUNT)
			CONTINUE
		ARGS += @"%LOCALS:LCOUNT%\/"
	ENDSELECT
NEXT
RETURNF ARGS

;-------------------------------------------------
;衣装文字列ARGSから色に関するもの＆正面蝴蝶結属性のみを /色/正面蝴蝶結属性 の形で抜き出す
;色に関わる文字列かどうかは@IS_CLOCOLORで判定する
;-------------------------------------------------
@CHECK_ADDCLO(ARGS)
#FUNCTIONS
#DIM LCOUNT

VARSET LOCALS
SPLIT ARGS, "/", LOCALS

ARGS =
FOR LCOUNT, 0, 100
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASEELSE
		SIF IS_CLOCOLOR(LOCALS:LCOUNT) || STRCOUNT(LOCALS:LCOUNT, "正面蝴蝶結")
			ARGS += @"\/%LOCALS:LCOUNT%"
	ENDSELECT
NEXT
RETURNF ARGS

;-------------------------------------------------
;衣装文字列ARGSから色に関するものを返す
;色に関わる文字列かどうかは@IS_CLOCOLORで判定する
;注意：これは@CLOCOLOR内部での計算が主な用途
;-------------------------------------------------
@CHECK_CLOCOLOR(ARGS)
#FUNCTIONS
#DIM LCOUNT

;文字列に / を含まない場合は飾品なので特殊な判定をする
SIF STRCOUNT(ARGS, "/") == 0
	RETURNF CHECK_OTHERCOLOR(ARGS)

VARSET LOCALS
SPLIT ARGS, "/", LOCALS

FOR LCOUNT, 0, 100
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASEELSE
		SIF IS_CLOCOLOR(LOCALS:LCOUNT)
			RETURNF LOCALS:LCOUNT
	ENDSELECT
NEXT
RETURNF ""

;-------------------------------------------------
;衣装文字列ARGSが色に関するものを含んでいるだけでそれを返す。主に飾品用
;画像表示される色を求められる饰に関しては、色が指定されていない場合には默认色を返す
;-------------------------------------------------
@CHECK_OTHERCOLOR(ARGS)
#FUNCTIONS
#DIM LCOUNT

VARSET LOCALS
SPLIT TEXT_ALLCOLOR(), "/", LOCALS

FOR LCOUNT, 0, 100
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASEELSE
		SIF STRCOUNT(ARGS, LOCALS:LCOUNT)
			RETURNF LOCALS:LCOUNT
	ENDSELECT
NEXT
;特に色指定がされていない饰は、もしあるならば默认カラーを返す
IF CUSEABLE(ARGS) != ""
	VARSET LOCALS
	SPLIT CUSEABLE(ARGS), "/", LOCALS
	RETURNF LOCALS
ENDIF

RETURNF ""

;-------------------------------------------------
;衣装文字列ARGSから色を返させる。ARGS:1に"形容詞"等を入れる事で変化を出せる
;-------------------------------------------------
@CLOCOLOR(ARGS, ARGS:1)
#FUNCTIONS
#DIMS COLOR_ABOUT
#DIMS COLOR_PATTERN

COLOR_PATTERN =
;柄物格子
IF STRCOUNT(ARGS, "條紋")
	COLOR_PATTERN = 條紋
ELSEIF STRCOUNT(ARGS, "水玉")
	COLOR_PATTERN = 水玉模様
ELSEIF STRCOUNT(ARGS, "豹纹")
	COLOR_PATTERN = 豹纹
ENDIF

COLOR_ABOUT = %CHECK_CLOCOLOR(ARGS)%

VARSET LOCALS
SELECTCASE ARGS:1
CASE "色のみ"
	LOCALS = %COLOR_ABOUT%
CASE "形容詞"
	SIF COLOR_PATTERN != ""
		COLOR_ABOUT = %COLOR_PATTERN%

	SELECTCASE COLOR_ABOUT
	CASE ""
	CASE "赤", "青", "黒", "白"
		LOCALS = %COLOR_ABOUT%い
	CASE "柄"
		LOCALS = %COLOR_ABOUT%有些の
	CASEELSE
		LOCALS = %COLOR_ABOUT%の
	ENDSELECT
CASEELSE
	SIF COLOR_PATTERN != ""
		COLOR_ABOUT = %COLOR_PATTERN%
	LOCALS = %COLOR_ABOUT%
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;衣装ARGS:1に、色ARGSを適用する関数。もしもARGSが使えない場合は、使用可能な別の色がARGSに代入される
;ARGS:1には衣装の文字列が入っている事が有参照できる（水玉模様の蕾丝的胖次、等が起きないように参照するため）
;-------------------------------------------------
@SET_CLOCOLOR(ARGS, ARGS:1)
#FUNCTIONS
#DIMS COLOR_USABLE

SIF SAVESTR:内衣の指定色 != ""
	RETURNF SAVESTR:内衣の指定色

;まずは間違いが起きやすい色(緑色or緑、など)の変換
SELECTCASE ARGS
CASE "橘色", "黒色", "紫色", "青色", "赤色", "白色", "薄緑色", "條紋色", "水玉色", "辣妹色"
	ARGS = %SUBSTRINGU(ARGS, 0, STRLENSU(ARGS) - 1)%
CASE "黄", "橙", "紺", "薄青", "薄桃", "緑", "灰", "水", "茶"
	ARGS = %ARGS%色
ENDSELECT

SELECTCASE ARGS
;絶対に変更が起きないもの
CASE "水玉模様"
	RETURNF ARGS
CASE "條紋"
	LOCALS = %TEXTR("紅白/緑白/青白/黄白/黒白")%
CASE "花柄"
	LOCALS = %TEXTR("桃色/水色/薄緑/青")%
CASE "水玉"
	LOCALS = 水玉%TEXTR("粉紅/黄色/黒/水色/白/白黒")%
CASE "淡色"
	LOCALS = %TEXTR("白/桃色/緑色/黄色/青")%
CASE "辣妹"
	LOCALS = %TEXTR("豹纹/黒/紫/赤")%
CASE "Ｈ的颜色"
	LOCALS = %TEXTR("黒/紫/真紅/赤/純白")%
CASE "男式色"
	LOCALS = %TEXTR("黒/紺色")%
CASE "儿童胖次颜色"
	LOCALS = %TEXTR("白/草莓紋/小熊紋/鱼紋/猫紋/小鸡紋/蝴蝶结紋/水玉模様/緑色")%
CASE "隨機顏色"
	LOCALS = %TEXTR("白/黒/赤/桃色/紫/青/緑色/黄色")%
CASE "比基尼色"
	LOCALS = %TEXTR("白/黒/灰色/赤/桃色/紫/青/水色/薄緑/緑色/黄色")%
CASEELSE
	LOCALS = %ARGS%
ENDSELECT

COLOR_USABLE =
;大人の事情により色制限がかかるものの管理。ARGS:1 == ""ならLOCALSが返る
;まずは後面要素
IF STRCOUNT(ARGS:1, "Ｔ字褲")
	IF STRCOUNT(ARGS:1, "丁字褲")
		COLOR_USABLE = %CUSEABLE("丁字褲")%
	ELSE
		COLOR_USABLE = %CUSEABLE("汎用Ｔ字褲")%
	ENDIF
ENDIF
;ついで前面
IF STRCOUNTS(ARGS:1, "吊帯背心")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("吊帯背心"), COLOR_USABLE)%
ELSEIF STRCOUNTS(ARGS:1, "開放型開洞")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("開放型開洞胖次"), COLOR_USABLE)%
ELSEIF STRCOUNTS(ARGS:1, "Micro內褲")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("Micro內褲"), COLOR_USABLE)%
ELSEIF STRCOUNT(ARGS:1, "丁字褲")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("丁字褲"), COLOR_USABLE)%
ELSEIF STRCOUNTS(ARGS:1, "Micro比基尼", "淚珠泳衣")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("汎用Ｔ字褲"), COLOR_USABLE)%
ELSEIF STRCOUNT(ARGS:1, "兜襠布")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("兜襠布"), COLOR_USABLE)%
ELSEIF STRCOUNT(ARGS:1, "四角内褲")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("四角内褲"), COLOR_USABLE)%
ELSEIF STRCOUNT(ARGS:1, "超低腰")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("超低腰胖次"), COLOR_USABLE)%
ELSEIF STRCOUNTS(ARGS:1, "內褲", "三角胖次", "蕾丝的胖次", "高開衩", "高開衩胖次", "低腰胖次", "褶边")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("內褲"), COLOR_USABLE)%
ELSEIF STRCOUNT(ARGS:1, "Ｃ胖次")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("Ｃ胖次"), COLOR_USABLE)%
ELSEIF STRCOUNT(ARGS:1, "心形貼紙")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("心形貼紙"), COLOR_USABLE)%
ELSEIF STRCOUNT(ARGS:1, "前貼")
	COLOR_USABLE = %EXTRACT_COMMON_COLOR(CUSEABLE("前貼"), COLOR_USABLE)%
ENDIF
IF EXTRACT_COMMON_COLOR(COLOR_USABLE, LOCALS) != ""
	RETURNF LOCALS
ELSE
	RETURNF TEXTR(COLOR_USABLE)
ENDIF

;-------------------------------------------------
;角色ARGの胖次の色をARGSにし、その後胸罩の色を胖次に合わせる
;-------------------------------------------------
@EQ_CLOCOLOR, ARG, ARGS
#DIM LCOUNT
SIF ARG <= 0 && TARGET > 0
	ARG = TARGET
SELECTCASE ARGS
CASE ""
	;胸罩の色を胖次に合わせる
	SIF EQUIP:ARG:胸罩 && EQUIP:ARG:胖次 && STRCOUNT(CUSEABLE(BRA(ARG, "種類") ), CLOCOLOR(CSTR:ARG:胖次) )
		CSTR:ARG:胸罩 = %MERGE_STR(CSTR:ARG:胸罩, CHECK_CLOCOLOR(CSTR:ARG:胖次) )%
CASEELSE
	;胖次と胸罩の色をARGSに変える
	SIF EQUIP:ARG:胖次
		CSTR:ARG:胖次 = %MERGE_STR(CSTR:ARG:胖次, ARGS)%
	SIF EQUIP:ARG:胸罩
		CSTR:ARG:胸罩 = %MERGE_STR(CSTR:ARG:胸罩, ARGS)%
ENDSELECT

EQUIP:ARG:胖次 = STRLENS(CSTR:ARG:胖次)
EQUIP:ARG:胸罩 = STRLENS(CSTR:ARG:胸罩)

;-------------------------------------------------
;ARGが服装ARGSを着る際にどの色を着るかを決める
;ARGS:1に色が入っている場合にはそれを優先する
;-------------------------------------------------
@CLOCOLOR_MAIDFACE(ARGS, ARGS:1, ARG)
#FUNCTIONS
#DIM LCOUNT
;その衣装で使うことが出来る色を/区切りで記述して、CSTR:喜欢的颜色 に対応できるようにする
#DIMS COLOR_USABLE
#DIMS COLOR_CHOICES
#DIMS COLOR_DEFO

SIF ARGS == ""
	RETURNF ""

COLOR_DEFO =
COLOR_CHOICES =
COLOR_USABLE = %CUSEABLE(ARGS, ARG)%

SIF ARGS:1 != "" && (STRCOUNT(COLOR_USABLE, ARGS:1) || COLOR_USABLE == "")
	RETURNF ARGS:1

VARSET LOCALS
SPLIT COLOR_USABLE, "/", LOCALS
;各衣裳の默认カラーをここで決めておく
COLOR_DEFO = %LOCALS:0%

FOR LCOUNT, 0, 10
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASEELSE
		SIF STRCOUNT(CSTR:ARG:喜欢的颜色, LOCALS:LCOUNT) == 0
			CONTINUE

		COLOR_CHOICES = %LOCALS:LCOUNT%
		BREAK
	ENDSELECT
NEXT

SIF COLOR_CHOICES != ""
	RETURNF COLOR_CHOICES

;学年や立場などでの自動決定があるならここに書く
SELECTCASE ARGS
CASE "水手"
	;SIF CHECK_SHIRT("水手夏服", ARG)
	;	RETURNF "白"
	SELECTCASE CSTR:ARG:学年
	CASE "初等部", "中等部"
		RETURNF "紺色"
	CASEELSE
		RETURNF "青"
	ENDSELECT
CASE "西装外衣", "領帶西装", "男子西装"
	IF CHECK_SHIRT("男物", ARG)
		IF COND("教員", ARG)
			RETURNF "黒"
		ELSE
			RETURNF "茶色"
		ENDIF
	ELSEIF COND("教員", ARG)
		RETURNF "赤"
	ELSE
		SELECTCASE CSTR:ARG:学年
		CASE "初等部", "中等部"
			RETURNF "青"
		CASEELSE
			RETURNF "茶色"
		ENDSELECT
	ENDIF
CASE "領帯女式衬衫"
	IF COND("教員", ARG)
		RETURNF "青"
	ELSEIF CHECK_SHIRT("男物", ARG)
		RETURNF "黒"
	ELSE
		RETURNF "赤"
	ENDIF
CASE "蝴蝶結女式衬衫"
	IF COND("教員", ARG)
		RETURNF "青"
	ELSEIF CHECK_SHIRT("男物", ARG)
		RETURNF "黒"
	ELSE
		SELECTCASE CSTR:ARG:学年
		CASE "初等部", "中等部"
			RETURNF "緑色"
		CASEELSE
			RETURNF "赤"
		ENDSELECT
	ENDIF
CASE "运动衫", "运动衫休闲褲", "五分褲"
	IF COND("教員", ARG)
		IF STRCOUNT(CSTR:ARG:学年, "体育")
			RETURNF "緑色"
		ELSE
			RETURNF "黒"
		ENDIF
	ELSE
		SELECTCASE CSTR:ARG:学年
		CASE "初等部"
			RETURNF "青"
		CASE "中等部"
			RETURNF "青"
		CASE "１年生"
			RETURNF "緑色"
		CASE "２年生"
			RETURNF "赤"
		CASE "３年生"
			RETURNF "黒"
		CASEELSE
			RETURNF "赤"
		ENDSELECT
	ENDIF
CASE "詰襟运动衫"
	IF COND("教員", ARG)
		RETURNF "橙色"
	ELSEIF CHECK_SHIRT("男物", ARG)
		RETURNF "黄色"
	ELSE
		SELECTCASE CSTR:ARG:学年
		CASE "初等部", "中等部"
			RETURNF "緑色"
		CASEELSE
			RETURNF "赤"
		ENDSELECT
	ENDIF
CASE "布鲁马", "体操服", "高開衩布鲁马", "体操服(短)"
	IF COND("教員", ARG)
		RETURNF "赤"
	ELSE
		SELECTCASE CSTR:ARG:学年
		CASE "初等部"
			RETURNF "水色"
		CASE "中等部"
			RETURNF "緑色"
		CASE "１年生"
			RETURNF "紺色"
		CASE "２年生"
			RETURNF "紺色"
		CASE "３年生"
			RETURNF "紺色"
		CASEELSE
			RETURNF "赤"
		ENDSELECT
	ENDIF
CASE "紧身短褲"
	SELECTCASE CSTR:ARG:学年
	CASE "初等部", "中等部", "１年生", "２年生", "３年生"
		RETURNF "黒"
	CASEELSE
		RETURNF "柄"
	ENDSELECT
CASE "競泳泳装"
	IF COND("教員", ARG)
		IF STRCOUNT(CSTR:ARG:学年, "体育")
			RETURNF "赤"
		ELSE
			RETURNF "黒"
		ENDIF
	ELSE
		SELECTCASE CSTR:ARG:学年
		CASE "初等部", "中等部"
			RETURNF "赤"
		CASE "１年生", "２年生", "３年生"
			RETURNF "青"
		CASEELSE
			RETURNF "黒"
		ENDSELECT
	ENDIF
CASE "旗袍"
	SELECTCASE CONDS("髪色の種類", ARG)
	CASE "黒"
		RETURNF "赤"
	CASEELSE
		IF COND("教員", ARG)
			RETURNF "黒"
		ELSE
			RETURNF "赤"
		ENDIF
	ENDSELECT
CASE "兔女郎制服"
	SELECTCASE CONDS("髪色の種類", ARG)
	CASE "黒"
		RETURNF "赤"
	CASE "金"
		RETURNF "青"
	CASEELSE
		IF COND("教員", ARG)
			RETURNF "黒"
		ELSE
			RETURNF "赤"
		ENDIF
	ENDSELECT
CASE "振袖"
	SELECTCASE CONDS("髪色の種類", ARG)
	CASE "黒"
		SELECTCASE NORM(1315, ARG)%4
		CASE 0
			RETURNF "紫"
		CASE 1
			RETURNF "青"
		CASE 2
			RETURNF "赤"
		CASE 3
			RETURNF "緑色"
		ENDSELECT
	CASE "赤"
		SELECTCASE NORM(1315, ARG)%4
		CASE 0
			RETURNF "黒"
		CASE 1
			RETURNF "紫"
		CASE 2
			RETURNF "青"
		CASE 3
			RETURNF "緑色"
		ENDSELECT
	CASEELSE
		SELECTCASE NORM(1315, ARG)%5
		CASE 0
			RETURNF "黒"
		CASE 1
			RETURNF "紫"
		CASE 2
			RETURNF "青"
		CASE 3
			RETURNF "赤"
		CASE 4
			RETURNF "緑色"
		ENDSELECT
	ENDSELECT
CASE "浴衣"
	SELECTCASE CONDS("髪色の種類", ARG)
	CASE "金"
		SELECTCASE NORM(1316, ARG)%4
		CASE 0
			RETURNF "黒"
		CASE 1
			RETURNF "赤"
		CASE 2
			RETURNF "緑色"
		CASE 3
			RETURNF "青"
		ENDSELECT
	CASEELSE
		SELECTCASE NORM(1316, ARG)%5
		CASE 0
			RETURNF "黄色"
		CASE 1
			RETURNF "黒"
		CASE 2
			RETURNF "赤"
		CASE 3
			RETURNF "緑色"
		CASE 4
			RETURNF "青"
		ENDSELECT
	ENDSELECT
CASE "和服"
	SELECTCASE NORM(1317, ARG)%5
	CASE 0
		RETURNF "黒"
	CASE 1
		RETURNF "青"
	CASE 2
		RETURNF "赤"
	CASE 3
		RETURNF "白"
	CASE 4
		RETURNF "緑色"
	ENDSELECT
CASE "眼鏡"
	IF STRCOUNT(CSTR:ARG:喜欢的颜色, "黒")
		RETURNF "黒"
	ELSEIF STRCOUNT(CSTR:ARG:喜欢的颜色, "赤")
		RETURNF "赤"
	ELSEIF STRCOUNT(CSTR:ARG:喜欢的颜色, "青")
		RETURNF "青"
	ELSE
		SELECTCASE CONDS("肤色", ARG)
		CASE "普通"
			RETURNF "黒"
		CASE "褐色肌", "色黒"
			SELECTCASE CONDS("右瞳色", ARG)
			CASE "赤", "紅"
				RETURNF "青"
			CASEELSE
				RETURNF "赤"
			ENDSELECT
		CASEELSE
			SELECTCASE CONDS("右瞳色", ARG)
			CASE "赤", "紅"
				RETURNF "黒"
			CASEELSE
				RETURNF "赤"
			ENDSELECT
		ENDSELECT
	ENDIF
CASE "贝雷帽"
	SELECTCASE CONDS("髪色の種類", ARG)
	CASE "青"
		RETURNF "茶色"
	CASE "黒", "銀", "緑"
		RETURNF "赤"
	CASE "金", "赤", "茶", "桃"
		RETURNF "緑色"
	CASEELSE
		RETURNF "白"
	ENDSELECT
CASE "両側蝴蝶結", "单側蝴蝶結"
	SELECTCASE CONDS("髪色の種類", ARG)
	CASE "桃", "紫"
		RETURNF "白"
	CASE "青", "緑"
		RETURNF "黄"
	CASE "金"
		RETURNF "青"
	CASE "赤"
		RETURNF "緑"
	CASEELSE
		RETURNF "赤"
	ENDSELECT
CASE "両側蝴蝶結団子頭", "单側蝴蝶結団子頭"
	SELECTCASE CONDS("髪色の種類", ARG)
	CASE "赤", "桃", "紫", "黒", "茶"
		RETURNF "白"
	CASEELSE
		RETURNF "黒"
	ENDSELECT
ENDSELECT

;まだ決まっていない場合は默认カラーを採用
RETURNF COLOR_DEFO

;角色ARGの身に着けている衣装ARGSが、色ARGS:1を使ってよいか見る
@CHECK_CUSEABLE(ARGS, ARGS:1, ARG)
#FUNCTION
SIF STRCOUNT(@"/%CUSEABLE(ARGS, ARG)%/", @"/%ARGS:1%/")
	RETURNF 1
RETURNF 0

;現状だと水手服と围巾以外はARG省略しても良い
@CUSEABLE(ARGS, ARG)
#FUNCTIONS
#DIMS COLOR_USABLE

SIF ARG == 0 && TARGET
	ARG = TARGET

COLOR_USABLE =

SELECTCASE ARGS
CASE ""
	RETURNF ""
CASE "荷葉邊"
	COLOR_USABLE = 白/黒/青/桃色/水色/緑色/黄色
CASE "花柄荷葉邊"
	COLOR_USABLE = 桃色/水色/薄緑/青
CASE "百褶裙", "長百褶裙", "迷你百褶裙", "超短迷你百褶裙", "Micro百褶裙"
	COLOR_USABLE = 紺色/黒/灰色/白/赤
CASE "格子裙", "長格子裙", "迷你格子裙", "超短迷你格子裙", "Micro格子裙"
	COLOR_USABLE = 赤/灰色/青/黄色
CASE "紧身裙", "長紧身裙", "迷你紧身裙", "Micro紧身裙"
	COLOR_USABLE = 黒/灰色/青/赤

CASE "工装裤"
	COLOR_USABLE = 青/白/桃色

;萌え袖グループ
CASE "V领毛衣", "前開V领毛衣", "露肩夹克", "露脐装超短裙V领毛衣", "裙V领毛衣", "露脐装超短裙前開V领毛衣", "裙前開V领毛衣", "萌え袖V领毛衣"
	COLOR_USABLE = 灰色/橙色/赤/青/緑色/濃紫/桃色/白/黒
CASE "萌袖毛衣"
	COLOR_USABLE = 白/赤/緑色/灰色/黒

CASE "皮革夹克", "恤皮革夹克"
	COLOR_USABLE = 黒
CASE "圆领衬衫"
	COLOR_USABLE = 白/赤/青/緑色
CASE "褶边連衣裙"
	COLOR_USABLE = 赤/青/緑色/黒
CASE "露肩連衣裙"
	COLOR_USABLE = 白/桃色/水色/黒
CASE "Ｔ恤", "怪图案Ｔ恤", "宽大的Ｔ恤"
	COLOR_USABLE = 黄色/白/黒/赤/緑色/青/紫/桃色/橙色
CASE "変な柄"
	COLOR_USABLE = 漢字１/英字１/英字２/ＡＡ１
CASE "睡衣"
	COLOR_USABLE = 薄緑/白/紺色/桃色/水色
CASE "連帽風衣", "長連帽風衣", "无袖連帽風衣", "前開連帽風衣", "前開无袖連帽風衣"
	COLOR_USABLE = 黒/灰色/白/青/赤/桃色/米色/緑色/紺色
CASE "哥特式披风"
	COLOR_USABLE = 赤/青/緑色
CASE "哥特蘿莉礼服"
	COLOR_USABLE = 黒/赤/白
CASE "夏日礼服"
	COLOR_USABLE = 黒/緑色/赤/白
CASE "紧身高袍"
	COLOR_USABLE = 黄色/紺色
CASE "中世紧身高袍"
	COLOR_USABLE = 赤/緑色/青
CASE "執事服"
	COLOR_USABLE = 黒/灰色/緑色
CASE "女仆装", "潇洒的女仆装", "露脐装超短裙女仆", "法式女仆装"
	COLOR_USABLE = 青/黒/赤/緑色/桃色/水色
CASE "開胸旗袍"
	COLOR_USABLE = 黒/赤/青/緑色/白
CASE "旗袍"
	COLOR_USABLE = 赤/青/黒/緑色
CASE "露脐女式衬衫"
	COLOR_USABLE = 白/紫
CASE "女式衬衫", "宽松女式衬衫", "美式校服"
	COLOR_USABLE = 白
CASE "无袖", "无袖女式衬衫", "无袖Ｂ", "无袖女式衬衫Ｂ", "露脐无袖", "露脐无袖女式衬衫"
	COLOR_USABLE = 白
CASE "領帯女式衬衫"
	COLOR_USABLE = 赤/青/黒
CASE "蝴蝶結女式衬衫", "蝴蝶結領帯丝巾女式衬衫", "女教師"
	COLOR_USABLE = 赤/青/黒/緑色
CASE "褶边女式衬衫"
	COLOR_USABLE = 黒/白
CASE "蕾丝女式衬衫"
	COLOR_USABLE = 黒/白/米色
CASE "領帯无袖女式衬衫", "露脐領帯无袖女式衬衫"
	COLOR_USABLE = 赤/黒/青/紫
CASE "彼恤"
	COLOR_USABLE = 白/黒
CASE "前開的衬衫"
	COLOR_USABLE = 白/黒/緑色/紺色
CASE "水手服", "水手夏服", "无袖水手服", "露脐装超短裙水手服", "超短水手服"
	COLOR_USABLE = 青/紺色/白/黒/赤/灰色
CASE "西装外衣", "領帶西装", "蝴蝶結領帯丝巾西装外衣", "露脐装超短裙西装外衣", "露脐装超短裙領帶西装", "裙西装外衣", "男子西装"
	COLOR_USABLE = 茶色/灰色/青/赤/緑色/黒
CASE "背心", "露脐装超短裙背心", "男子背心"
	COLOR_USABLE = 茶色/青/赤/灰色/緑色/黒
CASE "校服"
	COLOR_USABLE = 黒
CASE "体操服", "体操服(短)", "体操服布鲁马", "体操服高開衩布鲁马", "前開运动衫布鲁马", "体操服五分褲", "体操服紧身短褲", "体操服运动衫"
	COLOR_USABLE = 紺色/水色/赤/緑色

CASE "运动衫", "露脐装超短裙运动衫", "裙运动衫", "前開运动衫", "运动衫布鲁马", "运动衫高開衩布鲁马", "运动衫五分褲", "运动衫紧身短褲", "上下运动衫", "运动衫休闲褲"
	COLOR_USABLE = 黒/青/赤/緑色
CASE "詰襟运动衫"
	COLOR_USABLE = 黄色/青/赤/白/緑色/橙色
CASE "吊帯背心", "露脐吊帯背心"
	COLOR_USABLE = 白/黒/青/緑色
CASE "吊帯衫", "露脐吊帯衫"
	COLOR_USABLE = 白/黒/灰色/赤/桃色/紫/青/水色/薄緑/緑色/黄色/橙色/米色
CASE "露肩外衣"
	COLOR_USABLE = 米色/黒/白/灰色

CASE "针织毛衣", "縦毛衣", "无袖毛衣", "露背针织毛衣", "高領毛衣", "開胸高領毛衣"
	COLOR_USABLE = 茶色/白/紺色/赤/緑色/水色/米色/灰色/茶色/黒/紫

CASE "无袖高領毛衣"
	COLOR_USABLE = 白/灰色/赤/青/米色/緑色/濃紫/薄桃色/黒/焦茶色

CASE "振袖"
	COLOR_USABLE = 赤/黒/紫/青/緑色
CASE "浴衣"
	COLOR_USABLE = 黄色/黒/青/赤/緑色
CASE "和服"
	COLOR_USABLE = 黒/青/赤/白/緑色/橙色

CASE "内衣胸罩", "３／４杯胸罩", "半杯胸罩", "Micro胸罩", "１／４杯胸罩"
	COLOR_USABLE = 純白/白/黒/灰色/真紅/赤/桃色/紫/青/水色/薄緑/緑色/黄色/橙色/米色/豹纹
CASE "杯罩", "简约胸罩", "满杯胸罩", "開放型胸罩", "抹胸"
	COLOR_USABLE = 純白/白/黒/灰色/真紅/赤/桃色/紫/青/水色/薄緑/緑色/黄色/橙色/米色/豹纹
CASE "蕾丝胸罩"
	COLOR_USABLE = 純白/白/黒/赤/青/緑色/黄色/紫/桃色
CASE "運動胸罩"
	COLOR_USABLE = 灰色/黒/赤/桃色/紺色/青

CASE "褶边胸罩"
	COLOR_USABLE = 純白/白/黒/灰色/真紅/赤/桃色/紫/青/水色/薄緑/緑色/黄色/橙色/米色/豹纹
CASE "褶边吊罩"
	COLOR_USABLE = 純白/白/黒/灰色/真紅/赤/桃色/紫/青/水色/薄緑/緑色/黄色/橙色/米色

CASE "比基尼胸罩"
	COLOR_USABLE = 白/黒/灰色/赤/桃色/紫/青/水色/薄緑/緑色/黄色/豹纹
CASE "褶边比基尼胸罩"
	COLOR_USABLE = 純白/白/黒/灰色/真紅/赤/桃色/紫/青/水色/薄緑/緑色/黄色/橙色/米色/豹纹
CASE "Micro比基尼胸罩"
	COLOR_USABLE = 黒/紫/赤/青/白/豹纹

CASE "拘束衣胸罩", "紐拘束衣胸罩", "拘束衣", "紐拘束衣", "拘束衣胖次", "開放型拘束衣胖次"
	COLOR_USABLE = 黒/赤/真紅

CASE "猫型胸罩"
	COLOR_USABLE = 白/桃色/黒
CASE "裹胸布"
	COLOR_USABLE = 白

CASE "競泳泳装", "高開衩競泳泳装"
	COLOR_USABLE = 青/黒/赤/緑色
CASE "新死库水", "紧身短褲型死库水"
	COLOR_USABLE = 紺色
CASE "死库水"
	COLOR_USABLE = 紺色/白
CASE "情趣内衣"
	COLOR_USABLE = 黒/赤/緑色
CASE "晨衣"
	COLOR_USABLE = 白/黒/桃色

CASE "両側蝴蝶結", "单側蝴蝶結"
	COLOR_USABLE = 赤/白/黄/青/緑
CASE "両側蝴蝶結団子頭", "单側蝴蝶結団子頭"
	COLOR_USABLE = 白/黒
CASE "布鲁马"
	COLOR_USABLE = 赤/紺色/水色/緑色
CASE "学生休闲褲"
	COLOR_USABLE = 黒
CASE "西褲"
	COLOR_USABLE = 黒/青/灰色/緑色/桃色/白
CASE "五分褲"
	COLOR_USABLE = 黒/青/赤/緑色/白/灰色/米色
CASE "热褲", "牛仔热褲", "迷你热褲", "前開热褲", "長褲", "前開長褲", "休闲褲", "前開休闲褲", "西褲"
	COLOR_USABLE = 青/黒/灰色/緑色/桃色/白
CASE "短褲", "ダメージ短褲", "迷你短褲", "前開短褲"
	COLOR_USABLE = 青/黒/灰色/緑色/桃色/白
CASE "牛仔褲", "前開牛仔褲", "低腰牛仔褲"
	COLOR_USABLE = 青/黒/灰色/緑色/桃色/白
CASE "開裆皮裤"
	COLOR_USABLE = 黒
CASE "兔女郎制服", "兔耳", "蝶形領帯", "生足兔女郎制服", "连褲襪兔女郎制服", "褲襪兔女郎制服", "開放型连褲襪兔女郎制服", "開放型褲襪兔女郎制服", "開放型网纹褲襪兔女郎制服", "高開衩兔女郎服制服"
	COLOR_USABLE = 赤/黒/青/紫/白
CASE "逆兔女郎套装"
	COLOR_USABLE = 赤
CASE "紧身短褲"
	COLOR_USABLE = 黒/柄
CASE "连褲襪", "開放型连褲襪"
	COLOR_USABLE = 黒/赤/白
CASE "褲襪", "開放型褲襪"
	COLOR_USABLE = 黒/赤
CASE "网纹褲襪", "開放型网纹褲襪", "渔网连褲襪", "開放型渔网连褲襪"
	COLOR_USABLE = 黒
CASE "情趣吊带内衣", "吊帯襪", "吊帯長筒襪"
	COLOR_USABLE = 純白/白/黒/赤/真紅/桃色/青/紺色/薄緑

;以下は胖次
CASE "胖次花绳"
	COLOR_USABLE = 純白/白/黒/灰色/真紅/赤/桃色/紫/青/水色/薄緑/緑色/黄色/橙色/米色/豹纹/奶牛/虎紋/紺色
	COLOR_USABLE += "水玉粉紅/水玉黒/水玉黄色/水玉水色/水玉白黒/水玉白"
	COLOR_USABLE += "紅白/緑白/青白/黄白/黒白"

CASE "比基尼", "紐比基尼", "Ｔ字褲比基尼", "紐Ｔ字褲比基尼"
	COLOR_USABLE = 白/黒/灰色/赤/桃色/紫/青/水色/薄緑/緑色/黄色/豹纹
CASE "內褲", "简约內褲", "三角胖次", "蕾丝的胖次", "高開衩", "高開衩胖次", "低腰胖次", "超低腰胖次", "褶边の胖次", "褶边高開衩", "四角内褲", "四角褲", "四角内褲贴阴内裤", "四角褲贴阴内裤"
	COLOR_USABLE = 純白/白/黒/赤/水色/緑色/黄色/紫/桃色

CASE "正面蝴蝶結內褲", "正面蝴蝶結三角胖次"
	COLOR_USABLE = 三角黄/三角黒/三角青/三角赤/三角白/紐黄/紐黒/紐青/紐赤/紐白
CASE "正面蝴蝶結褶边の胖次"
	COLOR_USABLE = 紐黄/紐黒/紐青/紐赤/紐白

CASE "高開衩布鲁马"
	COLOR_USABLE = 紺色/赤/水色/緑色
CASE "丁字褲", "紐丁字褲"
	COLOR_USABLE = 白/黒/灰色/赤/桃色/紫/青/水色/薄緑/緑色/黄色/豹纹/奶牛/虎紋/
	COLOR_USABLE += "水玉粉紅/水玉黒/水玉黄色/水玉水色/水玉白黒/水玉白"
CASE "丁字褲比基尼", "紐丁字褲比基尼"
	COLOR_USABLE = 白/黒/灰色/赤/桃色/紫/青/水色/薄緑/緑色/黄色/豹纹
CASE "兜襠布"
	COLOR_USABLE = 黒/赤/桃色/白
CASE "儿童胖次"
	COLOR_USABLE = 白/草莓紋/小熊紋/鱼紋/猫紋/小鸡紋/蝴蝶结紋/水玉模様/緑色
CASE "Micro比基尼", "淚珠泳衣比基尼", "汎用Ｔ字褲"
	COLOR_USABLE = 黒/紫/赤/青/白/豹纹
CASE "Micro內褲"
	COLOR_USABLE = 黒/紫/赤/青/白
CASE "衝浪胖次"
	COLOR_USABLE = 黒
CASE "條紋胖次", "縞胖次", "條紋胸罩"
	COLOR_USABLE = 紅白/緑白/青白/黄白/黒白
CASE "襯褲"
	COLOR_USABLE = 黒/白
CASE "開放型開洞胖次", "贴身開放型開洞胖次"
	COLOR_USABLE = 純白/白/黒/紫/真紅/赤
CASE "前貼"
	COLOR_USABLE = 白
CASE "心形貼紙", "Ｃ胖次", "乳贴", "心形乳貼", "圆形乳贴", "×型乳贴", "星型乳贴"
	COLOR_USABLE = 黒/桃色/青
CASE "叶子胖次"
	COLOR_USABLE = 緑色

CASE "手套", "絹手套", "革手套", "指抜きグローブ", "絲綢手套", "礼服手套", "皮革袖套", "礼服袖套", "手臂束缚器"
	COLOR_USABLE = 白/黒

;以下は饰枠
CASE "眼鏡", "专家眼鏡", "黑框眼鏡", "金丝眼鏡", "玳瑁眼鏡"
	COLOR_USABLE = 黒/赤/青
CASE "眼罩"
	COLOR_USABLE = 白/黒

CASE "围巾"
	IF CEVENT("猩々木に祝福を祈る", ARG)
		COLOR_USABLE = 橙色/緑色/紫/赤/黄色/青/白/藤の花
	ELSE
		COLOR_USABLE = 橙色/緑色/紫/赤/黄色/青/白
	ENDIF
CASE "铃铛项圈"
	COLOR_USABLE = 黒/茶色/赤
CASE "项圈"
	COLOR_USABLE = 赤/黒/青

CASE "贝雷帽"
	COLOR_USABLE = 赤/白/緑色/茶色
CASE "鸭舌帽"
	COLOR_USABLE = 茶色/黒/灰色/白/赤/青/緑色
CASE "水兵帽"
	COLOR_USABLE = 白/青/赤/桃色/茶色/黒

;衣领颜色
CASE "褞袍"
	COLOR_USABLE = 茶色/灰色/赤/緑色/紺色
CASE "粗呢外套"
	COLOR_USABLE = 茶色/白/青/黒/焦茶色
CASE "外套"
	COLOR_USABLE = 茶色/赤/白
CASE "工作围裙"
	COLOR_USABLE = 橙色/灰色/赤/青/緑色/濃紫/桃色/白/黒
CASE "裤吊带"
	COLOR_USABLE = 黒/白/茶色/赤/青/焦茶色
CASE "褶边裙吊带"
	COLOR_USABLE = 白/黒/桃色

CASEELSE
	COLOR_USABLE =
ENDSELECT

RETURNF COLOR_USABLE

;-------------------------------------------------
;色文字列ARGSとARGS:1の共通の色文字列のみを取り出す
;もしも片方が空文字ならもう片方を返す
;-------------------------------------------------
@EXTRACT_COMMON_COLOR(ARGS, ARGS:1)
#FUNCTIONS
#DIM LCOUNT
#DIMS TEXT_EXTRACT

SIF ARGS:1 == ""
	RETURNF ARGS
SIF ARGS == ""
	RETURNF ARGS:1

TEXT_EXTRACT =
VARSET LOCALS
SPLIT ARGS:1, "/", LOCALS

FOR LCOUNT, 0, 100
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	CASEELSE
		SIF STRCOUNT(@"\/%ARGS%\/", @"\/%LOCALS:LCOUNT%\/") == 0
			CONTINUE
		SIF TEXT_EXTRACT != ""
			TEXT_EXTRACT += "/"
		TEXT_EXTRACT += @"%LOCALS:LCOUNT%"
	ENDSELECT
NEXT
RETURNF TEXT_EXTRACT