locations/bras.qsrc

@@ -11,7 +11,7 @@ if $ARGS[0] = 'totals':
 		total = 19
 	elseif $ARGS[1] = 'fashionista_bras':
 		total = 42
-	elseif $ARGS[1] = 'pussycats_bras':
+	elseif $ARGS[1] = 'cats_bras':
 		total = 41
 	elseif $ARGS[1] = 'danilovich_bras':
 		total = 8

locations/city_market.qsrc

@@ -128,40 +128,9 @@ if $ARGS[0] = 'clo':
 	'<center><b><font color="maroon">Clothes.</font></b></center>'
 	'You inspect the cheap clothing the stall has to offer.'
 
-	act 'Return': minut += 5 & gt 'city_market', 'start'
+	gs 'shop_utils', 'display_clothes', 'market_outfits', 1, 'market/clothes', 'shop'
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'market_outfits'
-
-	!!To filter just this set
-	clo_i = 0
-	:loopmarket_outfits_filter
-		i = 1
-		:loopmarket_outfits
-			if market_outfits[i] = 0:
-				gs 'clothing_attributes', 'market_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 ''city_market'', ''marketclo''"><img <<$set_imgh>> src="images/pc/items/market/clothes/<<i>>.jpg" 	height="250" /></a>'
-				end
-			end
-			i += 1
-		if i <= total: jump 'loopmarket_outfits'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopmarket_outfits_filter'
-	end
-end
-
-if $ARGS[0] = 'marketclo':
-	if market_outfits[i] ! 0:
-		msg 'You already own these clothes.'
-		gt 'city_market', 'clo'
-	end
-
-	gt 'clothing', 'view_clothing_item', 'market_outfits', i, 750, 'shop'
+	act 'Return': minut += 5 & gt 'city_market', 'start'
 end
 
 if $ARGS[0] = 'wares':

locations/clothing.qsrc

@@ -60,7 +60,7 @@ if $ARGS[0] = 'totals':
 		total = 40
 	elseif $ARGS[1] = 'scandalicious_bikinis':
 		total = 70
-	elseif $ARGS[1] = 'bomba_dresses':
+	elseif $ARGS[1] = 'bomba_dress':
 		total = 100
 	elseif $ARGS[1] = 'bomba_outfits':
 		total = 100

locations/coats.qsrc

@@ -11,7 +11,7 @@ if $ARGS[0] = 'totals':
 		total = 20
 	elseif $ARGS[1] = 'dolls_coats':
 		total = 20
-	elseif $ARGS[1] = 'pussycats_coats':
+	elseif $ARGS[1] = 'cats_coats':
 		total = 20
 	elseif $ARGS[1] = 'bomba_coats':
 		total = 20

locations/gad_market.qsrc

@@ -141,41 +141,9 @@ if $ARGS[0] = 'clothing_cart':
 		exit
 	end
 
+	gs 'shop_utils', 'display_clothes', 'market_outfits', 8, 'market/clothes', 'shop', clothingstock mod 4
+	
 	act 'Return': minut += 5 & gt 'gad_market', 'clothing_stand'
-
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'market_outfits'
-
-	!!To filter just this set
-	clo_i = 0
-	:loopmarket_outfits_filter
-		i = 1 + clothingstock mod 4
-		:loopmarket_outfits
-			if market_outfits[i] = 0:
-				gs 'clothing_attributes', 'market_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 ''gad_market'', ''marketclo''"><img <<$set_imgh>> src="images/pc/items/market/clothes/<<i>>.jpg" 	height="250" /></a>'
-				end
-			end
-			!! Only half of the market outfits are ever sold here.
-			i += 8
-		if i <= total: jump 'loopmarket_outfits'
-		clo_i += 1
-	if (clothingfilter['quality'] = 0 and clo_i <= 7) or (clothingfilter['inhibition'] = 0 and clo_i <= 50):
-		jump 'loopmarket_outfits_filter'
-	end
-end
-
-if $ARGS[0] = 'marketclo':
-	if market_outfits[i] ! 0:
-		msg 'You already own these clothes.'
-		gt 'gad_market', 'clothing_cart'
-	end
-
-	gt 'clothing', 'view_clothing_item', 'market_outfits', i, 750, 'shop'
 end
 
 if $ARGS[0] = 'swimsuit_cart':
@@ -270,8 +238,8 @@ if $ARGS[0] = 'swimsuit_cart':
 	end
 end
 
-if $ARGS[0] = 'bikini1': gt 'clothing', 'view_clothing_item', 'scandalicious_bikinis', i, 1750, 'shop'
-if $ARGS[0] = 'swim1': gt 'clothing', 'view_clothing_item', 'scandalicious_swimsuit', i, 1750, 'shop'
+if $ARGS[0] = 'bikini1': gt 'clothing', 'view_clothing_item', 'scandalicious_bikinis', i, 'shop'
+if $ARGS[0] = 'swim1': gt 'clothing', 'view_clothing_item', 'scandalicious_swimsuit', i, 'shop'
 
 
 

locations/panties.qsrc

@@ -14,7 +14,7 @@ if $ARGS[0] = 'totals':
 		total = 37
 	elseif $ARGS[1] = 'fashionista_panties':
 		total = 79
-	elseif $ARGS[1] = 'pussycats_panties':
+	elseif $ARGS[1] = 'cats_panties':
 		total = 72
 	elseif $ARGS[1] = 'danilovich_panties':
 		total = 8

locations/pav_train_market.qsrc

@@ -237,57 +237,13 @@ if $ARGS[0] = 'clo':
 	'<center><b><font color="maroon">Clothes.</font></b></center>'
 	'Cheap clothing on the market stall.'
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'market_outfits'
+	gs 'shop_utils', 'display_clothes', 'market_outfits', 1, 'market/clothes', 'shop'
 
-	if intro_custom_shop_return = 1:
-		act 'Return': gt 'intro_customization', 'modclo'
-		step = intro_custom_step
-	else
-		act 'Return':
-			cla
-			minut += 5
-			gt 'pav_train_market', 'start'
-		end
-		step = 1
-	end
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopmarket_outfits_filter
-
-	i = 1
-	:loopmarket_outfits
-		if market_outfits[i] = 0:
-			gs 'clothing_attributes', 'market_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 ''pav_train_market'', ''marketclo''"><img <<$set_imgh>> src="images/pc/items/market/clothes/<<i>>.jpg" 	height="250" /></a>'
-			end
-		end
-	i += step
-	if i <= total:jump 'loopmarket_outfits'
-
-	clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7:
-		jump 'loopmarket_outfits_filter'
-	elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopmarket_outfits_filter'
-	end
-end
-
-if $ARGS[0] = 'marketclo':
-	cla
-
-	if market_outfits[i] ! 0:
-		msg 'You already own these clothes.'
-		gt 'pav_train_market', 'clo'
+	act 'Return':
+		cla
+		minut += 5
+		gt 'pav_train_market', 'start'
 	end
-
-	gt 'clothing', 'view_clothing_item', 'market_outfits',i, 750, 'shop'
-
 end
 
 if $ARGS[0] = 'events':

locations/purse_attributes.qsrc

@@ -1,4 +1,4 @@
-# shoe_attributes
+# purse_attributes
 
 PursePrice = 0
 
@@ -25,4 +25,4 @@ elseif $ARGS[0] = 'gm':
 end
 
 
---- shoe_attributes ---------------------------------
+--- purse_attributes ---------------------------------

locations/purses.qsrc

