[fixed] removed old willpower gains, limited willpower gains for certain activities to 1/day

locations/backwater.qsrc

@@ -60,8 +60,7 @@ end
 			body_write = 0
 			minut += 30
 			pcs_mood += 10
-			! Seems appropriate. Reducing it, but leaving it in. Potentially worth revisiting
-			pcs_willpwr += 1
+			if willday_bath ! daystart: willday_bath = daystart & pcs_willpwr += 1
 			inhib_exp += rand(1,3)
 			if huntersRape = 1: huntersRape = 2
 

locations/din_van.qsrc

@@ -184,6 +184,7 @@ $bath = {
 		if bath_daystart ! daystart:
 			bath_daystart = daystart
 			pcs_skin += rand(1,2)
+			pcs_willpwr += 1
 		end
 
 		gs 'stat'

locations/drugs.qsrc

@@ -83,7 +83,7 @@ elseif $ARGS[0] = 'cocaine':
 	end
 	dur -= 1
 	pcs_health = pcs_vital * 10 + pcs_stren * 5
-	pcs_willpwr += 10
+	if willday_cocaine ! daystart: willday_cocaine = daystart & pcs_willpwr += 10
 	pcs_mood = 100
 	pcs_horny = 100
 	nark += 10

locations/exercise.qsrc

@@ -366,11 +366,12 @@ if $ARGS[0] = 'hula':
 end
 
 if $ARGS[0] = 'yoga':
-	cla
-	*clr
+	*clr & cla
 	loopcount = 1
 	:timeloopyoga
-	gs 'exercise', 'tier2', 0, 'sprt_exp', 'agil_exp', 'pcs_willpwr'
+	if willday_yoga ! daystart: willday_yoga = daystart & yoga_counter = 0	
+	gs 'exercise', 'tier2', 0, 'sprt_exp', 'agil_exp', iif(yoga_counter < 4, 'pcs_willpwr', '')	
+	yoga_counter += 1
 	if loopcount < timemult: loopcount += 1 & jump 'timeloopyoga'
 	loopcount = 0
 	timemult = 0

locations/gLakeNude.qsrc

@@ -169,7 +169,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 			minut = minut + 30
 			pcs_mood += 5
 			! Seems appropriate. Potentially worth revisiting
-			pcs_willpwr += 1
+			if willday_swim ! daystart: willday_swim = daystart & pcs_willpwr += 1
 			if $clothingworntype = 'swimwear':
 				if pcs_inhib < 50:inhib_exp += rand(1,2)
 			elseif $clothingworntype = 'nude':
@@ -359,10 +359,6 @@ if $ARGS[0] = 'sauna':
 			*clr & cla
 			menu_off = 1
 			minut += 2
-			if sauna_daystart ! daystart:
-				sauna_daystart = daystart
-				pcs_skin += rand(2,4)
-			end
 			gs 'stat'
 			if hour < 8 or hour > 22:
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
@@ -385,6 +381,11 @@ if $ARGS[0] = 'sauna':
 				*clr & cla
 				minut +=30
 				pcs_mood += 10
+				if sauna_daystart ! daystart:
+					sauna_daystart = daystart
+					pcs_skin += rand(2,4)
+					pcs_willpwr += 3
+				end
 				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)
@@ -403,39 +404,42 @@ if $ARGS[0] = 'sauna':
 			*clr & cla
 			menu_off = 1
 			minut += 2
-			if sauna_daystart ! daystart:
-				sauna_daystart = daystart
-				pcs_skin += rand(2,4)
-			end
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
 			'It appears to be empty at the moment.'
 			act 'Leave': gt 'gLakeNude', 'sauna'
-			act 'Use the sauna':
-				*clr & cla
-				minut += 30
-				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)
-				else
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg"></center>'
-					if pcs_inhib < 60: inhib_exp += rand(1,2)
+			gs 'willpower', 'exhib', 'self', 'hard'
+			if saunarand < 4 or $clothingworntype = 'swimwear': will_cost = 3
+			if will_cost <= pcs_willpwr:
+				act 'Use the sauna (<<will_cost>> Willpower)':
+					*clr & cla
+					minut += 30
+					pcs_mood += 10
+					if sauna_daystart ! daystart:
+						sauna_daystart = daystart
+						pcs_skin += rand(2,4)
+						pcs_willpwr += 3
+					end
+					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)
+					else
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg"></center>'
+						if pcs_inhib < 60: inhib_exp += rand(1,2)
+					end
+					'You spend 30 minutes relaxing in the sauna.'
+					
+					act 'Leave': gt 'gLakeNude', 'sauna'
+					if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
 				end
-				'You spend 30 minutes relaxing in the sauna.'
-				
-				act 'Leave': gt 'gLakeNude', 'sauna'
-				if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
+			else
+				act 'Use the sauna (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 		end
 		act 'Go to the co-ed section':
 			*clr & cla
 			menu_off = 1
 			minut += 2
-			if sauna_daystart ! daystart:
-				sauna_daystart = daystart
-				pcs_skin += rand(2,4)
-			end
 			gs 'stat'			
 			if hour < 8 or hour > 22:
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
@@ -461,6 +465,11 @@ if $ARGS[0] = 'sauna':
 					gs 'willpower', 'pay', 'self'
 					minut += 30
 					pcs_mood += 10
+					if sauna_daystart ! daystart:
+						sauna_daystart = daystart
+						pcs_skin += rand(2,4)
+						pcs_willpwr += 3
+					end
 					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)

locations/gadfield.qsrc

@@ -354,8 +354,7 @@ if $ARGS[0] = 'cow2':
 					cumspclnt = 4 & gs 'cum_cleanup'
 					pcs_sweat = 10 + rand(0,4)
 					pcs_mood += 5
