glife/sugarcube/src/locations/pavlov/lake/pav_lake_nude.tw

:: pav_lake_nude[outdoors public secluded beach]
<h2>Secluded beach</h2>
<<if $time.month >= 3 and $time.month <= 5>>
	<<if $time.hour >= 6 and $time.hour <= 17>>
		<<image "locations/pavlovsk/lake/lake.spring.jpg">>
	<<else>>
		<<image "locations/pavlovsk/lake/lake.spring.night.jpg">>
	<</if>>
	<center>This small natural beach is hidden away from the general public on an inlet of the lake, and is only accessible through a nearby forest trail. Other than those seeking privacy and some of the local kids, nobody really comes here outside of winter, when people come to use the nearby sauna.</center>
<<elseif $time.month >= 6 and $time.month <= 8>>
	<<if $time.hour >= 6 and $time.hour <= 19>>
		<<image "locations/pavlovsk/lake/lake.summer.jpg">>
	<<else>>
		<<image "locations/pavlovsk/lake/lake.summer.night.jpg">>
	<</if>>
	<center>This small natural beach is hidden away from the general public on an inlet of the lake, and is only accessible through a nearby forest trail. Other than those seeking privacy and some of the local kids, nobody really comes here outside of winter, when people come to use the nearby sauna.</center>
<<elseif $time.month >= 9 and $time.month <= 11>>
	<<if $time.hour >= 6 and $time.hour <= 18>>
		<<image "locations/pavlovsk/lake/lake.autumn.jpg">>
	<<else>>
		<<image "locations/pavlovsk/lake/lake.autumn.night.jpg">>
	<</if>>
	<center>This small natural beach is hidden away from the general public on an inlet of the lake, and is only accessible through a nearby forest trail. Other than those seeking privacy and some of the local kids, nobody really comes here outside of winter, when people come to use the nearby sauna.</center>
<<elseif $time.month < 3 or $time.month == 12>>
	<<if $time.hour >= 7 and $time.hour <= 16>>
		<<image "locations/pavlovsk/lake/lake.winter.jpg">>
	<<else>>
		<<image "locations/pavlovsk/lake/lake.winter.night.jpg">>
	<</if>>
	<center>This small natural beach is hidden away from the general public on an inlet of the lake, and is only accessible through a nearby forest trail. Other than those seeking privacy and some of the local kids, nobody really comes here outside of winter, when people come to use the nearby sauna.</center>
	<center>The lake in Pavlovsk has been frozen over ever since winter arrived. However, the ice is broken in a small part of the inlet, so those brave enough to take a dip in the icy cold water can.</center>
<</if>>
/*<<if setup.startingCharacterTagsIncludes('sg') and $time.month >= 3 and $time.month <= 8 and $time.weekday >= 6 and $time.hour >= 8 and $time.hour <= 10 and $ivanfedorseennaked != $time.daystart and rand(0,3) == 0 and getvar("$fedorKozlovQW") >= 0>>
	<<if $wardrobe.clothingworntype == 'nude'>>
		<<arouse 'flash' -5 `['exhibitionism']`>>
		<<fame 'pav' 'sex' 3>>
		You're walking down the secluded beach, enjoying the sensation of feeling free and the cool breeze on your naked body, when you suddenly hear someone running up behind you. Expecting the worst, you turn around only to see a sweaty Ivan with a huge grin on his face, closely followed by Fedor. As they get a look at your face and realize who you are, they slow down and stop, looking a bit surprised to see... well all of you on display.
		<<actCLA 'Run away'>>
			<<set $ivanfedorseennaked = $time.daystart>> <<gt 'pav_lake_nude'>>
		<</actCLA>>
		<<actCLA 'Greet them'>>
			<<set $ivanfedorseennaked = $time.daystart>> <<gt 'gschool_socialchg1' 'ivan_fedor_naked'>>
		<</actCLA>>
	<<else>>
		You're walking down the secluded beach, enjoying the tranquility when you suddenly hear someone running up behind you. Expecting the worst, you turn around only to see a sweaty <<link "Ivan">><<gt 'gschool_socialchg1' 'tIvan'>><</link>>, closely followed by <<link "Feodor">><<gt 'gschool_socialchg1' 'tFedor'>><</link>>.
	<</if>>
<</if>>*/
<<actCLA 'Leave the secluded beach'>>
	<<set $time.minutes += 10>> <<gt 'pav_lake'>>