@@ -15,7 +15,7 @@ if $ARGS[0] = 'totals':
 		total = 20
 	elseif $ARGS[1] = 'nerdvana_purses':
 		total = 60
-	elseif $ARGS[1] = 'pussycats_purses':
+	elseif $ARGS[1] = 'cats_purses':
 		total = 20
 	elseif $ARGS[1] = 'bomba_purses':
 		total = 20
@@ -152,6 +152,7 @@ if $ARGS[0] = 'view_purse_item':
 
 	cla
 	'<center><img src="<<FUNC(''$purse_image'',  $ARGS[2], ARGS[3])>>"></center>'
+	gs 'purse_attributes', $ARGS[2], ARGS[3]
 
 	gs 'purses', 'descriptions', $ARGS[2]
 

locations/shoes.qsrc

@@ -8,7 +8,7 @@ if $ARGS[0] = 'totals':
 		total = 30
 	elseif $ARGS[1] = 'dolls_shoes':
 		total = 120
-	elseif $ARGS[1] = 'pussycats_shoes':
+	elseif $ARGS[1] = 'cats_shoes':
 		total = 40
 	elseif $ARGS[1] = 'scandalicious_shoes':
 		total = 80

locations/shop.qsrc

@@ -461,16 +461,16 @@ if $shoplocation = 'underwear':
 	$loc = 'shop'
 	'<center><B>Click on an item to view details</B></center>'
 
-	if gm_panties[7] = 0: *p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', 7, 300"><img src="images/pc/items/gm/panties/7.jpg" 	height="150" /></a>'
-	if gm_panties[9] = 0: *p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', 9, 300"><img src="images/pc/items/gm/panties/9.jpg" 	height="150" /></a>'
-	if gm_panties[12] = 0: *p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', 12, 300"><img src="images/pc/items/gm/panties/12.jpg" 	height="150" /></a>'
-	if gm_panties[21] = 0: *p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', 21, 300"><img src="images/pc/items/gm/panties/21.jpg" 	height="150" /></a>'
-	if gm_panties[37] = 0: *p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', 37, 300"><img src="images/pc/items/gm/panties/37.jpg" 	height="150" /></a>'
+	if gm_panties[7] = 0: *p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', 7"><img src="images/pc/items/gm/panties/7.jpg" 	 height="150" /></a>'
+	if gm_panties[9] = 0: *p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', 9"><img src="images/pc/items/gm/panties/9.jpg" 	 height="150" /></a>'
+	if gm_panties[12] = 0: *p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', 12"><img src="images/pc/items/gm/panties/12.jpg" height="150" /></a>'
+	if gm_panties[21] = 0: *p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', 21"><img src="images/pc/items/gm/panties/21.jpg" height="150" /></a>'
+	if gm_panties[37] = 0: *p '<a href="exec:gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', 37"><img src="images/pc/items/gm/panties/37.jpg" height="150" /></a>'
 	*nl
-	if gm_bras[11] = 0: *p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''gm'', 11, 300"><img src="images/pc/items/gm/bras/11.jpg" 	height="150" /></a>'
-	if gm_bras[12] = 0: *p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''gm'', 12, 300"><img src="images/pc/items/gm/bras/12.jpg" 	height="150" /></a>'
-	if gm_bras[16] = 0: *p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''gm'', 16, 300"><img src="images/pc/items/gm/bras/16.jpg" 	height="150" /></a>'
-	if gm_bras[18] = 0: *p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''gm'', 18, 300"><img src="images/pc/items/gm/bras/18.jpg" 	height="150" /></a>'
+	if gm_bras[11] = 0: *p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''gm'', 11"><img src="images/pc/items/gm/bras/11.jpg" 	height="150" /></a>'
+	if gm_bras[12] = 0: *p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''gm'', 12"><img src="images/pc/items/gm/bras/12.jpg" 	height="150" /></a>'
+	if gm_bras[16] = 0: *p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''gm'', 16"><img src="images/pc/items/gm/bras/16.jpg" 	height="150" /></a>'
+	if gm_bras[18] = 0: *p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''gm'', 18"><img src="images/pc/items/gm/bras/18.jpg" 	height="150" /></a>'
 
 	act 'Return':
 		$loc = $loc_bak

locations/shop_danilovich.qsrc

@@ -62,7 +62,7 @@ if $ARGS[0] = 'clo':
 	'<center><b><font color="maroon">Sportswear - one size fits all</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'danilovich_outfits', 3, 'danilovich/outfits', 'shop', Clothingstock mod 3
+	gs 'shop_utils', 'display_clothes', 'danilovich_outfits', 3, 'danilovich/outfits', 'shop', Clothingstock mod 3
 
 	act 'Return': minut += 1 & gt 'shop_danilovich', 'start'
 end
@@ -75,7 +75,7 @@ if $ARGS[0] = 'shoes':
 	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_shoes', 'danilovich', 1, 'danilovich/shoes', 'shop'
+	gs 'shop_utils', 'display_shoes', 'danilovich', 1, 'danilovich/shoes', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_danilovich', 'start'
 end
@@ -89,7 +89,7 @@ if $ARGS[0] = 'swim':
 	*nl
 
 	shop_display_exceptions[0] = 4
-	gt 'shop_utils', 'display_clothes', 'danilovich_swimsuit', 2, 'danilovich/swimwear', 'shop', Clothingstock mod 2
+	gs 'shop_utils', 'display_clothes', 'danilovich_swimsuit', 2, 'danilovich/swimwear', 'shop', Clothingstock mod 2
 
 	act 'Return': minut += 1 & killvar 'shop_display_exceptions' & gt 'shop_danilovich', 'start'
 end
@@ -99,7 +99,7 @@ if $ARGS[0] = 'panties':
 	menu_off = 1
 	gs 'stat'
 
-	gt 'shop_utils', 'display_panties', 'danilovich', 1, 'danilovich/panties', 'shop'
+	gs 'shop_utils', 'display_panties', 'danilovich', 1, 'danilovich/panties', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_danilovich', 'start'
 end
@@ -109,7 +109,7 @@ if $ARGS[0] = 'bras':
 	menu_off = 1
 	gs 'stat'
 
-	gt 'shop_utils', 'display_bras', 'danilovich', 1, 'danilovich/bras', 'shop'
+	gs 'shop_utils', 'display_bras', 'danilovich', 1, 'danilovich/bras', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_danilovich', 'start'
 end
@@ -119,7 +119,7 @@ if $ARGS[0] = 'purses':
 	menu_off = 1
 	gs 'stat'
 
-	gt 'shop_utils', 'display_purses', 'danilovich', 2, 'danilovich/purses', 'shop', (Clothingstock / 6) mod 2
+	gs 'shop_utils', 'display_purses', 'danilovich', 2, 'danilovich/purses', 'shop', (Clothingstock / 6) mod 2
 
 	act 'Return': minut += 1 & gt 'shop_danilovich', 'start'
 end
@@ -129,7 +129,7 @@ if $ARGS[0] = 'coats':
 	menu_off = 1
 	gs 'stat'
 
-	gt 'shop_utils', 'display_coats', 'danilovich', 1, 'danilovich/coats', 'shop'
+	gs 'shop_utils', 'display_coats', 'danilovich', 1, 'danilovich/coats', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_danilovich', 'start'
 end

locations/shop_dolls.qsrc

@@ -65,7 +65,7 @@ if $ARGS[0] = 'dress':
 	'<center><b><font color="maroon">Viewing Patchwork Dolls dresses</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'dolls_dress', 3, 'dolls/dress', 'shop', Clothingstock mod 3
