[fixed] missing sweat removal in the ice plunge

locations/gLakeNude.qsrc

@@ -360,8 +360,7 @@ if $ARGS[0] = 'sauna':
 			act 'Use the sauna':
 				*clr & cla
 				minut +=30
-				pcs_mood += 5
-				pcs_willpwr += 5
+				pcs_mood += 10
 				if $clothingworntype = 'swimwear':
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
 					if pcs_inhib < 40: inhib_exp += rand(0,1)
@@ -387,8 +386,7 @@ if $ARGS[0] = 'sauna':
 			act 'Use the sauna':
 				*clr & cla
 				minut += 30
-				pcs_mood += 5
-				pcs_willpwr += 5
+				pcs_mood += 10
 				if $clothingworntype = 'swimwear':
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
 					if pcs_inhib < 40: inhib_exp += rand(0,1)
@@ -428,8 +426,7 @@ if $ARGS[0] = 'sauna':
 			act 'Use the sauna':
 				*clr & cla
 				minut +=30
-				pcs_mood += 5
-				pcs_willpwr += 5
+				pcs_mood += 10
 				if $clothingworntype = 'swimwear':
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
 					if pcs_inhib < 40: inhib_exp += rand(0,1)
@@ -454,9 +451,9 @@ end
 if $ARGS[0] = 'ice_plunge':
 	act 'Take a ice plunge':
 		*clr & cla
-		minut +=10
-		pcs_mood += 5
-		pcs_willpwr += 5
+		minut += 10
+		pcs_mood += 10
+		if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
 		if $clothingworntype = 'swimwear':
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/icedipbikini.jpg"></center>'
 			if pcs_inhib < 50:inhib_exp += rand(0,1)