# pav_lake_nude
*clr & cla
menu_off = 0
$location_type = 'secluded'
gs 'shortgs', 'setloc', 'pav_lake_nude', ''
$locclass = 'beach'
gs 'stat'
if sound = 0: PLAY 'sound/lakeshore2.mp3',20
'
Secluded beach
'
if month >= 3 and month <= 5:
if hour >= 6 and hour <= 17:
'> src="images/locations/pavlovsk/lake/lake.spring.jpg">'
else
'> src="images/locations/pavlovsk/lake/lake.spring.night.jpg">'
end
'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.'
*nl
elseif month >= 6 and month <= 8:
if hour >= 6 and hour <= 19:
'> src="images/locations/pavlovsk/lake/lake.summer.jpg">'
else
'> src="images/locations/pavlovsk/lake/lake.summer.night.jpg">'
end
'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.'
*nl
elseif month >= 9 and month <= 11:
if hour >= 6 and hour <= 18:
'> src="images/locations/pavlovsk/lake/lake.autumn.jpg">'
else
'> src="images/locations/pavlovsk/lake/lake.autumn.night.jpg">'
end
'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.'
*nl
elseif month < 3 or month = 12:
if hour >= 7 and hour <= 16:
'> src="images/locations/pavlovsk/lake/lake.winter.jpg">'
else
'> src="images/locations/pavlovsk/lake/lake.winter.night.jpg">'
end
'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.'
'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.'
*nl
end
if mid($start_type,1,2) = 'sg' and month >= 3 and month <= 8 and week >= 6 and hour >= 8 and hour <= 10 and ivanfedorseennaked ! daystart and rand(0,3) = 0 and fedorKozlovQW >= 0:
if $clothingworntype = 'nude':
gs 'arousal', 'flash', -5, 'exhibitionism'
gs '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.'
act 'Run away': ivanfedorseennaked = daystart & gt 'pav_lake_nude'
act 'Greet them': ivanfedorseennaked = daystart & gt 'gschool_socialchg1', 'ivan_fedor_naked'
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 Ivan, closely followed by Feodor.'
end
end
act'Leave the secluded beach': minut += 10 & gt 'pav_lake'
if month >= 5 and month <= 9:
if func('changingroom','count_swim_item') > 0:
act 'Use changing room':gt 'changingroom', 'view_swim_list'
else
*nl
'You should buy some swimwear if you intend on spending time at the beach'
*nl
end
if $clothingworntype ! 'nude' and (pcs_inhib > 30 or (exhibitionist_lvl > 1 and pcs_horny >= 60)):
gs 'willpower', 'exhib', 'self'
if will_cost <= pcs_willpwr:
act 'Take off your clothes (<> Willpower)':
*clr & cla
minut += 5
menu_off = 1
sauna_stripped = 0
if pcs_inhib < 60: inhib_exp += rand(1,3)
gs 'willpower', 'exhib', 'self', 'easy'
gs 'willpower', 'pay', 'self'
if PCloSwimwear = 0:
$lastwornclothingtype['swim'] = $clothingworntype
lastwornclothingnumber['swim'] = clothingwornnumber
$lastwornpantytype['swim'] = $pantyworntype
lastwornpantynumber['swim'] = pantywornnumber
$lastwornbratype['swim'] = $braworntype
lastwornbranumber['swim'] = brawornnumber
end
gs 'clothing', 'strip_all'
gs 'stat'
if pcs_horny >= 80 and exhibitionist_lvl > 1 and (PCloPanties = 1 or $pantyworntype ! 'none'):
'> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg">'
'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.'
elseif pcs_inhib >= 60:
'> src="images/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 pcs_inhib < 60:
'> src="images/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.'
end
act 'Continue': gt 'pav_lake_nude'
end
else
act 'Take off your clothes (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
elseif $clothingworntype = 'nude' and sauna_stripped = 0:
act 'Put your clothes back on':
*clr & cla
menu_off = 1
minut += 5
gs 'clothing', 'wear', $lastwornclothingtype['swim'], lastwornclothingnumber['swim']
gs 'panties', 'wear', $lastwornpantytype['swim'], lastwornpantynumber['swim']
gs 'bras', 'wear', $lastwornbratype['swim'], lastwornbranumber['swim']
nudelake = rand(1,10)
if nudelake <= 2 and func('homes_properties', 'has_access', 'parents_home'):
minut += 5
pcs_mood -= 5
gs 'stat'
'> src="images/locations/pavlovsk/lake/event/noclothes.jpg">'
'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.'
act 'Run home naked': gt 'pav_lake', 'nude_home'
else
'You return to the place where you left your clothes and put them back on.'
act 'Continue': gt 'pav_lake_nude'
end
end
end
end
act 'Go to the sauna': gt 'pav_lake_nude', 'sauna'
if temper >= 15 and month >= 5 and month <= 9 and hour >= 6 and hour <= 20:
act 'Take a walk along the beach':
*clr & cla
menu_off = 1
minut += 30
pcs_mood += 5
gs 'stat'
if (PCloswimwear = 1) and pcs_hips<=90:
'> src="images/locations/pavlovsk/lake/lake.walk.bikini0,'+rand(0,3)+'.jpg">'
elseif (PCloswimwear = 1) and pcs_hips >= 90 and pcs_hips<=110:
'> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,0.jpg">'
elseif (PCloswimwear = 1) and pcs_hips>=110:
'> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,1.jpg">'
if pcs_inhib < 50:inhib_exp += rand(1,2)
elseif $clothingworntype = 'nude':
'> src="images/locations/pavlovsk/lake/walknude.jpg">'
inhib_exp += rand(1,3)
else
'> src="images/locations/pavlovsk/lake/lake.walk0,'+rand(0,2)+'.jpg">'
end
'You walk along the beach, enjoying the feeling of the sun on your body.'
act 'Continue':gt'pav_lake_nude'
end
if PCloswimwear = 1 or $clothingworntype = 'nude':
if pcs_stam >= (20 * (10 - sport_clothes_exercise_bonus)) / 2:
act 'Go swimming':
menu_off = 1
cumspclnt = 4
gs 'cum_cleanup'
minut += 30
pcs_mood += 5
! Seems appropriate. Potentially worth revisiting
if willday_swim ! daystart: willday_swim = daystart & pcs_willpwr += 1
if PCloswimwear = 1:
if pcs_inhib < 50:inhib_exp += 1
elseif $clothingworntype = 'nude':
inhib_exp += rand(1,3)
end
if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
if pcs_stren < 30: gs 'exp_gain', 'stren', 1
if pcs_vital < 30: gs 'exp_gain', 'vital', 1
fat -= 1
pcs_makeup = 1
*clr & cla
gs 'stat'
if $clothingworntype = 'nude':
'> src="images/pc/activities/swim/lake/swim_nude_<>.jpg">'
if pcs_inhib < 60:inhib_exp += rand(0,1)
'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
'> src="images/pc/activities/swim/lake/swim_bikini_<>.jpg">'
if pcs_inhib < 40:inhib_exp += rand(0,1)
'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.'
end
if deodorant_on = 1: gs 'sweat', 'remove_deo' & '
Your deodorant gets washed away in the water.'
act 'Get out of the water': gt 'pav_lake_nude'
end
end
end
if sunWeather = 1 and (PCloswimwear = 1 or $clothingworntype = 'nude'):
act 'Go sunbathing':
menu_off = 1
if PCloswimwear = 1 or $clothingworntype = 'nude':
*clr & cla
minut += 30
if pcs_sweat < 35 : gs 'sweat', 'add', 5
pcs_mood += 5
if PCloswimwear = 1:
'> src="images/locations/shared/lake/tanning_swimsuit.jpg">'
if pcs_inhib < 50:inhib_exp += 1
if mc_inventory['suncream'] = 0:
pcs_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
mc_inventory['suncream'] -= 1
pcs_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.'
end
else
'> src="images/locations/shared/lake/tanning_nude.jpg">'
inhib_exp += rand(1,3)
if mc_inventory['suncream'] = 0:
pcs_tan += 1
'You lie down on your towel and enjoy the warm rays of the sun on your naked body.'
else
mc_inventory['suncream'] -= 1
pcs_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.'
end
end
gs 'stat'
act 'Continue': gt 'pav_lake_nude'
else
cla
'You have to take your clothes off first before you can sunbathe.'
act 'Continue': gt 'pav_lake_nude'
end
end
end
if voyeurism_start = 0:
act 'Look around the beach':
*clr & cla
menu_off = 1
voyeurism_start_view = rand(1,3)
gs 'stat'
if voyeurism_start_view <= 2:
minut += 5
'> src="images/locations/shared/lake/lake_beach1.jpg">'
'You look around, but see nothing interesting.'
else
voyeurism_start = 1
voyeurism += 1
gs 'arousal', 'voyeur_sex', 5
'> src="images/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.'
end
act'Return': gt 'pav_lake_nude'
end
elseif voyeurism_start = 1:
gs 'willpower', 'voyeur', 'self'
if will_cost <= pcs_willpwr:
act 'Watch couple on the beach (<> Willpower)':
*clr & cla
gs 'willpower', 'voyeur', 'self'
gs 'willpower', 'pay', 'self'
menu_off = 1
gs 'stat'
if voyeurism = 0:
gs 'arousal', 'voyeur_sex', 5
voyeurism += 1
gs 'stat'
'> src="images/locations/pavlovsk/lake/secluded_beach/self/lake_legs.jpg">'
'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.
"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!" you think to yourself.
'
act'Stop watching': gt'pav_lake_nude'
else
voyeurism_start = 2
gs 'arousal', 'voyeur_sex', 30
voyeurism += 1
gs 'stat'
'> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg">'
'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.
"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!" you think to yourself.
You then remember how you were recently watching others on the beach and think: "That was scary, cool and hot. I need to keep at least one eye always watching..."'
act'Watch the couple': gs 'pav_lake_nude_events', 'pav_lake_nude_sex'
end
end
else
act 'Watch couple on the beach (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
elseif voyeurism_start = 2 and (pcs_horny < 90 or fame['pav_slut'] < 100):
gs 'willpower', 'voyeur', 'self', 'easy'
if will_cost <= pcs_willpwr:
act 'Spy on other nudists on the beach (<> Willpower)':
gs 'willpower', 'voyeur', 'self', 'easy'
gs 'willpower', 'pay', 'self'
menu_off = 1
gs 'stat'
if voyeurism_nudist <= 14 or fame['pav_slut'] >= 100:
voyeurism_nudist += 1
gs 'pav_lake_nude_events','pav_lake_nude_nudist'
act 'Continue': gt 'pav_lake_nude'
else
*clr & cla
'> src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself'+rand(1,3)+'.jpg">'
'You want to watch for nudists, but suddenly start to feel weird.
"Probably spying too much." you think to yourself and look straight ahead.'
act 'Continue': gt'pav_lake_nude'
end
end
else
act 'Spy on other nudists on the beach (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
end
if voyeurism >= 17 and voyeurism_start = 2:
if voyeurism_forest = 0:
act 'Explore the forest': gt 'pav_lake_nude_forest'
else
act 'Hide in the woods near the beach': gt 'pav_lake_nude_forest'
end
end
end
if $ARGS[0] = 'sauna':
*clr & cla
$menu_loc = 'pav_lake_nude'
$menu_arg = 'sauna'
$loc_arg = 'sauna'
menu_off = 0
minut += 3
gs 'stat'
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/sauna.jpg">'
'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.'
if $clothingworntype ! 'nude' or sauna_stripped = 0:
act 'Go back to the beach': gt 'pav_lake_nude'
else
gs 'willpower', 'exhib', 'self'
if will_cost <= pcs_willpwr:
act 'Go to the beach (<> Willpower)':
gs 'willpower', 'pay', 'self'
gt 'pav_lake_nude'
end
else
act 'Go to the beach (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
end
if func('changingroom','count_swim_item') > 0:
act 'Use changing room':gt 'changingroom', 'view_swim_list'
else
*nl
'You should buy some swimwear if you intend on spending time at the beach.'
end
if $clothingworntype ! 'nude' and (pcs_inhib > 25 or (exhibitionist_lvl > 1 and pcs_horny >= 60)):
act 'Take your clothes off':
*clr & cla
menu_off = 1
minut += 5
sauna_stripped = 1
if PCloSwimwear = 0:
$lastwornclothingtype['swim'] = $clothingworntype
lastwornclothingnumber['swim'] = clothingwornnumber
$lastwornpantytype['swim'] = $pantyworntype
lastwornpantynumber['swim'] = pantywornnumber
$lastwornbratype['swim'] = $braworntype
lastwornbranumber['swim'] = brawornnumber
end
gs 'clothing', 'strip_all'
gs 'stat'
'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'
end
elseif sauna_stripped = 1:
act 'Put your clothes back on':
cla
menu_off = 1
minut += 5
gs 'clothing', 'wear', $lastwornclothingtype['swim'], lastwornclothingnumber['swim']
gs 'panties', 'wear', $lastwornpantytype['swim'], lastwornpantynumber['swim']
gs 'bras', 'wear', $lastwornbratype['swim'], lastwornbranumber['swim']
gs 'stat'
'You put your clothes back on.'
act 'Continue': gt 'pav_lake_nude', 'sauna'
end
end
if $clothingworntype = 'nude' or PCloswimwear = 1:
act 'Go to the womens section':
*clr & cla
menu_off = 1
minut += 2
gs 'stat'
if hour < 8 or hour > 22:
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg">'
'It appears to be empty at the moment.'
else
saunarand = rand(1,5)
if saunarand = 4:
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/womennude.jpg">'
'You find several other girls inside who are completely naked.'
elseif saunarand > 4:
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/womenbikini.jpg">'
'You find several other girls inside using the sauna while wearing their bikinis.'
else
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg">'
'It appears to be empty at the moment.'
end
end
act 'Leave': gt 'pav_lake_nude', 'sauna'
act 'Use the 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 PCloswimwear = 1:
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg">'
if pcs_inhib < 40: inhib_exp += rand(0,1)
else
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg">'
if pcs_inhib < 60: inhib_exp += rand(1,2)
end
gs 'stat'
'You spend 30 minutes relaxing in the sauna.'
act 'Leave': gt 'pav_lake_nude', 'sauna'
if month = 12 or month < 3: gs 'pav_lake_nude', 'ice_plunge'
end
end
act 'Go to the mens section':
*clr & cla
menu_off = 1
minut += 2
gs 'stat'
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg">'
'It appears to be empty at the moment.'
act 'Leave': gt 'pav_lake_nude', 'sauna'
gs 'willpower', 'exhib', 'self', 'hard'
if saunarand < 4 or PCloswimwear = 1: will_cost = 3
if will_cost <= pcs_willpwr:
act 'Use the sauna (<> 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 PCloswimwear = 1:
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg">'
if pcs_inhib < 40: inhib_exp += rand(0,1)
else
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg">'
if pcs_inhib < 60: inhib_exp += rand(1,2)
end
'You spend 30 minutes relaxing in the sauna.'
act 'Leave': gt 'pav_lake_nude', 'sauna'
if month = 12 or month < 3: gs 'pav_lake_nude', 'ice_plunge'
end
else
act 'Use the sauna (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
end
act 'Go to the co-ed section':
*clr & cla
menu_off = 1
minut += 2
gs 'stat'
if hour < 8 or hour > 22:
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg">'
'It appears to be empty at the moment.'
else
saunarand = rand(1,5)
if saunarand = 4:
'> src="images/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 saunarand > 4:
'> src="images/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
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg">'
'It appears to be empty at the moment.'
end
end
gs 'willpower', 'exhib', 'self', 'easy'
if saunarand < 4 or PCloswimwear = 1: will_cost = 0
if will_cost <= pcs_willpwr:
act iif(saunarand < 4 or PCloswimwear = 1, 'Use the sauna', 'Use the sauna (<> Willpower)'):
*clr & cla
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 PCloswimwear = 1:
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg">'
if pcs_inhib < 40: inhib_exp += rand(0,1)
else
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg">'
if pcs_inhib < 60: inhib_exp += rand(1,3)
end
gs 'stat'
'You spend 30 minutes relaxing in the sauna.'
act 'Leave': gt 'pav_lake_nude', 'sauna'
if month = 12 or month < 3: gs 'pav_lake_nude', 'ice_plunge'
end
else
act 'Use the sauna (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Leave': gt 'pav_lake_nude', 'sauna'
end
else
*nl
'You need to undress or wear a swimsuit to enter the sauna.'
end
end
if $ARGS[0] = 'ice_plunge':
act 'Take an ice plunge':
*clr & cla
minut += 10
pcs_mood += 10
if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
if PCloswimwear = 1:
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/icedipbikini.jpg">'
if pcs_inhib < 50:inhib_exp += rand(0,1)
else
'> src="images/locations/pavlovsk/lake/secluded_beach/sauna/icedipnude.jpg">'
inhib_exp += rand(1,2)
end
gs 'stat'
'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 deodorant_on = 1: gs 'sweat', 'remove_deo' & '
Your deodorant gets washed away in the water.'
act 'Go back to the sauna': gt 'pav_lake_nude', 'sauna'
end
end
--- pav_lake_nude ---------------------------------