+	gs 'shop_utils', 'display_clothes', 'dolls_dress', 3, 'dolls/dress', 'shop', Clothingstock mod 3
 
 	act 'Return': minut += 5 & gt 'shop_dolls', 'browse'
 end
@@ -78,7 +78,7 @@ if $ARGS[0] = 'clothing':
 	'<center><b><font color="maroon">Viewing Patchwork Dolls clothing</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'dolls_outfits', 2, 'dolls/outfits', 'shop', (Clothingstock / 3) mod 2
+	gs 'shop_utils', 'display_clothes', 'dolls_outfits', 2, 'dolls/outfits', 'shop', (Clothingstock / 3) mod 2
 
 	act 'Return': cla & minut += 5 & gt 'shop_dolls', 'browse'
 end
@@ -91,7 +91,7 @@ if $ARGS[0] = 'shoes':
 	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_shoes', 'dolls', 1, 'dolls/shoes', 'shop'
+	gs 'shop_utils', 'display_shoes', 'dolls', 1, 'dolls/shoes', 'shop'
 
 	act 'Return': minut += 5 & gt 'shop_dolls', 'browse'
 end
@@ -101,7 +101,7 @@ if $ARGS[0] = 'purses':
 	menu_off = 0
 	gs 'stat'
 
-	gt 'shop_utils', 'display_purses', 'dolls', 1, 'dolls/purses', 'shop'
+	gs 'shop_utils', 'display_purses', 'dolls', 1, 'dolls/purses', 'shop'
 
 	act 'Return': minut += 5 & gt 'shop_dolls', 'browse'
 end
@@ -111,7 +111,7 @@ if $ARGS[0] = 'coats':
 	menu_off = 0
 	gs 'stat'
 
-	gt 'shop_utils', 'display_coats', 'dolls', 1, 'dolls/coats', 'shop'
+	gs 'shop_utils', 'display_coats', 'dolls', 1, 'dolls/coats', 'shop'
 
 	act 'Return': minut += 5 & gt 'shop_dolls', 'browse'
 end

locations/shop_erotomaniac.qsrc

@@ -126,7 +126,7 @@ if $ARGS[0] = 'dress':
 	'<center><b><font color="maroon">Fetish dresses - for all your personal needs</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'eroto_dress', 2, 'eroto/dress', 'shop', Clothingstock mod 2
+	gs 'shop_utils', 'display_clothes', 'eroto_dress', 2, 'eroto/dress', 'shop', Clothingstock mod 2
 
 	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
@@ -139,7 +139,7 @@ if $ARGS[0] = 'outfits':
 	'<center><b><font color="maroon">Fetish outfits - for all your personal needs</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'eroto_outfits', 2, 'eroto/outfits', 'shop', (Clothingstock / 2) mod 2
+	gs 'shop_utils', 'display_clothes', 'eroto_outfits', 2, 'eroto/outfits', 'shop', (Clothingstock / 2) mod 2
 
 	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
@@ -152,7 +152,7 @@ if $ARGS[0] = 'strip':
 	'<center><b><font color="maroon">Stripper clothing - for work or the bedroom</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'eroto_strip', 1, 'eroto/strip', 'shop'
+	gs 'shop_utils', 'display_clothes', 'eroto_strip', 1, 'eroto/strip', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
@@ -165,7 +165,7 @@ if $ARGS[0] = 'shoes':
 	'<center><b><font color="maroon">Viewing Erotomaniac shoes</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_shoes', 'eroto', 1, 'eroto/shoes', 'shop'
+	gs 'shop_utils', 'display_shoes', 'eroto', 1, 'eroto/shoes', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
@@ -175,7 +175,7 @@ if $ARGS[0] = 'panties':
 	menu_off = 0
 	gs 'stat'
 
-	gt 'shop_utils', 'display_panties', 'eroto', 2, 'eroto/panties', 'shop', (Clothingstock / 4) mod 2
+	gs 'shop_utils', 'display_panties', 'eroto', 2, 'eroto/panties', 'shop', (Clothingstock / 4) mod 2
 
 	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end
@@ -185,7 +185,7 @@ if $ARGS[0] = 'bras':
 	menu_off = 0
 	gs 'stat'
 
-	gt 'shop_utils', 'display_bras', 'eroto', 1, 'eroto/bras', 'shop'
+	gs 'shop_utils', 'display_bras', 'eroto', 1, 'eroto/bras', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_erotomaniac', 'start'
 end

locations/shop_exhibitionist.qsrc

@@ -52,7 +52,7 @@ if $ARGS[0] = 'outfits':
 	'<center><b><font color="maroon">Salacious outfits</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'salacious_outfits', 1, 'salacious/outfits', 'shop'
+	gs 'shop_utils', 'display_clothes', 'salacious_outfits', 1, 'salacious/outfits', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_exhibitionist', 'start'
 end
@@ -65,7 +65,7 @@ if $ARGS[0] = 'dresses':
 	'<center><b><font color="maroon">Salacious dresses</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'salacious_dress', 2, 'salacious/dress', 'shop', Clothingstock mod 2
+	gs 'shop_utils', 'display_clothes', 'salacious_dress', 2, 'salacious/dress', 'shop', Clothingstock mod 2
 
 	act 'Return': minut += 1 & gt 'shop_exhibitionist', 'start'
 end
@@ -75,7 +75,7 @@ if $ARGS[0] = 'panties':
 	menu_off = 0
 	gs 'stat'
 
-	gt 'shop_utils', 'display_panties', 'salacious', 2, 'salacious/panties', 'shop', (Clothingstock / 2) mod 2
+	gs 'shop_utils', 'display_panties', 'salacious', 2, 'salacious/panties', 'shop', (Clothingstock / 2) mod 2
 
 	act 'Return': minut += 1 & gt 'shop_exhibitionist', 'start'
 end
@@ -85,7 +85,7 @@ if $ARGS[0] = 'bras':
 	menu_off = 0
 	gs 'stat'
 
-	gt 'shop_utils', 'display_bras', 'salacious', 2, 'salacious/bras', 'shop', (Clothingstock / 4) mod 2
+	gs 'shop_utils', 'display_bras', 'salacious', 2, 'salacious/bras', 'shop', (Clothingstock / 4) mod 2
 
 	act 'Return': minut += 1 & gt 'shop_exhibitionist', 'start'
 end
@@ -95,7 +95,7 @@ if $ARGS[0] = 'bodysuit':
 	menu_off = 0
 	gs 'stat'
 
-	gt 'shop_utils', 'display_bodysuits', 'salacious', 1, 'salacious/bodysuits', 'shop'
+	gs 'shop_utils', 'display_bodysuits', 'salacious', 1, 'salacious/bodysuits', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_exhibitionist', 'start'
 end

locations/shop_fancy_pancy.qsrc

@@ -30,7 +30,7 @@ if $ARGS[0] = 'clothes':
 	'<center><b><font color="maroon">Viewing Fancy Pancy outfits</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'fancy_burlesque', 2, 'fancy/burlesque', 'shop', Clothingstock mod 2
+	gs 'shop_utils', 'display_clothes', 'fancy_burlesque', 2, 'fancy/burlesque', 'shop', Clothingstock mod 2
 
 	act 'Return': minut += 1 & gt 'shop_fancy_pancy', 'start'
 end

locations/shop_fashionista.qsrc

@@ -128,7 +128,7 @@ if $ARGS[0] = 'dressingclothes':
 	'<center><b><font color="maroon">Viewing shop_fashionista clothing</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'fashionista_dress', 4, 'fashionista/dress', 'shop', Clothingstock mod 4
