[added] nutlucks changes to glake and glakenude with code correction

locations/gLakeNude.qsrc

@@ -1,6 +1,5 @@
 # gLakeNude
 
-
 $location_type = 'secluded'
 $loc = 'gLakeNude'
 $metka = ''
@@ -10,64 +9,71 @@ $locclass = 'beach'
 menu_off = 0
 *clr & cla
 gs'stat'
-
+!!check to make sure I did the sound call correct
+if sound = 0:PLAY 'sound/lakeshore2.mp3',20
 '<center><H4>Secluded beach</H4></center>'
-if month>=3 and month<=5:
-	if hour>=6 and hour<=17:
+if month >= 3 and month <= 5:
+	if hour >= 6 and hour <= 17:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.jpg"></center>'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.night.jpg"></center>'
 	end
-	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
+	'<center>This small natural beach is hidden away from the general public on a inlet of the lake. To reach it you had to travel around the lake along a forest trail. Not many people use this area of the beach, other than some those seeking privacy, or some of the local kids. Except in winter, so they can use the sauna at the edge of the forest.</center>'
 	*nl
-end
-if month>=6 and month<=8:
-	if hour>=6 and hour<=19:
+elseif month >= 6 and month <= 8:
+	if hour >= 6 and hour <= 19:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.jpg"></center>'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.night.jpg"></center>'
 	end
-	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
+	'<center>This small natural beach is hidden away from the general public on a inlet of the lake. To reach it you had to travel around the lake along a forest trail. Not many people use this area of the beach, other than some those seeking privacy, or some of the local kids. Except in winter, so they can use the sauna at the edge of the forest.</center>'
 	*nl
-end
-if month>=9 and month<=11:
-	if hour>=6 and hour<=18:
+elseif month >= 9 and month <= 11:
+	if hour >= 6 and hour <= 18:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.jpg"></center>'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.night.jpg"></center>'
 	end
-	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
+	'<center>This small natural beach is hidden away from the general public on a inlet of the lake. To reach it you had to travel around the lake along a forest trail. Not many people use this area of the beach, other than some those seeking privacy, or some of the local kids. Except in winter, so they can use the sauna at the edge of the forest.</center>'
 	*nl
-end
-if month=1 or month=2 or month=12:
-	if hour>=7 and hour<=16:
+elseif month < 3 or month = 12:
+	if hour >= 7 and hour <= 16:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.night.jpg"></center>'
 	end
-	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
-	'<center>Ever since winter arrived, the lake in Pavlovsk has been frozen over. The lake is being used as a skating rink and lots of people go to skate there every day; if you have skates you could join them.</center>'
+	'<center>This small natural beach is hidden away from the general public on a inlet of the lake. To reach it you had to travel around the lake along a forest trail. Not many people use this area of the beach, other than some those seeking privacy, or some of the local kids. Except in winter, so they can use the sauna at the edge of the forest.</center>'
+	'<center>Ever since winter arrived, the lake in Pavlovsk has been frozen over. A small part of the inlet has the ice broken, so those that wish to take a refershing dip in the icy cold water can, after using the sauna.</center>'
 	*nl
 end
 
-'This small natural beach is hidden away from the general public. To reach it you had to travel around the lake along a forest trail. On this secluded beach you can often find sunbathers and people skinny dipping, including people from other towns and even some from the city.'
-
-if month >= 3 and month <= 8:
+if storyline = 1 and month >= 3 and month <= 8:
 	if week >= 6 and hour >= 8 and hour <= 10:
 		'You''re walking down the secluded beach, enjoying the tranquility when all of a sudden you hear some heavy running steps coming up behind you followed by heavy panting. Expecting the worse, you turn around only to see a sweaty <a href="exec:gt ''gschool_socialchg1'', ''tIvan''">Ivan</a>, closely followed by <a href="exec:gt ''gschool_socialchg1'', ''tFedor''">Feodor</a>.'
 	end
 end
 
-if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
-	act'Get dressed':
+if $clothingworntype = 'nude':
+	act'Put your clothes back on':
 		*clr & cla
 		menu_off = 1
 		minut+=5
 		gs 'clothing', 'wear_last_worn'
 		gs 'underwear', 'wear'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/dress_nudebeach.jpg"></center>'
-		'You put your clothes back on.'
-		act'Continue':gt'gLakeNude'
+		nudelake = rand(1,10)
+		if nudelake <= 2:
+			minut += 5
+			pcs_mood -= 5
+			pcs_willpwr -= 5
+			gs 'exhibitionism', 4
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/noclothes.jpg"></center>'
+			'You return to the place where you thought you put your clothes to get dressed... except you can''t find them. Oh crap, you can''t find them! You desperately search the beach for a while, while a few passers-by look amused at the naked girl running around the beach. When you can''t find them, you panic and run all the way home... hopefully they''ll turn up.'
+			act 'Run home naked': gt 'glake', 'nude_home'
+		else
+			'You return to the place where you left your clothes, and put them back on.'
+			act'Continue':gt'glake'
+		end
 	end
 end
 
@@ -76,30 +82,57 @@ if temper >= 15 and month >= 5 and month <= 9:
 		act'Change into your swimwear':
 			*clr & cla
 			menu_off = 1
-			minut+=5
+			minut += 5
+			gs 'stat'
 			if pcs_horny >= 90:
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants1.jpg"></center>'
 				'You want to change into a swimsuit, but with no changing room here and your pussy oozing juices down your leg coupled with the thought that people will see, horrifies you. You abandon the idea.'
 				'"I should sort out my arousal first." You think to yourself.'
-
 				act'Continue':gt'gLakeNude'
 			else
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/swimsuit_nudebeach.jpg"></center>'
 				'You wrap a towel around yourself and you''re ready to change into your swimsuit.'
