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

locations/shop_exhibitionist.qsrc

@@ -44,7 +44,6 @@ if $ARGS[0] = 'start':
 	act 'View bodysuits': minut += 5 & gt 'shop_exhibitionist', 'bodysuit'
 end
 
-
 if $ARGS[0] = 'outfits':
 	gs 'shortgs', 'setloc', 'shop_exhibitionist', 'outfits'
 	menu_off = 0
@@ -53,41 +52,11 @@ if $ARGS[0] = 'outfits':
 	'<center><b><font color="maroon">Salacious 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_exhibitionist', 'start'
-		step = 1
-	end
+	gt 'shop_utils', 'display_clothes', 'salacious_outfits', 1, 'salacious/outfits', 'shop'
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'salacious_outfits'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopsalacious_outfits_filter
-		i = 1
-		:loopsalacious_outfits
-			if salacious_outfits[i] = 0:
-				gs 'clothing_attributes', 'salacious_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_exhibitionist'', ''salacious_outfits''"><img <<$set_imgh>> src="images/pc/items/salacious/outfits/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopsalacious_outfits'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopsalacious_outfits_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_exhibitionist', 'start'
 end
 
-if $ARGS[0] = 'salacious_outfits': gt 'clothing', 'view_clothing_item', 'salacious_outfits', i, 1000, 'shop'
-
 if $ARGS[0] = 'dresses':
 	gs 'shortgs', 'setloc', 'shop_exhibitionist', 'dresses'
 	menu_off = 0
@@ -96,83 +65,19 @@ if $ARGS[0] = 'dresses':
 	'<center><b><font color="maroon">Salacious dresses</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_exhibitionist', 'start'
-		step = 2
-	end
+	gt 'shop_utils', 'display_clothes', 'salacious_dress', 2, 'salacious/dress', 'shop', Clothingstock mod 2
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'salacious_dress'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopsalacious_dress_filter
-		i = 1 + Clothingstock mod 2
-		:loopsalacious_dress
-			if salacious_dress[i] = 0:
-				gs 'clothing_attributes', 'salacious_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_exhibitionist'', ''salacious_dress''"><img <<$set_imgh>> src="images/pc/items/salacious/dress/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopsalacious_dress'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopsalacious_dress_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_exhibitionist', 'start'
 end
 
-if $ARGS[0] = 'salacious_dress': gt 'clothing', 'view_clothing_item', 'salacious_dress', i, 1000, 'shop'
-
 if $ARGS[0] = 'panties':
 	gs 'shortgs', 'setloc', 'shop_exhibitionist', 'panties'
 	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_exhibitionist', 'start'
-		step = 2
-	end
-
-	gs 'panties', 'shop_filter_header'
-	gs 'panties', 'totals', 'salacious_panties'
-	
-	!!To filter just this set
-	clo_i = 0
-	:looppantyquality_filter
-		i = 1 + (Clothingstock / 2) mod 2
-		:loopsalacious_panties
-			if salacious_panties[i] = 0:
-				gs 'underwear_attributes', 'salacious_panties', i
-				if (clothingfilter['quality'] = 0 and PanQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_exhibitionist'', ''panties2''"><img src="images/pc/items/salacious/panties/<<i>>.jpg" height="150" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'loopsalacious_panties'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'looppantyquality_filter'
-	end
-end
-
-if $ARGS[0] = 'panties2':
-	if salacious_panties[i] ! 0:
-		msg 'You already own these panties.'
-		gt 'shop_exhibitionist', 'panties'
-	end
+	gt 'shop_utils', 'display_panties', 'salacious', 2, 'salacious/panties', 'shop', (Clothingstock / 2) mod 2
 
-	gt 'panties', 'view_panty_item', 'shop', 'salacious', i, 600
+	act 'Return': minut += 1 & gt 'shop_exhibitionist', 'start'
 end
 
 if $ARGS[0] = 'bras':
@@ -180,43 +85,9 @@ if $ARGS[0] = 'bras':
 	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_exhibitionist', 'start'
-		step = 2
-	end
-
-	gs 'bras', 'shop_filter_header'
-	gs 'bras', 'totals', 'salacious_bras'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopbraquality_filter
-		i = 1 + (Clothingstock / 4) mod 2
-		:loopsalacious_bras
-			if salacious_bras[i] = 0:
-				gs 'underwear_attributes', 'salacious_bras', i
-				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_exhibitionist'', ''bras2''"><img src="images/pc/items/salacious/bras/<<i>>.jpg" height="150" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'loopsalacious_bras'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'loopbraquality_filter'
-	end
-end
-
-if $ARGS[0] = 'bras2':
-	if salacious_bras[i] ! 0:
-		msg 'You already own these bras.'
-		gt 'shop_exhibitionist', 'bras'
-	end
+	gt 'shop_utils', 'display_bras', 'salacious', 2, 'salacious/bras', 'shop', (Clothingstock / 4) mod 2
 
-	gt 'bras', 'view_bra_item', 'shop', 'salacious', i, 600
+	act 'Return': minut += 1 & gt 'shop_exhibitionist', 'start'
 end
 
 if $ARGS[0] = 'bodysuit':
@@ -224,40 +95,11 @@ if $ARGS[0] = 'bodysuit':
 	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_exhibitionist', 'start'
-		step = 1
-	end
+	gt 'shop_utils', 'display_bodysuits', 'salacious', 1, 'salacious/bodysuits', 'shop'
 
-	gs 'underwear_bodysuits', 'shop_filter_header'
-	gs 'underwear_bodysuits', 'totals', 'salacious_bodysuits'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopbodysuitquality_filter
-		i = 1
-		:loopsalacious_bodysuit
-			if salacious_bodysuits[i] = 0:
-				gs 'underwear_attributes', 'salacious_bodysuits', i
-				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_exhibitionist'', ''bodysuit2''"><img src="images/pc/items/salacious/bodysuits/<<i>>.jpg"	 height="250" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'loopsalacious_bodysuit'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'loopbodysuitquality_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_exhibitionist', 'start'
 end
 
-if $ARGS[0] = 'bodysuit2': gt 'underwear_bodysuits', 'view_bodysuit_item', 'shop', 'salacious', i, 1000
-
-
-
 
 	!!================================================!!
 	!!                                                !!