glife/locations/shop_scandalicious.qsrc

# shop_scandalicious
!!2022/06/08
if $ARGS[0] = 'start':
	killvar 'clothingfilter'
	gs 'shortgs', 'setloc', 'shop_scandalicious', 'start'
	$location_type = 'public_indoors'
	menu_off = 0
	gs 'stat'

	gs 'themes', 'indoors'

	'<center><b><font color="maroon">Scandalicious</font></b></center>'
	'<center><img src="images/locations/city/citycenter/mall/scandalicious/shop.jpg"></center>'
	*nl
	'This store is cheap and tacky. The clothing lives up to the name though and you assume they saved a lot of money on fabric.
	It''s not somewhere you''d go with your Mom or let her know you''d even looked in the window but if you want to show off your body there is nowhere better to shop. The staff aren''t judging anyone so it feels relaxed but there is still a mix of those hiding their embarrassment and those exuding confidence.'
	*nl

	act 'Leave': minut += 3 & gt 'city_mall'

	act 'View clothing': minut += 5 & gt 'shop_scandalicious', 'clothes'
	act 'View dresses': minut += 5 & gt 'shop_scandalicious', 'dresses'
	act 'View shoes': minut += 5 & gt 'shop_scandalicious', 'shoes'
	act 'View swimsuits': minut += 5 & gt 'shop_scandalicious', 'swim'
	act 'View bikinis': minut += 5 & gt 'shop_scandalicious', 'bikinis'
	act 'View bodysuits': minut += 5 & gt 'shop_scandalicious', 'bodysuit'
end

if $ARGS[0] = 'clothes':
	gs 'shortgs', 'setloc', 'shop_scandalicious', 'clothes'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing Scandalicious outfits</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'scandalicious_outfits'

	!!To filter just this set
	clo_i = 0
	:loopscandalicious_outfits_filter
		i = 1
		:loopscandalicious_outfits
			if scandalicious_outfits[i] = 0:
				gs 'clothing_attributes', 'scandalicious_outfits', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_scandalicious'', ''scandalicious_outfits''"><img src="images/pc/items/scandalicious/outfits/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 1
		if i <= total: jump 'loopscandalicious_outfits'
		clo_i += 1
	if (clothingfilter['quality'] = 0 and clo_i <= 7) or (clothingfilter['inhibition'] = 0 and clo_i <= 50):
		jump 'loopscandalicious_outfits_filter'
	end
end

if $ARGS[0] = 'scandalicious_outfits':
	if scandalicious_outfits[i] ! 0:
		msg 'You already own these clothes.'
		gt 'shop_scandalicious', 'clothes'
	end

	gt 'clothing', 'view_clothing_item', 'scandalicious_outfits', i, 1500, 'shop'
end

if $ARGS[0] = 'dresses':
	gs 'shortgs', 'setloc', 'shop_scandalicious', 'dresses'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing Scandalicious dresses</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'scandalicious_dress'

	!!To filter just this set
	clo_i = 0
	:loopscandalicious_dress_filter
		i = 1 + Clothingstock mod 3
		:loopscandalicious_dress
			if scandalicious_dress[i] = 0:
				gs 'clothing_attributes', 'scandalicious_dress', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_scandalicious'', ''scandalicious_dress''"><img src="images/pc/items/scandalicious/dress/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 3
		if i <= total: jump 'loopscandalicious_dress'
		clo_i += 1
	if (clothingfilter['quality'] = 0 and clo_i <= 7) or (clothingfilter['inhibition'] = 0 and clo_i <= 50):
		jump 'loopscandalicious_dress_filter'
	end
end

if $ARGS[0] = 'scandalicious_dress':
	if scandalicious_dress[i] ! 0:
		msg 'You already own this dress.'
		gt 'shop_scandalicious', 'dresses'
	end

	gt 'clothing', 'view_clothing_item', 'scandalicious_dress', i, 1500, 'shop'
end