-
 				act'Choose outfit':gt'changingroom', 'view_swim_list'
 			end
 		end
 	end
 end
 
-if temper >= 15 and month >= 5 and month <= 9:
+act 'Go to sauna': gt 'gLakeNude', 'sauna'
+
+if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
+	act 'Take a walk along the beach (30 minutes)':
+		*clr & cla
+		menu_off = 1
+		minut += 30
+		pcs_willpwr += 5
+		pcs_mood += 5
+		gs'stat'
+
+		if $clothingworntype = 'swimwear' and pcs_hips<=90:
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini0,'+rand(0,3)+'.jpg"></center>'
+		elseif $clothingworntype = 'swimwear' and pcs_hips >= 90 and pcs_hips<=110:
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,0.jpg"></center>'
+		elseif $clothingworntype = 'swimwear' and pcs_hips>=110:
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,1.jpg"></center>'
+			if pcs_inhib < 50:inhib_exp += rand(1,2)
+		elseif $clothingworntype = 'nude':
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/walknude.jpg"></center>'
+			inhib_exp += rand(1,3)
+		else
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk0,'+rand(0,2)+'.jpg"></center>'
+		end
+
+		'You walk along the beach, enjoying the feeling of the sun on your body.'
+		act 'Continue':gt'glake'
+	end
 	if $clothingworntype ! 'nude':
 		act'Take off your clothes':
 			menu_off = 1
 			if pcs_inhib > 30:
 				*clr & cla
 				minut+=5
+				inhib_exp += rand(1,3)
 				gs 'clothing', 'strip'
 				gs 'underwear', 'remove'
 				if pcs_horny >= 80 and exhibitionist_lvl > 1:
@@ -113,8 +146,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 					'You quickly check to see if anyone is watching, and when you''re satisfied no one is paying you undue attention, you take off your clothes. You''re naked now.'
 				end
 			else
-				cla
-				*clr
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/shyness.jpg"></center>'
 				'Even though no one is around, you don''t feel confident enough to actually take your clothes off. What if someone would see you nude?'
 			end
@@ -122,14 +154,13 @@ if temper >= 15 and month >= 5 and month <= 9:
 		end
 	end
 	if hour >= 6 and hour <= 20:
-		act'Go swimming (1:00)':
+		act'Go swimming (30 minutes)':
 			menu_off = 1
 			if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
 				*clr & cla
 				cumspclnt = 4
 				gs 'cum_cleanup'
-				minut = minut + 60
-				pcs_sweat = 10 + rand(0,4)
+				minut = minut + 30
 				pcs_mood += 5
 				pcs_willpwr = pcs_willpwr + 5
 				if $clothingworntype = 'swimwear':
@@ -138,11 +169,13 @@ if temper >= 15 and month >= 5 and month <= 9:
 					inhib_exp += rand(1,3)
 				end
 				if pcs_stren < 30: stren_exp += 1
-
+				fat -= 1
 				if $clothingworntype = 'nude':
-					'<center><img <<$set_imgh>> src="images/locations/shared/lake/nudeswim.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/swimnude.jpg"></center>'
+					inhib_exp += rand(1,2)
 				else
-					'<center><img <<$set_imgh>> src="images/locations/shared/lake/swim.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/swim.jpg"></center>'
+					if pcs_inhib < 50:inhib_exp += rand(1,2)
 				end
 				'You play around and have fun in the lake, enjoying the feel of the warm water on your naked body. The clean lake water refreshes and invigorates you.'
 
@@ -155,31 +188,29 @@ if temper >= 15 and month >= 5 and month <= 9:
 		end
 	end
 	if sunWeather = 1 and hour >= 6 and hour <= 20:
-		act'Go sunbathing (1:00)':
+		act'Go sunbathing (30 minutes)':
 			menu_off = 1
 			if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
 				*clr & cla
-				minut = minut + 60
+				minut = minut + 30
 				if pcs_sweat < 35 : pcs_sweat += 5
 				pcs_mood += 5
 				if $clothingworntype = 'swimwear':
-					'<center><img <<$set_imgh>> src="images/locations/shared/lake/zagar.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbath.jpg"></center>'
 					if pcs_inhib < 50:inhib_exp += rand(1,2)
 				else
-					'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/nudezagarat.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbathnude.jpg"></center>'
 					inhib_exp += rand(1,3)
 				end
 				if krem = 0:
 					pcs_tan = pcs_tan + 1
-					'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun for an hour.'
+					'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun on your body.'
 				else:
 					krem = krem - 1
 					pcs_tan = pcs_tan + 3
-					'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun for an hour.'
+					'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun on your body.'
 				end
 				act 'Continue':gt'gLakeNude'
-			!end
-			!if bikini ! 1 and $clothingworntype ! 'nude':
 			else
 				cla
 				'You have to take off your clothes before you can lay down to sunbath.'
@@ -189,16 +220,177 @@ if temper >= 15 and month >= 5 and month <= 9:
 	end
 end
 
