gLakeNude 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147
  1. # gLakeNude
  2. $location_type = 'secluded'
  3. cls
  4. gs'stat'
  5. '<center><H4>Secluded beach</H4></center>'
  6. if month>=3 and month<=5:
  7. if hour>=6 and hour<=17:
  8. '<center><img src="images/locations/pavlovsk/lake/lake.spring.jpg"></center>'
  9. else
  10. '<center><img src="images/locations/pavlovsk/lake/lake.spring.night.jpg"></center>'
  11. end
  12. '<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>'
  13. ''
  14. end
  15. if month>=6 and month<=8:
  16. if hour>=6 and hour<=19:
  17. '<center><img src="images/locations/pavlovsk/lake/lake.summer.jpg"></center>'
  18. else
  19. '<center><img src="images/locations/pavlovsk/lake/lake.summer.night.jpg"></center>'
  20. end
  21. '<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>'
  22. ''
  23. end
  24. if month>=9 and month<=11:
  25. if hour>=6 and hour<=18:
  26. '<center><img src="images/locations/pavlovsk/lake/lake.autumn.jpg"></center>'
  27. else
  28. '<center><img src="images/locations/pavlovsk/lake/lake.autumn.night.jpg"></center>'
  29. end
  30. '<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>'
  31. ''
  32. end
  33. if month=1 or month=2 or month=12:
  34. if hour>=7 and hour<=16:
  35. '<center><img src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
  36. else
  37. '<center><img src="images/locations/pavlovsk/lake/lake.winter.night.jpg"></center>'
  38. end
  39. '<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>'
  40. '<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>'
  41. ''
  42. end
  43. '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.'
  44. if $clothingworntype = 'nude':
  45. act'Get dressed':
  46. cla
  47. minut+=5
  48. gs 'clothing', 'wear_last_worn'
  49. 'You put your clothes back on.'
  50. act'Continue':gt'gLakeNude'
  51. end
  52. end
  53. if temper >= 15 and month >= 5 and month <= 9:
  54. if $clothingworntype ! 'nude':
  55. act'Take off your clothes':
  56. if pcs_exhibition > 35:
  57. cla
  58. minut+=5
  59. gs 'clothing', 'strip'
  60. '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.'
  61. act'Continue':gt'gLakeNude'
  62. else
  63. cla
  64. 'Even though no one is around, you don''t feel confident enough to actually take your clothes off. What if someone would see you?'
  65. act'Continue':gt'gLakeNude'
  66. end
  67. end
  68. end
  69. if hour >= 6 and hour <= 20:
  70. act 'Go swimming (1:00)':
  71. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  72. cla
  73. *clr
  74. cumspclnt = 4
  75. gs 'cum_cleanup'
  76. minut = minut + 60
  77. pcs_sweat = 10 + rand(0,4)
  78. pcs_mood += 5
  79. pcs_willpwr = pcs_willpwr + 5
  80. if pcs_stren < 30: stren_exp += 1
  81. if $clothingworntype = 'nude':
  82. '<center><img src="images/locations/shared/lake/nudeswim.jpg"></center>'
  83. else
  84. '<center><img src="images/locations/shared/lake/swim.jpg"></center>'
  85. end
  86. '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.'
  87. act 'Get out of the water':gt'gLakeNude'
  88. else
  89. cla
  90. 'You would ruin your clothes if you go swimming in them. Unless you''re feeling very daring and are prepared to strip nude to go for a swim, you''ll need a bathing suit.'
  91. act'Continue':gt'gLakeNude'
  92. end
  93. end
  94. end
  95. if sunWeather = 1 and hour >= 6 and hour <= 20:
  96. act 'Go sunbathing (1:00)':
  97. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  98. cla
  99. *clr
  100. minut = minut + 60
  101. if pcs_sweat < 35 : pcs_sweat += 5
  102. pcs_mood += 5
  103. if bikini = 1:
  104. '<center><img src="images/locations/shared/lake/zagar.jpg"></center>'
  105. else
  106. '<center><img src="images/locations/city/residential/lake/nudezagarat.jpg"></center>'
  107. end
  108. if krem = 0:
  109. pcs_tan = pcs_tan + 1
  110. '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.'
  111. elseif krem > 0:
  112. krem = krem - 1
  113. pcs_tan = pcs_tan + 3
  114. '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.'
  115. end
  116. act 'Continue':gt'gLakeNude'
  117. !end
  118. !if bikini ! 1 and $clothingworntype ! 'nude':
  119. else
  120. cla
  121. 'You have to take off your clothes before you can go sunbathing.'
  122. act'Continue':gt'gLakeNude'
  123. end
  124. end
  125. end
  126. end
  127. act'Leave the secluded beach':
  128. if $clothingworntype ! 'nude' or ($clothingworntype = 'nude' and pcs_exhibition > 50):
  129. gt'glake'
  130. else
  131. msg '<center>You are not willing to show off your naked body on the main beach, what would people say?</center>'
  132. gt 'gLakeNude'
  133. end
  134. end
  135. --- gLakeNude ---------------------------------