[fixed] Hadn't added the code to create the actual cover total from which exposure can be measured.

locations/bras.qsrc

@@ -408,6 +408,15 @@ if $ARGS[0] = 'dispose':
 	lastwornbranumber = 0
 	$braworntype = 'none'
 	brawornnumber = 0
+	PBraMaterial = 0
+	PBraType = 0
+	PBraFun = 0
+	PBraQuality = 0
+	PBraThinness = 0
+	PBraCover = 4
+
+	gs 'clothing', 'exposure_calc'
+
 end
 
 if $ARGS[0] = 'remove':
@@ -417,6 +426,15 @@ if $ARGS[0] = 'remove':
 	$braworntype = 'none'
 	brawornnumber = 0
 	underwear['lastworntype'] = 0
+	PBraMaterial = 0
+	PBraType = 0
+	PBraFun = 0
+	PBraQuality = 0
+	PBraThinness = 0
+	PBraCover = 4
+
+	gs 'clothing', 'exposure_calc'
+
 end
 
 if $ARGS[0] = 'wear':
@@ -463,6 +481,9 @@ if $ARGS[0] = 'wear2':
 	PBraQuality = BraQuality
 	PBraThinness = BraThinness
 	PBraCover = BraCover
+
+	gs 'clothing', 'exposure_calc'
+
 end
 
 if $ARGS[0] = 'wear_last_worn':

locations/clothing.qsrc

@@ -1669,8 +1669,8 @@ if $ARGS[0] = 'dispose':
 	dynamic $clothingworntype + '[<<clothingwornnumber>>] = 0'
 	$lastwornclothingtype = 'none'
 	lastwornclothingnumber = 0
-	$clothingworntype = 'none'
-	clothingwornnumber = 0
+
+	gs 'clothing', 'strip_code'
 end
 
 if $ARGS[0] = 'strip':
@@ -1700,6 +1700,10 @@ if $ARGS[0] = 'strip':
 
 	killvar '$strip_loc'
 
+	gs 'clothing', 'strip_code'
+end
+
+if $ARGS[0] = 'strip_code':
 	$clothingworntype = 'nude'
 	clothingwornnumber = 0
 	CloQuality = 0
@@ -1735,6 +1739,12 @@ if $ARGS[0] = 'strip':
 	PXCloThinness = 0
 	PXCloTopCut = 0
 	PXCloBottomShortness = 0
+	PCloCoverTop = 4
+	PCloCoverBack = 4
+	PCloCoverFront = 4
+
+	gs 'clothing', 'exposure_calc'
+
 end
 
 
@@ -1809,6 +1819,12 @@ if $ARGS[0] = 'wear':
 		PCloBimbo = CloBimbo
 	end
 
+	PCloCoverTop = CloCoverTop
+	PCloCoverBack = CloCoverBack
+	PCloCoverFront = CloCoverFront
+
+	gs 'clothing', 'exposure_calc'
+
 	if PCloTopCut > 1:
 		if tits = 2 or tits = 3: PCloTopCut += 1
 		if tits >= 4: PCloTopCut += 2
@@ -1898,6 +1914,20 @@ if $ARGS[0] = 'wear':
 	if $clothingworntype = 'danilovich_swimsuit' or $clothingworntype = 'scandalicious_swimsuit' or $clothingworntype = 'scandalicious_bikinis' or $clothingworntype = 'allure_swimsuit' or $clothingworntype = 'allure_bikinis' or $clothingworntype = 'nerdvana_swimsuit' or $clothingworntype = 'nerdvana_bikinis': PCloswimwear = 1
 end
 
+if $ARGS[0] = 'exposure_calc':
+	CoverTop = (PCloCoverTop + PBraCover)
+	CoverTop = CoverTop - 4
+	if CoverTop < 0: CoverTop = 0
+
+	CoverBack = (PCloCoverBack + PPanCoverBack)
+	CoverBack = CoverBack - 4
+	if CoverBack < 0: CoverBack = 0
+
+	CoverFront = (PCloCoverFront + PPanCoverFront)
+	CoverFront = CoverFront - 4
+	if CoverFront < 0: CoverFront = 0
+end
+
 if $ARGS[0] = 'wear_last_worn':
 	!!contingency
 	if $lastwornclothingtype = '': $lastwornclothingtype = 'nude'

locations/panties.qsrc

@@ -410,6 +410,15 @@ if $ARGS[0] = 'dispose':
 	lastwornpantynumber = 0
 	$pantyworntype = 'none'
 	pantywornnumber = 0
+	PPanMaterial = 0
+	PPantyFun = 0
+	PPanQuality = 0
+	PPanThinness = 0
+	PPanCoverFront = 4
+	PPanCoverBack = 4
+
+	gs 'clothing', 'exposure_calc'
+
 end
 
 if $ARGS[0] = 'remove':
@@ -419,6 +428,15 @@ if $ARGS[0] = 'remove':
 	$pantyworntype = 'none'
 	pantywornnumber = 0
 	underwear['lastworntype'] = 0
+	PPanMaterial = 0
+	PPantyFun = 0
+	PPanQuality = 0
+	PPanThinness = 0
+	PPanCoverFront = 4
+	PPanCoverBack = 4
+
+	gs 'clothing', 'exposure_calc'
+
 end
 
 if $ARGS[0] = 'wear':
@@ -466,6 +484,9 @@ if $ARGS[0] = 'wear2':
 	PPanThinness = PanThinness
 	PPanCoverFront = PanCoverFront
 	PPanCoverBack = PanCoverBack
+
+	gs 'clothing', 'exposure_calc'
+
 end
 
 if $ARGS[0] = 'wear_last_worn':

locations/underwear_bodysuits.qsrc

@@ -230,6 +230,19 @@ if $ARGS[0] = 'dispose':
 	bodysuitwornnumber = 0
 	$pantyworntype = 'none'
 	$braworntype = 'none'
+
+	PBraQuality = 0
+	PBraMaterial = 0
+	PBraType = 0
+	PBraFun = 0
+	PPanThinness = 0
+	PBraThinness = 0
+	PPanCoverFront = 4
+	PPanCoverBack = 4
+	PBraCover = 4
+
+	gs 'clothing', 'exposure_calc'
+
 end
 
 if $ARGS[0] = 'remove':
@@ -240,6 +253,19 @@ if $ARGS[0] = 'remove':
 	underwear['lastworntype'] = 2
 	$pantyworntype = 'none'
 	$braworntype = 'none'
+
+	PBraQuality = 0
+	PBraMaterial = 0
+	PBraType = 0
+	PBraFun = 0
+	PPanThinness = 0
+	PBraThinness = 0
+	PPanCoverFront = 4
+	PPanCoverBack = 4
+	PBraCover = 4
+
+	gs 'clothing', 'exposure_calc'
+
 end
 
 if $ARGS[0] = 'wear':
@@ -298,6 +324,9 @@ if $ARGS[0] = 'wear2':
 	PPanCoverFront = PanCoverFront
 	PPanCoverBack = PanCoverBack
 	PBraCover = BraCover
+
+	gs 'clothing', 'exposure_calc'
+
 end
 
 if $ARGS[0] = 'wear_last_worn':