-! Imported from Province 03/17/2017 by Finn_Macha
-! Global variable "voyeurism_start" responsible for the start of Events peeping on the beach and allows the player to peek at the nudists.
-! It Is used only here, but between the first and second tick may take a lot of playing time, and therefore defined globally.
+if $ARGS[0] = 'sauna':
+	*clr & cla
+	$menu_loc = 'gLakeNude'
+	$menu_arg = 'sauna'
+	menu_off = 0
+	minut += 3
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/sauna.jpg"></center>'
+	'You walk up the small trail from the beach to the sauna, it is newly built. They say it was built for the tourist, but if that is true, you wonder why they put it on the secluded beach and even then a little ways back from the beach. Surely no tourist would ever find it, either way you and many others are glad they built it. It is well built and nice inside and out, there is three areas to the sauna. The mens section, womens section, and a co-ed section, to use the sauna you need a bikini or some people use it naked.'
+	
+	act 'Go back to the beach': gt 'gLakeNude'
+	
+	if ARRSIZE('swimwear') > 0: act 'Use changing room':gt 'changingroom', 'view_swim_list'
+		
+	if $clothingworntype ! 'nude':
+		act'Take off your clothes':
+			*clr & cla
+			menu_off = 1
+			minut+=5
+			gs 'clothing', 'strip'
+			gs 'underwear', 'remove'
+			gs 'stat'
+			'You strip out of your clothes, folding them neatly and placing them in one of the open shelves.'
+			act 'Continue': gt 'gLakeNude', 'sauna'
+		end
+	end
+
+	if $clothingworntype = 'nude' or $clothingworntype = 'swimwear':	
+		act 'Go to the womens section':
+			*clr & cla
+			menu_off = 1
+			minut += 2
+			gs 'stat'
+			if hour < 8 or hour > 22:
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/saunaempty.jpg"></center>'
+				'It appears to be empty at the moment.'
+			else
+				saunarand = rand(1,5)
+				if saunarand = 1:
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/womennude.jpg"></center>'
+					'You find several other girls inside completely naked using the sauna.'
+				elseif saunarand > 4:
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/womenbikini.jpg"></center>'
+					'You find several other girls inside using the sauna while wearing their bikinis.'
+				else
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/saunaempty.jpg"></center>'
+					'It appears to be empty at the moment.'
+				end
+			end
+			act 'Leave': gt 'gLakeNude', 'sauna'
+			act 'Use the sauna':
+				*clr & cla
+				minut +=30
+				pcs_mood += 5
+				pcs_willpwr += 5
+				if $clothingworntype = 'swimwear':
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunabikini.jpg"></center>'
+					if pcs_inhib < 50:inhib_exp += rand(0,1)
+				else
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunanude.jpg"></center>'
+					inhib_exp += rand(1,2)
+				end
+				gs 'stat'
+				'You spend 30 minutes relaxing in the sauna.'
+				
+				act 'Leave': gt 'gLakeNude', 'sauna'
+				if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
+			end
+		end
+		act 'Go to the mens section':
+			*clr & cla
+			menu_off = 1
+			minut += 2
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/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 += 5
+				pcs_willpwr += 5
+				if $clothingworntype = 'swimwear':
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunabikini.jpg"></center>'
+					if pcs_inhib < 50:inhib_exp += rand(0,1)
+				else
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunanude.jpg"></center>'
+					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
+		end
+		act 'Go to the co-ed section':
+			*clr & cla
+			menu_off = 1
+			minut += 2
+			gs 'stat'			
+			if hour < 8 or hour > 22:
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/saunaempty.jpg"></center>'
+				'It appears to be empty at the moment.'
+			else
+				saunarand = rand(1,5)
+				if saunarand = 1:
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/coednude.jpg"></center>'
+					'You find several other people in here, men and women. All of them completely naked.'
+				elseif saunarand > 4:
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/coedtowel.jpg"></center>'
+					'You find several other people in here, men and women. Some are wearing swim wear and others towels.'
+				else
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/saunaempty.jpg"></center>'
+					'It appears to be empty at the moment.'
+				end
+			end
+
+			act 'Leave': gt 'gLakeNude', 'sauna'
+			act 'Use the sauna':
+				*clr & cla
+				minut +=30
+				pcs_mood += 5
+				pcs_willpwr += 5
+				if $clothingworntype = 'swimwear':
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunabikini.jpg"></center>'
+					if pcs_inhib < 50:inhib_exp += rand(0,1)
+				else
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunanude.jpg"></center>'
+					inhib_exp += rand(1,3)
+				end
+				gs 'stat'
+				'You spend 30 minutes relaxing in the sauna.'
+
+				act 'Leave': gt 'gLakeNude', 'sauna'
+
+				if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
+			end
+		end
+	else
+		*nl
+		'You need to undress or wear a swimsuit to enter the sauna.'
+	end
+end
+
+if $ARGS[0] = 'ice_plunge':
+	act 'Take a ice plunge':
+		*clr & cla
+		minut +=10
+		pcs_mood += 5
+		pcs_willpwr += 5
+		if $clothingworntype = 'swimwear':
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/icedipbikini.jpg"></center>'
+			if pcs_inhib < 50:inhib_exp += rand(0,1)
+		else
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/icedipnude.jpg"></center>'
+			inhib_exp += rand(1,2)
+		end
+		gs 'stat'
+		'You leave the sauna and as soon as you do the cold air nips at your body, you rush down to the edge of the lake where the ice is broken and a ladder as been put in place and you take the plunge into the ice cold water. It is refreshing the sudden change from the hot sauna to the freezing waters of the lake. After a couple of minutes you climb out of the water.'
+		act 'Go back to the sauna': gt 'gLakeNude', 'sauna'
+	end
+end
+
 if temper >= 15 and month >= 5 and month <= 9:
 	if voyeurism_start = 0:
 		act'Look around the beach':
 			*clr & cla
 			menu_off = 1
 			minut += 5
-			voyeurism_start_view = RAND(1,3)
+			voyeurism_start_view = rand(1,3)
+			gs 'stat'
 			if voyeurism_start_view <= 2:
 				'<center><img <<$set_imgh>> src="images/locations/shared/lake/lake_beach1.jpg"></center>'
 				'You look around, but see nothing interesting. Just a few others in swimwear or relaxing on the beach.'
@@ -217,6 +409,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 			if voyeurism = 0:
 				minut += 5
 				voyeurism += 1
