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

locations/shop_erotomaniac.qsrc

@@ -126,41 +126,11 @@ if $ARGS[0] = 'dress':
 	'<center><b><font color="maroon">Fetish dresses - for all your personal needs</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_erotomaniac', 'start'
-		step = 2
-	end
+	gt 'shop_utils', 'display_clothes', 'eroto_dress', 2, 'eroto/dress', 'shop', Clothingstock mod 2
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'eroto_dress'
-	
-	!!To filter just this set
-	clo_i = 0
-	:looperoto_dress_filter
-		i = 1 + Clothingstock mod 2
-		:looperoto_dress
-			if eroto_dress[i] = 0:
-				gs 'clothing_attributes', 'eroto_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_erotomaniac'', ''eroto_dress''"><img src="images/pc/items/eroto/dress/<<i>>.jpg"	height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'looperoto_dress'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'looperoto_dress_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
 
-if $ARGS[0] = 'eroto_dress': gt 'clothing', 'view_clothing_item', 'eroto_dress', i, 1000, 'shop'
-
 if $ARGS[0] = 'outfits':
 	gs 'shortgs', 'setloc', 'shop_erotomaniac', 'outfits'
 	menu_off = 0
@@ -169,41 +139,11 @@ if $ARGS[0] = 'outfits':
 	'<center><b><font color="maroon">Fetish outfits - for all your personal needs</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_erotomaniac', 'start'
-		step = 2
-	end
+	gt 'shop_utils', 'display_clothes', 'eroto_outfits', 2, 'eroto/outfits', 'shop', (Clothingstock / 2) mod 2
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'eroto_outfits'
-	
-	!!To filter just this set
-	clo_i = 0
-	:looperoto_outfits_filter
-		i = 1 + (Clothingstock / 2) mod 2
-		:looperoto_outfits
-			if eroto_outfits[i] = 0:
-				gs 'clothing_attributes', 'eroto_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_erotomaniac'', ''eroto_outfits''"><img src="images/pc/items/eroto/outfits/<<i>>.jpg"	height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'looperoto_outfits'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'looperoto_outfits_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
 
-if $ARGS[0] = 'eroto_outfits': gt 'clothing', 'view_clothing_item', 'eroto_outfits', i, 1000, 'shop'
-
 if $ARGS[0] = 'strip':
 	gs 'shortgs', 'setloc', 'shop_erotomaniac', 'strip'
 	menu_off = 0
@@ -212,41 +152,11 @@ if $ARGS[0] = 'strip':
 	'<center><b><font color="maroon">Stripper clothing - for work or the bedroom</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_erotomaniac', 'start'
-		step = 1
-	end
+	gt 'shop_utils', 'display_clothes', 'eroto_strip', 1, 'eroto/strip', 'shop'
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'eroto_strip'
-	
-	!!To filter just this set
-	clo_i = 0
-	:looperoto_strip_filter
-		i = 1
-		:looperoto_strip
-			if eroto_strip[i] = 0:
-				gs 'clothing_attributes', 'eroto_strip', 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_erotomaniac'', ''eroto_strip''"><img src="images/pc/items/eroto/strip/<<i>>.jpg"	height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'looperoto_strip'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'looperoto_strip_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
 
-if $ARGS[0] = 'eroto_strip': gt 'clothing', 'view_clothing_item', 'eroto_strip',i, 1000, 'shop'
-
 if $ARGS[0] = 'shoes':
 	gs 'shortgs', 'setloc', 'shop_erotomaniac', 'shoes'
 	menu_off = 0
@@ -255,83 +165,19 @@ if $ARGS[0] = 'shoes':
 	'<center><b><font color="maroon">Viewing Erotomaniac shoes</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_erotomaniac', 'start'
-		step = 1
-	end
+	gt 'shop_utils', 'display_shoes', 'eroto', 1, 'eroto/shoes', 'shop'
 
-	gs 'shoes', 'shop_filter_header'
-	gs 'shoes', 'totals', 'eroto_shoes'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopshoequality_filter
-		i = 1
-		:looperoto_shoes
-			if eroto_shoe[i] = 0:
-				gs 'shoe_attributes', 'eroto', 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_erotomaniac'', ''eroto_shoes''"><img src="images/pc/items/eroto/shoes/<<i>>.jpg" height="250" /></a>'
-					end
-				end
-			end
-			i += step
-		if i <= total: jump 'looperoto_shoes'
-		clo_i += 1
-	if Shofilter['quality'] = 0 and clo_i <= 7:
-		jump 'loopshoequality_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
 
-if $ARGS[0] = 'eroto_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'eroto',i, 2500
-
 if $ARGS[0] = 'panties':
 	gs 'shortgs', 'setloc', 'shop_erotomaniac', '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_erotomaniac', 'start'
-		step = 2
-	end
+	gt 'shop_utils', 'display_panties', 'eroto', 2, 'eroto/panties', 'shop', (Clothingstock / 4) mod 2
 
-	gs 'panties', 'shop_filter_header'
-	gs 'panties', 'totals', 'eroto_panties'
-	
-	!!To filter just this set
-	clo_i = 0
-	:looppantyquality_filter
-		i = 1 + (Clothingstock / 4) mod 2
-		:looperoto_panties
-			if eroto_panties[i] = 0:
-				gs 'underwear_attributes', 'eroto_panties', i
-				if (clothingfilter['quality'] = 0 and PanQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_erotomaniac'', ''panties2''"><img src="images/pc/items/eroto/panties/<<i>>.jpg"	height="150" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'looperoto_panties'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'looppantyquality_filter'
-	end
-end
-
-if $ARGS[0] = 'panties2':
-	if eroto_panties[i] ! 0:
-		msg 'You already own these panties.'
-		gt 'shop_erotomaniac', 'panties'
-	end
-
-	gt 'panties', 'view_panty_item', 'shop', 'eroto', i, 500
+	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
 
 if $ARGS[0] = 'bras':
@@ -339,43 +185,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_erotomaniac', 'start'
-		step = 1
-	end
-
-	gs 'bras', 'shop_filter_header'
-	gs 'bras', 'totals', 'eroto_bras'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopbraquality_filter
-		i = 1
-		:looperoto_bras
-			if eroto_bras[i] = 0:
-				gs 'underwear_attributes', 'eroto_bras', i
-				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_erotomaniac'', ''bras2''"><img src="images/pc/items/eroto/bras/<<i>>.jpg"	height="150" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'looperoto_bras'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'loopbraquality_filter'
-	end
-end
-
-if $ARGS[0] = 'bras2':
-	if eroto_bras[i] ! 0:
-		msg 'You already own this bra.'
-		gt 'shop_erotomaniac', 'bras'
-	end
+	gt 'shop_utils', 'display_bras', 'eroto', 1, 'eroto/bras', 'shop'
 
-	gt 'bras', 'view_bra_item', 'shop', 'eroto', i, 500
+	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
 
 if $ARGS[0] = 'basement':