+	gs 'shop_utils', 'display_clothes', 'fashionista_dress', 4, 'fashionista/dress', 'shop', Clothingstock mod 4
 
 	act 'Return': minut += 1 & gt 'shop_fashionista', 'changingroom'
 end
@@ -142,7 +142,7 @@ if $ARGS[0] = 'dressingoutfit':
 	'<center><b><font color="maroon">Viewing shop_fashionista clothing</font></b></center>'
 	*nl
 
-	gt 'shop_utils', 'display_clothes', 'fashionista_outfits', 1, 'fashionista/outfits', 'shop'
+	gs 'shop_utils', 'display_clothes', 'fashionista_outfits', 1, 'fashionista/outfits', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_fashionista', 'changingroom'
 end
@@ -152,7 +152,7 @@ if $ARGS[0] = 'dressingbra':
 	menu_off = 0
 	gs 'stat'
 
-	gt 'shop_utils', 'display_bras', 'fashionista', 1, 'fashionista/bras', 'shop'
+	gs 'shop_utils', 'display_bras', 'fashionista', 1, 'fashionista/bras', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_fashionista', 'changingroom'
 end
@@ -163,7 +163,7 @@ if $ARGS[0] = 'dressingpanties':
 	menu_off = 0
 	gs 'stat'
 
-	gt 'shop_utils', 'display_panties', 'fashionista', 2, 'fashionista/panties', 'shop', (Clothingstock / 4) mod 2
+	gs 'shop_utils', 'display_panties', 'fashionista', 2, 'fashionista/panties', 'shop', (Clothingstock / 4) mod 2
 
 	act 'Return': minut += 1 & gt 'shop_fashionista', 'changingroom'
 end
@@ -186,13 +186,11 @@ if $ARGS[0] = 'purses':
 	menu_off = 1
 	gs 'stat'
 
-	gt 'shop_utils', 'display_purses', 'fashionista', 1, 'fashionista/purses', 'shop'
+	gs 'shop_utils', 'display_purses', 'fashionista', 1, 'fashionista/purses', 'shop'
 
 	act 'Return': minut += 1 & gt 'shop_fashionista', 'start'
 end
 
-if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'fashionista',i, 3000
-
 !!Not available yet. This part needs images for most scenes, second part (not triggered here) changed to candid photo from old dog sex blackmail to trigger
 if $ARGS[0] = 'rima':
 	*clr & cla

locations/shop_flamingos.qsrc

@@ -28,46 +28,9 @@ if $ARGS[0] = 'dresses':
 	'<center><b><font color="maroon">Viewing Flamingo''s 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_flamingos', 'start'
-		step = 3
-	end
+	gs 'shop_utils', 'display_clothes', 'flamingos_dress', 3, 'flamingos/dress', 'shop', Clothingstock mod 3
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'flamingos_dress'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopflamingos_dress_filter
-		i = 1 + Clothingstock mod 3
-		:loopflamingos_dress
-			if flamingos_dress[i] = 0:
-				gs 'clothing_attributes', 'flamingos_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_flamingos'', ''flamingos_dress''"><img src="images/pc/items/flamingos/dress/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopflamingos_dress'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopflamingos_dress_filter'
-	end
-end
-
-if $ARGS[0] = 'flamingos_dress':
-	if flamingos_dress[i] ! 0:
-		msg 'You already own this dress.'
-		gt 'shop_flamingos', 'dresses'
-	end
-
-	gt 'clothing', 'view_clothing_item', 'flamingos_dress', i, 3000, 'shop'
+	act 'Return': minut += 1 & gt 'shop_flamingos', 'start'
 end
 
 if $ARGS[0] = 'clothes':
@@ -78,46 +41,9 @@ if $ARGS[0] = 'clothes':
 	'<center><b><font color="maroon">Viewing Flamingo''s outfits</font></b></center>'
 	*nl
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'flamingos_outfits'
-
-	if intro_custom_shop_return = 1:
-		act 'Return': gt 'intro_customization', 'modclo'
-		step = intro_custom_step
-	else
-		act 'Return': minut += 1 & gt 'shop_flamingos', 'start'
-		step = 2
-	end
+	gs 'shop_utils', 'display_clothes', 'flamingos_outfits', 2, 'flamingos/outfits', 'shop', (Clothingstock / 3) mod 2
 
-	!!To filter just this set
-	clo_i = 0
-	:loopflamingos_filter
-		i = 1 + (Clothingstock / 3) mod 2
-		:loopflamingos
-			if flamingos_outfits[i] = 0:
-				gs 'clothing_attributes', 'flamingos_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_flamingos'', ''flamingos_outfits''"><img src="images/pc/items/flamingos/outfits/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total:jump 'loopflamingos'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopflamingos_filter'
-	end
-end
-
-if $ARGS[0] = 'flamingos_outfits':
-	if flamingos_outfits[i] ! 0:
-		msg 'You already own this outfit.'
-		gt 'shop_flamingos', 'clothes'
-	end
-
-	gt 'clothing', 'view_clothing_item', 'flamingos_outfits', i, 3000, 'shop'
+	act 'Return': minut += 1 & gt 'shop_flamingos', 'start'
 end
 
 if $ARGS[0] = 'purses':
@@ -125,24 +51,10 @@ 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 += 5 & gt 'shop_flamingos', 'start'
-		step = 1
-	end
+	gs 'shop_utils', 'display_purses', 'flamingos', 1, 'flamingos/purses', 'shop'
 