+				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/lake_legs.jpg"></center>'
 				'From the corner of your eye you see several naked people. You think they look right at you. You blush and you freeze in terror, tears well up in the corner of your eyes. After a few moments you find yourself looking at your own 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.<br> You can''t remember a single instance in your life when you were watching someone. So is it worth to start doing it now? YES!'
 				act'Stop Watching!': gt'gLakeNude'
@@ -225,16 +418,16 @@ if temper >= 15 and month >= 5 and month <= 9:
 				minut += 50
 				pcs_horny += 75
 				voyeurism += 1
+				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
 				'From the corner of your eye you see several naked people. You think they look right at you. You blush and you freeze in terror, tears well up in the corner of your eyes. After a few moments you find yourself looking at your own 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.<br> But then you remember how you recently were 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>'
-				act'Watch the couple':
-					gs'gLakeNudeEvent','gLakeNude_sex'
-				end
+				act'Watch the couple': 	gs'gLakeNudeEvent','gLakeNude_sex'
 			end
 		end
 	elseif voyeurism_start = 2 and (pcs_horny < 90 or pav_slut < 50):
 		act 'Spy on other nudists on the beach':
 			menu_off = 1
+			gs 'stat'
 			if voyeurism_nudist <= 14 or pav_slut > 50:
 				voyeurism_nudist += 1
 				gs'gLakeNudeEvent','gLakeNude_nudist'
@@ -265,7 +458,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 			gt'gLakeNude'
 		end
 	end
-	KILLVAR '$tmp_lakenude_leave'
+	killvar '$tmp_lakenude_leave'
 else
 	act'Leave the now abandoned beach':
 		cla

locations/glake.qsrc

@@ -1,6 +1,7 @@
 # gLake
 
 CLOSE ALL
+if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
 $loc = 'gLake'
 $metka = ''
 $menu_loc = 'glake'
@@ -16,72 +17,66 @@ if $clothingworntype ! 'swimwear' and $clothingworntype ! 'nude' and temper >= 5
 '<center><H4>Lake</H4></center>'
 
 ! to memorize were cowards or not
-if month>=3 and month<=5:
-	if hour>=6 and hour<=17:
+if month >= 3 and month <= 5:
+	if hour >= 6 and hour <= 17:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.jpg"></center>'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.night.jpg"></center>'
 	end
-	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
+	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not. When it is warm enough people often come to sunbath or go swimming.</center>'
 	*nl
-end
-if month>=6 and month<=8:
-	if hour>=6 and hour<=19:
+elseif month >= 6 and month <= 8:
+	if hour >= 6 and hour <= 19:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.jpg"></center>'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.night.jpg"></center>'
 	end
-	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
+	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not. During summer people often come to sunbath or go swimming.</center>'
 	*nl
-end
-if month>=9 and month<=11:
-	if hour>=6 and hour<=18:
+elseif month >= 9 and month <= 11:
+	if hour >= 6 and hour <= 18:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.jpg"></center>'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.night.jpg"></center>'
 	end
-	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
+	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not. When it is warm enough people often come to sunbath or go swimming.</center>'
 	*nl
-end
-if month=1 or month=2 or month=12:
-	if hour>=7 and hour<=16:
+elseif month < 3 or month = 12:
+	if hour >= 7 and hour <= 16:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
 	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.night.jpg"></center>'
-	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
 	end
-	'<center>Ever since winter arrived, the lake in Pavlovsk has been frozen over. The lake is being used as a skating rink and lots of people go to skate there every day; if you have skates you could join them.</center>'
+	'<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not. Ever since winter arrived, the lake in Pavlovsk has been frozen over. The lake is being used as a skating rink and lots of people go to skate there every day; if you have skates you could join them.</center>'
 	*nl
 	if pcs_icesktng>0: 'Your ice-skating skill is <<pcs_icesktng>>.'
 end
 
-if month <= 2 or month = 12:
+if storyline = 1 and (month <= 2 or month = 12):
 	if week >= 6 and hour >= 8 and hour <= 11:
 		'Looking over the frozen lake, you see a figure in the distance. The figure is figure skating and is doing all types of crazy moves. Stepping out on the ice and take a few steps out you finally notice who it is, <a href="exec:gt ''gschool_socialchg1'', ''tVeronika''">Veronika</a>.'
 	end
 end
 
-if (month >= 3 and month <= 5) or (month >= 9 and month <= 11):
-	if week >= 1 and week <= 5 and hour >= 18 and hour <= 20:
+if storyline = 1 and ((month >= 3 and month <= 5) or (month >= 9 and month <= 11)):
+	if week <= 5 and hour >= 18 and hour <= 20:
 		'<a href="exec:gt ''gschool_socialchg1'', ''tChristina''">Christina</a> is standing by the beach looking out over the lake. You also notice <a href="exec:gt ''gschool_socialchg1'', ''tLina''">Lina</a> in the background standing next to her, breathing heavily.'
 	end
 end
 
 act'Return to Pavlovsk':
+	*clr & cla
 	if konki_cloth = 1:
-		cla
 		'You need to remove your skates. How are you going to walk on the streets in those?'
 		act'Back':gt'glake'
 	elseif $clothingworntype = 'swimwear':
-		cla
 		'You need to get dressed in regular clothing first.'
 		act'Return':gt'glake'
 	elseif $clothingworntype ! 'nude':
 		minut += 5
 		gt'pavResidential'
 	else
-		cla
 		'You need to wear some clothes. It''s not decent to walk the streets naked.'
 		act'Return':gt'glake'
 	end
@@ -97,72 +92,88 @@ end
 
 if $clothingworntype = 'nude':
 	act'Put your clothes back on':
-		cla
+		*clr & cla
 		menu_off = 1
 		minut+=5
 		gs 'clothing', 'wear_last_worn'
