mey_home.qsrc 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605
  1. # mey_home
  2. close all
  3. gs 'themes', 'indoors'
  4. $location_type = 'indoors'
  5. !! corporate only at the end of the month on weekends, check
  6. if day <= 25 and mey_vika['mey_vika_qw'] > 40: mey_vika['mey_vika_qw'] = 40
  7. if $args[0] = 'door':
  8. $loc_arg = 'door'
  9. $loc = 'mey_home'
  10. $menu_loc = 'mey_home'
  11. $menu_arg = 'door'
  12. menu_off = 0
  13. cls
  14. gs 'vicky_meynold_schedule'
  15. gs 'katja_meynold_schedule'
  16. gs'stat'
  17. '<center><h4><font color="maroon">Meynold''s house</font></h4></center>'
  18. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/mey_home.jpg"></center>'
  19. *nl
  20. if mey_vika['key'] = 1:
  21. 'You open the door with your key and enter the house.'
  22. if frost > 0: frost = 0
  23. act 'Enter': gt 'mey_home', 'start'
  24. elseif hour < 20 and ((week < 6 and hour >= 15) or (week >= 6 and hour > 10)) and mey_vika['mey_vika_qw'] >= 27:
  25. if mey_vika['mey_vika_qw'] = 27:
  26. gt 'mey_tamara_events', 'next_meet'
  27. else
  28. *clr
  29. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_tea1.jpg"></center>'
  30. *nl
  31. 'You walk up to the Meynolds'' residence and ring the doorbell...'
  32. 'After a short wait, you hear the lock click, and you see Katja''s mother, Tamara and sister, Vicky standing by the door'
  33. '"Oh, hi, <<$pcs_nickname>>, welcome! Come in, make yourself at home."'
  34. if frost > 0: frost = 0
  35. act 'Enter': minut += 1 & gt 'mey_home', 'start'
  36. end
  37. elseif locat['katja'] = 7:
  38. cla
  39. 'You walk up to the Meynolds residence and ring the doorbell...'
  40. 'Katja opens the door and quickly drags you to her room.'
  41. act 'Go to Katjas room':
  42. if frost > 0: frost = 0
  43. gt 'KatjaHomeTalk'
  44. end
  45. else
  46. *clr
  47. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_tea0.jpg"></center>'
  48. 'You walk up to the Meynolds'' residence and ring the doorbell...'
  49. 'No one opens the door. It looks like nobody''s home, or they are all asleep.'
  50. 'Maybe you should try again at a more sociable time?'
  51. act 'Leave': minut += 5& gt 'pav_residential'
  52. end
  53. end
  54. ! hall
  55. if $ARGS[0] = 'start':
  56. $loc_arg = 'start'
  57. $loc = 'mey_home'
  58. $menu_loc = 'mey_home'
  59. $menu_arg = 'start'
  60. menu_off = 0
  61. killvar '$locclass'
  62. cls
  63. gs 'vicky_meynold_schedule'
  64. gs 'katja_meynold_schedule'
  65. gs'stat'
  66. '<center><h4><font color="maroon">Hall</font></h4></center>'
  67. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/corridor.jpg"></center>'
  68. *nl
  69. 'A large and bright hall, this "hallway" stretches for quite a bit. You''ve never seen anything like this before! There is a mirror covering half of one of the walls. You see the kitchen from the hallway. There''s a big oval dining table.'
  70. 'There are stairs leading to the second floor. You can also see two doors where the signs say "Toilet" and "Bathroom".'
  71. act 'Leave the house':
  72. if $clothingworntype ! 'nude':
  73. minut += 5
  74. gt 'pav_residential'
  75. else
  76. msg'<b><font color = red>You need to get dressed.</font></b>'
  77. gt 'mey_home', 'start'
  78. end
  79. end
  80. if mey_vika['mey_vika_qw'] = 30 and mey_vika['qw_day'] ! daystart and locat['Vicky'] = 15: gs 'mey_vika_events', 'case_gift'
  81. if mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and locat['Vicky'] = 12: gs 'mey_vika_events', 'gym0'
  82. if mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and locat['Vicky'] = 13: gs 'mey_vika_events', 'gym1'
  83. if mey_vika['mey_vika_qw'] >= 32 and mey_vika['mey_vika_qw'] < 35 and mey_vika['qw_day'] ! daystart and locat['Vicky'] = 15: gs 'mey_vika_events', 'learning0'
  84. if mey_vika['mey_vika_qw'] >= 32:
  85. ! welcome to the corporate
  86. if week = 7 and hour >= 12 and hour <= 16 and day > 25 and mey_vika['mey_vika_qw'] = 40 and mey_tamara['qw_end'] = 0 and fame['pav_slut'] < 150:
  87. gt 'mey_tamara_events', 'party0'
  88. end
  89. ! check appearance before going to corporate
  90. if week = 7 and (hour = 17 or hour = 18) and mey_vika['mey_vika_qw'] = 41:
  91. '<br><a href="exec: gt''mey_tamara_events'',''check_look''">Tamara Meynold.</a> is waiting for you in the lobby.'
  92. exit
  93. end
  94. ! Vic calls in the shower
  95. if mesec = 0 and stat['think_virgin'] = 0 and mey_vika['bath_qw'] = 1 and mey_vika['bath_qw_day'] ! daystart and rand(0,1) = 0 and locat['Vicky'] = 9:
  96. gs 'mey_vika_events', 'bath_qw1'
  97. exit
  98. end
  99. if ((week < 6 and hour >= 14 and hour < 20) or (week = 6 and hour >= 10 and hour < 20)) and mey_tamara['help_day'] ! daystart:
  100. act 'Clean the house':
  101. menu_off = 1
  102. cla
  103. mey_tamara['help_day'] = daystart
  104. mey_tamara['help_count'] += 1
  105. minut += rand(50,70)
  106. gs 'sweat', 'add', 3
  107. pcs_mood -= 5
  108. gs 'stat'
  109. if mey_vika['bath_qw'] = 0 and mey_vika['bath_qw_day'] ! daystart:
  110. gs 'mey_vika_events', 'bath_qw0'
  111. else
  112. '<br>You take out a hefty vacuum cleaner from the closet, and it takes you about an hour to vacuum the house.'
  113. act 'Finish': gt 'mey_home', 'start'
  114. end
  115. end
  116. end
  117. end
  118. act 'Kitchen': minut += 1 & gt 'mey_home', 'kitchen'
  119. act 'Bathroom': minut += 1 & gt 'mey_home', 'bathroom'
  120. if mey_vika['mey_vika_qw'] >= 30: act 'Guest room': minut += 1 & gt 'mey_home', 'guest_bedroom'
  121. act 'Lounge': minut += 1 & gt 'mey_home', 'lounge'
  122. act 'Katja''s room': minut += 1 & gt 'mey_home', 'katja_bedroom'
  123. act 'Vicky''s room': minut += 1 & gt 'mey_home', 'vicky_bedroom'
  124. act 'Tamara Meynold''s room': minut += 1 & gt 'mey_home', 'tamara_bedroom'
  125. act 'Garden': minut += 1 & gt 'mey_home', 'garden'
  126. if func('homes_properties', 'is_current_home') = 0 and func('homes_properties', 'can_live_here') and mey_vika['mey_vika_qw'] >= 30:
  127. act 'Set this household as your main home':gs 'homes_properties', 'set_home' & gt 'mey_home', 'start'
  128. end
  129. !!if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  130. end
  131. ! kitchen
  132. if $ARGS[0] = 'kitchen':
  133. *clr & cla
  134. $loc = 'mey_home'
  135. $loc_arg = 'kitchen'
  136. $locclass = 'kitr'
  137. $menu_loc = 'mey_home'
  138. $menu_arg = 'kitchen'
  139. menu_off = 0
  140. gs 'kit_din'
  141. gs 'stat'
  142. '<center><h4><font color="maroon">Kitchen</font></h4></center>'
  143. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/kitchen.jpg"></center>'
  144. *nl
  145. 'The kitchen is vast and luxurious. It is decorated in a minimalist high-tech style. An oval dining room table stands in the middle of the room. The appliances are all hidden. As a result, the kitchen is sparkling clean.'
  146. if mey_vika['mey_vika_qw'] = 31:
  147. 'Sitting on the counter is a note and a <a href="exec:gs ''mey_home'', ''key''">key</a>'
  148. end
  149. act 'Return to hallway': minut += 1 & gt 'mey_home', 'start'
  150. if mey_vika['mey_vika_qw'] >= 32 and ((week < 6 and hour >= 14 and hour < 20) or (week = 6 and hour >= 10 and hour < 20)) and mey_tamara['help_day'] ! daystart:
  151. act 'Cook for the whole family':
  152. menu_off = 1
  153. cla
  154. mey_tamara['help_day'] = daystart
  155. mey_tamara['help_count'] += 1
  156. minut += rand(50,70)
  157. gs 'stat'
  158. '<br>You take out the food from the refrigerator and start cooking for the whole family. It takes you about an hour to finish.'
  159. act 'Finish': gt 'mey_home', 'kitchen'
  160. end
  161. end
  162. act 'Eat a hearty meal (0:20)':gs 'food', 'l_meal'
  163. act 'Eat a normal meal (0:15)':gs 'food', 'm_meal'
  164. act 'Eat a light meal (0:10)':gs 'food', 's_meal'
  165. dynamic $edasnack
  166. dynamic $sandwich
  167. dynamic $driwater
  168. dynamic $dritea
  169. dynamic $fill_bottle
  170. dynamic $edaD
  171. dynamic $pranik
  172. dynamic $fatdel
  173. dynamic $lekarstvo
  174. dynamic $vitamin
  175. gs 'events', 'read'
  176. end
  177. if $ARGS[0] = 'key':
  178. *clr & cla
  179. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/key.jpg"></center>'
  180. mey_vika['key'] = 1
  181. mey_vika['mey_vika_qw'] = 32
  182. '<<$pcs_nickname>>,'
  183. ' Here is the key to the house, Our home is your home. You can also clean out what remains in the guest bedroom and make it all yours. just put all of Roma''s things in some boxes and I''ll put them in storage.'
  184. '~Tamara Meynold'
  185. act 'Take Key': gt 'mey_home', 'kitchen'
  186. end
  187. if $ARGS[0] = 'bathroom':
  188. !bathroom
  189. $locM = 'mey_home'
  190. $locM_arg = 'bathroom'
  191. $loc_arg = 'bathroom'
  192. $menu_loc = 'mey_home'
  193. $menu_arg = 'bathroom'
  194. menu_off = 0
  195. $location_type = 'bathroom'
  196. $bathtype = 'glass shower and tub'
  197. cls
  198. gs'stat'
  199. '<center><b><font color = maroon>Bathroom</font></b></center>'
  200. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
  201. *nl
  202. 'A luxurious bathroom looks like the five-star hotel bathrooms you read about in magazines.'
  203. 'Above the beautiful vanity and sink there is a huge <a href="exec:gt ''mirror'',''start''">mirror</a>.'
  204. !acts copy from [shulgabath]
  205. act 'Return to the hallway': minut += 1 & gt 'mey_home', 'start'
  206. gs 'selfplay', 'suction_dildo'
  207. gs 'din_van', 'private'
  208. end
  209. ! guestroom
  210. if $ARGS[0] = 'guest_bedroom':
  211. cls
  212. $location_type = 'private'
  213. $locM = 'mey_home'
  214. $locM_arg = 'guest_bedroom'
  215. $loc = 'mey_home'
  216. $loc_arg = 'guest_bedroom'
  217. $menu_loc = 'mey_home'
  218. $menu_arg = 'guest_bedroom'
  219. menu_off = 0
  220. gs 'stat'
  221. gs 'music_actions', 'clear_restrictions'
  222. '<center><h4><font color="maroon">Guest room</font></h4></center>'
  223. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/guestroom.jpg"></center>'
  224. *nl
  225. 'It feels and looks like a standard room in a hotel.'
  226. 'There is a <a href="exec:gt ''bed'', ''start''">bed</a>, a small <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing), and a <a href="exec:gt ''stol'' ,''start''">desk</a>.'
  227. *nl
  228. 'Your <a href="exec:gt ''alarmclock'', ''start''">alarm clock</a> is set to <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerH''], alarmVars[''timerM''])>> during the week and <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerEndH''], alarmVars[''timerEndM''])>> during the weekend. It is currently turned ' + iif(alarmVars['alarmOn'] = 0, '<a href="exec: alarmVars[''alarmOn''] = 1 & gt $loc, $loc_arg">OFF</a>.', '<a href="exec: alarmVars[''alarmOn''] = 0 & gt $loc, $loc_arg">ON</a>.')
  229. *nl
  230. 'A <a href="exec:gt ''mirror'', ''start''">mirror</a> hangs on the wall near the front door.'
  231. if $ml_guitar['location'] = $loc: 'Your guitar rests on its stand next to your bed.'
  232. !! Computer and internet use.
  233. if mc_inventory['tech_computer'] = 1:
  234. gs 'internet_mobile', 'get_access', 'free'
  235. 'Your <a href="exec:gt ''Komp'',''start''">computer</a> is on the desk.'
  236. end
  237. act 'Return to the hallway':
  238. if ($clothingworntype = 'nude' or PCloswimwear = 1):
  239. *clr
  240. '<center><img <<$set_imgh>> src="images/pc/clothing/'+iif($pantyworntype = 'none','0','tanga')+'.jpg"></center>'
  241. *nl
  242. '<center><font color=red><b>You can''t go out dressed like this!</b></font></center>'
  243. exit
  244. end
  245. minut += 1
  246. gt 'mey_home', 'start'
  247. end
  248. gs 'exercise', 'start'
  249. gs 'music_actions', 'start'
  250. if pcs_horny >= 50: act 'Masturbate':gt 'selfplay', 'start'
  251. if mc_inventory['mag_porn'] > 0:
  252. 'You hide your porn magazines under the mattress of your bed.'
  253. gs 'events', 'read_porn'
  254. end
  255. gs 'events', 'read'
  256. if mc_inventory['cocaine'] > 0 and drugVars['cocaine_day'] ! daystart:
  257. act 'Snort the White Lady (0:05)':
  258. *clr & cla
  259. menu_off = 1
  260. minut += 5
  261. gs 'drugs', 'cocaine'
  262. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  263. *nl
  264. 'You snort some White Lady, feeling dizzy for a moment. After that, you feel fantastic and incredibly horny.'
  265. act 'Continue':gt 'mey_home', 'guest_bedroom'
  266. end
  267. end
  268. act 'Relax on your bed': gt 'bed', 'start'
  269. act 'Wait':gs 'obj_din', 'wait'
  270. gs 'prostitution_functions', 'prostitute_outfit_at_home'
  271. gs 'wardrobe', 'default_clothing_options'
  272. !!if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  273. end
  274. if $ARGS[0] = 'lounge':
  275. cls
  276. $loc = 'mey_home'
  277. $loc_arg = 'lounge'
  278. $menu_loc = 'mey_home'
  279. $menu_arg = 'lounge'
  280. menu_off = 0
  281. gs 'stat'
  282. '<center><h4><font color="maroon">Lounge</font></h4></center>'
  283. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/hall.jpg"></center>'
  284. *nl
  285. 'Spacious room with a sofa and armchairs, on the wall, hangs a large <a href="exec:gt ''TV'',''meyhome''">Plasma TV</a>, located next to the bookcase, and on the opposite side is the fireplace. From the hall, there is access to a bright garden overgrown with grapes.'
  286. act 'Return to hallway': minut += 1 & gt 'mey_home', 'start'
  287. act 'Garden': minut += 1 & gt 'mey_home', 'garden'
  288. end
  289. if $ARGS[0] = 'katja_bedroom':
  290. cls
  291. $loc = 'mey_home'
  292. $loc_arg = 'katja_bedroom'
  293. $menu_loc = 'mey_home'
  294. $menu_arg = 'katja_bedroom'
  295. menu_off = 0
  296. $locclass = 'livingr'
  297. gs 'katja_meynold_schedule'
  298. gs 'stat'
  299. '<center><h4><font color="maroon">Katja''s room</font></h4></center>'
  300. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/katya_room.jpg"></center>'
  301. *nl
  302. 'Katja''s room feels like someone is living there temporarily and will soon move out. However, the things in the room are in perfect order, depicting the feeling of a "non-residential premise".'
  303. 'There are numerous flowers in the pots on the windowsill, pots hanging on the walls and even plants in pots on the floor, giving the room a greenhouse feel.'
  304. 'There is a computer desk in one corner, opposite the bed. In another corner is a hidden wardrobe. Lastly, a well-hidden bookshelf can be seen in the room, but it is kinda hard to spot because of the wildly overgrown plants.'
  305. if locat['katja'] = 7:
  306. if katjaQW['QWstage'] > 1:
  307. act 'Chat with Katja': gt'KatjaHomeTalk'
  308. else
  309. '<font color=red>Your relationship with Katja is not good enough to just barge into her room, better leave as soon as possible.</font>'
  310. end
  311. else
  312. 'Katja is not in her room'
  313. end
  314. act 'Return to the hallway': minut += 1 & gt 'mey_home', 'start'
  315. end
  316. if $ARGS[0] = 'vicky_bedroom':
  317. cls
  318. $loc = 'mey_home'
  319. $loc_arg = 'vicky_bedroom'
  320. $menu_loc = 'mey_home'
  321. $menu_arg = 'vicky_bedroom'
  322. menu_off = 0
  323. gs 'stat'
  324. '<center><h4><font color="maroon">Vicky''s room</font></h4></center>'
  325. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/vika_room.jpg"></center>'
  326. *nl
  327. 'Vicky''s room is always a mess. It''s clean, but everything is scattered all over the place. Soft toys are lying around in enormous quantities, and all the walls are plastered with posters of pop stars and film actors.'
  328. 'There''s a laptop on the table by the window. It accidentally brings a sense of orderliness. The stacks of magazines resemble music speakers. The room''s centerpiece is the ginormous bed and a wardrobe next to it. There''s a lone chair somewhere hidden under all the stuff.'
  329. act 'Return to hallway': minut += 1 & gt 'mey_home', 'start'
  330. end
  331. if $ARGS[0] = 'tamara_bedroom':
  332. cls
  333. $loc = 'mey_home'
  334. $loc_arg = 'tamara_bedroom'
  335. $menu_loc = 'mey_home'
  336. $menu_arg = 'tamara_bedroom'
  337. menu_off = 0
  338. gs 'stat'
  339. '<center><h4><font color="maroon">Tamara''s room</font></h4></center>'
  340. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_room.jpg"></center>'
  341. *nl
  342. 'If it was not for the bed in the corner, you would say Tamara Meynold''s room resembles an office. There''s a computer on a desk, a wardrobe, and a big but pretty modest bed. The room is relatively small and cramped. There are no decorations but one, a sword hanging on the wall. It''s unclear what it''s doing there.'
  343. act 'Return to hallway': minut += 1 & gt 'mey_home', 'start'
  344. end
  345. ! courtyard
  346. if $ARGS[0] = 'garden':
  347. cls
  348. $loc = 'mey_home'
  349. $loc_arg = 'garden'
  350. $menu_loc = 'mey_home'
  351. $menu_arg = 'garden'
  352. menu_off = 0
  353. gs 'stat'
  354. '<center><h4><font color="maroon">Garden</font></h4></center>'
  355. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/courtyard.jpg"></center>'
  356. *nl
  357. 'The garden is relatively small for the house and overgrown. Most of the space is taken up by a small pool.'
  358. 'A car belonging to Tamara Meynold is parked on the drive next to the garden.'
  359. if hour = 7 and minut >= 30 and week < 6:
  360. '<a href="exec:gs''mey_tamara_events'',''tamara''">Aunt Tamara</a> is here talking on her phone.'
  361. end
  362. act 'Return to hallway':
  363. if PCloswimwear = 1 or $clothingworntype = 'nude':
  364. msg '<center><font color = red>You need to get dressed first</font></center>'
  365. gt 'mey_home', 'garden'
  366. else
  367. minut += 1
  368. gt 'mey_home', 'start'
  369. end
  370. end
  371. act 'Return to lounge':
  372. if PCloswimwear = 1 or $clothingworntype = 'nude':
  373. msg '<center><font color = red>You need to get dressed first</font></center>'
  374. gt 'mey_home', 'garden'
  375. else
  376. minut += 1
  377. gt 'mey_home', 'lounge'
  378. end
  379. end
  380. if PCloswimwear = 1 or $clothingworntype = 'nude':
  381. act 'Change back into your clothes':
  382. minut += 5
  383. gs 'clothing', 'wear', $lastwornclothingtype['swim'], lastwornclothingnumber['swim']
  384. gs 'panties', 'wear', $lastwornpantytype['swim'], lastwornpantynumber['swim']
  385. gs 'bras', 'wear', $lastwornbratype['swim'], lastwornbranumber['swim']
  386. gt 'mey_home', 'garden'
  387. end
  388. end
  389. if temper >= 15 and daystage < 5 and sunWeather = 1:
  390. if func('changingroom','count_swim_item') > 0 and PCloswimwear = 0:
  391. act 'Change into a bikini':gt 'changingroom', 'view_swim_list'
  392. act 'Strip off clothing':
  393. *clr & cla
  394. minut += 1
  395. gs 'clothing', 'strip_all'
  396. gs 'stat'
  397. '<center><video autoplay loop src="images/locations/pavlovsk/resident/meynolds/strippy.mp4"></video></center>'
  398. 'You strip out of your clothes and feel the warmth on your naked skin.'
  399. act 'Continue':gt 'mey_home', 'garden'
  400. end
  401. end
  402. if pcs_inhib > 30:
  403. act 'Sunbathe naked':
  404. *clr & cla
  405. minut += 60
  406. inhib_exp += rand(3,5)
  407. if pcs_sweat < 35: gs 'sweat', 'add', 5
  408. menu_off = 1
  409. pcs_mood += 5
  410. if PCloswimwear = 0 and $clothingworntype ! 'nude':
  411. $lastwornclothingtype['swim'] = $clothingworntype
  412. lastwornclothingnumber['swim'] = clothingwornnumber
  413. $lastwornpantytype['swim'] = $pantyworntype
  414. lastwornpantynumber['swim'] = pantywornnumber
  415. $lastwornbratype['swim'] = $braworntype
  416. lastwornbranumber['swim'] = brawornnumber
  417. gs 'clothing', 'strip_all'
  418. else
  419. gs 'clothing', 'strip_all'
  420. end
  421. gs 'stat'
  422. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sunbathe_naked<<rand(0,1)>>.jpg"></center>'
  423. if mc_inventory['suncream'] = 0:
  424. pcs_tan += 1
  425. 'You strip out of your clothes until you are naked, then lie down next to the pool to sunbathe.'
  426. elseif mc_inventory['suncream'] > 0:
  427. mc_inventory['suncream'] -= 1
  428. pcs_tan += 3
  429. 'You strip out of your clothes until you are naked, then put sunblock on your body and lie down next to the pool to sunbathe.'
  430. end
  431. act 'Get Up':gt 'mey_home', 'garden'
  432. end
  433. end
  434. if PCloswimwear = 1:
  435. act 'Sunbathe (1:00)':
  436. *clr & cla
  437. minut += 60
  438. inhib_exp += rand(1,3)
  439. if pcs_sweat < 35: gs 'sweat', 'add', 5
  440. menu_off = 1
  441. pcs_mood += 5
  442. gs 'stat'
  443. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sunbathe<<rand(0,1)>>.jpg"></center>'
  444. if mc_inventory['suncream'] = 0:
  445. pcs_tan += 1
  446. 'You lie down to sunbathe.'
  447. elseif mc_inventory['suncream'] > 0:
  448. mc_inventory['suncream'] -= 1
  449. pcs_tan += 3
  450. 'You put sunblock on your body and lie down next to the pool to sunbathe.'
  451. end
  452. act 'Get Up':gt 'mey_home', 'garden'
  453. end
  454. end
  455. end
  456. if PCloswimwear = 1 or $clothingworntype = 'nude':
  457. act 'Swim (1:00)':
  458. menu_off = 1
  459. pcs_makeup = 1
  460. cumspclnt = 10
  461. gs 'cum_cleanup'
  462. minut += 60
  463. pcs_mood += 50
  464. if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
  465. if pcs_stren < 40: gs 'exp_gain', 'stren', 1
  466. if pcs_vital < 40: gs 'exp_gain', 'vital', 1
  467. fat -= 1
  468. gs 'stat'
  469. *clr & cla
  470. if func('body_din','pregnancyVisibility') = 0:
  471. if $clothingworntype = 'nude':
  472. '<center><img <<$set_imgh>> src="images/pc/activities/swim/pool/swim_nude_<<rand(1,10)>>.jpg"></center>'
  473. inhib_exp += rand(2,4)
  474. else
  475. '<center><img <<$set_imgh>> src="images/pc/activities/swim/pool/swim_bikini_<<rand(1,6)>>.jpg"></center>'
  476. if pcs_inhib < 50: inhib_exp += rand(2,4)
  477. end
  478. else
  479. if $clothingworntype = 'nude':
  480. '<center><img <<$set_imgh>> src="images/pc/activities/swim/pool/swim_nude_preg_<<rand(1,2)>>.jpg"></center>'
  481. inhib_exp += rand(2,4)
  482. else
  483. '<center><img <<$set_imgh>> src="images/pc/activities/swim/pool/swim_bikini_preg_<<rand(1,4)>>.jpg"></center>'
  484. if pcs_inhib < 50: inhib_exp += rand(2,4)
  485. end
  486. end
  487. 'You swim in the pool. The water refreshes and invigorates you.'
  488. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  489. act 'Get out of the water':gt 'mey_home', 'garden'
  490. end
  491. end
  492. end
  493. if $ARGS[0] = 'mey_morning_vomit':
  494. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
  495. 'At that moment, a sharp knocking sounds on the door and Tamara''s muffled voice comes through the fine wood.'
  496. '"<<$pcs_nickname>>? Are you all right? I thought I heard you throwing up. Is everything okay?"'
  497. act'Everything is fine':
  498. cla & *nl
  499. '"Everything is fine!" you lie hurriedly and rush to flush the toilet, not wanting Tamara worrying about you. "Just, uhh, had a bad cramp."'
  500. '"Oh, dear! Well, I hope it''s gone now. Breakfast is on in a bit!"'
  501. '"Okay!" you holler back.'
  502. act'Continue':gt'home_activity','vomiting_exit'
  503. end
  504. if vomit['hangover'] = 1:
  505. act'Hungover':
  506. cla & *nl
  507. '"I''m a little hungover," you moan, gripping the toilet bowl as another wave of nausea overtakes you.'
  508. '"Oh, dear! There''s some pain medication in the cupboard if it would help you."'
  509. '"Thank you, Tamara..." you reply.'
  510. act'Continue':gt'home_activity','vomiting_exit'
  511. end
  512. else
  513. act'Feeling a little sick':
  514. cla & *nl
  515. '"I think I might''ve caught something," you moan, standing to flush the toilet.'
  516. '"Oh, dear! Should I take you to the doctor?"'
  517. '"No, thank you," you reply. "I think it''s just a stomach bug or something. I''ll be okay."'
  518. act'Continue':gt'home_activity','vomiting_exit'
  519. end
  520. end
  521. end
  522. if $ARGS[0] = 'mey_preg_scare':
  523. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
  524. 'At that moment, a sharp knocking sounds on the door, and you jump in place, shocked by the sudden intrusion. Tamara''s muffled voice comes through the fine wood.'
  525. '"<<$pcs_nickname>>? Are you all right? I thought I heard you throwing up. Is everything okay?"'
  526. act'Everything is fine!':
  527. cla & *nl
  528. '"Everything is fine!" you say in a hurry, rushing to flush the toilet and turn on the tap to wash your mouth. "I''m fine! Don''t worry, Tamara. Everything is fine!"'
  529. act'You hope':
  530. cla & *clr
  531. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
  532. '<i>I hope,</i> you gulp, desperately hoping this is a fluke and you''re not pregnant.'
  533. act'Continue':gt'home_activity','vomiting_exit'
  534. end
  535. act'This is really bad':
  536. cla & *clr
  537. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
  538. '<i>This is really, really bad!</i> You think, breaking out in a sweat.'
  539. *nl
  540. 'You''re pregnant! How could anything be fine!'
  541. act'Continue':gt'home_activity','vomiting_exit'
  542. end
  543. act'This is wonderful':
  544. cla & *clr
  545. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
  546. '<i>I''m much more than fine,</i> you smile to yourself.'
  547. *nl
  548. 'You''re pregnant, after all! So you''re going to be a mother! This is terrific news!'
  549. act'Continue':gt'home_activity','vomiting_exit'
  550. end
  551. end
  552. end
  553. --- mey_home ---------------------------------