[changed] edited 'shop_nerdvana' to use the generalized display loops

locations/shop_nerdvana.qsrc

@@ -30,46 +30,9 @@ if $ARGS[0] = 'cosplay':
 	'<center><b><font color="maroon">Viewing Nerdvana Cosplay Outfits</font></b></center>'
 	*nl
 
-	if intro_custom_shop_return = 1:
-		act 'Return': gt 'intro_customization', 'modclo'
-		step = intro_custom_step
-	else
-		act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
-		step = 2
-	end
-
-	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 += step
-		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 'shop_utils', 'display_clothes', 'nerdvana_cosplay', 2, 'nerdvana/cosplay', 'shop', Clothingstock mod 2
 
-	gt 'clothing', 'view_clothing_item', 'nerdvana_cosplay', i, 3000, 'shop'
+	act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
 end
 
 if $ARGS[0] = 'outfits':
@@ -80,46 +43,9 @@ if $ARGS[0] = 'outfits':
 	'<center><b><font color="maroon">Viewing Nerdvana outfits</font></b></center>'
 	*nl
 
-	if intro_custom_shop_return = 1:
-		act 'Return': gt 'intro_customization', 'modclo'
-		step = intro_custom_step
-	else
-		act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
-		step = 2
-	end
-
-	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 += step
-		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 'shop_utils', 'display_clothes', 'nerdvana_outfits', 2, 'nerdvana/outfits', 'shop', (Clothingstock / 2) mod 2
 
-	gt 'clothing', 'view_clothing_item', 'nerdvana_outfits',i, 3000, 'shop'
+	act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
 end
 
 if $ARGS[0] = 'swim':
@@ -130,40 +56,10 @@ if $ARGS[0] = 'swim':
 	'<center><b><font color="maroon">Swimsuits - one size fits all</font></b></center>'
 	*nl
 
-	if intro_custom_shop_return = 1:
-		act 'Return': gt 'intro_customization', 'modclo'
-		step = intro_custom_step
-	else
-		act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
-		step = 1
-	end
-
-	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 += step
-		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
+	gt 'shop_utils', 'display_clothes', 'nerdvana_swimsuit', 1, 'nerdvana/swim/one', 'shop'
 
-if $ARGS[0] = 'swim1': gt 'clothing', 'view_clothing_item', 'nerdvana_swimsuit',i, 1750, 'shop'
+	act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
+end
 
 if $ARGS[0] = 'bikinis':
 	gs 'shortgs', 'setloc', 'shop_nerdvana', 'bikinis'
@@ -173,65 +69,19 @@ if $ARGS[0] = 'bikinis':
 	'<center><b><font color="maroon">Bikinis - one size fits all</font></b></center>'
 	*nl
 
-	if intro_custom_shop_return = 1:
-		act 'Return': gt 'intro_customization', 'modclo'
-		step = intro_custom_step
-	else
-		act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
-		step = 1
-	end
-
-	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 += step
-		if i <= total: 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
+	gt 'shop_utils', 'display_clothes', 'nerdvana_bikinis', 1, 'nerdvana/swim/two', 'shop'
 
-if $ARGS[0] = 'bikini1': gt 'clothing', 'view_clothing_item', 'nerdvana_bikinis',i, 1750, 'shop'
+	act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
+end
 
 if $ARGS[0] = 'purses':
 	gs 'shortgs', 'setloc', 'shop_nerdvana', 'purses'
 	menu_off = 0
 	gs 'stat'
 
-	if intro_custom_shop_return = 1:
-		act 'Return': gt 'intro_customization', 'modclo'
-		step = intro_custom_step
-	else
-		act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
-		step = 2
-	end
-	
-	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 += step
-	if i <= total: jump 'loopnerdvana_purses'
-end
-
-if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'nerdvana',i, 2000
+	gt 'shop_utils', 'display_purses', 'nerdvana', 2, 'nerdvana/purses', 'shop', (Clothingstock / 4) mod 2
 
+	act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
+end
 
 --- shop_nerdvana ---------------------------------