-		if $clothingworntype = 'nude':
-			if storyline = 1:
-				minut += 30
-				pcs_mood -= 5
-				pcs_willpwr -= 5
-				'You return to the place where you thought you put your clothes to get dressed... except you can''t find them. Oh crap, you can''t find them! You desperately search the beach for a while, while a few passers-by look amused at the naked girl running around the beach. When you can''t find them, you panic and run all the way home... hopefully they''ll turn up.'
-				gt 'korrPar'
+		gs 'underwear', 'wear'
+		nudelake = rand(1,20)
+		if nudelake <= 3:
+			minut += 5
+			pcs_mood -= 5
+			pcs_willpwr -= 5
+			inhib_exp += rand(1,3)
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/noclothes.jpg"></center>'
+			'You return to the place where you thought you put your clothes to get dressed... except you can''t find them. Oh crap, you can''t find them! You desperately search the beach for a while, while a few passers-by look amused at the naked girl running around the beach. When you can''t find them, you panic and run all the way home... hopefully they''ll turn up.'
+			act 'Run home naked': gt 'glake', 'nude_home'
+		elseif nudelake = 4:
+			minut += 5
+			pcs_mood -= 5
+			pcs_willpwr -= 5
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/nakedcar.jpg"></center>'
+			'You return to the place where you thought you put your clothes to get dressed... except you can''t find them. Oh crap, you can''t find them! You desperately search the beach for a while, while a few passers-by look amused at the naked girl running around the beach. Eventually a man approaches you. You can tell his eyes are darting over your body as he asks: "Is there a problem, sweetheart? You seem upset..."'
+			if bag = 1:
+				'Luckily, your bag is sitting right where you left it.'
 			else
-				'You return to the place where you thought you put your clothes to get dressed... except you can''t find them. Oh crap, you can''t find them! You desperately search the beach for a while, while a few passers-by look amused at the naked girl running around the beach. Eventually a man approaches you. You can tell his eyes are darting over your body as he asks: "Is there a problem, sweetheart? You seem upset..."'
-				if bag = 1:
-					'Luckily, your bag is sitting right where you left it.'
-				else
-					money = 0
+				money = 0
+			end
+			'You''re seriously panicking now, and you blurt out: "I can''t find my clothes! I left them right here and now they''re gone! I don''t know what to do!"'
+			'He tries to put you at ease: "Don''t worry girl, you''re going to be fine. Come on, I happen to have some sportswear in my car."'
+			'You profusely thank him while he guides you to his car. He was not lying, he pulls out a set of sportswear that looks brand new, they even look like they would fit you. He doesn''t hand them over though, and says with a serious look: "Of course I can''t just give these away... they''re brand new. These cost me 3000 <b>₽</b>, if you can give me that they''re all yours."'
+			if money >= 3000:
+				act 'Pay 3,000 <b>₽</b>':
+					*clr & cla
+					money -= 3000
+					exercise[1] = 1
+					if exerciseH[1] > 40:exerciseH[1] = 40
+					gs 'underwear', 'wear'
+					gs 'clothing', 'wear', 'exercise', 1
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/nakedcar.jpg"></center>'
+					'So... there''s the catch. The guy looks at your naked body while you mull over his proposition, and you come to the conclusion that you really don''t have any other choice. You can''t walk home through town naked! You silently nod and give him the money, quickly putting the clothes on when he hands them over. You feel relieved in the knowledge that at least you won''t have to go home naked... hopefully your clothes will turn up later.'
+					act 'Run home naked': gt 'glake', 'nude_home'
+				end
+			else
+				act 'Tell him you don''t have enough money':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/nakedcar.jpg"></center>'
+					'So... there''s the catch. The guy looks over your naked body while you mull over your predicament. "Well I don''t have that kind of money, do you have a towel or anything I can have?"'
+					'He shakes his head and you can see a slight bulge forming in his pants the more he looks at your naked body. "No sorry, but I might be willing to trade the clothes..." He trails off suggestively and with the way he is looking at you, you have no doubt what he has in mind.'
+					'But it never hurts to see. "What did you have in mind?"'
+					'He grins a bit. "Well how about we get in my car and you let me fuck you and then you can have the clothes."'
+					gs 'willpower', 'sex'
+					if will_cost <= pcs_willpwr:
+						act 'Refuse and run home naked: (<<will_cost>> Willpower)':
+							gs 'willpower', 'resist'
+							gt 'glake', 'nude_home'
+						end
+					else
+						'You don''t have enough willpower to refuse.'
+					end
+					act 'Agree to have sex': gt 'glake', 'car_sex'
 				end
-				'You''re seriously panicking now, and with tears in your eyes you blurt out: "I can''t find my clothes! I left them right here and now they''re gone! I don''t know what to do!"'
-				'He tries to put you at ease: "Don''t worry girl, you''re going to be fine. Come on, I happen to have some sportswear in my car."'
-				'You dry your tears, profusely thanking him while he guides you to his car. He was not lying, he pulls out a set of sportswear that looks brand new. He doesn''t hand them over though, and says with a serious look: "Of course I can''t just give these away... they''re brand new. These cost me 3000 <b>₽</b>, if you can give me that they''re all yours."'
+			end
+			act 'Suggest alternative payment':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/nakedcar.jpg"></center>'
+				'3000 <b>₽</b>... you know it''s a fair price for him to ask, but you don''t want to pay 3000 <b>₽</b> right now! This is not how you planned for your day to go. Too afraid to look him in the eye when you ask, you suggest: "Is there... is there some other way I can pay you? 3000 <b>₽</b> is a lot of money."'
+				'He''s been gawking at your naked body the whole time you''ve been talking, and your suggestion seems to be exactly what he wanted to hear. He grins: "I can think of one way..."'
+				'The growing bulge in his pants does an excellent job of telling exactly what he''s thinking.'
+				act 'Agree to have sex': gt 'glake', 'car_sex'
 				if money >= 3000:
 					act 'Pay 3,000 <b>₽</b>':
