glife/locations/shop_lusso.qsrc

# shop_lusso
!2022/08/09

if $ARGS[0] = 'start':
	gs 'shortgs', 'setloc', 'shop_lusso', 'start'
	$location_type = 'public_indoors'
	menu_off = 0
	gs 'stat'

	gs 'themes', 'indoors'

	'<center><b><font color="maroon">Lusso Intimo</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/lusso/lusso.jpg"></center>'
	*nl
	'The décor is bright and modern the flowers are real and the dressers made with expensive woods.'
	'This is clearly a high end underwear shop. Just knowing you are wearing these will make you stand out more and they will feel so nice you might never want to go back to wearing the cheap ill fitting underwear you used to have to put up with. That is of course assuming you can afford the prices here.'

	act 'Leave': gt 'city_mall'

	act 'View panties': minut += 5 & gt 'shop_lusso', 'panties'
	act 'View bras': minut += 5 & gt 'shop_lusso', 'bras'
	act 'View bodysuits': minut += 5 & gt 'shop_lusso', 'bodysuit'
end

if $ARGS[0] = 'panties':
	gs 'shortgs', 'setloc', 'shop_lusso', 'panties'
	menu_off = 0
	gs 'stat'

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

	gs 'panties', 'shop_filter_header'
	gs 'panties', 'totals', 'lusso_panties'

	!!To filter just this set
	clo_i = 0
	:looppantyquality_filter
		i = 1 + Clothingstock mod 2
		:looplusso_panties
			if lusso_panties[i] = 0:
				gs 'underwear_attributes', 'lusso_panties', i
				if (clothingfilter['quality'] = 0 and PanQuality = clo_i) or clothingfilter['number'] = 0:
					*p '<a href="exec: i = <<i>> & gt ''shop_lusso'', ''panties2''"><img src="images/pc/items/lusso/panties/<<i>>.jpg"	 height="150" /></a> '
				end
			end
			i += 2
		if i <= total: jump 'looplusso_panties'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'looppantyquality_filter'
	end
end

if $ARGS[0] = 'panties2':
	if lusso_panties[i] ! 0:
		msg 'You already own these panties.'
		gt 'shop_lusso', 'panties'
	end

	gt 'panties', 'view_panty_item', 'shop', 'lusso', i, 1000
end

if $ARGS[0] = 'bras':
	gs 'shortgs', 'setloc', 'shop_lusso', 'bras'
	menu_off = 0
	gs 'stat'

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

	gs 'bras', 'shop_filter_header'
	gs 'bras', 'totals', 'lusso_bras'

	!!To filter just this set
	clo_i = 0
	:loopbraquality_filter
		i = 1
		:looplusso_bras
			if lusso_bras[i] = 0:
				gs 'underwear_attributes', 'lusso_bras', i
				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
					*p '<a href="exec: i = <<i>> & gt ''shop_lusso'', ''bras2''"><img src="images/pc/items/lusso/bras/<<i>>.jpg"	 height="150" /></a> '
				end
			end
			i += 1
		if i <= 33: jump 'looplusso_bras'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'loopbraquality_filter'
	end
end

if $ARGS[0] = 'bras2':
	if lusso_bras[i] ! 0:
		msg 'You already own these bras.'
		gt 'shop_lusso', 'bras'
	end

	gt 'bras', 'view_bra_item', 'shop', 'lusso', i, 1000
end

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

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

	gs 'underwear_bodysuits', 'shop_filter_header'
	gs 'underwear_bodysuits', 'totals', 'lusso_bodysuits'

	!!To filter just this set
	clo_i = 0
	:loopbodysuitquality_filter
		i = 1 + (Clothingstock / 2) mod 3

		:looplusso_bodysuit
			if lusso_bodysuits[i] = 0:
				gs 'underwear_attributes', 'lusso_bodysuits', i
				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
					*p '<a href="exec: i = <<i>> & gt ''shop_lusso'', ''bodysuit2''"><img src="images/pc/items/lusso/bodysuits/<<i>>.jpg"	 height="250" /></a> '
				end
			end
			i += 3
		if i <= 90: jump 'looplusso_bodysuit'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'loopbodysuitquality_filter'
	end
end

if $ARGS[0] = 'bodysuit2': gt 'underwear_bodysuits', 'view_bodysuit_item', 'shop', 'lusso', i, 1600

--- shop_lusso ---------------------------------