1
0

glake.qsrc 30 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563
  1. # gLake
  2. CLOSE ALL
  3. if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
  4. $loc = 'gLake'
  5. $loc_arg = ''
  6. $menu_loc = 'glake'
  7. $menu_arg = ''
  8. $locclass = 'beach'
  9. menu_off = 0
  10. $location_type = 'public_outdoors'
  11. gs'stat'
  12. ! --- meynold event --- !. edit to month 5~10
  13. if $clothingworntype ! 'swimwear' and $clothingworntype ! 'beach' and $clothingworntype ! 'nude' and temper >= 5 and sunWeather = 1 and month >= 5 and month <= 10 and hour < 20 and ((hour >= 10 and week >= 6) or (hour >= 14 and week < 6)) and mey_vika['mey_vika_qw'] >= 18 and mey_vika['mey_vika_qw'] < 20 and mey_vika['qw_day'] ! daystart: gt 'mey_vika_events', 'beach_event1'
  14. '<center><H4>Lake</H4></center>'
  15. ! to memorize were cowards or not
  16. if month >= 3 and month <= 5:
  17. if hour >= 6 and hour <= 17:
  18. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.jpg"></center>'
  19. else
  20. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.night.jpg"></center>'
  21. end
  22. '<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>'
  23. *nl
  24. elseif month >= 6 and month <= 8:
  25. if hour >= 6 and hour <= 19:
  26. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.jpg"></center>'
  27. else
  28. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.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. During summer people often come to sunbath or go swimming.</center>'
  31. *nl
  32. elseif month >= 9 and month <= 11:
  33. if hour >= 6 and hour <= 18:
  34. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.jpg"></center>'
  35. else
  36. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.night.jpg"></center>'
  37. end
  38. '<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>'
  39. *nl
  40. elseif month < 3 or month = 12:
  41. if hour >= 7 and hour <= 16:
  42. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
  43. '<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>'
  44. else
  45. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.night.jpg"></center>'
  46. end
  47. '<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>'
  48. *nl
  49. if pcs_icesktng>0: 'Your ice-skating skill is <<pcs_icesktng>>.'
  50. end
  51. if storyline = 1 and (month <= 2 or month = 12):
  52. if week >= 6 and hour >= 8 and hour <= 11:
  53. '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>.'
  54. end
  55. end
  56. if storyline = 1 and ((month >= 3 and month <= 5) or (month >= 9 and month <= 11)) and rand(0,4) = 0:
  57. if week <= 5 and hour >= 15 and hour <= 20 and $clothingworntype = 'nude' and rand(0,3) = 0 and socialchg['christina_day'] ! daystart:
  58. gt 'gschool_socialchg1', 'chrislina_naked'
  59. else
  60. iif(socialchg['tChristina_day'] ! daystart, '<a href="exec:gt ''gschool_socialchg1'', ''tChristina''">Christina</a>', 'Christina')+' is standing by the beach looking out over the lake. You also notice '+iif(socialchg['tLina_day'] ! daystart, '<a href="exec:gt ''gschool_socialchg1'', ''tLina''">Lina</a>', 'Lina')+' in the background standing next to her, breathing heavily.'
  61. act'Walk away':gt'glake'
  62. end
  63. end
  64. act'Return to Pavlovsk':
  65. *clr & cla
  66. if konki_cloth = 1:
  67. 'You need to remove your skates. How are you going to walk on the streets in those?'
  68. act'Back':gt'glake'
  69. elseif $clothingworntype = 'swimwear' or $clothingworntype = 'beach':
  70. 'You need to get dressed in regular clothing first.'
  71. act'Return':gt'glake'
  72. elseif $clothingworntype ! 'nude':
  73. minut += 5
  74. gt'pav_residential'
  75. else
  76. 'You need to wear some clothes. It''s not decent to walk the streets naked.'
  77. act'Return':gt'glake'
  78. end
  79. end
  80. if month >= 5 and month <= 9:
  81. if func('changingroom','count_swim_item') > 0:
  82. act 'Use changing room':gt 'changingroom', 'view_swim_list'
  83. else
  84. *nl
  85. 'You should probably buy some swimwear if you intend of spending time at the beach'
  86. *nl
  87. end
  88. if $clothingworntype ! 'nude' and (pcs_inhib > 30 or (exhibitionist_lvl > 1 and pcs_horny >= 60)):
  89. gs 'willpower', 'exhib', 'self', 'hard'
  90. if will_cost <= pcs_willpwr:
  91. act 'Strip naked (<<will_cost>> Willpower)':
  92. *clr & cla
  93. gs 'willpower', 'pay', 'self'
  94. menu_off = 1
  95. minut += 5
  96. sauna_stripped = 0
  97. if pcs_inhib < 60: inhib_exp += rand(1,3)
  98. gs 'underwear', 'remove'
  99. gs 'clothing', 'strip'
  100. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/strip.jpg"></center>'
  101. '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.'
  102. act'Continue':gt'glake'
  103. end
  104. else
  105. act 'Strip naked (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  106. end
  107. elseif $clothingworntype = 'nude' and sauna_stripped = 0:
  108. act 'Put your clothes back on':
  109. *clr & cla
  110. menu_off = 1
  111. minut+=5
  112. nudelake = rand(1,20)
  113. if nudelake <= 3:
  114. minut += 5
  115. pcs_mood -= 5
  116. inhib_exp += rand(1,3)
  117. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/noclothes.jpg"></center>'
  118. '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.'
  119. act 'Run home naked': gt 'glake', 'nude_home'
  120. elseif nudelake = 4:
  121. minut += 5
  122. pcs_mood -= 5
  123. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/nakedcar.jpg"></center>'
  124. '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..."'
  125. if bag = 1:
  126. 'Luckily, your bag is sitting right where you left it.'
  127. else
  128. money = 0
  129. end
  130. '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!"'
  131. '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."'
  132. '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."'
  133. if money >= 3000:
  134. act 'Pay 3,000 <b>₽</b>':
  135. *clr & cla
  136. money -= 3000
  137. exercise[1] = 1
  138. exerciseS[1] = 0
  139. exerciseH[1] = 100
  140. exerciseB[1] = pcs_hips
  141. gs 'clothing', 'wear', 'exercise', 1
  142. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/nakedcar.jpg"></center>'
  143. '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.'
  144. act'Continue':gt'glake'
  145. end
  146. else
  147. act 'Tell him you don''t have enough money':
  148. *clr & cla
  149. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/nakedcar.jpg"></center>'
  150. '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?"'
  151. '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.'
  152. 'But it never hurts to see. "What did you have in mind?"'
  153. '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."'
  154. gs 'willpower', 'prostitution', 'resist'
  155. if will_cost <= pcs_willpwr:
  156. act 'Refuse and run home naked (<<will_cost>> Willpower)':
  157. gs 'willpower', 'pay', 'resist'
  158. gt 'glake', 'nude_home'
  159. end
  160. else
  161. act 'Refuse and run home naked (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  162. end
  163. act 'Agree to have sex': gt 'glake', 'car_sex'
  164. end
  165. end
  166. gs 'willpower', 'prostitution', 'self'
  167. if will_cost <= pcs_willpwr:
  168. act 'Suggest alternative payment (<<will_cost>> Willpower)':
  169. *clr & cla
  170. gs 'willpower', 'pay', 'self'
  171. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/nakedcar.jpg"></center>'
  172. '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."'
  173. '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..."'
  174. 'The growing bulge in his pants does an excellent job of telling exactly what he''s thinking.'
  175. act 'Agree to have sex': gt 'glake', 'car_sex'
  176. if money >= 3000:
  177. act 'Pay 3,000 <b>₽</b>':
  178. *clr & cla
  179. money -= 3000
  180. exercise[1] = 1
  181. exerciseS[1] = 0
  182. exerciseH[1] = 100
  183. exerciseB[1] = pcs_hips
  184. gs 'clothing', 'wear', 'exercise', 1
  185. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/nakedcar.jpg"></center>'
  186. '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.'
  187. act 'Continue': gt 'glake'
  188. end
  189. end
  190. end
  191. else
  192. act 'Suggest alternative payment (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  193. end
  194. else
  195. gs 'clothing', 'wear_last_worn'
  196. gs 'underwear', 'wear'
  197. 'You return to the place where you left your clothes, and put them back on.'
  198. act'Continue':gt'glake'
  199. end
  200. end
  201. end
  202. end
  203. if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
  204. act 'Take a walk along the beach (30 minutes)':
  205. *clr & cla
  206. menu_off = 1
  207. minut += 30
  208. pcs_mood += 5
  209. gs'stat'
  210. if ($clothingworntype = 'swimwear' or $clothingworntype = 'beach') and pcs_hips<=90:
  211. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini0,'+rand(0,3)+'.jpg"></center>'
  212. elseif ($clothingworntype = 'swimwear' or $clothingworntype = 'beach') and pcs_hips >= 90 and pcs_hips<=110:
  213. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,0.jpg"></center>'
  214. elseif ($clothingworntype = 'swimwear' or $clothingworntype = 'beach') and pcs_hips>=110:
  215. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,1.jpg"></center>'
  216. if pcs_inhib < 50:inhib_exp += rand(1,2)
  217. elseif $clothingworntype = 'nude':
  218. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/walknude.jpg"></center>'
  219. inhib_exp += rand(1,3)
  220. else
  221. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk0,'+rand(0,2)+'.jpg"></center>'
  222. end
  223. 'You walk along the beach, enjoying the feeling of the sun on your body.'
  224. act 'Continue':gt'glake'
  225. end
  226. if $clothingworntype = 'swimwear' or $clothingworntype = 'beach' or $clothingworntype = 'nude':
  227. act 'Go swim in the lake (30 minutes)':
  228. *clr & cla
  229. menu_off = 1
  230. pcs_makeup = 1
  231. cumspclnt = 4
  232. gs 'cum_cleanup'
  233. minut += 30
  234. pcs_mood += 5
  235. if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
  236. if pcs_stren < 30: stren_exp += 1
  237. fat -= 1
  238. if $clothingworntype = 'nude':
  239. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/swimnude.jpg"></center>'
  240. inhib_exp += rand(1,2)
  241. else
  242. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/swim.jpg"></center>'
  243. if pcs_inhib < 50: inhib_exp += rand(1,2)
  244. end
  245. 'You swim and play in the lake, feeling refreshed and invigorated by the clean lake water.'
  246. if $clothingworntype = 'nude' and rand(0,1): 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.'
  247. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  248. act 'Get out of the water':gt'glake'
  249. end
  250. if sunWeather = 1:
  251. act 'Go sunbathing (30 minutes)':
  252. *clr & cla
  253. minut += 30
  254. if pcs_sweat < 35 : gs 'sweat', 'add', 5
  255. pcs_mood += 5
  256. gs'stat'
  257. if $clothingworntype = 'swimwear' or $clothingworntype = 'beach':
  258. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbath.jpg"></center>'
  259. if pcs_inhib < 50:inhib_exp += rand(1,2)
  260. else
  261. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbathnude.jpg"></center>'
  262. inhib_exp += rand(1,3)
  263. end
  264. if krem = 0:
  265. '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.'
  266. pcs_tan = pcs_tan + 1
  267. else
  268. krem = krem - 1
  269. '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.'
  270. pcs_tan = pcs_tan + 3
  271. end
  272. if pcs_apprnc >= rand(1,400):
  273. tipelakeboyrand = rand(1,100)
  274. if tipelakeboyrand <= 5:
  275. if npc_QW['A113'] = 1:
  276. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
  277. 'While you are sunbathing, you see Vadim Bely and his brother sitting not far away from you. The brother points at you, and moments later Vadim walks over to you and sits down next to you. He idly scratches his tattoo covered belly as he asks: "Hello <<$pcs_nickname>>, want to go for a ride with me?"'
  278. 'The greedy look in his eyes tells you that when he says ''ride'', he doesn''t just mean in his car.'
  279. if $clothingworntype = 'nude':
  280. act 'Get dressed and go with him':
  281. gs 'clothing', 'wear_last_worn'
  282. if $clothingworntype = 'swimwear' or $clothingworntype = 'beach':gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
  283. gt 'LakeBoyDy', 'ride'
  284. end
  285. else
  286. act 'Get dressed and go with him':
  287. gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
  288. gt 'LakeBoyDy', 'ride'
  289. end
  290. end
  291. exit
  292. elseif $clothingworntype ! 'nude' and npc_QW['A113'] < 1:
  293. *clr & cla
  294. gs'stat'
  295. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
  296. '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.'
  297. '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?"'
  298. act'Be outraged':
  299. *clr & cla
  300. minut += 5
  301. gs'stat'
  302. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
  303. 'You were here first! You''re outraged by the way he just plants himself down next to you and exclaim: "Erm, excuse me!? I was here first!"'
  304. '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?"'
  305. act'Yes you do!':
  306. *clr & cla
  307. minut += 5
  308. gs'stat'
  309. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
  310. 'You respond indignantly: "Yes, this is my spot! I was here first, that''s how it works!"'
  311. '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."'
  312. '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.'
  313. 'The bald man smiles and puts his hand on your chest as if he owns it, roughly squeezing your tit through your swimsuit.'
  314. '"So... how much?"'
  315. act 'Resist': gs 'LakeBoyDy', 'slap'
  316. act 'Move away': gt 'LakeBoyDy', 'go'
  317. end
  318. end
  319. act'Ignore them':
  320. *clr & cla
  321. minut+=5
  322. gs'stat'
  323. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
  324. '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.'
  325. act'Keep ignoring them':
  326. *clr & cla
  327. minut+=5
  328. gs'stat'
  329. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
  330. 'You try to ignore them anyway, closing your eyes again. You feel the blade of grass continuously teasing your body, and after a few minutes his sweaty hand is pawing at your breasts through your swimsuit.'
  331. 'He whispers in your ear: "Come with me baby, I''ll make you feel good. You won''t regret it". His groping becomes more insistent and he''s roughly pinching your nipples now, and the outline of them slowly but surely becomes visible through your swimsuit.'
  332. act 'Resist': gs 'LakeBoyDy', 'slap'
  333. end
  334. end
  335. act 'Walk away':gt 'glake'
  336. exit
  337. else
  338. *clr & cla
  339. '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.'
  340. act'Stop sunbathing':gt'glake'
  341. end
  342. elseif tipelakeboyrand <= 30:
  343. !! {below is for when this event is fixed. Generates a boy[0], boy[1], and boy[2]}
  344. !! killvar '$boy'
  345. !! i = rand((age - 5),(age + 5))
  346. !! if i < 16: i = 16
  347. !! gs 'npcgeneratec', 0, 'Guy', rand((i - 1),(i + 1))
  348. !! gs 'boyStat', $npclastgenerated
  349. !! gs 'npcgeneratec', 0, 'Guy', rand((i - 1),(i + 1))
  350. !! gs 'boyStat', $npclastgenerated, 1
  351. !! gs 'npcgeneratec', 0, 'Guy', rand((i - 1),(i + 1))
  352. !! gs 'boyStat', $npclastgenerated, 2
  353. 'While you are sunbathing, three guys sit down near you. While you notice them looking at you and talking about you, they don''t come over.'
  354. act 'Continue':gt'glake'
  355. exit
  356. elseif tipelakeboyrand <= 80:
  357. i = age - 5
  358. if i < 16: i = 16
  359. gs 'npcgeneratec', 0, 'Guy', rand((i),(age + 5))
  360. gs 'boyStat', $npclastgenerated
  361. $boydesc = $npc_firstname[$npclastgenerated]
  362. gs'LakeBoyZ'
  363. 'While you are sunbathing, a guy sits down next to you. He''s kind of cute, actually.'
  364. 'He tries to chat you up: "Hey there beautiful, I''m <<$boydesc>>. What''s your name?"'
  365. act 'Get away from him':gt'glake'
  366. dynamic $gL_boy_z
  367. exit
  368. else
  369. '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.'
  370. act 'Stop sunbathing':gt'glake'
  371. exit
  372. end
  373. else
  374. act'Stop sunbathing':gt'glake'
  375. end
  376. end
  377. end
  378. end
  379. end
  380. act'Go to the secluded beach':minut += 10 & gt'gLakeNude'
  381. if month = 12 or month < 3:
  382. if konki_cloth = 1:
  383. act'Take off your skates':
  384. *clr & cla
  385. menu_off = 1
  386. minut += 5
  387. konki_cloth=0
  388. gs 'stat'
  389. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/konki0,1.jpg"></center>'
  390. '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.'
  391. act'Continue':gt'glake'
  392. end
  393. elseif konki_cloth ! 1 and konki > 0 and hour >= 8 and hour <= 17:
  394. act'Put your skates on':
  395. *clr & cla
  396. menu_off = 1
  397. minut += 5
  398. konki_cloth = 1
  399. gs 'stat'
  400. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/konki0,0.jpg"></center>'
  401. 'You take off your shoes, and put your skates on. Now you''re ready to go ice skating.'
  402. act 'Continue': gt'glake'
  403. end
  404. end
  405. if konki_cloth = 1: act'Skate on the ice rink': gt 'glake', 'skating_start'
  406. end
  407. if $ARGS[0] = 'car_sex':
  408. *clr & cla
  409. exercise[1] = 1
  410. exerciseS[1] = 0
  411. exerciseH[1] = 100
  412. exerciseB[1] = pcs_hips
  413. gs 'clothing', 'wear', 'exercise', 1
  414. '<center><img <<$set_imgh>> src="images/locations/shared/sex/car/sexcar1.jpg"></center>'
  415. '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.'
  416. *nl
  417. '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.'
  418. gs 'arousal', 'vaginal', 10, 'sub'
  419. gs 'arousal', 'end'
  420. gs 'stat'
  421. act 'Continue': gt 'glake'
  422. end
  423. if $ARGS[0] = 'nude_home':
  424. *clr & cla
  425. minut += 10
  426. menu_off = 1
  427. inhib_exp += rand(1,3)
  428. gs'stat'
  429. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/homenude.jpg"></center>'
  430. '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.'
  431. gs 'willpower', 'exhib', 'self'
  432. if will_cost <= pcs_willpwr:
  433. act 'Run home (<<will_cost>> Willpower)':
  434. *clr & cla
  435. gs 'willpower', 'pay', 'self'
  436. minut += 7
  437. gs 'fame', 'pav', 'sex', 5
  438. inhib_exp += rand(2,4)
  439. if month < 3 or month = 12:
  440. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/naked/runhomenakedw.jpg"></center>'
  441. else
  442. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/naked/runhomenaked.jpg"></center>'
  443. end
  444. '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.'
  445. gs 'arousal', 'flash', 3, 'exhibitionism'
  446. gs 'stat'
  447. act 'Continue to complex': gt 'pav_aptcourtev', 'naked_aptcomplex'
  448. end
  449. else
  450. act 'Run home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  451. end
  452. act 'Sneak home':
  453. *clr & cla
  454. minut += 20
  455. gs 'fame', 'pav', 'sex', 2
  456. inhib_exp += rand(1,3)
  457. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/naked/sneakhomenaked.jpg"></center>'
  458. '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 weren''t recognized, if you were seen. Finally after what seems forever you make it to the apartment complex.'
  459. gs 'arousal', 'flash', 10, 'exhibitionism'
  460. gs 'stat'
  461. act 'Continue to complex': gt 'pav_aptcourtev', 'naked_aptcomplex'
  462. end
  463. end
  464. if $ARGS[0] = 'skating_start':
  465. *clr & cla
  466. minut += 3
  467. menu_off = 1
  468. gs'stat'
  469. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/katok0,'+rand(0,3)+'.jpg"></center>'
  470. 'You slowly make your way over to the ice rink, where a lot of people are already skating. Some people are really good at skating and basically fly around the lake on their skates, while others carefully shuffle around, doing their best to just stay on their skates without falling.'
  471. act'Leave the rink':gt'glake'
  472. act'Skate on the rink': gt 'glake', 'skating'
  473. end
  474. if $ARGS[0] = 'skating':
  475. *clr & cla
  476. menu_off = 1
  477. fat -= 1
  478. gs 'sweat', 'add', 10
  479. stren_exp += 1
  480. agil_exp += 1
  481. react_exp += 1
  482. icesktng_exp += 1
  483. minut += 30
  484. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/katok_do0,'+rand(0,7)+'.jpg"></center>'
  485. if pcs_icesktng <= 10:
  486. pcs_mood -= 10
  487. 'You do your best to ride your skates, but you''re not very good at it. You fall flat on your ass several times, and your butt is starting to feel a bit sore.'
  488. 'Some of the friendlier skaters are cheering you on and try to give you some tips, while others just laugh when you fall down on your ass yet again.'
  489. elseif pcs_icesktng <= 30:
  490. pcs_mood -= 5
  491. 'Your persistent attempts to learn how to skate are starting to pay off. You don''t fall as often any more, even though it still happens on occasion. Ice skating is a lot more fun when you''re not falling flat on your ass all the time!'
  492. if rand(1,3) = 1:
  493. icesktng_exp += 1
  494. 'While you''re trying some new things, you suddenly figure out how to do a certain move properly. It definitely improves your skating skills.'
  495. end
  496. elseif pcs_icesktng <= 50:
  497. pcs_mood += 5
  498. 'At long last, you finally manage to skate for a full 100 meters without falling. It''s definitely going a lot better. Some of the other regulars who have seen you struggle before notice how much better you''re doing, and congratulate you on your progress.'
  499. 'You become a bit more daring as you continue to ride, almost never falling any more.'
  500. if rand(1,3) = 1:
  501. icesktng_exp += 2
  502. 'You fall down, just this once. One of the more experienced skaters notices, and helps you up. Once you''re up on your skates again, he explains what you did wrong. His explanation will go a long way in you not making the same mistake again, and you feel like you''re a better skater for it. You thank him as you skate off, trying to apply the trick he just taught you.'
  503. end
  504. elseif pcs_icesktng<=70:
  505. pcs_mood += 10
  506. 'You''re getting better and better at ice skating. You basically never fall any more, and enjoy the flow of the wind on your face as you dare to go faster and faster.'
  507. if rand(1,3) = 1:
  508. icesktng_exp += 3
  509. 'As you ride you watch the more experienced skaters, trying to pick up new tricks. You try to copy some of the things they are doing, and notice that those moves are indeed more efficient than how you were doing it before.'
  510. end
  511. else
  512. pcs_mood += 15
  513. 'You''ve pretty much mastered ice skating now, and won''t get any better without professional training. Occasionally you do some tricks while you skate around the rink, and others admire your skills as you fly past them.'
  514. end
  515. gs'stat'
  516. if hour <= 17:
  517. act 'Leave the rink': gt'glake'
  518. act 'Skate some more': gt 'glake', 'skating'
  519. else
  520. *clr & cla
  521. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/katok0,'+rand(0,3)+'.jpg"></center>'
  522. 'It''s too dark to go ice skating now, and the rink is closed.'
  523. act 'Leave': gt'glake'
  524. end
  525. end
  526. --- gLake ---------------------------------