+						*clr & cla
 						money -= 3000
 						exercise[1] = 1
 						if exerciseH[1] > 40:exerciseH[1] = 40
 						gs 'underwear', 'wear'
 						gs 'clothing', 'wear', 'exercise', 1
-						'So... there''s the catch. The guy looks at your naked body while you mull over his proposition, and you come to the conclusion that you really don''t have any other choice. You can''t walk home through town naked! You silently nod and give him the money, quickly putting the clothes on when he hands them over. You feel relieved in the knowledge that at least you won''t have to go home naked... hopefully your clothes will turn up later.'
-						gt 'glake'
-					end
-				end
-				act 'Suggest alternative payment':
-					'3000 <b>₽</b>... you know it''s a fair price for him to ask, but you don''t want to pay 3000 <b>₽</b> right now! This is not how you planned for your day to go. Too afraid to look him in the eye when you ask, you suggest: "Is there... is there some other way I can pay you? 3000 <b>₽</b> is a lot of money."'
-					'He''s been gawking at your naked body the whole time you''ve been talking, and your suggestion seems to be exactly what he wanted to hear. He grins: "I can think of one way..."'
-					'The growing bulge in his pants does an excellent job of telling exactly what he''s thinking.'
-					act 'Agree to have sex':
-						cla
-						cls
-						exercise[1] = 1
-						if exerciseH[1] > 40:exerciseH[1] = 40
-						gs 'underwear', 'wear'
-						gs 'clothing', 'wear', 'exercise', 1
-						'<center><img <<$set_imgh>> src="images/locations/shared/sex/car/sexcar1.jpg"></center>'
-						'He wastes no time for you to second guess yourself, and immediately throws you down on the back seat of his car when you agree. He quickly pulls down his pants and, after quickly putting a condom on, quickly guides his cock to your pussy lips. He obviously doesn''t plan on spending a lot of time with you and sinks it in one firm thrust, fucking you with rapid, short strokes. Soon he shoots his load in the condom, ties a knot in it and throws it away. Seconds after he hands you the clothes as promised, he drives off.'
-						'It was not the most pleasurable sex for you, but you convince yourself it was for a good cause when you put your well-earned clothes on. He used a condom too, without you even having to ask. You don''t have to go home naked now! With a sigh of relief you straighten the clothes and feel ready to take the day on again, hoping your own clothes will turn up at some point.'
-						gs 'arousal', 'vaginal', 5, 'sub', 'unknown'
-						gs 'arousal', 'end'
-						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/nakedcar.jpg"></center>'
+						'You don''t want to have sex with him... but you also don''t want to go home naked! Not seeing any other option, you decide to pay him the 3,000 <b>₽</b> after all. You quickly put on the clothes as he hands them over, feeling relieved in the knowledge that at least you don''t have to walk through town in the nude. Now that you''re clothed, you feel more confident in searching the beach a bit more; hopefully your clothes will turn up after all.'
 						act 'Continue': gt 'glake'
 					end
-					if money >= 3000:
-						act 'Pay 3,000 <b>₽</b>':
-							money -= 3000
-							exercise[1] = 1
-							if exerciseH[1] > 40:exerciseH[1] = 40
-							gs 'underwear', 'wear'
-							gs 'clothing', 'wear', 'exercise', 1
-							'You don''t want to have sex with him... but you also don''t want to go home naked! Not seeing any other option, you decide to pay him the 3,000 <b>₽</b> after all. You quickly put on the clothes as he hands them over, feeling relieved in the knowledge that at least you don''t have to walk through town in the nude. Now that you''re clothed, you feel more confident in searching the beach a bit more; hopefully your clothes will turn up after all.'
-							act 'Continue': gt 'glake'
-						end
-					end
 				end
 			end
 		else
-			gs 'underwear', 'wear'
 			'You return to the place where you left your clothes, and put them back on.'
 			act'Continue':gt'glake'
 		end
@@ -170,10 +181,10 @@ if $clothingworntype = 'nude':
 end
 
 if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
-	act 'Take a walk along the beach (1:00)':
-		cls
+	act 'Take a walk along the beach (30 minutes)':
+		*clr & cla
 		menu_off = 1
-		minut += 60
+		minut += 30
 		pcs_willpwr += 5
 		pcs_mood += 5
 		gs'stat'
@@ -192,71 +203,67 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk0,'+rand(0,2)+'.jpg"></center>'
 		end
 
-		'You walk along the beach for an hour, enjoying the feeling of the sun on your body.'
+		'You walk along the beach, enjoying the feeling of the sun on your body.'
 		act 'Continue':gt'glake'
 	end
 
 	if $clothingworntype ! 'nude' and (pcs_inhib >= 60 or (exhibitionist_lvl > 1 and pcs_horny >= 60)):
 		act'Strip naked':
-			cla
+			*clr & cla
 			menu_off = 1
 			minut += 5
 			inhib_exp += rand(1,2)
 			gs 'underwear', 'remove'
 			gs 'clothing', 'strip'
-			'Without hesitation, you take off all your clothes and neatly fold them before putting them down on a pile. Without your clothes holding you back, you can go for a nice swim in the lake or just lie down in the sand and do some sunbathing.'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/strip.jpg"></center>'
+			'Without hesitation, despite the fact other people are around, you take off all your clothes and neatly fold them before putting them down on a pile. Without your clothes holding you back, you can go for a nice swim in the lake or just lie down in the sand and do some sunbathing.'
 
 			act'Continue':gt'glake'
 		end
-	end
-
-	if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
-		act 'Go swim in the lake (1:00)':
+	elseif $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
+		act 'Go swim in the lake (30 minutes)':
 			*clr & cla
 			menu_off = 1
 			pcs_makeup = 1
 			cumspclnt = 4
 			gs 'cum_cleanup'