<</actCLA>>
/*<<if $time.month >= 5 and $time.month <= 9>>
	<<if $wardrobe.ownsSwimmingItem>>
		<<act 'Use changing room'>>
			<<gt 'changingroom' 'view_swim_list'>>
		<</act>>
	<<else>>
		You should buy some swimwear if you intend on spending time at the beach
	<</if>>
	<<if $wardrobe.clothingworntype != 'nude' and ($pc.pcs_inhib > 30 or (getvar("$exhibitionist_lvl") > 1 and $pc.horny >= 60))>>
		<<actCLA 'Take off your clothes' undefined `{willpower:['exhib','self']}`>>
				<<set $time.minutes += 5>>
				<<set $menu_off = 1>>
				<<set $sauna_stripped = 0>>
				<<if $pc.pcs_inhib < 60>>
					<<run $pc.skillExperienceGain('inhibition',rand(1,3))>>

				<</if>>
				<<gs 'willpower' 'exhib' 'self' 'easy'>>
				
				<<if getvar("$PCloSwimwear") == 0>>
					<<setinit $lastwornclothingtype['swim'] = $wardrobe.clothingworntype>>
					<<setinit $lastwornclothingnumber['swim'] = $wardrobe.clothingwornnumber>>
					<<setinit $lastwornpantytype['swim'] = $wardrobe.pantyworntype>>
					<<setinit $lastwornpantynumber['swim'] = $wardrobe.pantywornnumber>>
					<<setinit $lastwornbratype['swim'] = $wardrobe.braworntype>>
					<<setinit $lastwornbranumber['swim'] = $wardrobe.brawornnumber>>
				<</if>>
				<<gs 'clothing' 'strip_all'>>
				<<if $pc.horny >= 80 and getvar("$exhibitionist_lvl") > 1>>
					<<image "locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg">>
					<p>You strip off. A few passers-by do a double-take and pause to look at your sopping wet panties, probably thinking about what is making you so excited. You don't care about what they might say or think of you.</p>
				<<elseif $pc.pcs_inhib >= 60>>
					<<image "locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg">>
					Not caring if anyone is looking at you, you slowly take off your clothes, peeling off each item like a stripper. You're soon naked.
				<<elseif $pc.pcs_inhib < 60>>
					<<image "locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg">>
					You quickly check to see if anyone is watching, and when you're satisfied no one is paying you undue attention, you take your clothes off.
				<</if>>
				<<act 'Continue'>>
					<<gt 'pav_lake_nude'>>
				<</act>>
			<</actCLA>>
		
	<<elseif $wardrobe.clothingworntype == 'nude' and getvar("$sauna_stripped") == 0>>
		<<actCLA 'Put your clothes back on'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 5>>
			<<run $wardrobe.wear_clothes_legacy('clothes',$lastwornclothingtype['swim'],$lastwornclothingnumber['swim'])>>
			<<run $wardrobe.wear(['panties',$lastwornpantytype['swim'],$lastwornpantynumber['swim']])>>
			<<run $wardrobe.wear(['bra',$lastwornbratype['swim'],$lastwornbranumber['swim']])>>
			<<set $nudelake = rand(1,10)>>
			<<if getvar("$nudelake") <= 2 and setup.func('homes_properties', 'has_access', 'homeParents')>>
				<<set $time.minutes += 5>>
				<<set $pc.mood -= 5>>
				<<image "locations/pavlovsk/lake/event/noclothes.jpg">>
				<p>You return to the place where you you put your clothes to get dressed... except you can't find them. You desperately search the beach for a while, a few passers-by giving you amused stares. Despite your efforts, you can't find them. You panic and, without thinking, start running home naked.</p>
				<<act 'Run home naked'>>
					<<gt 'pav_lake' 'nude_home'>>
				<</act>>
			<<else>>
				You return to the place where you left your clothes and put them back on.
				<<act 'Continue'>>
					<<gt 'pav_lake_nude'>>
				<</act>>
			<</if>>
		<</actCLA>>
	<</if>>
<</if>>
<<act 'Go to the sauna'>>
	<<gt 'pav_lake_nude' 'sauna'>>
<</act>>
<<if $weather.temperature >= 15 and $time.month >= 5 and $time.month <= 9>>
	<<actCLA 'Take a walk along the beach'>>
		<<set $menu_off = 1>>
		<<set $time.minutes += 30>>
		<<set $pc.mood += 5>>
		<<if $wardrobe.isWearingSwimwear and $pc.pcs_hips <= 90>>
			<<image 'locations/pavlovsk/lake/lake.walk.bikini0,#.jpg' 0 3>>
		<<elseif $wardrobe.isWearingSwimwear and $pc.pcs_hips >= 90 and $pc.pcs_hips <= 110>>
			<<image 'locations/pavlovsk/lake/lake.walk.bikini.fat0,0.jpg'>>
		<<elseif $wardrobe.isWearingSwimwear and $pc.pcs_hips >= 110>>
			<<image 'locations/pavlovsk/lake/lake.walk.bikini.fat0,1.jpg'>>
			<<if $pc.pcs_inhib < 50>>
				<<run $pc.skillExperienceGain('inhibition',rand(1,2))>>

			<</if>>
		<<elseif $wardrobe.clothingworntype == 'nude'>>
			<<image "locations/pavlovsk/lake/walknude.jpg">>
			<<run $pc.skillExperienceGain('inhibition',rand(1,3))>>
		<<else>>
			<<image 'locations/pavlovsk/lake/lake.walk0,#.jpg' 0 2>>
		<</if>>
		You walk along the beach, enjoying the feeling of the sun on your body.
		<<act 'Continue'>>
			<<gt 'pav_lake_nude'>>
		<</act>>
	<</actCLA>>
	<<if $time.hour >= 6 and $time.hour <= 20 and ($wardrobe.isWearingSwimwear or $wardrobe.clothingworntype == 'nude')>>
		<<if $pc.pcs_stam >= (20 * $CON_HELPER_0>>
		<<actCLA 'Go swimming'>>
			<<set $menu_off = 1>>
			<<set $cumspclnt = 4>>
			<<gs 'cum_cleanup'>>
			<<set $time.minutes += 30>>
			<<set $pc.mood += 5>>
			<!-- ! Seems appropriate. Potentially worth revisiting-->
			<<if $willday_swim != $time.daystart>>
				<<set $willday_swim = $time.daystart>> <<setn $pc.pcs_willpwr += 1>>

			<</if>>
			<<if $wardrobe.PCloswimwear == 1>>
				<<if $pc.pcs_inhib < 50>>
					<<run $pc.skillExperienceGain('inhibition',1)>>

				<</if>>
			<<elseif $wardrobe.clothingworntype == 'nude'>>
				<<run $pc.skillExperienceGain('inhibition',rand(1,3))>>
			<</if>>
			<<if $pc.pcs_sweat > 10>>
				<<set $pc.pcs_sweat = 10 + rand(0,4)>>

			<</if>>
			<<if $pc.skillLevel("strength") < 30>>
				<<run $pc.skillExperienceGain('strength',1)>>

			<</if>>
			<<set $pc.fat -= 1>>
			<<set $pc.pcs_makeup = 1>>
			<<if $wardrobe.clothingworntype == 'nude'>>
				<<image 'pc/activities/swim/lake/swim_nude_#.jpg' 0 10>>
				<<if $pc.pcs_inhib < 60>>
					<<run $pc.skillExperienceGain('inhibition',rand(0,1))>>

				<</if>>
				You play around and have fun in the lake, enjoying the feeling of the warm water on your naked body. The water refreshes and invigorates you.
			<<else>>
				<<image 'pc/activities/swim/lake/swim_bikini_#.jpg' 0 8>>
				<<if $pc.pcs_inhib < 40>>
					<<run $pc.skillExperienceGain('inhibition',rand(0,1))>>

				<</if>>
				You play around and have fun in the lake, its a bit liberating to see so many people here naked. The water refreshes and invigorates you.
			<</if>>
			<<if $pc.deodorant_on == 1>>
				<<gs 'sweat' 'remove_deo'>> 

			<</if>>
			<<act 'Get out of the water'>>
				<<gt 'pav_lake_nude'>>
			<</act>>
		<</actCLA>>
	<</if>>
	<</if>>
	<<if !$weather.isRaining and $time.hour >= 6 and $time.hour <= 20 and ($wardrobe.isWearingSwimwear or $wardrobe.clothingworntype == 'nude')>>
		<<actCLA 'Go sunbathing'>>
			<<set $menu_off = 1>>
			<<if $wardrobe.isWearingSwimwear or $wardrobe.clothingworntype == 'nude'>>
				<<set $time.minutes += 30>>
				<<if $pc.pcs_sweat < 35>>
					<<run $pc.sweatAdd(5)>>

				<</if>>
				<<set $pc.mood += 5>>
				<<if $wardrobe.PCloswimwear == 1>>
					<<image "locations/shared/lake/tanning_swimsuit.jpg">>
					<<if $pc.pcs_inhib < 50>>
						<<run $pc.skillExperienceGain('inhibition',1)>>

					<</if>>
					<<if $inventory.get("sunblock") == 0>>
						<<set $pc.tan += 1>>
						You lie down on your towel and enjoy the warm rays of the sun on your body. You move your straps around to try and prevent tan lines on your back.
					<<else>>
						<<run $inventory.dec('sunblock',1)>>
						<<set $pc.tan += 3>>
						You apply sunscreen to yourself and lie down on the towel to work on your tan. You enjoy the warm rays of the sun on your body. You move your straps around to try and prevent tan lines on your back.
					<</if>>
				<<else>>
					<<image "locations/shared/lake/tanning_nude.jpg">>
					<<run $pc.skillExperienceGain('inhibition',rand(1,3))>>
					<<if $inventory.get("sunblock") == 0>>
						<<set $pc.tan += 1>>
						You lie down on your towel and enjoy the warm rays of the sun on your naked body.
					<<else>>
						<<run $inventory.dec('sunblock',1)>>
						<<set $pc.tan += 3>>
						You apply sunscreen to yourself and lie down on the towel to work on your tan. You enjoy the warm rays of the sun on your naked body.
					<</if>>
				<</if>>
				<<act 'Continue'>>
					<<gt 'pav_lake_nude'>>
				<</act>>
			<<else>>
				You have to take your clothes off first before you can sunbathe.
				<<act 'Continue'>>
					<<gt 'pav_lake_nude'>>
				<</act>>
			<</if>>
		<</actCLA>>
	<</if>>
	<<if getvar("$voyeurism_start") == 0>>
		<<actCLA 'Look around the beach'>>
			<<set $menu_off = 1>>
			<<set $voyeurism_start_view = rand(1,3)>>
			<<if getvar("$voyeurism_start_view") <= 2>>
				<<set $time.minutes += 5>>
				<<image "locations/shared/lake/lake_beach1.jpg">>
				You look around, but see nothing interesting.
			<<else>>
				<<set $voyeurism_start = 1>>
				<<set $voyeurism += 1>>
				<<arouse 'voyeur_sex' 5 >>
				<<image "locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg">>
				You look around and notice a pair of lovers lying on the sand at the other end of the beach. The girl is completely naked and her hand is stroking the guy''s cock through his white pants. The guy turns his head and notices you looking at them. You immediately turn away, blushing as you stare at your feet.
			<</if>>
			<<act 'Return'>>
				<<gt 'pav_lake_nude'>>
			<</act>>
		<</actCLA>>
	<<elseif getvar("$voyeurism_start") == 1>>
		<<actCLA 'Watch couple on the beach' undefined `{willpower:['voyeur','self']}`>>
				
				
				<<set $menu_off = 1>>
				<<if getvar("$voyeurism") == 0>>
					<<arouse 'voyeur_sex' 5 >>
					<<set $voyeurism += 1>>
					<<image "locations/pavlovsk/lake/secluded_beach/self/lake_legs.jpg">>
					<p>You see several naked people in the corner of your eye and think that they're looking right at you. You blush and freeze in terror as tears well up in your eyes. After a few minutes, you find yourself looking at your feet.<br><dh>"Wha-... what am I doing?! Why do I feel like watching... am I a voyeur? Yes, I am! I'm a girl who likes to watch nude people!"</dh> you think to yourself.<br></p>
					<<act 'Stop watching'>>
						<<gt 'pav_lake_nude'>>
					<</act>>
				<<else>>
					<<set $voyeurism_start = 2>>
					<<arouse 'voyeur_sex' 30 >>
					<<set $voyeurism += 1>>
					<<image "locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg">>
					<p>You see several naked people in the corner of your eye and think that they're looking right at you. You blush and freeze in terror as tears well up in your eyes. After a few minutes, you find yourself looking at your feet.<br><dh>"Wha-... what am I doing?! Why do I feel like watching... am I a voyeur? Yes, I am! I'm a girl who likes to watch nude people!"</dh> you think to yourself.<br> You then remember how you were recently watching others on the beach and think: <dh>"That was scary, cool and hot. I need to keep at least one eye always watching..."</dh></p>
					<<actCLA 'Watch the couple'>>
						<<gs 'pav_lake_nude_events' 'pav_lake_nude_sex'>>
					<</actCLA>>
				<</if>>
			<</actCLA>>
		
	<<elseif getvar("$voyeurism_start") == 2 and ($pc.horny < 90 or $pc.fame('pav_slut') < 100)>>
		<<actCLA 'Spy on other nudists on the beach' undefined `{willpower:['voyeur','self','easy']}`>>
				
				
				<<set $menu_off = 1>>
				<<if getvar("$voyeurism_nudist") <= 14 or $pc.fame('pav_slut') >= 100>>
					<<set $voyeurism_nudist += 1>>
					<<gs 'pav_lake_nude_events' 'pav_lake_nude_nudist'>>
					<<act 'Continue'>>
						<<gt 'pav_lake_nude'>>
					<</act>>
				<<else>>
					<<image "locations/pavlovsk/lake/secluded_beach/self/nudebeachself#.jpg" 1 3>>
					You want to watch for nudists, but suddenly start to feel weird.<br><dh>"Probably spying too much."</dh> you think to yourself and look straight ahead.
					<<act 'Continue'>>
						<<gt 'pav_lake_nude'>>
					<</act>>
				<</if>>
			<</actCLA>>
		
	<</if>>
	<<if getvar("$voyeurism") >= 17 and getvar("$voyeurism_start") == 2>>
		<<if getvar("$voyeurism_forest") == 0>>
			<<act 'Explore the forest'>>
				<<gt 'pav_lake_nude_forest'>>
			<</act>>
		<<else>>
			<<act 'Hide in the woods near the beach'>>
				<<gt 'pav_lake_nude_forest'>>
			<</act>>
		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'sauna'>>
	<<set $menu_loc = 'pav_lake_nude'>>
	<<set $menu_arg = 'sauna'>>
	<<set $loc_arg = 'sauna'>>
	<<set $menu_off = 0>>
	<<set $time.minutes += 3>>
	<<image "locations/pavlovsk/lake/secluded_beach/sauna/sauna.jpg">>
	<p>You walk up the small trail from the beach to the sauna. They say it was built for the tourists, but you wonder why they put it on a secluded beach where tourists can't possibly find it. Either way, you and many others are glad they built it. It's well built inside and out with three sections - the mens section, the womens section and a co-ed section. You need swimwear to use the sauna, but some people use it naked.</p>
	<<if $wardrobe.clothingworntype != 'nude' or getvar("$sauna_stripped") == 0>>
		<<act 'Go back to the beach'>>
			<<gt 'pav_lake_nude'>>
		<</act>>
	<<else>>
		<<actCLA 'Go to the beach' undefined `{willpower:['exhib','self']}`>>
				
				<<gt 'pav_lake_nude'>>
			<</actCLA>>
		
	<</if>>
	<<if $wardrobe.ownsSwimmingItem>>
		<<act 'Use changing room'>>
			<<gt 'changingroom' 'view_swim_list'>>
		<</act>>$wardrobe.ownsSwimmingItem
	<<else>>
		You should buy some swimwear if you intend on spending time at the beach.
	<</if>>
	<<if $wardrobe.clothingworntype != 'nude' and ($pc.pcs_inhib > 25 or (getvar("$exhibitionist_lvl") > 1 and $pc.horny >= 60))>>
		<<actCLA 'Take your clothes off'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 5>>
			<<set $sauna_stripped = 1>>
			<<if getvar("$PCloSwimwear") == 0>>
				<<setinit $lastwornclothingtype['swim'] = $wardrobe.clothingworntype>>
				<<setinit $lastwornclothingnumber['swim'] = $wardrobe.clothingwornnumber>>
				<<setinit $lastwornpantytype['swim'] = $wardrobe.pantyworntype>>
				<<setinit $lastwornpantynumber['swim'] = $wardrobe.pantywornnumber>>
				<<setinit $lastwornbratype['swim'] = $wardrobe.braworntype>>
				<<setinit $lastwornbranumber['swim'] = $wardrobe.brawornnumber>>
			<</if>>
			<<gs 'clothing' 'strip_all'>>
			You strip out of your clothes, folding them neatly and placing them in one of the open shelves.
			<<act 'Continue'>>
				<<gt 'pav_lake_nude' 'sauna'>>
			<</act>>
		<</actCLA>>
	<<elseif getvar("$sauna_stripped") == 1>>
		<<actCLA 'Put your clothes back on'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 5>>
			<<run $wardrobe.wear_clothes_legacy('clothes',$lastwornclothingtype['swim'],$lastwornclothingnumber['swim'])>>
			<<run $wardrobe.wear(['panties',$lastwornpantytype['swim'],$lastwornpantynumber['swim']])>>
			<<run $wardrobe.wear(['bra',$lastwornbratype['swim'],$lastwornbranumber['swim']])>>
			You put your clothes back on.
			<<act 'Continue'>>
				<<gt 'pav_lake_nude' 'sauna'>>
			<</act>>
		<</actCLA>>
	<</if>>
	<<if $wardrobe.clothingworntype == 'nude' or $wardrobe.PCloswimwear == 1>>
		<<actCLA 'Go to the womens section'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 2>>
			<<if $time.hour < 8 or $time.hour > 22>>
				<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg">>
				It appears to be empty at the moment.
			<<else>>
				<<set $saunarand = rand(1,5)>>
				<<if getvar("$saunarand") == 4>>
					<<image "locations/pavlovsk/lake/secluded_beach/sauna/womennude.jpg">>
					You find several other girls inside who are completely naked.
				<<elseif getvar("$saunarand") > 4>>
					<<image "locations/pavlovsk/lake/secluded_beach/sauna/womenbikini.jpg">>
					You find several other girls inside using the sauna while wearing their bikinis.
				<<else>>
					<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg">>
					It appears to be empty at the moment.
				<</if>>
			<</if>>
			<<act 'Leave'>>
				<<gt 'pav_lake_nude' 'sauna'>>
			<</act>>
			<<actCLA 'Use the sauna'>>
				<<set $time.minutes += 30>>
				<<set $pc.mood += 10>>
				<<if $sauna_daystart != $time.daystart>>
					<<set $sauna_daystart = $time.daystart>>
					<<set $pc.pcs_skin += rand(2,4)>>
					<<set $pc.pcs_willpwr += 3>>
				<</if>>
				<<if $wardrobe.PCloswimwear == 1>>
					<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg">>
					<<if $pc.pcs_inhib < 40>>
						<<run $pc.skillExperienceGain('inhibition',rand(0,1))>>

					<</if>>
				<<else>>
					<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg">>
					<<if $pc.pcs_inhib < 60>>
						<<run $pc.skillExperienceGain('inhibition',rand(1,2))>>

					<</if>>
				<</if>>
				You spend 30 minutes relaxing in the sauna.
				<<act 'Leave'>>
					<<gt 'pav_lake_nude' 'sauna'>>
				<</act>>
				<<if $time.month == 12 or $time.month < 3>>
					<<gs 'pav_lake_nude' 'ice_plunge'>>

				<</if>>
			<</actCLA>>
		<</actCLA>>
		<<actCLA 'Go to the mens section'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 2>>
			<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg">>
			It appears to be empty at the moment.
			<<act 'Leave'>>
				<<gt 'pav_lake_nude' 'sauna'>>
			<</act>>
			<<gs 'willpower' 'exhib' 'self' 'hard'>>
			<<if getvar("$saunarand") < 4 or $wardrobe.PCloswimwear == 1>>
				<<set $will_cost = 3>>

			<</if>>
			<<if $will_cost <= $pc.pcs_willpwr>>
				<<actCLA 'Use the sauna (will_cost Willpower)'>>
					<<set $time.minutes += 30>>
					<<set $pc.mood += 10>>
					<<if $sauna_daystart != $time.daystart>>
						<<set $sauna_daystart = $time.daystart>>
						<<set $pc.pcs_skin += rand(2,4)>>
						<<set $pc.pcs_willpwr += 3>>
					<</if>>
					<<if $wardrobe.PCloswimwear == 1>>
						<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg">>
						<<if $pc.pcs_inhib < 40>>
							<<run $pc.skillExperienceGain('inhibition',rand(0,1))>>

						<</if>>
					<<else>>
						<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg">>
						<<if $pc.pcs_inhib < 60>>
							<<run $pc.skillExperienceGain('inhibition',rand(1,2))>>

						<</if>>
					<</if>>
					You spend 30 minutes relaxing in the sauna.
					<<act 'Leave'>>
						<<gt 'pav_lake_nude' 'sauna'>>
					<</act>>
					<<if $time.month == 12 or $time.month < 3>>
						<<gs 'pav_lake_nude' 'ice_plunge'>>

					<</if>>
				<</actCLA>>
			<<else>>
				<<actCLA `'Use the sauna ('+$will_cost+')'`>><font color=red><br/>You don`t have enough willpower to use this action.</font><</actCLA>>
			<</if>>
		<</actCLA>>
		<<actCLA 'Go to the co-ed section'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 2>>
			<<if $time.hour < 8 or $time.hour > 22>>
				<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg">>
				It appears to be empty at the moment.
			<<else>>
				<<set $saunarand = rand(1,5)>>
				<<if getvar("$saunarand") == 4>>
					<<image "locations/pavlovsk/lake/secluded_beach/sauna/coednude.jpg">>
					You find several other people in here, both men and women. All of them are completely naked.
				<<elseif getvar("$saunarand") > 4>>
					<<image "locations/pavlovsk/lake/secluded_beach/sauna/coedtowel.jpg">>
					You find several other people in here, both men and women. Some are wearing their swimwear while others are wearing towels.
				<<else>>
					<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg">>
					It appears to be empty at the moment.
				<</if>>
			<</if>>
			<<gs 'willpower' 'exhib' 'self' 'easy'>>
			<<if getvar("$saunarand") < 4 or $wardrobe.PCloswimwear == 1>>
				<<set $will_cost = 0>>

			<</if>>
			<<if $will_cost <= $pc.pcs_willpwr>>
				<<actCLA iif(saunarand < 4 or PCloswimwear = 1, 'Use the sauna', 'Use the sauna (<<will_cost>> Willpower)')>>
					<<gs 'willpower' 'pay' 'self'>>
					<<set $time.minutes += 30>>
					<<set $pc.mood += 10>>
					<<if $sauna_daystart != $time.daystart>>
						<<set $sauna_daystart = $time.daystart>>
						<<set $pc.pcs_skin += rand(2,4)>>
						<<set $pc.pcs_willpwr += 3>>
					<</if>>
					<<if $wardrobe.PCloswimwear == 1>>
						<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg">>
						<<if $pc.pcs_inhib < 40>>
							<<run $pc.skillExperienceGain('inhibition',rand(0,1))>>

						<</if>>
					<<else>>
						<<image "locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg">>
						<<if $pc.pcs_inhib < 60>>
							<<run $pc.skillExperienceGain('inhibition',rand(1,3))>>

						<</if>>
					<</if>>
					You spend 30 minutes relaxing in the sauna.
					<<act 'Leave'>>
						<<gt 'pav_lake_nude' 'sauna'>>
					<</act>>
					<<if $time.month == 12 or $time.month < 3>>
						<<gs 'pav_lake_nude' 'ice_plunge'>>

					<</if>>
				<</actCLA>>
			<<else>>
				<<actCLA `'Use the sauna ('+$will_cost+')'`>><font color=red><br/>You don`t have enough willpower to use this action.</font><</actCLA>>
			<</if>>
			<<act 'Leave'>>
				<<gt 'pav_lake_nude' 'sauna'>>
			<</act>>
		<</actCLA>>
	<<else>>
		You need to undress or wear a swimsuit to enter the sauna.
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'ice_plunge'>>
	<<actCLA 'Take an ice plunge'>>
		<<set $time.minutes += 10>>
		<<set $pc.mood += 10>>
		<<if $pc.pcs_sweat > 10>>
			<<set $pc.pcs_sweat = 10 + rand(0,4)>>

		<</if>>
		<<if $wardrobe.PCloswimwear == 1>>
			<<image "locations/pavlovsk/lake/secluded_beach/sauna/icedipbikini.jpg">>
			<<if $pc.pcs_inhib < 50>>
				<<run $pc.skillExperienceGain('inhibition',rand(0,1))>>

			<</if>>
		<<else>>
			<<image "locations/pavlovsk/lake/secluded_beach/sauna/icedipnude.jpg">>
			<<run $pc.skillExperienceGain('inhibition',rand(1,2))>>
		<</if>>
		You exit the sauna and the cold air nips at your body as you rush down to the edge of the lake where the ice is broken and a ladder has been put in place. You take the plunge into the ice cold water. The sudden change from the hot sauna to the freezing waters of the lake is refreshing, if a little sudden. After a few minutes, you climb out of the water.
		<<if $pc.deodorant_on == 1>>
			<<gs 'sweat' 'remove_deo'>> 

		<</if>>
		<<act 'Go back to the sauna'>>
			<<gt 'pav_lake_nude' 'sauna'>>
		<</act>>
	<</actCLA>>
<</if>>*/