@GET_GIFT,ARG,ARG:3
CALL CHECK_ITEMMAX,ARG
IF RESULT == 0
	PRINTFORMW received {ARG:3} %ITEMNAME_E(ARG)%.
	CALL GET_ITEM,ARG,ARG:3
	RETURN 1
ELSE
	PRINTFORMW found {ARG:3} %ITEMNAME_E(ARG)% but couldn't hold more of it.
	RETURN 0
ENDIF

@MASTER_HUKUSO
#DIM 服装 , 14
VARSET 服装 , 0
VARSET 服装 , 1 , 0 , 4
PRINTL Do you want to set your outfit?
CALL INPUT_YN,"Yes","No"
SIF RESULT == 1
	RETURN 0
;服装を一度CSVから読み込みなおす
FOR LOCAL,0,13
	CFLAG:MASTER:(40+LOCAL) = CSVCFLAG(NO:MASTER,40+LOCAL,0)
	CFLAG:MASTER:(60+LOCAL) = CSVCFLAG(NO:MASTER,40+LOCAL,0)
NEXT
;40,帽子
;41,服
;42,下衣
;43,全身服
;44,手
;45,下着（上）
;46,下着（下）
;47,全身下着
;48,靴下
;49,靴
;50,上着
;51,その他
;52,その他2
;53,その他3

PRINTW What is your profession?
PRINTL [0]Professional Devil Summoner
PRINTL [1]Student
PRINTL [2]Part-timer
PRINTL [3]Full-timer

IF TALENT:MASTER:男の娘 || !TALENT:MASTER:オトコ
	PRINTL [4]Heiress
	服装:4 = 1
ENDIF
IF (!TALENT:MASTER:オトコ  || TALENT:MASTER:男の娘) && ABL:MASTER:セックス中毒
	PRINTL [5]Cumdumpster
	服装:5 = 1
ENDIF
IF !TALENT:MASTER:オトコ && (!TALENT:MASTER:服従 || TALENT:MASTER:サド)
	PRINTL [6]Dominatrix
	服装:6 = 1
ENDIF
IF TALENT:MASTER:オトコ && FLAG:周回回数 >= 1
	PRINTL [7]Gambler
	服装:7 = 1
ENDIF
IF !TALENT:MASTER:オトコ || TALENT:MASTER:男の娘
	PRINTL [8]Maid
	服装:8 = 1
ENDIF
IF TALENT:MASTER:オトコ
	PRINTL [9]Butler
	服装:9 = 1
ENDIF
IF TALENT:MASTER:オトコ
	PRINTFORML [10]Buddhist Monk
	服装:10 = 1
ENDIF
IF TALENT:MASTER:男の娘 || !TALENT:MASTER:オトコ
	PRINTFORML [11]Nun
	服装:11 = 1
ENDIF
IF TALENT:MASTER:男の娘 || !TALENT:MASTER:オトコ
	PRINTFORML [12]Shrine Maiden
	服装:12 = 1
ENDIF
IF TALENT:MASTER:男の娘 || TALENT:MASTER:オトコ
	PRINTFORML [13]Doctor
	服装:13 = 1
ELSEIF !TALENT:MASTER:男の娘 || !TALENT:MASTER:オトコ
	PRINTFORML [13]Doctor
	服装:13 = 1
ENDIF

$INPUT_LOOP
CALL INPUTINT,0,1,2,3,4,5,6,7,8,9,10,11,12,13
IF 服装:RESULT == 0
	CLEARLINE 1
	GOTO INPUT_LOOP