-			minut += 60
-			pcs_sweat = 10 + rand(0,4)
+			minut += 30
 			pcs_mood += 5
 			pcs_willpwr = pcs_willpwr + 5
 			if pcs_stren < 30: stren_exp += 1
-
+			fat -= 1
 			if $clothingworntype = 'nude':
-				'<center><img <<$set_imgh>> src="images/locations/shared/lake/nudeswim<<rand(0,9)>>.jpg"></center>'
-				inhib_exp += rand(1,3)
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/swimnude.jpg"></center>'
+				inhib_exp += rand(1,2)
 			else
-				'<center><img <<$set_imgh>> src="images/locations/shared/lake/swim.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/swim.jpg"></center>'
 				if pcs_inhib < 50:inhib_exp += rand(1,2)
 			end
 			'You swim and play in the lake, feeling refreshed and invigorated by the clean lake water.'
-			if $clothingworntype = 'nude':pcs_willpwr -= 5 & pcs_mood -= 5 & 'After a few minutes, you feel the piercing gaze of several nearby women on you. They''re making an effort of whispering to one another, yet loud enough so you can hear them: "Look at that'+iif(StoryLine = 1, ' <<$pcs_lastname>> ', ' ')+'slut! She has no decency whatsoever, shamelessly flaunting her naked body like that!" The men at the lake are much more appreciative, and openly stare at your attractive body. You can see bulges forming in the shorts of some of them.'
-
+			if $clothingworntype = 'nude':pcs_willpwr -= 5 & pcs_mood -= 5 & 'After a few minutes, you feel the piercing gaze of several nearby women on you. They''re making an effort of whispering to one another, yet loud enough so you can hear them: "Look at that <<$pcs_lastname>> slut! She has no decency whatsoever, shamelessly flaunting her naked body like that!" The men at the lake are much more appreciative, and openly stare at your attractive body. You can see bulges forming in the shorts of some of them.'
 			act 'Get out of the water':gt'glake'
 		end
 		if sunWeather = 1:
-			act 'Go sunbathing (1:00)':
-
-				menu_off = 1
+			act 'Go sunbathing (30 minutes)':
 				*clr & cla
-				minut += 60
-				if pcs_inhib < 50:inhib_exp += rand(1,2)
+				minut += 30
 				if pcs_sweat < 35 : pcs_sweat += 5
 				pcs_mood += 5
 				gs'stat'
 				if $clothingworntype = 'swimwear':
-					'<center><img <<$set_imgh>> src="images/locations/shared/lake/zagar.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbath.jpg"></center>'
+					if pcs_inhib < 50:inhib_exp += rand(1,2)
 				else
-					'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/nudezagarat.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbathnude.jpg"></center>'
+					inhib_exp += rand(1,3)
 				end
 
 				if krem = 0:
-					'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun for an hour.'
+					'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun on your body.'
 					pcs_tan = pcs_tan + 1
 				else
 					krem = krem - 1
-					'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun for an hour.'
+					'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun on your body.'
 					pcs_tan = pcs_tan + 3
 				end
 
@@ -281,13 +288,13 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 							end
 							exit
 						elseif $clothingworntype ! 'nude' and npc_QW['A113'] < 1:
-							cls
+							*clr & cla
 							gs'stat'
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
 							'While you are sunbathing you can''t help but notice a man walking towards you. He looks truly intimidating, his entire body covered in criminal gang tattoos. A bit further down the beach you see a younger man with similar tattoos, keeping an eye on the man approaching you.'
 							'His head is mostly bald, and a large golden cross dangles on a thick chain from his neck. He sits his fat body down next to you before you can protest, idly scratching his belly as he begins to chat: "Hello! I''m not interrupting anything, am I?"'
 							act'Be outraged':
-								cls
+								*clr & cla
 								minut += 5
 								gs'stat'
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
@@ -295,29 +302,30 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 								'The man is not impressed in the slightest, obviously having played this game before. He immediately challenges your claim: "Oh, excuse me princess! Is this your spot? Do you own it?"'
 
 								act'Yes you do!':
-									cls
+									*clr & cla
 									minut += 5
 									gs'stat'
 									'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
 									'You respond indignantly: "Yes, this is my spot! I was here first, that''s how it works!"'
 									'Suddenly you hear a deep voice behind you: "This beach is only used by prostitutes and bus drivers, and I don''t see a fucking bus."'
 									'Damn, that voice startled you. You look behind you and you see the tattooed younger man behind you. He has tattoos over his whole body as well, most notably several tombs and skulls on his chest. He stares you down with a stone cold look on his face.'
-									'The bald man smiles and puts his hand on your chest as if he owns it, roughly squeezing you tit through your swimsuit.'
+									'The bald man smiles and puts his hand on your chest as if he owns it, roughly squeezing your tit through your swimsuit.'
 									'"So... how much?"'
 									act 'Resist':gt 'LakeBoyDy', 'slap'
 									act 'Move away':gt 'LakeBoyDy', 'go'
+
 								end
 							end
 
 							act'Ignore them':
-								cls
+								*clr & cla
 								minut+=5
 								gs'stat'
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
 								'Those guys look intimidating. You don''t want any trouble and just pretend they''re not there, laying on the beach with your eyes closed. However, a few moments later you feel a strange tickling on your stomach. You open your eyes to see what''s causing it, and you see the fat man running a blade of grass over your stomach with a smug grin on his face. Looks like you can''t ignore them any longer.'
 
 								act'Keep ignoring them':
-									cls
+									*clr & cla
 									minut+=5
 									gs'stat'
 									'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
@@ -330,7 +338,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 							act 'Walk away':gt 'glake'
 							exit
 						else
