glife/locations/clothing_QV

# clothing_QV

if $ARGS[0] = 'list':

	'<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">Wardrobe </a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store''">Storage</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted''">Unwanted</a></TH><TH><a href="exec:gt ''clothing_QV'', ''list''">Pick something to wear</a></TH></center>'


	if $clothingworntype ! 'nude':
		act 'Strip':gt 'clothing_QV', 'strip'
	end

	if tanga = 0 and clrbelo > 0:
		act 'Wear underwear':
			cla
			tanga = 1
			clrbelo -= 1
			gt $curloc, 'list'
		end
	elseif tanga = 1:
		act 'Take off your underwear':
			cla
			tanga = 0
			dirtbelo += 1
			gt $curloc, 'list'
		end
	end

	act 'Leave':gt $loc, $metka

	if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and schoolS[6] = 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''school'', 6"><img src="images/clothing/6school/school6.jpg" 	height="250" /></a>'

	i = 1
	:loopcheap
		gs 'clothing_attributes', 'cheap', i
		if CloStyle ! 5:
			if cheap[i] = 1 and cheapS[i] = 0 and cheapH[i] > 0 and cheapB[i] >= (bedra - 8) and cheapB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cheap'', <<i>>"><img src="images/clothing/1cheap/cheap<<i>>.jpg" 	height="250" /></a>'
		else
			if cheap[i] = 1 and cheapS[i] = 0 and cheapH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cheap'', <<i>>"><img src="images/clothing/1cheap/cheap<<i>>.jpg" 	height="250" /></a>'
		end
		i += 1
	if i <= 85:jump 'loopcheap'

	i = 1
	:loopaverage
		gs 'clothing_attributes', 'average', i
		if CloStyle ! 5:
			if average[i] = 1 and averageS[i] = 0 and averageH[i] > 0 and averageB[i] >= (bedra - 8) and averageB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''average'', <<i>>"><img src="images/clothing/2average/average<<i>>.jpg" 	height="250" /></a>'
		else
			if average[i] = 1 and averageS[i] = 0 and averageH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''average'', <<i>>"><img src="images/clothing/2average/average<<i>>.jpg" 	height="250" /></a>'
		end
		i += 1
	if i <= 125:jump 'loopaverage'

	i = 1
	:loopexpensive
		gs 'clothing_attributes', 'expensive', i
		if CloStyle ! 5:
			if expensive[i] = 1 and expensiveS[i] = 0 and expensiveH[i] > 0 and expensiveB[i] >= (bedra - 8) and expensiveB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''expensive'', <<i>>"><img src="images/clothing/3expensive/expensive<<i>>.jpg" 	height="250" /></a>'
		else
			if expensive[i] = 1 and expensiveS[i] = 0 and expensiveH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''expensive'', <<i>>"><img src="images/clothing/3expensive/expensive<<i>>.jpg" 	height="250" /></a>'
		end
		i += 1
	if i <= 147:jump 'loopexpensive'

	i = 1
	:loopformal
		if formal[i] = 1 and formalS[i] = 0 and formalH[i] > 0 and formalB[i] >= (bedra - 8) and formalB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''formal'', <<i>>"><img src="images/clothing/4formal/formal<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 14:jump 'loopformal'

	i = 1
	:loopoffice
		if office[i] = 1 and officeS[i] = 0 and officeH[i] > 0 and officeB[i] >= (bedra - 8) and officeB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''office'', <<i>>"><img src="images/clothing/5office/office<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 30:jump 'loopoffice'

	i = 1
	:loopschool
		if school[i] = 1 and schoolS[i] = 0 and schoolH[i] > 0 and schoolB[i] >= (bedra - 8) and schoolB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''school'', <<i>>"><img src="images/clothing/6school/school<<i>>.jpg" 	height="250" /></a>'
		i += 1
		if i = 6: i = 7
	if i <= 14:jump 'loopschool'

	i = 1
	:loopexercise
		if exercise[i] = 1 and exerciseS[i] = 0 and exerciseH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exercise'', <<i>>"><img src="images/clothing/7exercise/exercise<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 26:jump 'loopexercise'

	i = 1
	:loopnaughty
		if naughty[i] = 1 and naughtyS[i] = 0 and naughtyH[i] > 0 and naughtyB[i] >= (bedra - 8) and naughtyB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''naughty'', <<i>>"><img src="images/clothing/8naughty/naughty<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 67:jump 'loopnaughty'

	i = 1
	:loopexhibit
		if exhibit[i] = 1 and exhibitS[i] = 0 and exhibitH[i] > 0 and exhibitB[i] >= (bedra - 8) and exhibitB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exhibit'', <<i>>"><img src="images/clothing/9exhibit/exhibit<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 30:jump 'loopexhibit'

	i = 1
	:loopuniform
		if uniform[i] = 1 and uniformS[i] = 0 and uniformH[i] > 0 and uniformB[i] >= (bedra - 8) and uniformB[i] <= (bedra + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''uniform'', <<i>>"><img src="images/clothing/10uniform/uniform<<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 24:jump 'loopuniform'
end

if $ARGS[0] = 'cloak':
	i = 1
	:loopcoat
		if coat[i] = 1 and coatH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''coat'', <<i>>"><img src="images/clothing/11coat/coat<i>>.jpg" 	height="250" /></a>'
		i += 1
	if i <= 12:jump 'loopcoat'
end


if $ARGS[0] = 'strip':

	if tanga = 1:
		'<center><img src="images/clothes/nude.jpg"></center>'
		'<center>You strip down to your panties.</center>'
	else
		'<center><img src="images/clothes/nude1.jpg"></center>'
		'<center>You strip completely naked.</center>'
	end

	gs 'clothing', 'strip'
	act 'Choose something to wear':gt 'clothing_QV', 'list'
	
	act 'Leave':gt $loc, $metka
end

if $ARGS[0] = 'change':
	*clr
	cla
	'<center><img src="<<FUNC(''$clothing_image'',  $ARGS[1], ARGS[2])>>"></center>'
	$RESULT = FUNC('$short_description', $ARGS[1])
	$RESULT += '<<ARGS[2]>>'
	'<<$RESULT>>'
	gs 'clothing_attributes', $ARGS[1], ARGS[2]
	if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
		gs 'clothing_descriptions'
		'<<$description>>'
	else
		FUNC('$clothing_name', $ARGS[1], ARGS[2])
	end

	if CloBimbo = 1:'This item is considered bimbo clothing.'

	if $ARGS[1] = 'naughty' and CloQuality < 4:'This outfit can be used for prostitution.'
	if $ARGS[1] = 'uniform':
		if CloStyle2 = 1:
			'This outfit is considered to be a maid uniform.'
		else
			'This outfit is a server uniform, suitable for jobs that require one.'
		end
	end

	if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
		'You are wearing this outfit.'
	else
		act 'Wear this outfit':
			gs 'clothing', 'wear', $ARGS[1], ARGS[2]
			dynamic $ARGS[1] + 'W[<<ARGS[2]>>] = 1'
			gt $loc, $metka
		end
	end
	act 'Choose another outfit': gt 'clothing_QV', 'list'
	
	act 'Leave':gt $loc, $metka
end


--- clothing_QV ---------------------------------