[Added] Reversed the changes so that the traditional way of perchacing clothing in Fashionista is again available and corrected the ranges for the underwear when trying clothes on

locations/NewCloShop.qsrc

@@ -23,6 +23,12 @@ if $ARGS[0] = 'start':
 		view
 		gt 'torgcentr'
 	end
+	
+	act 'View clothing': minut += 5 & gt 'NewCloShop', 'clothes'
+
+	act 'View panties': minut += 5 & gt 'NewCloShop', 'panties'
+
+	act 'View bras': minut += 5 & gt 'NewCloShop', 'bras'
 
 	act 'View purses': minut += 5 & gt 'NewCloShop', 'purses'
 	
@@ -194,7 +200,7 @@ if $ARGS[0] = 'dressingbra':
 	:loopfashionista_bras2
 		if fashionista_bras[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''dressingbras2''"><img src="images/pc/bras/fashionista/<<i>>.jpg" 	height="150" /></a> '
 		i += 1
-	if i <= 38:jump 'loopfashionista_bras2'
+	if i <= 42:jump 'loopfashionista_bras2'
 end
 
 if $ARGS[0] = 'dressingbras2':
@@ -235,7 +241,7 @@ if $ARGS[0] = 'dressingpanties':
 	:loopfashionista_panties2
 		if fashionista_panties[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''dressingpanties2''"><img src="images/pc/panties/fashionista/<<i>>.jpg" 	height="150" /></a> '
 		i += 1
-	if i <= 75:jump 'loopfashionista_panties2'
+	if i <= 79:jump 'loopfashionista_panties2'
 end
 
 if $ARGS[0] = 'dressingpanties2':
@@ -250,6 +256,115 @@ if $ARGS[0] = 'dressingpanties2':
 end
 
 
+!! Old code
+if $ARGS[0] = 'clothes':
+	$metka = 'clothes'
+	$loc = 'NewCloShop'
+	menu_off = 1
+	*clr & cla
+	gs'stat'
+	'<center><b><font color="maroon">Viewing Fashionista clothing</font></b></center>'
+	*nl
+
+	gs 'clothing_QV', 'shop_header'
+
+	act 'Return':
+		cla
+		minut += 1
+		gt 'NewCloShop', 'start'
+	end
+	
+	i = Clothingstock +1
+
+	if Clothingstock - 12 > 0:i -= 12
+
+	:loopexpensive
+		if expensive[i] = 0:
+			gs 'clothing_attributes', 'expensive', i
+			gs 'clothing_QV', 'shop_filter'
+				
+			if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''shmotmag''"><img src="images/pc/clothing/3expensive/<<i>>.jpg" 	height="250" /></a>'
+		end
+		i += 12
+	if i <= 425:jump 'loopexpensive'
+end
+
+if $ARGS[0] = 'shmotmag':
+	cla
+	
+	if expensive[i] ! 0:
+		msg 'You already own these clothes.'
+		gt 'NewCloShop', 'clothes'
+	end
+
+	gt 'clothing', 'view_clothing_item', 'shop', 'expensive',i, 8000
+end
+
+if $ARGS[0] = 'panties':
+	$metka = 'panties'
+	$loc = 'NewCloShop'
+	menu_off = 1
+	*clr & cla
+	gs'stat'
+
+	act 'Return':
+		cla
+		minut += 1
+		gt 'NewCloShop', 'start'
+	end
+
+	i = 1
+
+	:loopfashionista_panties
+		if fashionista_panties[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''panties2''"><img src="images/pc/panties/fashionista/<<i>>.jpg" 	height="150" /></a> '
+		i += 1
+	if i <= 79:jump 'loopfashionista_panties'
+end
+
+if $ARGS[0] = 'panties2':
+	cla
+	
+	if fashionista_panties[i] ! 0:
+		msg 'You already own these panties.'
+		gt 'NewCloShop', 'panties'
+	end
+
+	gt 'panties', 'view_panty_item', 'shop', 'fashionista',i, 750
+
+end
+
+if $ARGS[0] = 'bras':
+	$metka = 'bras'
+	$loc = 'NewCloShop'
+	menu_off = 1
+	*clr & cla
+	gs'stat'
+
+	act 'Return':
+		cla
+		minut += 1
+		gt 'NewCloShop', 'start'
+	end
+
+	i = 1
+
+	:loopfashionista_bras
+		if fashionista_bras[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''bras2''"><img src="images/pc/bras/fashionista/<<i>>.jpg" 	height="150" /></a> '
+		i += 1
+	if i <= 42:jump 'loopfashionista_bras'
+end
+
+if $ARGS[0] = 'bras2':
+	cla
+	
+	if fashionista_bras[i] ! 0:
+		msg 'You already own this bra.'
+		gt 'NewCloShop', 'bras'
+	end
+
+	gt 'bras', 'view_bra_item', 'shop', 'fashionista',i, 750
+end
+
 if $ARGS[0] = 'purses':
 	$loc_arg = 'purses'
 	$loc = 'NewCloShop'