glife/locations/shop_nerdvana.qsrc

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

	gs 'themes', 'indoors'

	'<center><b><font color="maroon">Nerdvana</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/island/nerdvana/shop.jpg"></center>'
	*nl
	'If you are happy to push through the tourists nerdvana has everything a young adult might like to wear. It''s a step up from G&M and unless you can afford the boutiques in Old Town you''ll be spending some time buying outfits here.'

	act 'Leave the nerdvana': minut += 3 & gt 'city_island'

	act 'View cosplay outfits': minut += 5 & gt 'shop_nerdvana', 'cosplay'
	act 'View other outfits': minut += 5 & gt 'shop_nerdvana', 'outfits'
	act 'View swimsuits': minut += 5 & gt 'shop_nerdvana', 'swim'
	act 'View bikinis': minut += 5 & gt 'shop_nerdvana', 'bikinis'
	act 'View purses': minut += 5 & gt 'shop_nerdvana', 'purses'
end

if $ARGS[0] = 'cosplay':
	gs 'shortgs', 'setloc', 'shop_nerdvana', 'cosplay'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing Nerdvana Cosplay Outfits</font></b></center>'
	*nl

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'nerdvana_cosplay'

	!!To filter just this set
	clo_i = 0
	:loopnerdvana_cosplay_filter
		i = 1 + Clothingstock mod 2
		:loopnerdvana_cosplay
			if nerdvana_cosplay[i] = 0:
				gs 'clothing_attributes', 'nerdvana_cosplay', 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_nerdvana'', ''nerdvana_cosplay''"><img src="images/pc/items/nerdvana/cosplay/<<i>>.jpg" 	height="250" /></a>'
				end
			end
			i += 2
		if i <= total: jump 'loopnerdvana_cosplay'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopnerdvana_cosplay_filter'
	end
end

if $ARGS[0] = 'nerdvana_cosplay':
	if nerdvana_cosplay[i] ! 0:
		msg 'You already own this cosplay outfit.'
		gt 'shop_nerdvana', 'cosplay'
	end

	gt 'clothing', 'view_clothing_item', 'nerdvana_cosplay', i, 3000, 'shop'
end

if $ARGS[0] = 'outfits':
	gs 'shortgs', 'setloc', 'shop_nerdvana', 'outfits'
	menu_off = 0
	gs 'stat'

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

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'nerdvana_outfits'

	!!To filter just this set
	clo_i = 0
	:loopnerdvana_outfits_filter
		i = 1 + (Clothingstock / 2) mod 2
		:loopnerdvana_outfits
			if nerdvana_outfits[i] = 0:
				gs 'clothing_attributes', 'nerdvana_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_nerdvana'', ''nerdvana_outfits''"><img src="images/pc/items/nerdvana/outfits/<<i>>.jpg" 	height="250" /></a>'
				end
			end
			i += 2
		if i <= total: jump 'loopnerdvana_outfits'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopnerdvana_outfits_filter'
	end
end

if $ARGS[0] = 'nerdvana_outfits':
	if nerdvana_outfits[i] ! 0:
		msg 'You already own this outfit.'
		gt 'shop_nerdvana', 'outfits'
	end

	gt 'clothing', 'view_clothing_item', 'nerdvana_outfits',i, 3000, 'shop'
end

if $ARGS[0] = 'swim':
	gs 'shortgs', 'setloc', 'shop_nerdvana', '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_nerdvana', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'nerdvana_swimsuit'

	!!To filter just this set
	clo_i = 0
	:loopnerdvana_swimsuit_filter
		i = 1
		:loopnerdvana_swimsuit
			if nerdvana_swimsuit[i] = 0:
				gs 'clothing_attributes', 'nerdvana_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_nerdvana'', ''swim1''"><img src="images/pc/items/nerdvana/swim/one/<<i>>.jpg" 	height="250" /></a>'
				end
			end
			i += 1
		if i <= total: jump 'loopnerdvana_swimsuit'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopnerdvana_swimsuit_filter'
	end
end

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

if $ARGS[0] = 'bikinis':
	gs 'shortgs', 'setloc', 'shop_nerdvana', '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_nerdvana', 'start'

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'nerdvana_bikinis'

	!!To filter just this set
	clo_i = 0
	:loopnerdvana_bikinis_filter
		i = 1
		:loopnerdvana_bikinis
			if nerdvana_bikinis[i] = 0:
				gs 'clothing_attributes', 'nerdvana_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_nerdvana'', ''bikini1''"><img src="images/pc/items/nerdvana/swim/two/<<i>>.jpg" 	height="250" /></a>'
				end
			end
			i += 1
		if i <= 30: jump 'loopnerdvana_bikinis'

	clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7:
		jump 'loopnerdvana_bikinis_filter'
	elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopnerdvana_bikinis_filter'
	end
end

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

if $ARGS[0] = 'purses':
	gs 'shortgs', 'setloc', 'shop_nerdvana', 'purses'
	menu_off = 0
	gs 'stat'

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

	i = 1 + (Clothingstock / 4) mod 2
	:loopnerdvana_purses
		if nerdvana_purses[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_nerdvana'', ''purses2''"><img src="images/pc/items/nerdvana/purses/<<i>>.jpg" 	height="150" /></a> '
		i += 2
	if i <= total: jump 'loopnerdvana_purses'
end

if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'nerdvana',i, 2000


--- shop_nerdvana ---------------------------------