-					! Leaving it in for now as it seems sort of appropriate. Potentially worth revisiting
-					pcs_willpwr += 5
+					if willday_swim ! daystart: willday_swim = daystart & pcs_willpwr += 1
 					if pcs_stren < 30:stren_exp += 1
 					gs 'stat'
 

locations/gadforestrelax.qsrc

@@ -183,8 +183,6 @@ if bilberry > 0:
 	    pcs_energy += 15
 	    pcs_hydra += 40
 	    bilberry -= 1
-	    ! Commenting it out for now, but potentially worth revisiting
-		!pcs_willpwr += 5
 	    pcs_health += 5
 	    pcs_mood += 10
 	    gs'stat'

locations/gadriver.qsrc

@@ -512,8 +512,6 @@ if $ARGS[0] = 'gadbitch':
 						minut += 30
 						pcs_sweat = 10 + rand(0,4)
 						pcs_mood += 5
-						! Commented out for now, but potentially worth revisiting
-						!pcs_willpwr += 5
 						if pcs_inhib < 50 or $clothingworntype = 'nude': inhib_exp += rand(1,3)
 						hndiwrk_exp += rand(1,3)
 						grandmahelp += 1
@@ -544,8 +542,6 @@ if $ARGS[0] = 'gadbitch':
 							npc_rel['A60'] += 1
 							pcs_sweat = 10 + rand(0,4)
 							pcs_mood += 5
-							! Commented out for now, but potentially worth revisiting
-							!pcs_willpwr += 5
 							if pcs_inhib < 50 or $clothingworntype = 'nude': inhib_exp += rand(1,3)
 							hndiwrk_exp += rand(1,3)
 							grandmahelp += 1

locations/rolanbath.qsrc

@@ -82,8 +82,6 @@ if $ARGS[0] = 'start':
 					*nl
 					'The warm water feels amazing against you. You forget for a moment that Rolan could enter the bathroom at any moment. The shower is so relaxing that you begin to sing under the water, imagining that you''re a famous rockstar performing for your thousands of fans.'
 					pcs_mood += 10
-					! Seems appropriate. Reducing it, but leaving it in. Potentially worth revisiting
-					pcs_willpwr += 1
 					if hypnoAddict ! 0:
 						'You unconsciously avoid spraying water into your vagina.'
 					else
@@ -278,8 +276,6 @@ if $ARGS[0] = 'start':
 					*nl
 					'The warm water feels amazing against you. You forget for a moment that Rolan could enter the bathroom at any moment. The shower is so relaxing that you begin to sing under the water, imagining that you''re a famous rockstar performing for your thousands of fans.'
 					pcs_mood += 10
-					! Seems appropriate. Reducing it, but leaving it in. Potentially worth revisiting
-					pcs_willpwr += 1
 					act 'Dry off': gt 'rolanbath','dryOff'
 				end
 			elseif rand(0,3) = 1:
@@ -596,8 +592,6 @@ if $ARGS[0] = 'pervshower':
 					*nl
 					'The warm water feels amazing against you. As you relax you begin to sing under the water completely forgetting that Rolan is there and can hear you. You imagine that you''re a famous rockstar performing for your thousands of fans.'
 					pcs_mood += 10
-					! Seems appropriate. Reducing it, but leaving it in. Potentially worth revisiting
-					pcs_willpwr += 1
 					if hypnoAddict ! 0:
 						'You unconsciously avoid spraying water into your vagina.'
 					else

locations/sauna.qsrc

@@ -68,8 +68,11 @@ if $ARGS[0] = 'sauna2':
 			if pcs_horny < 0: pcs_horny = 0
 			pcs_health += healthmax/5
 			pcs_stam = stammax
-			! Seems appropriate. Reducing it, but leaving it in. Potentially worth revisiting
-			pcs_willpwr += 5
+			if sauna_daystart ! daystart:
+				sauna_daystart = daystart
+				pcs_skin += rand(2,4)
+				pcs_willpwr += 5
+			end
 			pcs_mana = (pcs_intel*pcs_magik) + pcs_magik*100 + pcs_vital*10 + rikudo
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/shared/sauna/sau.jpg"></center>'
@@ -93,10 +96,6 @@ if $ARGS[0] = 'saunaroom':
 	menu_off = 0
 	$location_type = 'private'
 	saunaYouRoom = 1
-	if sauna_daystart ! daystart:
-		sauna_daystart = daystart
-		pcs_skin += rand(2,4)
-	end
 	gs 'stat'
 	gs 'kit_din'
 	'<center><b><font color="maroon">Room</font></b></center>'

locations/sitr.qsrc

@@ -95,14 +95,11 @@ gs 'events', 'read'
 
 if dildo > 0 and pcs_horny >= 50:
 	act 'Masturbate':
-		cla
-		*clr
+		*clr & cla
 		minut += 30
 		stat['mast'] += 1
 		if pcs_inhib < 30:inhib_exp += rand(1,3)
-		pcs_willpwr += 15
 		pcs_vag += 1
-
 		if husband > 0 and husbandrink ! 10:
 			if week > 5 or week < 6 and hour > 16:
 				cla

locations/ybass.qsrc

@@ -19,8 +19,7 @@ act 'Swim (1:00)':
 	minut += 60
 	pcs_sweat = 10 + rand(0,4)
 	pcs_mood += 5
-	! Seems appropriate. Reducing it, but leaving it in. Potentially worth revisiting
-	pcs_willpwr += 1
+	if willday_swim ! daystart: willday_swim = daystart & pcs_willpwr += 1
 	if pcs_stren < 40:stren_exp += 1
 
 	'<center><img <<$set_imgh>> src="images/locations/shared/lake/swim.jpg"></center>'