-							cla
+							*clr & cla
 							'While you are sunbathing, three guys sit down near you. While you notice them looking at you and talking about your body, they don''t come over.'
 							act'Stop sunbathing':gt'glake'
 						end
@@ -368,7 +376,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 						exit
 					end
 				else
-					cla
+					*clr & cla
 					act'Stop sunbathing':gt'glake'
 				end
 			end
@@ -378,32 +386,84 @@ end
 
 act'Go to the secluded beach':minut += 10 & gt'gLakeNude'
 
-!winter
-if month = 12 or month = 1 or month = 2:
+if month = 12 or month < 3:
 	if konki_cloth = 1:
 		act'Take off your skates':
 			*clr & cla
 			menu_off = 1
-			minut+=10
+			minut += 5
 			konki_cloth=0
+			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/konki0,1.jpg"></center>'
 			'You take off your skates and put your shoes back on. For a while it feels kinda weird to walk, after you got used to skating.'
 			act'Continue':gt'glake'
 		end
+	elseif konki_cloth ! 1 and konki > 0 and hour >= 8 and hour <= 17:
+		act'Put your skates on':
+			*clr & cla
+			menu_off = 1
+			minut += 5
+			konki_cloth = 1
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/konki0,0.jpg"></center>'
+			'You take off your shoes, and put your skates on. Now you''re ready to go ice skating.'
+			act 'Continue': gt'glake'
+		end
 	end
-	if hour >= 8 and hour <= 17:
-		if konki > 0 and konki_cloth ! 1:
-			act'Put your skates on':
-				*clr & cla
-				menu_off = 1
-				minut += 5
-				konki_cloth = 1
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/konki0,0.jpg"></center>'
-				'You take off your shoes, and put your skates on. Now you''re ready to go ice skating.'
-				act 'Continue': gt'glake'
-			end
+	if konki_cloth = 1: act'Skate on the ice rink': gt 'glake', 'skating_start'
+end
+
+if $ARGS[0] = 'car_sex': 
+	*clr & cla
+	exercise[1] = 1
+	if exerciseH[1] > 40:exerciseH[1] = 40
+	gs 'underwear', 'wear'
+	gs 'clothing', 'wear', 'exercise', 1
+	'<center><img <<$set_imgh>> src="images/locations/shared/sex/car/sexcar1.jpg"></center>'
+	'He wastes no time for you to second guess yourself, and immediately throws you down on the back seat of his car when you agree. He quickly pulls down his pants and, after quickly putting a condom on, quickly guides his cock to your pussy lips. He obviously doesn''t plan on spending a lot of time with you and sinks it in one firm thrust, fucking you with rapid, short strokes. Soon he shoots his load in the condom, ties a knot in it and throws it away. Seconds after he hands you the clothes as promised, he drives off.'
+	*nl
+	'It was not the most pleasurable sex for you, but you convince yourself it was for a good cause when you put your well-earned clothes on. He used a condom too, without you even having to ask. You don''t have to go home naked now! With a sigh of relief you straighten the clothes and feel ready to take the day on again, hoping your own clothes will turn up at some point.'
+	gs 'arousal', 'vaginal', 10, 'sub'
+	gs 'arousal', 'end'
+	gs 'stat'
+	act 'Continue': gt 'glake'
+end
+
+if $ARGS[0] = 'nude_home':
+	*clr & cla
+	minut += 10
+	menu_off = 1
+	inhib_exp += rand(1,3)
+	gs'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/homenude.jpg"></center>'
+	'You cover yourself up as best you can and go through the woods, you use the woods to get as close as you can to your apartment. Luckily no one else seems to be wandering the woods right now and no one spots you. Now though you are at the edge of the woods, so you have decided if you want to sneak the rest of the way and hope no one see''s you are just make a run for it and hope no one recognizes you.'
+	
+	act 'Run home':
+		*clr & cla
+		minut += 7
+		gs 'fame', 'pav', 'sex', 5
+		inhib_exp += rand(2,4)
+		if month < 3 or month = 12:
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/naked/runhomenakedw.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/naked/runhomenaked.jpg"></center>'
 		end
-		if konki_cloth = 1: act'Skate on the ice rink': gt 'glake', 'skating_start'
+		'You decided to just get this over with and make a run for it. You use you hands to cover yourself as best you can, looking away from people. Sometimes you have to use your hands to cover you face in the hopes no one recognizes you. Several people gasp, more than a few people, mostly older women chastise you for being such a whore. Some of the men whistle and more than a few people take your picture, you really hope none of those pictures show your face. Finally after what seems forever you make it to the apartment complex.'
+		gs 'arousal', 'foreplay', 3, 'exhibitionism'
+		gs 'stat'
+		act 'Continue to complex': gt 'pavaptcourtev', 'naked_aptcomplex'
+	end
+	
+	act 'Sneak home':
+		*clr & cla
+		minut += 20
+		gs 'fame', 'pav', 'sex', 2
+		inhib_exp += rand(1,3)
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/naked/sneakhomenaked.jpg"></center>'
+		'You decided it would be better to take your time and sneak home, doing your best to not be seen. You use you hands to cover yourself as best you can, using cover as often as you, can. Hiding behind trees, parked cars, ducking down alleyways and when that doesn''t work you wait till you don''t see anyone and dart across open stretches of ground. Once or twice you think someone might have seen you, but you hope you wasn''t recognized, if you was seen. Finally after what seems forever you make it to the apartment complex.'
+		gs 'arousal', 'foreplay', 10, 'exhibitionism'
+		gs 'stat'
+		act 'Continue to complex': gt 'pavaptcourtev', 'naked_aptcomplex'
 	end
 end
 
@@ -474,5 +534,6 @@ if $ARGS[0] = 'skating':
 	end
 end
 
+
 --- gLake ---------------------------------