if $ARGS[0] = 'shoes':
	gs 'shortgs', 'setloc', 'shop_scandalicious', 'shoes'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'

	gs 'shoes', 'shop_filter_header'
	gs 'shoes', 'totals', 'scandalicious_shoes'

	!!To filter just this set
	clo_i = 0
	:loopshoequality_filter
		i = 1 + (Clothingstock / 3) mod 4
		:loopscandalicious_shoes
			if scandalicious_shoe[i] = 0:
				gs 'shoe_attributes', 'scandalicious', i
				gs 'shoes', 'shoe_filter'
				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
					if Shofilter['inc'] = 1 and Shofilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_scandalicious'', ''shoes2''"><img src="images/pc/items/scandalicious/shoes/<<i>>.jpg" height="250" /></a>'
				end
			end
			i += 4
		if i <= 80: jump 'loopscandalicious_shoes'
		clo_i += 1
	if Shofilter['quality'] = 0 and clo_i <= 7:
		jump 'loopshoequality_filter'
	end
end

if $ARGS[0] = 'shoes2': gt 'shoes', 'view_shoe_item', 'shop', 'scandalicious', i, 1500

if $ARGS[0] = 'swim':
	gs 'shortgs', 'setloc', 'shop_scandalicious', 'swim'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Swimsuits - one size fits all</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'scandalicious_swimsuits'

	!!To filter just this set
	clo_i = 0
	:loopscandalicious_swimsuit_filter
		i = 1 + (Clothingstock / 4) mod 2
		:loopscandalicious_swimsuit
			if scandalicious_swimsuit[i] = 0:
				gs 'clothing_attributes', 'scandalicious_swimsuit', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_scandalicious'', ''swim1''"><img src="images/pc/items/scandalicious/swim/one/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 2
		if i <= total: jump 'loopscandalicious_swimsuit'
		clo_i += 1
	if (clothingfilter['quality'] = 0 and clo_i <= 7) or (clothingfilter['inhibition'] = 0 and clo_i <= 50):
		jump 'loopscandalicious_swimsuit_filter'
	end
end

if $ARGS[0] = 'swim1': gt 'clothing', 'view_clothing_item', 'scandalicious_swimsuit',i, 1750, 'shop'

if $ARGS[0] = 'bikinis':
	gs 'shortgs', 'setloc', 'shop_scandalicious', 'bikinis'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Bikinis - one size fits all</font></b></center>'
	*nl

	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'scandalicious_bikinis'

	!!To filter just this set
	clo_i = 0
	:loopscandalicious_bikinis_filter
		i = 1 + (Clothingstock / 2) mod 4
		:loopscandalicious_bikinis
			if scandalicious_bikinis[i] = 0:
				gs 'clothing_attributes', 'scandalicious_bikinis', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''shop_scandalicious'', ''bikini1''"><img src="images/pc/items/scandalicious/swim/two/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 4
		if i <= total: jump 'loopscandalicious_bikinis'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopscandalicious_bikinis_filter'
	end
end

if $ARGS[0] = 'bikini1': gt 'clothing', 'view_clothing_item', 'scandalicious_bikinis', i, 1750, 'shop'

if $ARGS[0] = 'bodysuit':
	gs 'shortgs', 'setloc', 'shop_scandalicious', 'bodysuit'
	menu_off = 0
	gs 'stat'

	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'

	gs 'underwear_bodysuits', 'shop_filter_header'
	gs 'underwear_bodysuits', 'totals', 'scandalicious_bodysuits'

	!!To filter just this set
	clo_i = 0
	:loopbodysuitquality_filter
		i = 1 + Clothingstock mod 2
		:loopscandalicious_bodysuit
			if scandalicious_bodysuits[i] = 0:
				gs 'underwear_attributes', 'scandalicious_bodysuits', i
				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
					*p '<a href="exec: i = <<i>> & gt ''shop_scandalicious'', ''bodysuit1''"><img src="images/pc/items/scandalicious/bodysuits/<<i>>.jpg"	 height="250" /></a> '
				end
			end
			i += 2
		if i <= total: jump 'loopscandalicious_bodysuit'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'loopbodysuitquality_filter'
	end
end

if $ARGS[0] = 'bodysuit1': gt 'underwear_bodysuits', 'view_bodysuit_item', 'shop', 'scandalicious', i, 1250

--- shop_scandalicious ---------------------------------