ENDIF
SELECTCASE RESULT
	CASE 0
	;生粋のデビルサマナー
	;服装はそのまま
	CFLAG:MASTER:あなたの表の職業 = 1
	CSTR:MASTER:解説2 = Without a cover job, concentrates on Summoner work.
	;学生風
	CASE 1
		PRINTFORML What school do you come from?
		PRINTL [0] Elementary
		PRINTL [1] Junior High
		PRINTL [2] High School
		PRINTL [3] Karukozaka High School
		PRINTL [4] St. Hermelin High School
		CALL INPUTINT,0,1,2,3,4
		SELECTCASE RESULT
			CASE 0
				CFLAG:MASTER:あなたの表の職業 = 20
				CSTR:MASTER:解説2 = Maintains a cover of attending elementary school while working as a Summoner.
			CASE 1
				CFLAG:MASTER:あなたの表の職業 = 21
				CSTR:MASTER:解説2 = Maintains a cover of attending junior high school while working as a Summoner.
			CASE 2
				CFLAG:MASTER:あなたの表の職業 = 2
				CSTR:MASTER:解説2 = Maintains a cover of attending high school while working as a Summoner.
			CASE 3
				CFLAG:MASTER:あなたの表の職業 = 22
				CSTR:MASTER:解説2 = Maintains a cover of attending Karukozaka High School while working as a Summoner.
			CASE 4
				CFLAG:MASTER:あなたの表の職業 = 23
				CSTR:MASTER:解説2 = Maintains a cover of attending St. Hermelin High School while working as a Summoner.
		ENDSELECT
		IF TALENT:MASTER:男の娘
			CALL INPUT_YN("女装","男装")
		ELSE
			RESULT = TALENT:MASTER:オトコ
		ENDIF
		SELECTCASE RESULT
			CASE 1
				;靴
				CALL SET_初期衣装, "靴" , [[衣装:革靴]]
				;服 ワイシャツ
				CALL SET_初期衣装, "服" , [[衣装:ワイシャツ]]
				;上着　ブレザー
				CALL SET_初期衣装, "上着" , [[衣装:ブレザー]]
			CASE 0
				;小学生
				IF CFLAG:MASTER:あなたの表の職業 == 2
					;全身服
					IF RAND:5 == 0
						CALL SET_初期衣装, "全身服" , [[衣装:ミニワンピース]]
						CALL SET_初期衣装, "服" , -1
						CALL SET_初期衣装, "下衣" , -1
					ELSE
						 ;服
						IF RAND:3 == 0
							CALL SET_初期衣装, "服" , [[衣装:Tシャツ]]
						ELSEIF RAND:2 == 0
							CALL SET_初期衣装, "服" , [[衣装:タンクトップ]]
						ELSE
							CALL SET_初期衣装, "服" , [[衣装:上着]]
						ENDIF
						;下衣
						IF RAND:4 == 0
							CALL SET_初期衣装, "下衣" , [[衣装:ミニスカート]]
						ELSEIF RAND:3 == 0
							CALL SET_初期衣装, "下衣" , [[衣装:サスペンダースカート]]
						ELSEIF RAND:2 == 0
							CALL SET_初期衣装, "下衣" , [[衣装:スカート]]
						ELSE
							CALL SET_初期衣装, "下衣" , [[衣装:オーバーオール]]
						ENDIF
					ENDIF
					;靴下
					IF RAND:3 == 0
						CALL SET_初期衣装, "靴下" , [[衣装:靴下]]
					ELSEIF RAND:2 == 0
						CALL SET_初期衣装, "靴下" , [[衣装:黒タイツ]]
					ELSE
						CALL SET_初期衣装, "靴下" , [[衣装:ニーソックス]]
					ENDIF
					;靴
					IF RAND:3 == 0
						CALL SET_初期衣装, "靴" , [[衣装:スニーカー]]
					ELSEIF RAND:2 == 0
						CALL SET_初期衣装, "靴" , [[衣装:シューズ]]
					ELSE
						CALL SET_初期衣装, "靴" , [[衣装:ローラースケート]]
					ENDIF
				ELSE
					IF RAND:2 == 0
						;服　セーラー
						CALL SET_初期衣装, "服" , [[衣装:セーラー服]]
					ELSE
						;服　ブラウス
						CALL SET_初期衣装, "服" , [[衣装:ブラウス]]
						;上着　ブレザー
						CALL SET_初期衣装, "上着" , [[衣装:ブレザー]]
					ENDIF
					;下衣
					
					IF EXP:MASTER:性交経験 >= 10
						CALL SET_初期衣装, "下衣" , [[衣装:ミニスカート]]
					ELSE
						CALL SET_初期衣装, "下衣" , [[衣装:スカート]]
					ENDIF
					;靴下
					IF RAND:3 == 0
						CALL SET_初期衣装, "靴下" , [[衣装:ハイソックス]]
					ELSEIF RAND:2 == 0
						CALL SET_初期衣装, "靴下" , [[衣装:ニーソックス]]
					ELSE
						CALL SET_初期衣装, "靴下" , [[衣装:サイハイソックス]]
					ENDIF
					;靴
						CALL SET_初期衣装, "靴" , [[衣装:革靴]]
				ENDIF
				;下着
				CALL SET_汎用下着設定
			CASEELSE
		ENDSELECT
	;フリーター
	CASE 2
		PRINTFORML Please choose occupation.
		PRINTL [0] Uni Student
		PRINTL [1] Freeter
		CALL INPUTINT,0,1
		SELECTCASE RESULT
			CASE 0
				CFLAG:MASTER:あなたの表の職業 = 3
				CSTR:MASTER:解説2 = Maintains a cover of attending an university while working as a Summoner.
			CASE 1
				CFLAG:MASTER:あなたの表の職業 = 30
				CSTR:MASTER:解説2 = Maintains a cover of a freeter while working as a Summoner.
		ENDSELECT
		IF TALENT:MASTER:男の娘
			CALL INPUT_YN("女装","男装")
		ELSE
			RESULT = TALENT:MASTER:オトコ
		ENDIF
		IF RESULT == 1
			;靴
			CALL SET_初期衣装, "靴" , [[衣装:スニーカー]]
			SIF RAND:2 == 0
				CALL SET_初期衣装, "上着" , [[衣装:パーカー]]
			SIF RAND:2 == 0
				CALL SET_初期衣装, "その他" , [[衣装:ヘッドホン]]
		ELSE
			;下着（上）（下）
			IF RAND:6 == 0
				CALL SET_初期衣装, "下着（上）" , [[衣装:スポーツブラ]]
				CALL SET_初期衣装, "下着（下）" , [[衣装:縞パン]]
			ELSEIF RAND:5 == 0
				CALL SET_初期衣装, "下着（上）" , [[衣装:絆創膏]]
				CALL SET_初期衣装, "下着（下）" , [[衣装:絆創膏]]
			ELSE
				CALL SET_初期衣装, "下着（上）" , [[衣装:ブラジャー]]
				IF RAND:4 == 0
					CALL SET_初期衣装, "下着（下）" , [[衣装:パンティ]]
				ELSEIF RAND:3 == 0
					CALL SET_初期衣装, "下着（下）" , [[衣装:ドロワーズ]]
				ELSEIF RAND:2 == 0
					CALL SET_初期衣装, "下着（下）" , [[衣装:ローライズ]]
				ELSE
					CALL SET_初期衣装, "下着（下）" , [[衣装:スパッツ]]
				ENDIF
			ENDIF
			IF RAND:5 == 0
				;ビキニトップ
				CALL SET_初期衣装, "服" , [[衣装:ビキニトップ]]
				CALL SET_初期衣装, "下着（上）" , -1
				;ビキニボトム
				CALL SET_初期衣装, "下衣" , [[衣装:ビキニボトム]]
				CALL SET_初期衣装, "下着（下）" , -1
			ELSEIF RAND:4 == 0
				;全身服
				;ワンピース
					CALL SET_初期衣装, "全身服" , [[衣装:ワンピース]]
					CALL SET_初期衣装, "服" , -1
					CALL SET_初期衣装, "下衣" , -1
					CALL SET_初期衣装, "下着（下）" , [[衣装:パンティ]]
			ELSE
				IF RAND:3 == 0
					;チューブトップ
					CALL SET_初期衣装, "服" , [[衣装:チューブトップ]]
				ELSEIF RAND:2 == 0
					;タンクトップ
					CALL SET_初期衣装, "服" , [[衣装:タンクトップ]]
				ELSE
					;キャミ
					CALL SET_初期衣装, "服" , [[衣装:キャミソール]]
				ENDIF
				;下衣
				IF RAND:3 == 0
					;ホットパンツ
					CALL SET_初期衣装, "下衣" , [[衣装:ホットパンツ]]
				ELSEIF RAND:2 == 0
					;ミニスカート
					CALL SET_初期衣装, "下衣" , [[衣装:ミニスカート]]
				ELSE
					;ショートパンツ
					CALL SET_初期衣装, "下衣" , [[衣装:ショートパンツ]]
				ENDIF
			ENDIF
			;靴
			IF RAND:4 == 0
				;サンダル
				CALL SET_初期衣装, "靴" , [[衣装:サンダル]]
			ELSEIF RAND:3 == 0
				;ミュール
				CALL SET_初期衣装, "靴" , [[衣装:ミュール]]
			ELSEIF RAND:2 == 0
				;スニーカー
				CALL SET_初期衣装, "靴" , [[衣装:スニーカー]]
			ELSE
				;パンプス
				CALL SET_初期衣装, "靴" , [[衣装:パンプス]]
			ENDIF
			;靴下
			IF CFLAG:MASTER:靴 == [[衣装:スニーカー]] || CFLAG:MASTER:靴 == [[衣装:パンプス]]
				IF RAND:4 == 0
					;ニーソックス
					CALL SET_初期衣装, "靴下" , [[衣装:ニーソックス]]
				ELSEIF RAND:3 == 0
					;ハイソックス
					CALL SET_初期衣装, "靴下" , [[衣装:ハイソックス]]
				ELSEIF RAND:2 == 0
					;ソックス
					CALL SET_初期衣装, "靴下" , [[衣装:靴下]]
				ELSE
					;サイハイソックス
					CALL SET_初期衣装, "靴下" , [[衣装:サイハイソックス]]
				ENDIF
			ELSE
					CALL SET_初期衣装, "靴下" , -1
			ENDIF
		ENDIF
	;社会人
	CASE 3
		CFLAG:MASTER:あなたの表の職業 = 4
		CSTR:MASTER:解説2 = Maintains facade of still being a working member of the society.
		IF TALENT:MASTER:男の娘
			CALL INPUT_YN("Crossdresses.","Dresses masculine.")
		ELSE
			RESULT = TALENT:MASTER:オトコ
		ENDIF
		IF RESULT == 1
			;靴
			CALL SET_初期衣装, "靴" , [[衣装:革靴]]
			;上着　スーツ
			CALL SET_初期衣装, "上着" , [[衣装:ジャケット]]
			;服　ワイシャツ
			CALL SET_初期衣装, "服" , [[衣装:ワイシャツ]]
		ELSE
			;上着　スーツ
			CALL SET_初期衣装, "上着" , [[衣装:スーツ]]
			;服　ワイシャツ
			CALL SET_初期衣装, "服" , [[衣装:ワイシャツ]]
			;下衣
			IF EXP:MASTER:性交経験 >= 20
				CALL SET_初期衣装, "下衣" , [[衣装:タイトミニスカート]]
			ELSE
				CALL SET_初期衣装, "下衣" , [[衣装:タイトスカート]]
			ENDIF
			;靴下
			IF EXP:MASTER:性交経験 >= 20
				CALL SET_初期衣装, "靴下" , [[衣装:ガーターストッキング]]
			ELSE
				CALL SET_初期衣装, "靴下" , [[衣装:パンティストッキング]]
			ENDIF
			;靴
			IF EXP:MASTER:性交経験 >= 20 && RAND:3 == 0
				CALL SET_初期衣装, "靴" , [[衣装:ピンヒール]]
			ELSE
				IF RAND:2 == 0
					CALL SET_初期衣装, "靴" , [[衣装:ハイヒール]]
				ELSE
					CALL SET_初期衣装, "靴" , [[衣装:パンプス]]
				ENDIF
			ENDIF
			;下着を決める
			CALL SET_汎用下着設定
		ENDIF
	;深窓の令嬢
	CASE 4
	;☆お嬢様
		CFLAG:MASTER:あなたの表の職業 = 5
		CSTR:MASTER:解説2 = Was a nobleman's daughter, somewhat detached form worldly matters.
		IF RAND:4 == 0
			;リボン
			CALL SET_初期衣装, "帽子" , [[衣装:リボン]]
		ELSEIF RAND:3 == 0
			;帽子
			CALL SET_初期衣装, "帽子" , [[衣装:帽子]]
		ELSEIF RAND:2 == 0
			;カチューシャ
			CALL SET_初期衣装, "帽子" , [[衣装:カチューシャ]]
		ELSE
			CALL SET_初期衣装, "帽子" , -1
		ENDIF
		IF RAND:3 == 0
			CALL SET_初期衣装, "全身服" , [[衣装:ワンピース]]
		ELSEIF RAND:2 == 0
			CALL SET_初期衣装, "全身服" , [[衣装:ドレス]]
		ELSE
			CALL SET_初期衣装, "全身服" , [[衣装:イブニングドレス]]
		ENDIF
		CALL SET_初期衣装, "服" , -1
		CALL SET_初期衣装, "下衣" , -1
		
		CALL SET_初期衣装, "手" , [[衣装:レースの手袋]]
		
		IF RAND:2 == 0
			CALL SET_初期衣装, "靴" , [[衣装:ピンヒール]]
		ELSE
			CALL SET_初期衣装, "靴" , [[衣装:ミュール]]
		ENDIF
		IF CFLAG:MASTER:靴 == [[衣装:ピンヒール]]
			IF RAND:2 == 0
				CALL SET_初期衣装, "靴下" , [[衣装:ガーターストッキング]]
			ELSE
				CALL SET_初期衣装, "靴下" , [[衣装:パンティストッキング]]
			ENDIF
		ENDIF
		;下着を決める
		CALL SET_汎用下着設定
	;公衆便所
	CASE 5
		CFLAG:MASTER:あなたの表の職業 = 6
		CSTR:MASTER:解説2 = Was used as a sexual relief toy in a public toilet.
		PRINTL Particularly...
		CALL INPUT_YN,"...clothed.","...in full nudity."
		IF RESULT == 1
			CALL SET_初期衣装, "服" ,  -1
			CALL SET_初期衣装, "下衣" ,  -1
			CALL SET_初期衣装, "下着（上）" ,  [[衣装:ニップルピアス]]
			CALL SET_初期衣装, "下着（下）" ,  -1
			CALL SET_初期衣装, "靴下" ,  -1
			CALL SET_初期衣装, "靴" , -1
		ENDIF
		CALL SET_初期衣装, "その他" , [[衣装:拘束具]]
	;女王様
	CASE 6
		CFLAG:MASTER:あなたの表の職業 = 7
		CSTR:MASTER:解説2 = Worked as a dominatrix before.
		CALL SET_初期衣装, "全身服" , [[衣装:ボンテージスーツ]]
		CALL SET_初期衣装, "服" , -1
		CALL SET_初期衣装, "下衣" , -1
		CALL SET_初期衣装, "下着（上）" , -1
		CALL SET_初期衣装, "下着（下）" , -1
		CALL SET_初期衣装, "手" , [[衣装:エルボーグローブ]]
		SIF TALENT:MASTER:男の娘
			CALL SET_初期衣装, "その他" , [[衣装:ペニスリボン]]
		IF RAND:2 == 0
			CALL SET_初期衣装, "靴" , [[衣装:ハイブーツ]]
		ELSE
			CALL SET_初期衣装, "靴下" , [[衣装:ガーターストッキング]]
			CALL SET_初期衣装, "靴" , [[衣装:ピンヒール]]
		ENDIF
	;渡世人
	CASE 7
		CFLAG:MASTER:あなたの表の職業 = 8
		CSTR:MASTER:解説2 = Did all manners of shady business before.
		CALL SET_初期衣装, "全身服" , [[衣装:長着]]
		CALL SET_初期衣装, "服" , -1
		CALL SET_初期衣装, "下衣" , -1
		CALL SET_初期衣装, "下着（上）" , [[衣装:さらし]]
		CALL SET_初期衣装, "下着（下）" , [[衣装:褌]]
		CALL SET_初期衣装, "靴下" , -1
		CALL SET_初期衣装, "靴" , [[衣装:下駄]]
	;メイド
	CASE 8
		CFLAG:MASTER:あなたの表の職業 = 9
		CSTR:MASTER:解説2 = Worked as a maid in a mansion.
		CALL SET_初期衣装, "帽子" , [[衣装:ホワイトブリム]]
		IF EXP:MASTER:性交経験 >= 20
			CALL SET_初期衣装, "全身服" , [[衣装:フレンチメイド服]]
			CALL SET_初期衣装, "服" , -1
			CALL SET_初期衣装, "下衣" ,-1
		ELSE
			CALL SET_初期衣装, "全身服" , [[衣装:メイド服]]
			CALL SET_初期衣装, "服" , -1
			CALL SET_初期衣装, "下衣" ,-1
		ENDIF
		IF EXP:MASTER:性交経験 >= 50
			CALL SET_初期衣装, "靴下" , [[衣装:ガーターストッキング]]
			CALL SET_初期衣装, "下着（上）" , [[衣装:オープンブラ]]
			CALL SET_初期衣装, "下着（下）" , [[衣装:オープンショーツ]]
		ELSE
			IF RAND:4 == 0
				CALL SET_初期衣装, "靴下" , [[衣装:ニーソックス]]
			ELSEIF RAND:3 == 0
				CALL SET_初期衣装, "靴下" , [[衣装:サイハイソックス]]
			ELSEIF RAND:2 == 0
				CALL SET_初期衣装, "靴下" , [[衣装:ガーターストッキング]]
			ELSE
				CALL SET_初期衣装, "靴下" , [[衣装:パンティストッキング]]
			ENDIF
			CALL SET_初期衣装, "下着（上）" , [[衣装:レース付きブラジャー]]
			CALL SET_初期衣装, "下着（下）" , [[衣装:レース付きパンティ]]
			IF EXP:MASTER:性交経験 >= 20
				CALL SET_初期衣装, "下着（上）" , -1
				CALL SET_初期衣装, "下着（下）" , -1
			ELSEIF TALENT:MASTER:絶壁
				CALL SET_初期衣装, "下着（上）" , -1
			ENDIF
		ENDIF
		SIF TALENT:MASTER:男の娘 && EXP:MASTER:性交経験 >= 20
			CALL SET_初期衣装, "その他" , [[衣装:ペニスリボン]]
		CALL SET_初期衣装, "靴" , [[衣装:革靴]]
	;執事
	CASE 9
		CFLAG:MASTER:あなたの表の職業 = 10
		CSTR:MASTER:解説2 = Worked in a restaurant before.
		CALL SET_初期衣装, "手" , [[衣装:カフス]]
		CALL SET_初期衣装, "靴" , [[衣装:革靴]]
		CALL SET_初期衣装, "上着" , [[衣装:燕尾服]]
		CALL SET_初期衣装, "服" , [[衣装:ワイシャツ]]
		CALL SET_初期衣装, "下衣" , [[衣装:ズボン]]
	;仏僧
	CASE 10
		CFLAG:MASTER:あなたの表の職業 = 11
		CSTR:MASTER:解説2 = Was a monk in a temple before.
		CALL SET_初期衣装, "靴" , [[衣装:草鞋]]
		CALL SET_初期衣装, "全身服" , [[衣装:法衣]]
	;シスター
	CASE 11
		CFLAG:MASTER:あなたの表の職業 = 12
		CSTR:MASTER:解説2 = Was a nun in a convent before.
		CALL SET_初期衣装, "靴" , [[衣装:ブーツ]]
		CALL SET_初期衣装, "帽子" , [[衣装:ヴェール]]
		IF RAND:3 == 0
			CALL SET_初期衣装, "下着（上）" , [[衣装:レース付きブラジャー]]
			CALL SET_初期衣装, "下着（下）" , [[衣装:レース付きパンティ]]
		ELSEIF RAND:2 == 0
			CALL SET_初期衣装, "下着（上）" , [[衣装:ブラジャー]]
			CALL SET_初期衣装, "下着（下）" , [[衣装:パンティ]]
		ELSE
			CALL SET_初期衣装, "下着（上）" , [[衣装:スポーツブラ]]
			CALL SET_初期衣装, "下着（下）" , [[衣装:ドロワーズ]]
		ENDIF
		IF RAND:4 == 0
			CALL SET_初期衣装, "靴下" , [[衣装:ニーソックス]]
		ELSEIF RAND:3 == 0
			CALL SET_初期衣装, "靴下" , [[衣装:サイハイソックス]]
		ELSEIF RAND:2 == 0
			CALL SET_初期衣装, "靴下" , [[衣装:ガーターストッキング]]
		ELSE
			CALL SET_初期衣装, "靴下" , [[衣装:パンティストッキング]]
		ENDIF
		CALL SET_初期衣装, "服" , -1
		CALL SET_初期衣装, "下衣" , -1
		CALL SET_初期衣装, "全身服" , [[衣装:法衣]]
	;巫女
	CASE 12
		CFLAG:MASTER:あなたの表の職業 = 13
		CSTR:MASTER:解説2 = Worked as a shrine maiden before.
		CALL SET_初期衣装, "帽子" , -1
		IF RAND:3 == 0
			CALL SET_初期衣装, "下着（上）" , [[衣装:レース付きブラジャー]]
			CALL SET_初期衣装, "下着（下）" , [[衣装:レース付きパンティ]]
		ELSEIF RAND:2 == 0
			CALL SET_初期衣装, "下着（上）" , [[衣装:ブラジャー]]
			CALL SET_初期衣装, "下着（下）" , [[衣装:パンティ]]
		ELSE
			CALL SET_初期衣装, "下着（上）" , [[衣装:さらし]]
			CALL SET_初期衣装, "下着（下）" , [[衣装:スパッツ]]
		ENDIF
		CALL SET_初期衣装, "服" , [[衣装:和服]]
		CALL SET_初期衣装, "下衣" , [[衣装:袴]]
		CALL SET_初期衣装, "靴下" , [[衣装:足袋]]
		CALL SET_初期衣装, "靴" , [[衣装:草履]]
		;巫女
	;医者or女医
	CASE 13
		CFLAG:MASTER:あなたの表の職業 = 14
		IF !TALENT:MASTER:男の娘 || !TALENT:MASTER:オトコ
			CSTR:MASTER:解説2 = Worked as a doctor of medicine before.
		ELSE
			CSTR:MASTER:解説2 = Worked as a doctor of medicine before.
		ENDIF
		CALL SET_初期衣装, "帽子" , -1
		CALL SET_初期衣装, "上着" , [[衣装:白衣]]
		IF !TALENT:MASTER:男の娘 || !TALENT:MASTER:オトコ
			CALL SET_初期衣装, "服" , [[衣装:ブラウス]]
			CALL SET_初期衣装, "靴下" , [[衣装:パンティストッキング]]
			IF RAND:3 == 0
				CALL SET_初期衣装, "下着（上）" , [[衣装:レース付きブラジャー]]
				CALL SET_初期衣装, "下着（下）" , [[衣装:レース付きパンティ]]
			ELSEIF RAND:2 == 0
				CALL SET_初期衣装, "下着（上）" , [[衣装:ブラジャー]]
				CALL SET_初期衣装, "下着（下）" , [[衣装:パンティ]]
			ELSE
				CALL SET_初期衣装, "下着（上）" , [[衣装:ブラキャミ]]
				CALL SET_初期衣装, "下着（下）" , [[衣装:ローライズ]]
			ENDIF
			IF RAND:3 == 0
				CALL SET_初期衣装, "下衣" , [[衣装:ズボン]]
				CALL SET_初期衣装, "靴" , [[衣装:サンダル]]
			ELSEIF RAND:2 == 0
				CALL SET_初期衣装, "下衣" , [[衣装:スカート]]
				CALL SET_初期衣装, "靴" , [[衣装:パンプス]]
			ELSE
				CALL SET_初期衣装, "下衣" , [[衣装:スラックス]]
				CALL SET_初期衣装, "靴" , [[衣装:スニーカー]]
			ENDIF
		ELSE
			CALL SET_初期衣装, "下着（上）" , [[衣装:タンクトップ(インナー)]]
			CALL SET_初期衣装, "服" , [[衣装:ワイシャツ]]
			CALL SET_初期衣装, "靴下" , [[衣装:靴下]]
			IF RAND:3 == 0
				CALL SET_初期衣装, "下着（下）" , [[衣装:ボクサーブリーフ]]
			ELSEIF RAND:2 == 0
				CALL SET_初期衣装, "下着（下）" , [[衣装:ブリーフ]]
			ELSE
				CALL SET_初期衣装, "下着（下）" , [[衣装:トランクス]]
			ENDIF
			IF RAND:2 == 0
				CALL SET_初期衣装, "下衣" , [[衣装:ズボン]]
				CALL SET_初期衣装, "靴" , [[衣装:サンダル]]
			ELSE
				CALL SET_初期衣装, "下衣" , [[衣装:スラックス]]
				CALL SET_初期衣装, "靴" , [[衣装:革靴]]
			ENDIF
		ENDIF
	CASEELSE
