Alternative clothing now setup in all locations

locations/_clothing_image

@@ -29,6 +29,8 @@ elseif $ARGS[0] = 'swimwear':
 	$RESULT = 'images/pc/clothing/12swimwear/<<ARGS[1]>>.jpg'
 elseif $ARGS[0] = 'burlesque':
 	$RESULT = 'images/pc/clothing/13burlesque/<<ARGS[1]>>.jpg'
+elseif $ARGS[0] = 'alternative':
+	$RESULT = 'images/pc/clothing/14alternative/<<ARGS[1]>>.jpg'
 end
 
 --- $clothing_image ---------------------------------

locations/clothing

@@ -209,6 +209,12 @@ if $ARGS[0] = 'view_clothing_list':
 		i += 1
 	if i <= 135:jump 'loopswimwear'
 
+	i = 1
+	:loopalternative
+		if alternative[i] = 1 and alternativeS[i] = cloc and ($clothingworntype ! 'alternative' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'alternative', i)
+		i += 1
+	if i <= 129:jump 'loopalternative'
+
 	'</table>' 
 end
 

locations/clothing_QV

@@ -142,13 +142,24 @@ dynamic $removepan
 	i = 1
 	:loopburlesque
 	if burlesque[i] = 1:
-		gs 'clothing_attributes', 'formal', i
+		gs 'clothing_attributes', 'burlesque', i
 		if CloExhibit <= pcs_exhibition:
 			if burlesqueS[i] = 0 and burlesqueH[i] > 0 and burlesqueB[i] >= (pcs_hips - 8) and burlesqueB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''burlesque'', <<i>>"><img src="images/pc/clothing/13burlesque/<<i>>.jpg" 	height="250" /></a>'
 		end
 	end
 	i += 1
 	if i <= 22:jump 'loopburlesque'
+
+	i = 1
+	:loopalternative
+	if alternative[i] = 1:
+		gs 'clothing_attributes', 'alternative', i
+		if CloExhibit <= pcs_exhibition:
+			if alternativeS[i] = 0 and alternativeH[i] > 0 and alternativeB[i] >= (pcs_hips - 8) and alternativeB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''alternative'', <<i>>"><img src="images/pc/clothing/14alternative/<<i>>.jpg" 	height="250" /></a>'
+		end
+	end
+	i += 1
+	if i <= 129:jump 'loopalternative'
 end
 
 if $ARGS[0] = 'cloak':

locations/clothing_attributes

@@ -96,6 +96,8 @@ elseif $ARGS[0] = 'swimwear':
 	*P FUNC('$attributes_swimwear', $ARGS[0], ARGS[1])
 elseif $ARGS[0] = 'burlesque':
 	*P FUNC('$attributes_burlesque', $ARGS[0], ARGS[1])
+elseif $ARGS[0] = 'alternative':
+	*P FUNC('$attributes_alternative', $ARGS[0], ARGS[1])
 end
 
 --- clothing_attributes ---------------------------------

locations/portnoi

@@ -111,6 +111,12 @@ selltot = 0
 		i += 1
 	if i <= 22:jump 'burlesquemet'
 
+	i = 1
+	:alternativemet
+		if alternative[i] = 1 and alternativeS[i] = 2:dynamic($batch_sell, 'alternative', i)
+		i += 1
+	if i <= 129:jump 'alternativemet'
+
 killvar 'batch_sell'
 
 'You sold <<poshvalldrop>> items of unwanted clothing for a total of <<selltot>> <b>₽</b>.'

locations/portnoi2

@@ -68,6 +68,12 @@ i = 1
 	i += 1
 if i <= 22:jump 'yburlesquemet'
 
+i = 1
+:yalternative
+	if alternative[i] = 1 and ((alternativeB[i] > pcs_hips + 8) or (alternativeB[i] < pcs_hips - 8)):poshvalldrop += 1
+	i += 1
+if i <= 129:jump 'yalternativemet'
+
 poshvalldrop *= 500
 
 if money < poshvalldrop:
@@ -150,6 +156,12 @@ elseif money >= poshvalldrop:
 		i += 1
 	if i <= 22:jump 'xburlesquemet'
 
+	i = 1
+	:xalternativemet
+		if alternative[i] = 1 and ((alternativeB[i] > pcs_hips + 8) or (alternativeB[i] < pcs_hips - 8)):alternativeB[i] = pcs_hips
+		i += 1
+	if i <= 129:jump 'xalternativemet'
+
 	'You resize all clothing for <<poshvalldrop>> <b>₽</b>.'
 
 	if $loc = 'Gshveyfab':

locations/starenie

@@ -117,5 +117,14 @@ if burlesqueW[i] = 1:
 	killvar 'burlesqueW'
 end
 
+i = 1
+:loopalternative
+if alternativeW[i] = 1:
+	dynamic 'alternativeH[<<i>>] -= 1'
+	i += 1
+	if i <= 129:jump 'loopalternative'
+	killvar 'alternativeW'
+end
+
 --- starenie ---------------------------------