|
|
@@ -1,5 +1,8 @@
|
|
|
# gLakeNude
|
|
|
+
|
|
|
+
|
|
|
$location_type = 'secluded'
|
|
|
+$loc = $curloc
|
|
|
cls
|
|
|
gs'stat'
|
|
|
'<center><H4>Secluded beach</H4></center>'
|
|
|
@@ -41,37 +44,78 @@ if month=1 or month=2 or month=12:
|
|
|
''
|
|
|
end
|
|
|
|
|
|
-'This beach is hidden from the public and as is usual, it is currently empty. You could go skinny dipping if you want, no one would see you.'
|
|
|
+'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 $clothingworntype = 'nude':
|
|
|
+if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
|
|
|
act'Get dressed':
|
|
|
cla
|
|
|
+ *clr
|
|
|
minut+=5
|
|
|
gs 'clothing', 'wear_last_worn'
|
|
|
+ '<center><img src="images/locations/pavlovsk/lake/secluded_beach/dress/dess_nudebeach.jpg"></center>'
|
|
|
'You put your clothes back on.'
|
|
|
act'Continue':gt'gLakeNude'
|
|
|
end
|
|
|
end
|
|
|
|
|
|
+if temper >= 15 and month >= 5 and month <= 9:
|
|
|
+ if $clothingworntype ! 'nude':
|
|
|
+ act'Change into your swimwear':
|
|
|
+ cla
|
|
|
+ *clr
|
|
|
+ minut+=5
|
|
|
+ if pcs_horny >= 90:
|
|
|
+ if pav_slut < 50:
|
|
|
+ minut += 5
|
|
|
+ gt 'changingroom', 'view_swim_list'
|
|
|
+ '<center><img src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg"></center>'
|
|
|
+ 'You change into your swimsuit. A couple of passing men do a double-take and pause a moment to look at your sopping wet panties, probably thinking about what is making you so excited. You don''t care about what to say or about people think of you.'
|
|
|
+ act'Continue':gt'gLakeNude'
|
|
|
+ else
|
|
|
+ '<center><img src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants1.jpg"></center>'
|
|
|
+ 'You want to change into a swimsuit, but realize that your pussy is oozing juices down your leg. The thought that people can see it horrifies, you quickly feel yourself and you abandon the idea.<br><dh>"Probably it''s necessary somehow to remove these stress"</dh> you think to yourself.'
|
|
|
+ act'Continue':gt'gLakeNude'
|
|
|
+ end
|
|
|
+ else
|
|
|
+ minut += 5
|
|
|
+ gt'changingroom', 'view_swim_list'
|
|
|
+ '<center><img src="images/locations/pavlovsk/lake/secluded_beach/dress/swimsuit_nudebeach.jpg"></center>'
|
|
|
+ 'You wrap a towel around yourself and change into your swimsuit.'
|
|
|
+ act'Continue':gt'gLakeNude'
|
|
|
+ end
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
if temper >= 15 and month >= 5 and month <= 9:
|
|
|
if $clothingworntype ! 'nude':
|
|
|
act'Take off your clothes':
|
|
|
- if pcs_exhibition > 35:
|
|
|
+ if pcs_exhibition >= 50:
|
|
|
cla
|
|
|
+ *clr
|
|
|
minut+=5
|
|
|
gs 'clothing', 'strip'
|
|
|
- 'You quickly check to see if anyone is watching, and when you''re satisfied no one is you take off your clothes. You''re naked now.'
|
|
|
+ '<center><img src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
|
|
|
+ 'Not caring if anyone is looking at you, you slowly take off your clothes. You peel off each item like a stripper. You feel so naughty. Soon, you completely naked.'
|
|
|
act'Continue':gt'gLakeNude'
|
|
|
+ elseif pcs_exhibition > 35 and pcs_exhibition < 50:
|
|
|
+ cla
|
|
|
+ *clr
|
|
|
+ minut+=5
|
|
|
+ gs 'clothing', 'strip'
|
|
|
+ '<center><img src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
|
|
|
+ '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.'
|
|
|
+ act'Continue':gt'gLakeNude'
|
|
|
else
|
|
|
cla
|
|
|
- 'Even though no one is around, you don''t feel confident enough to actually take your clothes off. What if someone would see you?'
|
|
|
+ *clr
|
|
|
+ '<center><img 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?'
|
|
|
act'Continue':gt'gLakeNude'
|
|
|
end
|
|
|
end
|
|
|
end
|
|
|
-
|
|
|
if hour >= 6 and hour <= 20:
|
|
|
- act 'Go swimming (1:00)':
|
|
|
+ act'Go swimming (1:00)':
|
|
|
if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
|
|
|
cla
|
|
|
*clr
|
|
|
@@ -99,7 +143,7 @@ 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 (1:00)':
|
|
|
if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
|
|
|
cla
|
|
|
*clr
|
|
|
@@ -121,27 +165,98 @@ if temper >= 15 and month >= 5 and month <= 9:
|
|
|
|
|
|
'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.'
|
|
|
end
|
|
|
-
|
|
|
act 'Continue':gt'gLakeNude'
|
|
|
!end
|
|
|
!if bikini ! 1 and $clothingworntype ! 'nude':
|
|
|
else
|
|
|
cla
|
|
|
- 'You have to take off your clothes before you can go sunbathing.'
|
|
|
+ 'You have to take off your clothes before you can lay down to sunbath.'
|
|
|
act'Continue':gt'gLakeNude'
|
|
|
end
|
|
|
end
|
|
|
end
|
|
|
end
|
|
|
|
|
|
-act'Leave the secluded beach':
|
|
|
- if $clothingworntype ! 'nude' or ($clothingworntype = 'nude' and pcs_exhibition > 50):
|
|
|
+! 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 voyeurism_start = 0:
|
|
|
+ act'Look around the beach':
|
|
|
+ cla
|
|
|
+ *clr
|
|
|
+ minut += 5
|
|
|
+ act'Back': gt 'gLakeNude'
|
|
|
+ voyeurism_start_view = RAND(1,3)
|
|
|
+ if voyeurism_start_view <= 2:
|
|
|
+ '<center><img src="images/locations/shared/lake/lake_beach1.jpg"></center>'
|
|
|
+ 'You looked around, but see nothing interesting. Just a few others in swimwear or relaxing on the beach.'
|
|
|
+ else
|
|
|
+ set voyeurism_start = 1
|
|
|
+ '<center><img src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
|
|
|
+ 'You look around and notice that a little ways off at the end of the small beach is a pair of lovers laying on the sand. The girl is completely naked and her hand is stroking a guy`s cock through his white pants. The guy turns his head d notices that you looking at them. You immediately turn away, blushing terribly and begin to explore your feet as if seeing them for the first time.'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+ if voyeurism_start = 1:
|
|
|
+ act'Continue to peek around':
|
|
|
+ cla
|
|
|
+ *clr
|
|
|
+ if voyeurism = 0:
|
|
|
+ minut += 5
|
|
|
+ voyeurism += 1
|
|
|
+ '<center><img src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/lake_legs.jpg"></center>'
|
|
|
+ 'From the corner of your eye you see several naked people. You think they looking 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 from 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'
|
|
|
+ else
|
|
|
+ set voyeurism_start = 2
|
|
|
+ minut += 50
|
|
|
+ pcs_horny += 75
|
|
|
+ voyeurism += 1
|
|
|
+ '<center><img 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 looking 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 from 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
|
|
|
+ end
|
|
|
+ end
|
|
|
+ if voyeurism_start = 2 and (psc_horny < 90 or pav_slut < 50):
|
|
|
+ act 'Watch other people on the beach':
|
|
|
+ if voyeurism_nudist <= 14 or pav_slut > 50:
|
|
|
+ voyeurism_nudist += 1
|
|
|
+ gs'gLakeNudeEvent','gLakeNude_nudist'
|
|
|
+ act'Continue': gt 'gLakeNude'
|
|
|
+ else
|
|
|
+ cla
|
|
|
+ *clr
|
|
|
+ '<center><img src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself"></center>'
|
|
|
+ 'You want to podsmatrivanie for nudists, but suddenly notice that you started to talk weird.<br><dh>— Probably enough to spy.</dh> — you think and look straight ahead.'
|
|
|
+ act'Continue': gt'gLakeNude'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+ if voyeurism >= 40 and voyeurism_start = 2:
|
|
|
+ if voyeurism_forest = 0:
|
|
|
+ act'To go to the forest': gt'gLakeNudeForest'
|
|
|
+ else
|
|
|
+ act'To hide in the woods near the beach': gt'gLakeNudeForest'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
+if $clothingworntype ! 'nude' or ($clothingworntype = 'nude' and pcs_exhibition > 50):
|
|
|
+ act'Leave the secluded beach without changing':
|
|
|
+ cla
|
|
|
+ minut += 60
|
|
|
gt'glake'
|
|
|
else
|
|
|
msg '<center>You are not willing to show off your naked body on the main beach, what would people say?</center>'
|
|
|
- gt 'gLakeNude'
|
|
|
+ gt'gLakeNude'
|
|
|
end
|
|
|
end
|
|
|
|
|
|
---- gLakeNude ---------------------------------
|
|
|
|
|
|
+--- gLakeNude ---------------------------------
|
|
|
+
|
|
|
+
|
KevinSmarts