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

locations/shop_pussycats.qsrc

@@ -104,41 +104,11 @@ if $ARGS[0] = 'dress':
 	'<center><b><font color="maroon">Viewing Pussy Kats 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_pussycats', 'start'
-		step = 3
-	end
+	gt 'shop_utils', 'display_clothes', 'cats_dress', 3, 'cats/dress', 'shop', Clothingstock mod 3
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'cats_dress'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopcats_dress_filter
-		i = 1 + Clothingstock mod 3
-		:loopcats_dress
-			if cats_dress[i] = 0:
-				gs 'clothing_attributes', 'cats_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_pussycats'', ''yshopclo_dress''"><img <<$set_imgh>> src="images/pc/items/cats/dress/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopcats_dress'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopcats_dress_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_pussycats', 'start'
 end
 
-if $ARGS[0] = 'yshopclo_dress': gt 'clothing', 'view_clothing_item', 'cats_dress', i, 3000, 'shop'
-
 if $ARGS[0] = 'clothes':
 	gs 'shortgs', 'setloc', 'shop_pussycats', 'clothes'
 	menu_off = 0
@@ -147,41 +117,11 @@ if $ARGS[0] = 'clothes':
 	'<center><b><font color="maroon">Viewing Pussy Kats 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_pussycats', 'start'
-		step = 3
-	end
+	gt 'shop_utils', 'display_clothes', 'cats_outfits', 3, 'cats/outfits', 'shop', (Clothingstock / 3) mod 3
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'cats_outfits'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopcats_outfits_filter
-		i = 1 + (Clothingstock / 3) mod 3
-		:loopcats_outfits
-			if cats_outfits[i] = 0:
-				gs 'clothing_attributes', 'cats_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_pussycats'', ''yshopclo_outfit''"><img <<$set_imgh>> src="images/pc/items/cats/outfits/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopcats_outfits'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopcats_outfits_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_pussycats', 'start'
 end
 
-if $ARGS[0] = 'yshopclo_outfit': gt 'clothing', 'view_clothing_item', 'cats_outfits', i, 3000, 'shop'
-
 if $ARGS[0] = 'shoes':
 	gs 'shortgs', 'setloc', 'shop_pussycats', 'shoes'
 	menu_off = 0
@@ -190,81 +130,19 @@ if $ARGS[0] = 'shoes':
 	'<center><b><font color="maroon">Viewing G&M 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_pussycats', 'start'
-		step = 1
-	end
+	gt 'shop_utils', 'display_shoes', 'cats', 1, 'cats/shoes', 'shop'
 
-	gs 'shoes', 'shop_filter_header'
-	gs 'shoes', 'totals', 'pussycats_shoes'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopshoequality_filter
-		i = 1
-		:loopcats_shoe
-			if cats_shoe[i] = 0:
-				gs 'shoe_attributes', 'cats', 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_pussycats'', ''cats_shoe''"><img src="images/pc/items/cats/shoes/<<i>>.jpg" height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopcats_shoe'
-		clo_i += 1
-	if Shofilter['quality'] = 0 and clo_i <= 7:
-		jump 'loopshoequality_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_pussycats', 'start'
 end
 
-if $ARGS[0] = 'cats_shoe': gt 'shoes', 'view_shoe_item', 'shop', 'cats', i, 900
-
 if $ARGS[0] = 'panties':
 	gs 'shortgs', 'setloc', 'shop_pussycats', '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_pussycats', 'start'
-		step = 2
-	end
-
-	gs 'panties', 'shop_filter_header'
-	gs 'panties', 'totals', 'pussycats_panties'
-	
-	!!To filter just this set
-	clo_i = 0
-	:looppantyquality_filter
-		i = 1 + Clothingstock mod 2
-		:loopcats_panties
-			if cats_panties[i] = 0:
-				gs 'underwear_attributes', 'cats_panties', i
-				if (clothingfilter['quality'] = 0 and PanQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_pussycats'', ''panties2''"><img src="images/pc/items/cats/panties/<<i>>.jpg"	 height="150" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'loopcats_panties'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'looppantyquality_filter'
-	end
-end
-
-if $ARGS[0] = 'panties2':
-	if cats_panties[i] ! 0:
-		msg 'You already own these panties.'
-		gt 'shop_pussycats', 'panties'
-	end
+	gt 'shop_utils', 'display_panties', 'cats', 2, 'cats/panties', 'shop', Clothingstock mod 2
 
-	gt 'panties', 'view_panty_item', 'shop', 'cats', i, 500
+	act 'Return': minut += 1 & gt 'shop_pussycats', 'start'
 end
 
 if $ARGS[0] = 'bras':
@@ -272,43 +150,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_pussycats', 'start'
-		step = 1
-	end
-
-	gs 'bras', 'shop_filter_header'
-	gs 'bras', 'totals', 'pussycats_bras'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopbraquality_filter
-		i = 1
-		:loopcats_bras
-			if cats_bras[i] = 0:
-				gs 'underwear_attributes', 'cats_bras', i
-				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_pussycats'', ''bras2''"><img src="images/pc/items/cats/bras/<<i>>.jpg"	 height="150" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'loopcats_bras'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'loopbraquality_filter'
-	end
-end
-
-if $ARGS[0] = 'bras2':
-	if cats_bras[i] ! 0:
-		msg 'You already own this bra.'
-		gt 'shop_pussycats', 'bras'
-	end
+	gt 'shop_utils', 'display_bras', 'cats', 1, 'cats/bras', 'shop'
 
-	gt 'bras', 'view_bra_item', 'shop', 'cats', i, 500
+	act 'Return': minut += 1 & gt 'shop_pussycats', 'start'
 end
 
 if $ARGS[0] = 'purses':
@@ -316,51 +160,21 @@ if $ARGS[0] = '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_pussycats', 'start'
-		step = 1
-	end
+	gt 'shop_utils', 'display_purses', 'cats', 1, 'cats/purses', 'shop'
 
-	gs 'purses', 'totals', 'pussycats_purses'
-	
-	i = 1
-	:loopcats_purses
-		if cats_purses[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_pussycats'', ''purses2''"><img src="images/pc/items/cats/purses/<<i>>.jpg"	 height="250" /></a> '
-		i += step
-	if i <= total: jump 'loopcats_purses'
+	act 'Return': minut += 1 & gt 'shop_pussycats', 'start'
 end
 
-if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'cats', i, 2000
-
 if $ARGS[0] = 'coats':
 	gs 'shortgs', 'setloc', 'shop_pussycats', 'coats'
 	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_pussycats', 'start'
-		step = 1
-	end
+	gt 'shop_utils', 'display_coats', 'cats', 1, 'cats/coats', 'shop'
 
-	gs 'coats', 'totals', 'pussycats_coats'
-	
-	i = 1
-	:loopcats_coats
-		if cats_coats[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_pussycats'', ''coats2''"><img src="images/pc/items/cats/coats/<<i>>.jpg"	 height="250" /></a> '
-		i += step
-	if i <= total: jump 'loopcats_coats'
+	act 'Return': minut += 1 & gt 'shop_pussycats', 'start'
 end
 
-if $ARGS[0] = 'coats2': gt 'coats', 'view_coat_item', 'shop', 'cats', i, 2000
-
-
-
 
 	!!==============================================!!
 	!!                                              !!