ENDSELECT

PRINTL Are you wearing glasses?
CALL INPUT_YN,"Yes","No"
SIF RESULT == 1
	RETURN 0

CALL SET_初期衣装, "その他" , [[衣装:眼鏡]]

@SET_初期衣装,ARGS,ARG,ARG:1 = 0
CFLAG:(ARG:1):ARGS = ARG
CFLAG:(ARG:1):@"初期%ARGS%" = ARG

@SET_汎用下着設定
IF !IS_LOOKSLIKE_MALE(MASTER)
	;下着（上）
	IF EXP:MASTER:性交経験 >= 50
		CALL SET_初期衣装, "下着（上）" , [[衣装:オープンブラ]]
	ELSEIF EXP:MASTER:性交経験 >= 30
		CALL SET_初期衣装, "下着（上）" , [[衣装:レース付きブラジャー]]
	ELSEIF EXP:MASTER:性交経験 >= 10
		CALL SET_初期衣装, "下着（上）" , [[衣装:マイクロブラ]]
	ELSEIF TALENT:MASTER:貧乳 == 1
		CALL SET_初期衣装, "下着（上）" , [[衣装:スポーツブラ]]
	ELSEIF TALENT:MASTER:絶壁 == 1
		CALL SET_初期衣装, "下着（上）" , [[衣装:絆創膏]]
	ELSE
		CALL SET_初期衣装, "下着（上）" , [[衣装:ブラジャー]]
	ENDIF
	;下着（下）
	IF EXP:MASTER:性交経験 >= 50
		CALL SET_初期衣装, "下着（下）" , [[衣装:オープンショーツ]]
	ELSEIF EXP:MASTER:性交経験 >= 30
		CALL SET_初期衣装, "下着（下）" , [[衣装:レース付きパンティ]]
	ELSEIF EXP:MASTER:性交経験 >= 10
		CALL SET_初期衣装, "下着（下）" , [[衣装:マイクロビキニ]]
	ELSE
		CALL SET_初期衣装, "下着（下）" , [[衣装:パンティ]]
	ENDIF
	SIF TALENT:MASTER:男の娘 && EXP:MASTER:性交経験 >= 50
		CALL SET_初期衣装, "その他" , [[衣装:ペニスリボン]]
ENDIF