Descriptions and effects for underwear

locations/body

@@ -1679,10 +1679,23 @@ end
 
 if $wornclothingtype = 'exercise': CloAdjustedBeauty = CloAdjustedBeauty * 2 / 3
 
+!!bonuses for certain underwears
+if $pantyworntype = 'boutique':
+	panty_beautybounus = 4
+elseif $pantyworntype = 'fashionista':
+	panty_beautybounus = 2
+end
+
+if $braworntype = 'boutique':
+	bra_beautybounus = 4
+elseif $braworntype = 'fashionista':
+	bra_beautybounus = 2
+end
+
 !!Appearance factors; hairkoef = very short hair / mopkoef = makeup bonus / legkoef = shaved legs / CloAdjustedBeauty = clothes / pcs_hairbsh = Hair brushed / lipbalmKoef = lip balm / pcs_breath = freash breath / sweatKoef = pcs_sweat / glassvnesh = glasses / dyevmod = hair dye fading
 !!Moved to base calculation in "body_shape"; bimbobeauty = Bimbo bonus; pcs_lip = lip size; skin = skin condition; pcs_lashes = eyelashes; pcs_eyesize = eyes; bodykoef = hips:waist ratio; pcs_teeth = missing teeth; vidagebonus = youth
 !!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
-pcs_apprnc = pcs_apprncbase + CloAdjustedBeauty + mopkoef + (pcs_hairbsh * 10) + lipbalmKoef + (pcs_breath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef
+pcs_apprnc = pcs_apprncbase + CloAdjustedBeauty + mopkoef + (pcs_hairbsh * 10) + lipbalmKoef + (pcs_breath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef + panty_beautybounus + bra_beautybounus
 
 if pcs_apprnc >= 200: pcs_apprnc = 200 + supnatvnesh
 if pcs_apprnc < 0: pcs_apprnc = 0
@@ -1694,6 +1707,9 @@ else
 	hotcat = 11
 end
 
+killvar'panty_beautybounus'
+killvar'bra_beautybounus'
+
 if StrongNarkota <= 0:
 	if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
 	if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:pcs_apprnc = -10

locations/bras

@@ -143,8 +143,7 @@ if $ARGS[0] = 'view_bra_item':
 !!	$RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
 !!	$RESULT += '<<ARGS[3]>>'
 !!	'<<$RESULT>>'
-!!	gs 'bra_descriptions'
-!!	'<<$description>>'
+	gs 'bras', 'descriptions', $ARGS[2]
 
 !!	if PanExhibit + 10 > pcs_exhibition: 'You find this bra more revealing than you are completely comfortable with but that makes it quite exciting too.'
 
@@ -205,6 +204,21 @@ if $ARGS[0] = 'view_bra_item':
 	end
 end
 
+if $ARGS[0] = 'descriptions':
+	if $ARGS[1] = 'cheap':
+		'Cheap bra with no redeeming features.'
+	elseif $ARGS[1] = 'boutique':
+		'This bra is so beautifully made that your posture and confidence is improved wearing it boosting your appearance even when fully clothed.'
+	elseif $ARGS[1] = 'exhibitionist':
+		'This bra is so revealing that it is more exciting than not wearing one and you''ll always feel horny wearing it.'
+	elseif $ARGS[1] = 'fashionista':
+		'This bra is well made improving your posture and confidence and slightly boosting your appearance even when fully clothed.'
+	elseif $ARGS[1] = 'kats':
+		'This bra feels reassuring and wear it gives your mood a lift.'
+	elseif $ARGS[1] = 'sexshop':
+		'Tacky and cheap his bra makes you look like a hooker, this could be a bonus if working as one.'
+	end
+end
 
 --- bras ---------------------------------
 

locations/panties

@@ -140,8 +140,7 @@ if $ARGS[0] = 'view_panty_item':
 !!	$RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
 !!	$RESULT += '<<ARGS[3]>>'
 !!	'<<$RESULT>>'
-!!	gs 'panty_descriptions'
-!!	'<<$description>>'
+	gs 'panties', 'descriptions', $ARGS[2]
 
 !!	if PanExhibit + 10 > pcs_exhibition: 'You find these panties more revealing than you are completely comfortable with but that makes it quite exciting too.'
 
@@ -202,6 +201,21 @@ if $ARGS[0] = 'view_panty_item':
 	end
 end
 
+if $ARGS[0] = 'descriptions':
+	if $ARGS[1] = 'cheap':
+		'Cheap panties with no redeeming features.'
+	elseif $ARGS[1] = 'boutique':
+		'These panties are so beautifully made that your posture and confidence is improved wearing them boosting your appearance even when fully clothed.'
+	elseif $ARGS[1] = 'exhibitionist':
+		'These panties are so revealing that they are more exciting than not wearing any and you''ll always feel horny wearing them.'
+	elseif $ARGS[1] = 'fashionista':
+		'These panties are well made improving your posture and confidence and slightly boosting your appearance even when fully clothed.'
+	elseif $ARGS[1] = 'kats':
+		'These panties feel reassuring and wear them gives your mood a lift.'
+	elseif $ARGS[1] = 'sexshop':
+		'Tacky and cheap these panties make you look like a hooker, this could be a bonus if working as one.'
+	end
+end
 
 --- panties ---------------------------------
 

locations/sexshop

@@ -516,7 +516,7 @@ if $ARGS[0] = 'bras2':
 	cla
 	
 	if sexshop_bras[i] ! 0:
-		msg 'You already own these bras.'
+		msg 'You already own this bra.'
 		gt 'sexshop', 'bras'
 	end
 

locations/stat

@@ -508,7 +508,18 @@ if minut >= 60:
 		if pain[i] < 0: pain[i] = 0
 		jump 'statpainloop'
 	end
-	
+
+!! Panty happiness gain
+	if pcs_mood < 60 and $pantyworntype = 'kats': pcs_mood += 2
+	if pcs_mood < 60 and $braworntype = 'kats': pcs_mood += 2
+
+!!Arousal adjustments
+	if ($pantyworntype = 'exhibitionist' and $braworntype = 'exhibitionist') and pcs_horny < 25:
+		pcs_horny += 10
+	elseif pcs_horny < 10 and ($pantyworntype = 'exhibitionist' or $braworntype = 'exhibitionist'):
+		pcs_honry += 5
+	end
+
 	if aphrodisiac_timer >= 1:
 		if pcs_horny < 80:
 			pcs_horny = 80
@@ -518,7 +529,7 @@ if minut >= 60:
 		aphrodisiac_timer -= 1
 	end
 
-	if $pantyworntype ! 'none' and clit_size >= 25:pcs_horny += 20
+	if $pantyworntype ! 'none' and clit_size >= 25 and pcs_horny < 60:pcs_horny += 20
 
 	if insleep = 0:
 		pcs_sweat += rand(0,1)