1
0

pav_pool.qsrc 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565
  1. # pav_pool
  2. !! 2023/09/13
  3. !! Based on the Mod Swimlessons by Darcanlos
  4. !! Rewritten by Vengeance
  5. !! Code updated by Anjuna
  6. $loc = 'pav_pool'
  7. if $ARGS[0] = 'building' or $ARGS[0] = '':
  8. $loc_arg = 'building'
  9. $location_type = 'public_outdoors'
  10. minut += 4
  11. if hour >= 8 and hour <= 20:
  12. gs 'stat'
  13. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/entrance.jpg"></center>'
  14. 'Pavlovsk''s public swimming pool is rather dated, but still serves it''s purpose quite well.'
  15. 'The entrance fee is 100 <b>₽</b> for the full day, but students get a discount and it only costs you 60 <b>₽</b>.'
  16. if SchoolAtestat = 0:
  17. pav_swimpool['entrancefee'] = 60
  18. else
  19. pav_swimpool['entrancefee'] = 100
  20. end
  21. if pav_swimpool['entrancepaid'] = daystart:
  22. '<b>You''ve already paid the fee, so you can enter.</b>'
  23. act 'Enter': gt 'pav_pool', 'entrance'
  24. else
  25. if money < pav_swimpool['entrancefee']:
  26. act 'Pay and enter': '<br><font color="red">You don''t have enough money to pay for entrance!</font>'
  27. else
  28. act 'Pay and enter':
  29. money -= pav_swimpool['entrancefee']
  30. pav_swimpool['entrancepaid'] = daystart
  31. gs 'stat'
  32. gt 'pav_pool', 'entrance'
  33. end
  34. end
  35. end
  36. act 'Leave': gt 'pav_residential'
  37. else
  38. gs 'stat'
  39. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/entrance.jpg"></center>'
  40. 'The swimming pool is currently closed. Opening hours are from 08:00 to 21:00.'
  41. act 'Leave': gt 'pav_residential'
  42. end
  43. end
  44. if $ARGS[0] = 'entrance':
  45. minut += 2
  46. $loc_arg = 'entrance'
  47. $location_type = 'public_indoors'
  48. gs 'stat'
  49. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/entrance.jpg"></center>'
  50. 'You''re currently inside the entrance to the swimming pool.'
  51. 'From here you can access the <a href="exec:minut += 1 & gt ''pav_pool'', ''lockerfemale''">girls locker room</a>, visit the <a href="exec:minut += 1 & gt ''pav_pool'', ''cafeteria''">cafeteria</a> or browse the pool''s <a href="exec:minut += 1 & gt ''pav_pool'', ''store''">store</a>.'
  52. *nl
  53. 'There is a sign by the store''s entrance that reads: "If closed, I''m working in the pool. Be back soon." It seems like the store clerk is also the janitor.'
  54. act 'Leave': gt 'pav_pool', 'building'
  55. end
  56. if $ARGS[0] = 'store':
  57. !! Outside of the first visit. Clerk has an 80% chance of being away in the busy times and a 30% in the down times.
  58. minut += 1
  59. $loc_arg = 'store'
  60. $location_type = 'public_indoors'
  61. if pav_swimpool['storeclerkvisit'] > 0 and (( (hour >= 8 and hour <= 10) or hour >= 17) and rand(1, 10) <= 8) or rand(1, 10) <= 3:
  62. gs 'stat'
  63. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/store.jpg"></center>'
  64. 'The store is closed right now. The clerk must be doing janitor work somewhere.'
  65. act 'Leave': gt 'pav_pool', 'entrance'
  66. else
  67. gs 'stat'
  68. '<center><h3Pool Store</h3></center>'
  69. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/store.jpg"></center>'
  70. 'The store is small and barely has anything on display, but they might have some swimwear available. There is a divider if you wish to try anything on, but it doesn''t seem to offer much privacy.'
  71. !!Buy one specific swimsuit
  72. act 'Ask for swimwear':
  73. if scandalicious_bikinis[46] = 1:
  74. *clr & cla
  75. minut += 1
  76. gs 'stat'
  77. '<center><h3>Pool Store</h3></center>'
  78. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/storeclerk.jpg"></center>'
  79. 'You already own a bikini which looks similar to the one they have on sale here.'
  80. act 'Continue': gt 'pav_pool', 'store'
  81. else
  82. gt 'pav_pool_events', 'store_simsuit_buy'
  83. end
  84. end
  85. act 'Leave': gt 'pav_pool', 'entrance'
  86. end
  87. end
  88. if $ARGS[0] = 'lockerfemale':
  89. !! Clothing change events
  90. !!-------------------------------------------------------------------!!
  91. $loc = 'pav_pool'
  92. $loc_arg = 'lockerfemale'
  93. $location_type = 'private'
  94. if $temp_curclothes = 'nude':
  95. killvar '$temp_curclothes'
  96. if PCloswimwear = 1:
  97. !! Locker events nude -> swimwear
  98. gt 'pav_pool_events', 'locker_nude_to_swim'
  99. elseif $clothingworntype ! 'nude' or $pantyworntype ! 'none':
  100. !! Locker events nude -> normal clothing
  101. gt 'pav_pool_events', 'locker_nude_to_clothed'
  102. end
  103. elseif $temp_curclothes = 'swimwear':
  104. killvar '$temp_curclothes'
  105. if $clothingworntype = 'nude' and $pantyworntype = 'none':
  106. !! Locker events swim -> nude
  107. gt 'pav_pool_events', 'locker_swim_to_nude'
  108. elseif PCloswimwear ! 1:
  109. !! Locker events swim -> clothing
  110. gt 'pav_pool_events', 'locker_swim_to_clothed'
  111. end
  112. elseif $temp_curclothes = 'norm':
  113. killvar '$temp_curclothes'
  114. if $clothingworntype = 'nude' and $pantyworntype = 'none':
  115. !! Locker events clothing -> nude
  116. gt 'pav_pool_events', 'locker_clothed_to_nude'
  117. elseif PCloswimwear = 1:
  118. !! Locker events clothing -> swim
  119. gt 'pav_pool_events', 'locker_clothed_to_swim'
  120. end
  121. end
  122. !!-------------------------------------------------------------------!!
  123. !!ARGS[1] = 1 prevents this event from triggering repeatedly
  124. if rand(1,10) = 1 and $clothingworntype = 'nude' and $pantyworntype = 'none' and ARGS[1] = 0:
  125. gt 'pav_pool_events', 'naked_locker'
  126. end
  127. minut += 1
  128. gs 'stat'
  129. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/lockers.jpg"></center>'
  130. 'The changing rooms are old and murky. They are uncomfortable, cramped and you always feel compelled to leave as quickly as possible. The small windows on one side don''t make you feel any better.'
  131. 'From here you can access the <a href="exec:minut += 1 & gt ''pav_pool'', ''showerfemale''">showers</a> or go to the <a href="exec:minut += 1 & gt ''pav_pool'', ''mirror''">mirrors</a> area, highly contested in busy times. You can also access the pool, but only if you''re wearing swimwear.'
  132. if func('changingroom','count_swim_item') > 0 or $clothingworntype = 'nude':
  133. act 'Change your clothes':
  134. !!Remember current clothes for clothing change events
  135. if $clothingworntype = 'nude' and $pantyworntype = 'none':
  136. $temp_curclothes = 'nude'
  137. elseif PCloswimwear = 1:
  138. $temp_curclothes = 'swimwear'
  139. else
  140. $temp_curclothes = 'norm'
  141. end
  142. $loc = 'pav_pool'
  143. $loc_arg = 'lockerfemale'
  144. !!Ignore Inhibition through willpower
  145. gt 'changingroom', 'view_swim_list', 1
  146. end
  147. else
  148. *nl
  149. 'You should buy some swimwear if you intend on spending time at the pool.'
  150. *nl
  151. end
  152. !! act 'Go to the mirrors':
  153. !! gt 'pav_pool', 'mirror'
  154. !! end
  155. if (pcs_makeup = 1 or cosmetic_tattoo > 0) and PCloswimwear = 1:
  156. act 'Enter the pool area': gs 'shoes', 'strip' & gt 'pav_pool', 'pool'
  157. else
  158. *nl
  159. if PCloswimwear = 0: 'You need to put some swimwear on first if you want to go in the pool.'
  160. if pcs_makeup <> 1 and cosmetic_tattoo = 0: 'You need to wash your make-up off first if you want to go in the pool.'
  161. *nl
  162. end
  163. if $clothingworntype <> 'nude': act 'Strip all clothing': gs 'clothing', 'strip_all' & gt 'pav_pool', 'lockerfemale'
  164. act 'Leave':
  165. if PCloswimwear = 1 or $clothingworntype = 'nude':
  166. cla
  167. 'You need to get dressed first!'
  168. act 'Return': gt 'pav_pool', 'lockerfemale'
  169. else
  170. minut += 3
  171. gs 'stat'
  172. gt 'pav_pool', 'entrance'
  173. end
  174. end
  175. end
  176. if $ARGS[0] = 'showerfemale':
  177. $loc_arg = 'showerfemale'
  178. $location_type = 'private'
  179. menu_off = 1
  180. minut += 1
  181. gs 'stat'
  182. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/showergirl.jpg"></center>'
  183. 'The showers have seen better days. Thankfully, the water from the shower is very warm and feels great on your skin.'
  184. if $clothingworntype ! 'nude':
  185. 'You need to strip before you can shower.'
  186. else
  187. act 'Take a shower':
  188. *clr & cla
  189. minut += 15
  190. dynamic $showerdin
  191. gs 'stat'
  192. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/shower/watch.jpg"></center>'
  193. if hour >= 8 and hour < 10:
  194. 'Almost nobody comes here this early in the morning, so you have the shower to yourself.'
  195. elseif hour >= 10 and hour < 12:
  196. 'The pool is rather busy at this time, mostly with families with children and a few older people. An older woman is showering right now, but it''s otherwise quiet.'
  197. elseif hour >= 12 and hour < 18:
  198. 'The pool and showers are crowded and you have to wait for someone else to finish first.'
  199. elseif hour >= 18 and hour < 20:
  200. 'Not many people visit the pool this late in the evening, with only a handful of adults coming for an after work swim. You have the shower to yourself.'
  201. elseif hour >= 20 and hour < 21:
  202. 'It''s rather late and the pool will be closing soon. You think you''re among the last people in the building, so you''re alone and can enjoy the shower all to yourself.'
  203. end
  204. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
  205. if rand(1,3) = 1 and hour >= 18 and hour < 21:
  206. act 'Finish': gt 'pav_pool_events', 'shower_late'
  207. else
  208. act 'Finish': gt 'pav_pool', 'showerfemale'
  209. end
  210. end
  211. end
  212. act 'Go back to the changing room': gt 'pav_pool', 'lockerfemale'
  213. end
  214. if $ARGS[0] = 'mirror':
  215. !! ARGS[1] = 1 prevents the same event from triggering repeatedly.
  216. $loc_arg = 'mirror'
  217. $location_type = 'private'
  218. if rand(1,10) = 1 and $clothingworntype = 'nude' and $pantyworntype = 'none' and ARGS[1] = 0:
  219. gt 'pav_pool_events', 'naked_mirror'
  220. end
  221. minut += 1
  222. gs 'stat'
  223. $locM = 'pav_pool'
  224. $locM_arg = 'mirror'
  225. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/mirrorsink.jpg"></center>'
  226. 'The area where the <a href="exec:minut += 1 & gt ''mirror'', ''start''">mirrors</a> are is just as murky as the rest of the changing room. It''s almost like the owners don''t care about the dilapidated appearance.'
  227. if $clothingworntype = 'nude':
  228. *nl
  229. 'You are completely naked.'
  230. end
  231. act 'Go back to the changing room': gt 'pav_pool', 'lockerfemale'
  232. if cumloc[11]+cumloc[12]+cumloc[16] > 0:
  233. act 'Clean the cum from your face':
  234. *clr & cla
  235. menu_off = 1
  236. minut += 5
  237. pcs_makeup = 1
  238. cumspclnt = 9
  239. gs 'cum_cleanup'
  240. cumspclnt = 13
  241. gs 'cum_cleanup'
  242. if pcs_sweat > 19: pcs_sweat -= 5
  243. gs 'stat'
  244. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/washface.jpg"></center>'
  245. 'You carefully wash the cum from your face at the sink.'
  246. act 'Finish': gt 'pav_pool', 'mirror'
  247. end
  248. end
  249. if pcs_makeup <> 1 and cosmetic_tattoo = 0:
  250. act 'Wash your make-up off':
  251. *clr & cla
  252. minut += 5
  253. pcs_makeup = 1
  254. if pcs_sweat > 19: pcs_sweat -= 5
  255. gs 'stat'
  256. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/washface.jpg"></center>'
  257. 'You carefully wash away your make-up at the sink.'
  258. act 'Finish': gt 'pav_pool', 'mirror'
  259. end
  260. end
  261. end
  262. if $ARGS[0]= 'cafeteria':
  263. *clr & cla
  264. $loc_arg = 'cafetaria'
  265. $location_type = 'public_indoors'
  266. minut += 1
  267. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/cafeteria<<rand(1,2)>>.jpg"></center>'
  268. 'The cafeteria doesn''t have a lot on the menu and only offers some basic snacks.'
  269. 'Two girls are currently ordering from the cashier.'
  270. act 'Order':
  271. *clr & cla
  272. minut += 1
  273. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/cafeteriaturn.jpg"></center>'
  274. 'It''s finally your turn and you sit on one of the stools while you order.'
  275. if money < 100:
  276. 'You don''t have enough money to buy a snack.'
  277. act 'Return': gt 'pav_pool', 'cafeteria'
  278. else
  279. act 'Buy a snack (100 <b>₽</b>) (0:05)':
  280. *clr & cla
  281. gs 'stat'
  282. minut += 5
  283. money -= 100
  284. pcs_health += 10
  285. pcs_mood += 20
  286. fat += 6
  287. pcs_energy += 20
  288. if pcs_hydra >= 100:
  289. pcs_hydra += 10
  290. else
  291. pcs_hydra += 20
  292. end
  293. cumspclnt = 2
  294. gs 'cum_cleanup'
  295. pcs_breath = 0
  296. gs 'food', 'aftermeal'
  297. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  298. 'You enjoy a small tasty, but somewhat fattening, snack.'
  299. gs 'stat'
  300. act 'Return': gt 'pav_pool', 'cafeteria'
  301. end
  302. end
  303. act 'Drink some water (0:05)':
  304. *clr & cla
  305. frost = 1
  306. if alko > 0: alko -= 1
  307. minut += 5
  308. pcs_health += 10
  309. pcs_energy += 4
  310. if pcs_hydra >= 100:
  311. pcs_hydra += 25
  312. else
  313. pcs_hydra += 50
  314. end
  315. cumspclnt = 2
  316. gs 'cum_cleanup'
  317. pcs_breath = 0
  318. gs 'beverage', 'afterdrink'
  319. gs 'stat'
  320. '<center><img <<$set_imgh>> src="images/locations/shared/brothel/barorderwater.jpg"></center>'
  321. 'You enjoy a glass of water.'
  322. act 'Return': gt 'pav_pool', 'cafeteria'
  323. end
  324. act 'Leave': gt 'pav_pool', 'entrance'
  325. end
  326. act 'Leave': gt 'pav_pool', 'entrance'
  327. end
  328. if $ARGS[0] = 'pool':
  329. *clr & cla
  330. $loc_arg = 'pool'
  331. $location_type = 'public_indoors'
  332. minut += 1
  333. gs 'stat'
  334. if hour >= 8 and hour < 10:
  335. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool1.jpg"></center>'
  336. 'The pool is almost empty this early in the morning. You can enjoy it almost all to yourself.'
  337. elseif hour >= 10 and hour < 12:
  338. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool2.jpg"></center>'
  339. 'The pool is mostly used by families with children and older people at this time.'
  340. elseif hour >= 12 and hour < 18:
  341. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool3.jpg"></center>'
  342. 'The pool is crowded with all kinds of people. This won''t be a relaxing swim...'
  343. elseif hour >= 18 and hour < 20:
  344. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool4.jpg"></center>'
  345. 'Not many visit the pool this late in the evening, with only a few adults coming for an after work swim.'
  346. elseif hour >= 20 and hour < 21:
  347. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/pool5.jpg"></center>'
  348. 'It''s rather late and the pool will be closing soon, so you''re mostly alone and can enjoy the pool all to yourself.'
  349. end
  350. 'The pool is rather old, but still has a certain charm to it. The wall to wall windows allow for a nice atmosphere during the day and there is an upper balcony where people often watch from above.'
  351. 'From here you can access the <a href="exec:minut += 1 & gt ''pav_pool'', ''lockerfemale''">female locker room</a>.'
  352. if hour >= 8 and hour < 21:
  353. act 'Climb into the pool':
  354. *clr & cla
  355. minut += 1
  356. gs 'stat'
  357. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/ladder<<rand(1,2)>>.jpg"></center>'
  358. 'You slowly climb down the ladder into the pool, probing the temperature as you go down.'
  359. act 'Continue': gt 'pav_pool', 'poolwater'
  360. end
  361. act 'Dive into the water':
  362. *clr & cla
  363. minut += 1
  364. gs 'stat'
  365. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/diving.jpg"></center>'
  366. if pcs_agil < 45:
  367. 'You climb up to the top of the diving board and try to jump elegantly into the water, but the landing is anything but that...'
  368. if PCloOnePiece = 0:
  369. temp_rand = rand(1,100)
  370. if temp_rand < 20:
  371. act 'Continue':
  372. *clr & cla
  373. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/bareass.jpg"></center>'
  374. 'As you enter the water, your bikini bottom slides down your legs and leaves your ass exposed. Thankfully, nobody seems to notice and you quickly pull it up before anyone sees you.'
  375. act 'Continue': gt 'pav_pool', 'poolwater'
  376. end
  377. elseif temp_rand => 20 and temp_rand < 40:
  378. act 'Continue':
  379. *clr & cla
  380. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/toploosen.jpg"></center>'
  381. 'As you enter the water, the knot of your bikini top loosens and your breasts pop out. Thankfully, nobody seems to notice and you quickly tie it back on before anyone sees you.'
  382. act 'Continue': gt 'pav_pool', 'poolwater'
  383. end
  384. elseif temp_rand => 40 and temp_rand < 50:
  385. act 'Continue':
  386. *clr & cla
  387. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/losttop.jpg"></center>'
  388. 'You dive into the pool and pop your head out of the water thinking that you still need to improve on your diving when you hear some boys giggling and looking at you. It''s then that you realize your bikini top is gone!'
  389. 'You cover your breasts and frantically look for your bikini top. Thankfully, you spot it floating nearby, grab it and quickly put it back on. The boys smile at you and leave.'
  390. pcs_mood -= 3
  391. act 'Continue': gt 'pav_pool', 'poolwater'
  392. end
  393. elseif temp_rand => 50 and temp_rand < 60:
  394. act 'Continue':
  395. *clr & cla
  396. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/bottomlost2.jpg"></center>'
  397. 'You dive into the pool and pop your head out of the water thinking that you still need to improve your diving when you feel the water tickling your bare pussy and realize that your bikini bottom is gone!'
  398. 'You cover your groin and frantically look for your bikini bottom. Thankfully, you spot it floating nearby, grab it and quickly slide it back on before anyone notices.'
  399. pcs_mood -= 3
  400. act 'Continue': gt 'pav_pool', 'poolwater'
  401. end
  402. end
  403. end
  404. elseif pcs_agil >= 45 and pcs_agil <= 70:
  405. 'You climb up to the top of the diving board and jump, but end up painfully bellyflopping into the water. You need to practice being more agile.'
  406. else
  407. 'You climb up to the top of the diving board and make a very elegant jump, sliding into the water without causing a single ripple.'
  408. end
  409. act 'Continue': gt 'pav_pool', 'poolwater'
  410. end
  411. act 'Sit with your feet in the water': gt 'pav_pool_events', 'feetwater'
  412. end
  413. end
  414. if $ARGS[0]= 'poolwater':
  415. minut += 1
  416. $loc_arg = 'poolwater'
  417. $location_type = 'public_indoors'
  418. pcs_hairbsh = 0
  419. cumspclnt = 10
  420. gs 'cum_cleanup'
  421. gs 'stat'
  422. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/inwater.jpg"></center>'
  423. 'You are in the water. It feels very relaxing.'
  424. if hour >= 8 and hour < 10:
  425. 'The pool is almost empty this early in the morning, so you have it almost all to yourself.'
  426. elseif hour >= 10 and hour < 12:
  427. 'The pool mostly contains families with children and older people swimming.'
  428. elseif hour >= 12 and hour < 18:
  429. 'The pool is crowded with all kinds of people. It''s difficult to move around and exercising will be impossible.'
  430. elseif hour >= 18 and hour < 20:
  431. 'Not many visit the pool this late in the evening, with only a few adults in the water.'
  432. elseif hour >= 20 and hour < 21:
  433. 'It''s rather late and the pool will be closing soon. You are among the last people in the building, so you can enjoy the pool all to yourself.'
  434. end
  435. if hour >= 10 and hour < 18:
  436. 'It''s rather busy, but you can try to do a bit of swimming or dive for a bit of fun. You could also just try to relax at the edge of the pool or right here in the water.'
  437. else
  438. 'The pool is almost empty, so you''re free to do a bit of relaxed swimming, exercise with a more powerful swim or dive for a bit of fun. You could also just relax at the edge of the pool or right here in the water.'
  439. end
  440. if hour >= 8 and hour < 21:
  441. act 'Relaxed swim': gt 'pav_pool_events', 'relaxedswim'
  442. if hour < 12 or hour >= 18:
  443. act 'Exercise': gt 'pav_pool_events', 'exerciseswim'
  444. end
  445. act 'Dive': gt 'pav_pool_events', 'dive'
  446. act 'Relax at the edge of the pool': gt 'pav_pool_events', 'edgepool'
  447. act 'Relax in the water': gt 'pav_pool_events', 'relaxedwater'
  448. end
  449. act 'Exit pool': gt 'pav_pool', 'exitpool'
  450. end
  451. if $ARGS[0]= 'exitpool':
  452. minut += 1
  453. $loc_arg = 'exitpool'
  454. gs 'stat'
  455. temp_rand = rand(1,15)
  456. if temp_rand <= 4 and PCloOnePiece = 0 and hour >= 10 and hour < 18:
  457. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/exitloosebra.jpg"></center>'
  458. 'As you exit the pool, you don''t notice that your top has loosened and your breasts are almost on full display for all to see.'
  459. act 'Continue':
  460. *clr & cla
  461. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/losttop.jpg"></center>'
  462. 'You finally notice when your top falls off and your breasts are fully exposed. You cover them as best as you can, but a group of boys have already seen you and seem to be enjoying the show.'
  463. '"Oh, come on! We already saw them, let us see some more!"'
  464. 'You pick up your bikini top, trying not to show anything else and run towards the locker rooms to put it back on.'
  465. pcs_mood -= 5
  466. act 'Continue': gt 'pav_pool', 'lockerfemale'
  467. end
  468. elseif temp_rand = 5 and PCloOnePiece = 0 and hour >= 10 and hour < 18:
  469. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/exitloosebra.jpg"></center>'
  470. 'As you exit the pool, you don''t notice that your bikini top has loosened and your breasts are almost on full display for all to see.'
  471. act 'Continue':
  472. *clr & cla
  473. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/bratkid.jpg"></center>'
  474. 'You finally notice when your top falls off and your breasts are completely exposed. You cover them as best as you can and turn around to look for your top just in time to see a boy pick it up with a devious smile.'
  475. '"If you want it back, come and get it!" He then jumps in the water and swims off.'
  476. act 'Run to the locker room':
  477. cla
  478. 'Blushing in embarrassment, you run to the locker room. Once there you strip naked. You can get rid of this bottom since it''s useless now.'
  479. dynamic $clothingworntype + '[<<clothingwornnumber>>] = 0'
  480. gs 'clothing', 'strip'
  481. act 'Continue': gt 'pav_pool', 'lockerfemale'
  482. end
  483. act 'Jump into the water after him':
  484. pav_swimpool['boystole'] = 1
  485. pav_swimpool['toplost'] = 1
  486. *clr & cla
  487. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/losttop.jpg"></center>'
  488. 'You jump bravely into the water after him. He swims off towards the other side of the pool and you attempt to follow, but the pool is full and many notice your lewdness. You suddenly realize, stop and cover yourself as a number of people stare at you.'
  489. 'You could try to reach the edge of the pool, but you would have to get very close to other people. You could also wait and hope that the pool empties a little without calling attention to yourself.'
  490. act 'Wait': gt 'pav_pool_events', 'watertoplost'
  491. act 'Try to reach the edge': gt 'pav_pool_events', 'tryreachedgenotop'
  492. end
  493. end
  494. else
  495. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/swim/ladder<<rand(1,2)>>.jpg"></center>'
  496. 'You climb out of the pool.'
  497. act 'Continue': gt 'pav_pool', 'pool'
  498. end
  499. end
  500. --- pav_pool ---------------------------------