-	gs 'purses', 'totals', 'flamingos_purses'
-	
-	i = 1
-	:loopflamingos_purses
-		if flamingos_purses[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_flamingos'', ''purses2''"><img src="images/pc/items/flamingos/purses/<<i>>.jpg" height="250" /></a>'
-		i += step
-	if i <= total: jump 'loopflamingos_purses'
+	act 'Return': minut += 5 & gt 'shop_flamingos', 'start'
 end
 
-if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'flamingos', i, 2000
-
 --- shop_flamingos ---------------------------------
 

locations/shop_lusso.qsrc

@@ -25,44 +25,10 @@ if $ARGS[0] = 'panties':
 	gs 'shortgs', 'setloc', 'shop_lusso', '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_lusso', 'start'
-		step = 2
-	end
-
-	gs 'panties', 'shop_filter_header'
-	gs 'panties', 'totals', 'lusso_panties'
-
-	!!To filter just this set
-	clo_i = 0
-	:looppantyquality_filter
-		i = 1 + Clothingstock mod 2
-		:looplusso_panties
-			if lusso_panties[i] = 0:
-				gs 'underwear_attributes', 'lusso_panties', i
-				if (clothingfilter['quality'] = 0 and PanQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_lusso'', ''panties2''"><img src="images/pc/items/lusso/panties/<<i>>.jpg"	 height="150" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'looplusso_panties'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'looppantyquality_filter'
-	end
-end
 
-if $ARGS[0] = 'panties2':
-	if lusso_panties[i] ! 0:
-		msg 'You already own these panties.'
-		gt 'shop_lusso', 'panties'
-	end
-
-	gt 'panties', 'view_panty_item', 'shop', 'lusso', i, 1000
+	gs 'shop_utils', 'display_panties', 'lusso', 2, 'lusso/panties', 'shop', Clothingstock mod 2
+	
+	act 'Return': minut += 1 & gt 'shop_lusso', 'start'
 end
 
 if $ARGS[0] = 'bras':
@@ -70,43 +36,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_lusso', 'start'
-		step = 1
-	end
-
-	gs 'bras', 'shop_filter_header'
-	gs 'bras', 'totals', 'lusso_bras'
+	gs 'shop_utils', 'display_bras', 'lusso', 1, 'lusso/bras', 'shop'
 
-	!!To filter just this set
-	clo_i = 0
-	:loopbraquality_filter
-		i = 1
-		:looplusso_bras
-			if lusso_bras[i] = 0:
-				gs 'underwear_attributes', 'lusso_bras', i
-				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_lusso'', ''bras2''"><img src="images/pc/items/lusso/bras/<<i>>.jpg"	 height="150" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'looplusso_bras'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'loopbraquality_filter'
-	end
-end
-
-if $ARGS[0] = 'bras2':
-	if lusso_bras[i] ! 0:
-		msg 'You already own these bras.'
-		gt 'shop_lusso', 'bras'
-	end
-
-	gt 'bras', 'view_bra_item', 'shop', 'lusso', i, 1000
+	act 'Return': minut += 1 & gt 'shop_lusso', 'start'
 end
 
 if $ARGS[0] = 'bodysuit':
@@ -114,37 +46,9 @@ 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_lusso', 'start'
-		step = 3
-	end
+	gs 'shop_utils', 'display_bodysuits', 'lusso', 3, 'lusso/bodysuits', 'shop', (Clothingstock / 2) mod 3
 
-	gs 'underwear_bodysuits', 'shop_filter_header'
-	gs 'underwear_bodysuits', 'totals', 'lusso_bodysuits'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopbodysuitquality_filter
-		i = 1 + (Clothingstock / 2) mod 3
-
-		:looplusso_bodysuit
-			if lusso_bodysuits[i] = 0:
-				gs 'underwear_attributes', 'lusso_bodysuits', i
-				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_lusso'', ''bodysuit2''"><img src="images/pc/items/lusso/bodysuits/<<i>>.jpg"	 height="250" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'looplusso_bodysuit'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'loopbodysuitquality_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_lusso', 'start'
 end
 
-if $ARGS[0] = 'bodysuit2': gt 'underwear_bodysuits', 'view_bodysuit_item', 'shop', 'lusso', i, 1600
-
 --- shop_lusso ---------------------------------

locations/shop_materinstvo.qsrc

@@ -51,40 +51,10 @@ if $ARGS[0] = 'clothes':
 	'<center><b><font color="maroon">Viewing Mommy Style clothing</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_materinstvo', 'start'
-		step = 1
-	end
+	gs 'shop_utils', 'display_clothes', 'materinstvo_dress', 1, 'mommy', 'shop'
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'materinstvo_dress'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopmaterinstvo_filter
-		i = 1
-		:loopmaterinstvo
-			if materinstvo_dress[i] = 0:
-				gs 'clothing_attributes', 'materinstvo_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_materinstvo'', ''materinstvo_dress''"><img src="images/pc/items/mommy/<<i>>.jpg" 	height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopmaterinstvo'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopmaterinstvo_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_materinstvo', 'start'
 end
 
-if $ARGS[0] = 'materinstvo_dress': gt 'clothing', 'view_clothing_item', 'materinstvo_dress', i, 2000, 'shop'
-
 --- shop_materinstvo ---------------------------------
 

locations/shop_moncheri.qsrc

@@ -104,7 +104,6 @@ if $ARGS[0] = 'changingend':
 	gt 'shop_moncheri', 'start'
 end
 
-
 if $ARGS[0] = 'gowns':
 	gs 'shortgs', 'setloc', 'shop_moncheri', 'gowns'
 	menu_off = 0
@@ -113,41 +112,11 @@ if $ARGS[0] = 'gowns':
 	'<center><b><font color="maroon">Viewing Mon Chéri 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_moncheri', 'changingroom'
-		step = 3
-	end
+	gs 'shop_utils', 'display_clothes', 'moncheri_gown', 3, 'moncheri/gown', 'shop', Clothingstock mod 3
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'moncheri_gown'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopmoncheri_gown_filter
-		i = 1 + Clothingstock mod 3
-		:loopmoncheri_gown
-			if moncheri_gown[i] = 0:
-				gs 'clothing_attributes', 'moncheri_gown', 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_moncheri'', ''moncheri_gown''"><img src="images/pc/items/moncheri/gown/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total:jump 'loopmoncheri_gown'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopmoncheri_gown_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_moncheri', 'changingroom'
 end
 
-if $ARGS[0] = 'moncheri_gown': gt 'clothing', 'view_clothing_item', 'moncheri_gown', i, 20000, 'shop'
-
 if $ARGS[0] = 'dresses':
 	gs 'shortgs', 'setloc', 'shop_moncheri', 'dresses'
 	menu_off = 0
@@ -156,168 +125,56 @@ if $ARGS[0] = 'dresses':
 	'<center><b><font color="maroon">Viewing Mon Chéri outfits</font></b></center>'
 	*nl
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'moncheri_dress'
-
-	if intro_custom_shop_return = 1:
-		act 'Return': gt 'intro_customization', 'modclo'
-		step = intro_custom_step
-	else
-		act 'Return': minut += 1 & gt 'shop_moncheri', 'changingroom'
-		step = 2
-	end
+	gs 'shop_utils', 'display_clothes', 'moncheri_dress', 2, 'moncheri/dress', 'shop', (Clothingstock / 3) mod 2
 
-	!!To filter just this set
-	clo_i = 0
-	:loopmoncheri_dress_filter
-		i = 1 + (Clothingstock / 3) mod 2
-		:loopmoncheri_dress
-			if moncheri_dress[i] = 0:
-				gs 'clothing_attributes', 'moncheri_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_moncheri'', ''moncheri_dress''"><img src="images/pc/items/moncheri/dress/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopmoncheri_dress'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopmoncheri_dress_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_moncheri', 'changingroom'
 end
 
-if $ARGS[0] = 'moncheri_dress': gt 'clothing', 'view_clothing_item', 'moncheri_dress',i, 20000, 'shop'
-
 if $ARGS[0] = 'bodysuit':
 	gs 'shortgs', 'setloc', 'shop_moncheri', '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_moncheri', 'changingroom'
-		step = 2
-	end
+	'<center><b><font color="maroon">Viewing Mon Chéri bodysuits</font></b></center>'
+	*nl
 
-	gs 'underwear_bodysuits', 'shop_filter_header'
-	gs 'underwear_bodysuits', 'totals', 'moncheri_bodysuits'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopbodysuitquality_filter
-		i = 1 + (Clothingstock / 6) mod 2
-		:loopmoncheri_bodysuit
-			if moncheri_bodysuits[i] = 0:
-				gs 'underwear_attributes', 'moncheri_bodysuits', i
-				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_moncheri'', ''bodysuit2''"><img src="images/pc/items/moncheri/bodysuits/<<i>>.jpg"	 height="250" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'loopmoncheri_bodysuit'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'loopbodysuitquality_filter'
-	end
-end
+	gs 'shop_utils', 'display_bodysuits', 'moncheri', 2, 'moncheri/bodysuits', 'shop', (Clothingstock / 6) mod 2
 
-if $ARGS[0] = 'bodysuit2': gt 'underwear_bodysuits', 'view_bodysuit_item', 'shop', 'moncheri',i, 2000
+	act 'Return': minut += 1 & gt 'shop_moncheri', 'changingroom'
+end
 
 if $ARGS[0] = 'shoes':
 	gs 'shortgs', 'setloc', 'shop_moncheri', 'shoes'
 	menu_off = 0
 	gs 'stat'
 
-	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
+	'<center><b><font color="maroon">Viewing Mon Chéri 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_moncheri', 'start'
-		step = 3
-	end
+	gs 'shop_utils', 'display_shoes', 'moncheri', 3, 'moncheri/shoes', 'shop', (Clothingstock / 4) mod 3
 
-	gs 'shoes', 'shop_filter_header'
-	gs 'shoes', 'totals', 'moncheri_shoes'
-
-	!!To filter just this set
-	clo_i = 0
-	:loopshoequality_filter
-		i = 1 + (Clothingstock / 4) mod 3
-		:loopmoncheri_shoes
-			if moncheri_shoe[i] = 0:
-				gs 'shoe_attributes', 'moncheri', 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_moncheri'', ''moncheri_shoes''"><img src="images/pc/items/moncheri/shoes/<<i>>.jpg" height="250" /></a>'
-					end
-				end
-			end
-			i += step
-		if i <= total: jump 'loopmoncheri_shoes'
-		clo_i += 1
-	if Shofilter['quality'] = 0 and clo_i <= 7:
-		jump 'loopshoequality_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_moncheri', 'start'
 end
 
-if $ARGS[0] = 'moncheri_shoes':	gt 'shoes', 'view_shoe_item', 'shop', 'moncheri',i, 5000
-
 if $ARGS[0] = 'purses':
 	gs 'shortgs', 'setloc', 'shop_moncheri', '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_moncheri', 'start'
-		step = 1
-	end
+	gs 'shop_utils', 'display_purses', 'moncheri', 1, 'moncheri/purses', 'shop'
 
-	gs 'purses', 'totals', 'moncheri_purses'
-	
-	i = 1
-	:loopmoncheri_purses
-		if moncheri_purses[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_moncheri'', ''purses2''"><img src="images/pc/items/moncheri/purses/<<i>>.jpg"	 height="150" /></a> '
-		i += step
-	if i <= total: jump 'loopmoncheri_purses'
+	act 'Return': minut += 1 & gt 'shop_moncheri', 'start'
 end
 
-if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'moncheri',i, 4000
-
 if $ARGS[0] = 'coats':
 	gs 'shortgs', 'setloc', 'shop_moncheri', '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_moncheri', 'start'
-		step = 1
-	end
-
-	gs 'coats', 'totals', 'moncheri_coats'
+	gs 'shop_utils', 'display_coats', 'moncheri', 1, 'moncheri/coats', 'shop'
 
-	i = 1
-	:loopmoncheri_coats
-		if moncheri_coats[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_moncheri'', ''coats2''"><img src="images/pc/items/moncheri/coats/<<i>>.jpg"	 height="250" /></a> '
-		i += step
-	if i <= total: jump 'loopmoncheri_coats'
+	act 'Return': minut += 1 & gt 'shop_moncheri', 'start'
 end
 
-if $ARGS[0] = 'coats2': gt 'coats', 'view_coat_item', 'shop', 'moncheri', i, 4000
-
 --- moncheri ---------------------------------
 

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
+	gs '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
+	gs '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
+	gs '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
+	gs '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
+	gs 'shop_utils', 'display_purses', 'nerdvana', 2, 'nerdvana/purses', 'shop', (Clothingstock / 4) mod 2
 
+	act 'Return': minut += 1 & gt 'shop_nerdvana', 'start'
+end
 
 --- shop_nerdvana ---------------------------------

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
+	gs '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
+	gs '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
+	gs '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
+	gs '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
+	gs '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
+	gs '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
+	gs '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
-
-
-
 
 	!!==============================================!!
 	!!                                              !!

locations/shop_scandalicious.qsrc

@@ -33,46 +33,9 @@ if $ARGS[0] = 'clothes':
 	'<center><b><font color="maroon">Viewing Scandalicious 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_scandalicious', 'start'
-		step = 1
-	end
+	gs 'shop_utils', 'display_clothes', 'scandalicious_outfits', 1, 'scandalicious/outfits', 'shop'
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'scandalicious_outfits'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopscandalicious_outfits_filter
-		i = 1
-		:loopscandalicious_outfits
-			if scandalicious_outfits[i] = 0:
-				gs 'clothing_attributes', 'scandalicious_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_scandalicious'', ''scandalicious_outfits''"><img src="images/pc/items/scandalicious/outfits/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopscandalicious_outfits'
-		clo_i += 1
-	if (clothingfilter['quality'] = 0 and clo_i <= 7) or (clothingfilter['inhibition'] = 0 and clo_i <= 50):
-		jump 'loopscandalicious_outfits_filter'
-	end
-end
-
-if $ARGS[0] = 'scandalicious_outfits':
-	if scandalicious_outfits[i] ! 0:
-		msg 'You already own these clothes.'
-		gt 'shop_scandalicious', 'clothes'
-	end
-
-	gt 'clothing', 'view_clothing_item', 'scandalicious_outfits', i, 1500, 'shop'
+	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'
 end
 
 if $ARGS[0] = 'dresses':
@@ -83,46 +46,9 @@ if $ARGS[0] = 'dresses':
 	'<center><b><font color="maroon">Viewing Scandalicious 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_scandalicious', 'start'
-		step = 3
-	end
-
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'scandalicious_dress'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopscandalicious_dress_filter
-		i = 1 + Clothingstock mod 3
-		:loopscandalicious_dress
-			if scandalicious_dress[i] = 0:
-				gs 'clothing_attributes', 'scandalicious_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_scandalicious'', ''scandalicious_dress''"><img src="images/pc/items/scandalicious/dress/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopscandalicious_dress'
-		clo_i += 1
-	if (clothingfilter['quality'] = 0 and clo_i <= 7) or (clothingfilter['inhibition'] = 0 and clo_i <= 50):
-		jump 'loopscandalicious_dress_filter'
-	end
-end
-
-if $ARGS[0] = 'scandalicious_dress':
-	if scandalicious_dress[i] ! 0:
-		msg 'You already own this dress.'
-		gt 'shop_scandalicious', 'dresses'
-	end
+	gs 'shop_utils', 'display_clothes', 'scandalicious_dress', 3, 'scandalicious/dress', 'shop', Clothingstock mod 3
 
-	gt 'clothing', 'view_clothing_item', 'scandalicious_dress', i, 1500, 'shop'
+	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'
 end
 
 if $ARGS[0] = 'shoes':
@@ -133,39 +59,11 @@ 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_scandalicious', 'start'
-		step = 4
-	end
+	gs 'shop_utils', 'display_shoes', 'scandalicious', 4, 'scandalicious/shoes', 'shop', (Clothingstock / 3) mod 4
 
-	gs 'shoes', 'shop_filter_header'
-	gs 'shoes', 'totals', 'scandalicious_shoes'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopshoequality_filter
-		i = 1 + (Clothingstock / 3) mod 4
-		:loopscandalicious_shoes
-			if scandalicious_shoe[i] = 0:
-				gs 'shoe_attributes', 'scandalicious', 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_scandalicious'', ''shoes2''"><img src="images/pc/items/scandalicious/shoes/<<i>>.jpg" height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopscandalicious_shoes'
-		clo_i += 1
-	if Shofilter['quality'] = 0 and clo_i <= 7:
-		jump 'loopshoequality_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'
 end
 
-if $ARGS[0] = 'shoes2': gt 'shoes', 'view_shoe_item', 'shop', 'scandalicious', i, 1500
-
 if $ARGS[0] = 'swim':
 	gs 'shortgs', 'setloc', 'shop_scandalicious', 'swim'
 	menu_off = 0
@@ -174,41 +72,11 @@ 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_scandalicious', 'start'
-		step = 2
-	end
+	gs 'shop_utils', 'display_clothes', 'scandalicious_swimsuits', 2, 'scandalicious/swim/one', 'shop', (Clothingstock / 4) mod 2
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'scandalicious_swimsuits'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopscandalicious_swimsuit_filter
-		i = 1 + (Clothingstock / 4) mod 2
-		:loopscandalicious_swimsuit
-			if scandalicious_swimsuit[i] = 0:
-				gs 'clothing_attributes', 'scandalicious_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_scandalicious'', ''swim1''"><img src="images/pc/items/scandalicious/swim/one/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopscandalicious_swimsuit'
-		clo_i += 1
-	if (clothingfilter['quality'] = 0 and clo_i <= 7) or (clothingfilter['inhibition'] = 0 and clo_i <= 50):
-		jump 'loopscandalicious_swimsuit_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'
 end
 
-if $ARGS[0] = 'swim1': gt 'clothing', 'view_clothing_item', 'scandalicious_swimsuit',i, 1750, 'shop'
-
 if $ARGS[0] = 'bikinis':
 	gs 'shortgs', 'setloc', 'shop_scandalicious', 'bikinis'
 	menu_off = 0
@@ -217,76 +85,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_scandalicious', 'start'
-		step = 4
-	end
+	gs 'shop_utils', 'display_clothes', 'scandalicious_bikinis', 4, 'scandalicious/swim/two', 'shop', (Clothingstock / 2) mod 4
 
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'scandalicious_bikinis'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopscandalicious_bikinis_filter
-		i = 1 + (Clothingstock / 2) mod 4
-		:loopscandalicious_bikinis
-			if scandalicious_bikinis[i] = 0:
-				gs 'clothing_attributes', 'scandalicious_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_scandalicious'', ''bikini1''"><img src="images/pc/items/scandalicious/swim/two/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopscandalicious_bikinis'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopscandalicious_bikinis_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'
 end
 
-if $ARGS[0] = 'bikini1': gt 'clothing', 'view_clothing_item', 'scandalicious_bikinis', i, 1750, 'shop'
-
 if $ARGS[0] = 'bodysuit':
 	gs 'shortgs', 'setloc', 'shop_scandalicious', '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_scandalicious', 'start'
-		step = 2
-	end
+	gs 'shop_utils', 'display_bodysuits', 'scandalicious', 2, 'scandalicious/bodysuits', 'shop', Clothingstock mod 2
 
-	gs 'underwear_bodysuits', 'shop_filter_header'
-	gs 'underwear_bodysuits', 'totals', 'scandalicious_bodysuits'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopbodysuitquality_filter
-		i = 1 + Clothingstock mod 2
-		:loopscandalicious_bodysuit
-			if scandalicious_bodysuits[i] = 0:
-				gs 'underwear_attributes', 'scandalicious_bodysuits', i
-				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
-					*p '<a href="exec: i = <<i>> & gt ''shop_scandalicious'', ''bodysuit1''"><img src="images/pc/items/scandalicious/bodysuits/<<i>>.jpg"	 height="250" /></a> '
-				end
-			end
-			i += step
-		if i <= total: jump 'loopscandalicious_bodysuit'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 6:
-		jump 'loopbodysuitquality_filter'
-	end
+	act 'Return': minut += 1 & gt 'shop_scandalicious', 'start'
 end
 
-if $ARGS[0] = 'bodysuit1': gt 'underwear_bodysuits', 'view_bodysuit_item', 'shop', 'scandalicious', i, 1250
-
 --- shop_scandalicious ---------------------------------

locations/shop_tsar_bomba.qsrc

@@ -32,46 +32,9 @@ if $ARGS[0] = 'dresses':
 	'<center><b><font color="maroon">Viewing Tsar Bomba 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_tsar_bomba', 'start'
-		step = 2
-	end
-
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'bomba_dresses'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopbomba_dresses_filter
-		i = 1 + Clothingstock mod 2
-		:loopbomba_dresses
-			if bomba_dress[i] = 0:
-				gs 'clothing_attributes', 'bomba_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_tsar_bomba'', ''bomba_dresses''"><img src="images/pc/items/bomba/dress/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopbomba_dresses'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopbomba_dresses_filter'
-	end
-end
+	gs 'shop_utils', 'display_clothes', 'bomba_dress', 2, 'bomba/dress', 'shop', Clothingstock mod 2
 
-if $ARGS[0] = 'bomba_dresses':
-	if bomba_dress[i] ! 0:
-		msg 'You already own these clothes.'
-		gt 'shop_tsar_bomba', 'clothes'
-	end
-
-	gt 'clothing', 'view_clothing_item', 'bomba_dress', i, 3500, 'shop'
+	act 'Return': minut += 1 & gt 'shop_tsar_bomba', 'start'
 end
 
 if $ARGS[0] = 'clothes':
@@ -82,46 +45,9 @@ if $ARGS[0] = 'clothes':
 	'<center><b><font color="maroon">Viewing Tsar Bomba 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_tsar_bomba', 'start'
-		step = 2
-	end
-
-	gs 'clothing_QV', 'shop_filter_header'
-	gs 'clothing', 'totals', 'bomba_outfits'
+	gs 'shop_utils', 'display_clothes', 'bomba_outfits', 2, 'bomba/outfits', 'shop', (Clothingstock / 2) mod 2
 	
-	!!To filter just this set
-	clo_i = 0
-	:loopbomba_filter
-		i = 1 + (Clothingstock / 2) mod 2
-		:loopbomba
-			if bomba_outfits[i] = 0:
-				gs 'clothing_attributes', 'bomba_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_tsar_bomba'', ''bomba_outfits''"><img src="images/pc/items/bomba/outfits/<<i>>.jpg"	 height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopbomba'
-		clo_i += 1
-	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
-		jump 'loopbomba_filter'
-	end
-end
-
-if $ARGS[0] = 'bomba_outfits':
-	if bomba_outfits[i] ! 0:
-		msg 'You already own these clothes.'
-		gt 'shop_tsar_bomba', 'clothes'
-	end
-
-	gt 'clothing', 'view_clothing_item', 'bomba_outfits', i, 3500, 'shop'
+	act 'Return': minut += 1 & gt 'shop_tsar_bomba', 'start'
 end
 
 if $ARGS[0] = 'purses':
@@ -129,25 +55,11 @@ 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_tsar_bomba', 'start'
-		step = 1
-	end
+	gs 'shop_utils', 'display_purses', 'bomba', 1, 'bomba/purses', 'shop'
 
-	gs 'purses', 'totals', 'bomba_purses'
-	
-	i = 1
-	:loopbomba_purses
-		if bomba_purses[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_tsar_bomba'', ''purses2''"><img src="images/pc/items/bomba/purses/<<i>>.jpg"	 height="250" /></a> '
-		i += step
-	if i <= total: jump 'loopbomba_purses'
+	act 'Return': minut += 1 & gt 'shop_tsar_bomba', 'start'
 end
 
-if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'bomba', i, 2000
-
 if $ARGS[0] = 'shoes':
 	gs 'shortgs', 'setloc', 'shop_tsar_bomba', 'shoes'
 	menu_off = 0
@@ -156,62 +68,20 @@ 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 += 5 & gt 'shop_tsar_bomba', 'start'
-		step = 1
-	end
+	gs 'shop_utils', 'display_shoes', 'bomba', 1, 'bomba/shoes', 'shop'
 
-	gs 'shoes', 'shop_filter_header'
-	gs 'shoes', 'totals', 'bomba_shoes'
-	
-	!!To filter just this set
-	clo_i = 0
-	:loopshoequality_filter
-		i = 1
-		:loopbomba_shoes
-			if bomba_shoe[i] = 0:
-				gs 'shoe_attributes', 'bomba', 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_tsar_bomba'', ''bomba_shoes''"><img src="images/pc/items/bomba/shoes/<<i>>.jpg" height="250" /></a>'
-				end
-			end
-			i += step
-		if i <= total: jump 'loopbomba_shoes'
-		clo_i += 1
-	if Shofilter['quality'] = 0 and clo_i <= 7:
-		jump 'loopshoequality_filter'
-	end
+	act 'Return': minut += 5 & gt 'shop_tsar_bomba', 'start'
 end
 
-if $ARGS[0] = 'bomba_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'bomba', i, 2000
-
 if $ARGS[0] = 'coats':
 	gs 'shortgs', 'setloc', 'shop_tsar_bomba', '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_tsar_bomba', 'start'
-		step = 1
-	end
+	gs 'shop_utils', 'display_coats', 'bomba', 1, 'bomba/coats', 'shop'
 
-	gs 'coats', 'totals', 'bomba_coats'
-	
-	i = 1
-	:loopbomba_coats
-		if bomba_coats[i] = 0: *p '<a href="exec: i = <<i>> & gt ''shop_tsar_bomba'', ''coats2''"><img src="images/pc/items/bomba/coats/<<i>>.jpg"	 height="250" /></a> '
-		i += step
-	if i <= total: jump 'loopbomba_coats'
+	act 'Return': minut += 1 & gt 'shop_tsar_bomba', 'start'
 end
 
-if $ARGS[0] = 'coats2': gt 'coats', 'view_coat_item', 'shop', 'bomba', i, 2000
-
 --- shop_tsar_bomba ---------------------------------
 

locations/shop_utils.qsrc

@@ -45,7 +45,7 @@ if $ARGS[0] = 'shop':
 			end
 		end
 
-	elseif $ARGS[1] = 'bodysuit':
+	elseif $ARGS[1] = 'bodysuits':
 		if dyneval('result = <<$shop_display[''variable'']>>_bodysuits[shop_display[''i'']]') = 0:
 			gs 'underwear_attributes', $shop_display['variable'], shop_display['i']
 
@@ -101,7 +101,7 @@ end
 ! [4] - link type - shop, wardrode, cheat
 ! [5] - loop index start offset
 ! Populate the 'shop_display_exceptions[]' array with the index of the outfits you want excluded from the display.
-! gt 'shop_utils', 'display_clothes', 'shop_type', 1, 'path', 'link_type'
+! gs 'shop_utils', 'display_clothes', 'shop_type', 1, 'path', 'link_type'
 if $ARGS[0] = 'display_clothes':
 	$shop_display['variable']	= $ARGS[1]
 
@@ -140,7 +140,7 @@ if $ARGS[0] = 'display_clothes':
 	killvar 'shop_display'
 end
 
-! gt 'shop_utils', 'display_shoes', 'shop', 1, 'path', 'link_type'
+! gs 'shop_utils', 'display_shoes', 'shop', 1, 'path', 'link_type'
 if $ARGS[0] = 'display_shoes':
 	$shop_display['variable']	= $ARGS[1]
 
@@ -179,7 +179,7 @@ if $ARGS[0] = 'display_shoes':
 	killvar 'shop_display'
 end
 
-! gt 'shop_utils', 'display_bras', 'shop', 1, 'path', 'link_type'
+! gs 'shop_utils', 'display_bras', 'shop', 1, 'path', 'link_type'
 if $ARGS[0] = 'display_bras':
 	$shop_display['variable']	= $ARGS[1]
 
@@ -218,7 +218,7 @@ if $ARGS[0] = 'display_bras':
 	killvar 'shop_display'
 end
 
-! gt 'shop_utils', 'display_panties', 'shop', 1, 'path', 'link_type'
+! gs 'shop_utils', 'display_panties', 'shop', 1, 'path', 'link_type'
 if $ARGS[0] = 'display_panties':
 	$shop_display['variable']	= $ARGS[1]
 
@@ -257,7 +257,7 @@ if $ARGS[0] = 'display_panties':
 	killvar 'shop_display'
 end
 
-! gt 'shop_utils', 'display_bodysuits', 'shop', 1, 'path', 'link_type'
+! gs 'shop_utils', 'display_bodysuits', 'shop', 1, 'path', 'link_type'
 if $ARGS[0] = 'display_bodysuits':
 	$shop_display['variable']	= $ARGS[1]
 
@@ -296,7 +296,7 @@ if $ARGS[0] = 'display_bodysuits':
 	killvar 'shop_display'
 end
 
-! gt 'shop_utils', 'display_coats', 'shop', 1, 'path', 'link_type'
+! gs 'shop_utils', 'display_coats', 'shop', 1, 'path', 'link_type'
 if $ARGS[0] = 'display_coats':
 	$shop_display['variable']	= $ARGS[1]
 
@@ -315,26 +315,20 @@ if $ARGS[0] = 'display_coats':
 		exit
 	end
 
-	shop_display['clo_i'] = 0
-	:coats_filter_loop
-		shop_display['i'] = 1 + ARGS[5]
-		:coats_main_loop
-		if shop_display['i'] <= total:
-			if arrpos('shop_display_exception', shop_display['i']) < 0:
-				*p func('shop_utils', $ARGS[4], 'coats')
-			end
-			shop_display['i'] += ARGS[2]
-			jump 'coats_main_loop'
+	shop_display['i'] = 1 + ARGS[5]
+	:coats_main_loop
+	if shop_display['i'] <= total:
+		if arrpos('shop_display_exception', shop_display['i']) < 0:
+			*p func('shop_utils', $ARGS[4], 'coats')
 		end
-		shop_display['clo_i'] += 1
-	if clothingfilter['quality'] = 0 and shop_display['clo_i'] <= 6:
-		jump 'coats_filter_loop'
+		shop_display['i'] += ARGS[2]
+		jump 'coats_main_loop'
 	end
 
 	killvar 'shop_display'
 end
 
-! gt 'shop_utils', 'display_purses', 'shop', 1, 'path', 'link_type'
+! gs 'shop_utils', 'display_purses', 'shop', 1, 'path', 'link_type'
 if $ARGS[0] = 'display_purses':
 	$shop_display['variable']	= $ARGS[1]
 
@@ -353,20 +347,14 @@ if $ARGS[0] = 'display_purses':
 		exit
 	end
 
-	shop_display['clo_i'] = 0
-	:purses_filter_loop
-		shop_display['i'] = 1 + ARGS[5]
-		:purses_main_loop
-		if shop_display['i'] <= total:
-			if arrpos('shop_display_exception', shop_display['i']) < 0:
-				*p func('shop_utils', $ARGS[4], 'purses')
-			end
-			shop_display['i'] += ARGS[2]
-			jump 'purses_main_loop'
+	shop_display['i'] = 1 + ARGS[5]
+	:purses_main_loop
+	if shop_display['i'] <= total:
+		if arrpos('shop_display_exception', shop_display['i']) < 0:
+			*p func('shop_utils', $ARGS[4], 'purses')
 		end
-		shop_display['clo_i'] += 1
-	if clothingfilter['quality'] = 0 and shop_display['clo_i'] <= 6:
-		jump 'purses_filter_loop'
+		shop_display['i'] += ARGS[2]
+		jump 'purses_main_loop'
 	end
 
 	killvar 'shop_display'