1
0

mey_home 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474
  1. # mey_home
  2. if night_mode = 1:
  3. fcolor = rgb(255, 255, 255)
  4. bcolor = rgb(0, 0, 0)
  5. lcolor = rgb(106, 90, 205)
  6. else
  7. fcolor = rgb(0, 0, 0)
  8. bcolor = rgb(255, 255, 255)
  9. lcolor = rgb(106, 90, 205)
  10. end
  11. $location_type = 'indoors'
  12. !! corporate only at the end of the month on weekends, check
  13. if day <= 25 and mey_vika['mey_vika_qw'] > 40: mey_vika['mey_vika_qw'] = 40
  14. if $args[0] = 'door':
  15. $metkaM = 'door'
  16. $locM = 'mey_home'
  17. $metka = 'door'
  18. $loc = 'mey_home'
  19. cls
  20. gs'stat'
  21. '<center><h4><font color="maroon">Meynold''s house</font></h4></center>'
  22. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/mey_home.jpg"></center>'
  23. if mey_vika['key'] = 1:
  24. 'You opened the door with the key and entered the house.'
  25. act 'Enter': gt 'mey_home', 'start'
  26. exit
  27. end
  28. if hour < 20 and ((week < 6 and hour >= 17) or (week >= 6 and hour > 10)):
  29. if mey_vika['mey_vika_qw'] = 27: gt 'mey_tamara_events', 'next_meet'
  30. if mey_vika['mey_vika_qw'] > 27:
  31. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_tea1.jpg"></center>'
  32. 'You walk up to the Meynolds residence and ring the doorbell...'
  33. 'After a short wait, you hear the lock click and you see Katja''s mom Kathy and sister Vicky standing by the door: <br><do>Oh hi, <<$pcs_nickname>>, welcome! Come in, make yourself at home.</do>'
  34. act 'Enter': gt 'mey_home', 'start'
  35. exit
  36. else
  37. cla
  38. 'You walk up to the Meynolds residence and ring the doorbell...'
  39. 'Katja opens the door and quickly drags you to her room.'
  40. act 'Go to Katjas room':
  41. if frost > 0: frost = 0
  42. gt 'KatjaHomeTalk'
  43. end
  44. exit
  45. end
  46. else
  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 'Go back': minut += 10 & gt 'pavResidential'
  52. exit
  53. end
  54. end
  55. ! hall
  56. if $ARGS[0] = 'start':
  57. $metkaM = 'start'
  58. $locM = 'mey_home'
  59. $metka = 'start'
  60. $loc = 'mey_home'
  61. cls
  62. gs'stat'
  63. '<center><h4><font color="maroon">Hall</font></h4></center>'
  64. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/corridor.jpg"></center>'
  65. '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.'
  66. 'There are stairs leading to the second floor. You can also see two doors where the signs say "Toilet" and "Bathroom".'
  67. act '<b>Leave the house</b>': gt 'pavResidential'
  68. if mey_vika['mey_vika_qw'] = 30 and mey_vika['qw_day'] ! daystart and hour = 23: gs 'mey_vika_events', 'case_gift'
  69. if week mod 2 ! 0 and mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and hour = 16 and minut >= 30: gs 'mey_vika_events', 'gym0'
  70. if week mod 2 ! 0 and mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and hour = 17 and minut >= 30: gs 'mey_vika_events', 'gym1'
  71. if mey_vika['mey_vika_qw'] >= 32 and mey_vika['mey_vika_qw'] < 35 and mey_vika['qw_day'] ! daystart and hour >= 23: gs 'mey_vika_events', 'learning0'
  72. if mey_vika['mey_vika_qw'] >= 32:
  73. ! welcome to the corporate
  74. 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 pav_slut < 75:
  75. gt 'mey_tamara_events', 'party0'
  76. end
  77. ! check appearance before going to corporate
  78. if (hour = 17 or hour = 18) and mey_vika['mey_vika_qw'] = 41:
  79. '<br><a href="exec: gt''mey_tamara_events'',''check_look''">Tamara Mikhailovna.</a> is waiting for you in the lobby.'
  80. exit
  81. end
  82. ! need to fuck Katja!
  83. if KatjaSex >= 5 and mey_vika['mey_vika_qw'] > 35 and hour = 23 and mey_vika['mey_vika_bang_qw'] = 0:
  84. gs 'mey_vika_events', 'bang_katya'
  85. exit
  86. end
  87. ! Vic calls in the shower
  88. if mesec = 0 and pcs_vag > 0 and mey_vika['bath_qw'] = 1 and mey_vika['bath_qw_day'] ! daystart and rand(0,10) > 5 and ((week < 6 and hour >= 14) or (week = 6 and hour >= 8)):
  89. gs 'mey_vika_events', 'bath_qw1'
  90. exit
  91. end
  92. if ((week < 6 and hour >= 14 and hour < 20) or (week = 6 and hour >= 10 and hour < 20)) and mey_tamara['help_day'] ! daystart:
  93. act 'Clean the house':
  94. cla
  95. mey_tamara['help_day'] = daystart
  96. mey_tamara['help_count'] += 1
  97. minut += rand(50,70)
  98. pcs_sweat += 3
  99. pcs_mood -= 5
  100. gs 'stat'
  101. if mey_vika['bath_qw'] = 0 and mey_vika['bath_qw_day'] ! daystart:
  102. gs 'mey_vika_events', 'bath_qw0'
  103. else
  104. '<br>You take out a hefty vacuum cleaner from the closet, and it takes you about an hour to vacuum the house.'
  105. act 'Finish': gt 'mey_home', 'start'
  106. end
  107. end
  108. end
  109. end
  110. act 'Kitchen': gt 'mey_home', '1'
  111. act 'Bathroom': gt 'mey_home', '2'
  112. act 'Guest room': gt 'mey_home', '3'
  113. act 'Lounge': gt 'mey_home', '4'
  114. act 'Katja''s room': gt 'mey_home', '5'
  115. act 'Vicky''s room': gt 'mey_home', '6'
  116. act 'Tamara Mikhailovna''s room': gt 'mey_home', '7'
  117. act 'Garden': gt 'mey_home', '8'
  118. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  119. end
  120. ! kitchen
  121. if $ARGS[0] = '1':
  122. cls
  123. $loc = 'mey_home'
  124. $metka = '1'
  125. gs 'stat'
  126. '<center><h4><font color="maroon">Kitchen</font></h4></center>'
  127. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/kitchen.jpg"></center>'
  128. 'The kitchen is huge and luxurious. It is decorated in a minimalist high-tech style. An oval dining room table standing in the middle of the room. The appliances are all hidden. The kitchen is sparkling clean.'
  129. act 'Return to hallway': gt 'mey_home', 'start'
  130. 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:
  131. act 'Cook for the whole family':
  132. cla
  133. mey_tamara['help_day'] = daystart
  134. mey_tamara['help_count'] += 1
  135. minut += rand(50,70)
  136. gs 'stat'
  137. '<br>You take out the food from the refrigerator, and start cooking for the whole family. It takes you about an hour to finish.'
  138. act 'Finish': gt 'mey_home', '1'
  139. end
  140. end
  141. !copy acts from [gadhouse]
  142. act 'Eat a full meal (0:30)':gs 'food', 'm_meal'
  143. act 'Eat a light meal (0:20)':gs 'food', 's_meal'
  144. act 'Have a snack (0:05)':gs 'food', 'snack'
  145. act 'Have a cup of tea (0:05)':
  146. cls
  147. minut += 5
  148. cumspclnt = 2
  149. gs 'cum_cleanup'
  150. pcs_breath = 0
  151. pcs_mood += rand(1, 3)
  152. 'You make a refreshing cup of tea and everything seems a little better.'
  153. gs 'stat'
  154. act 'Get up from the table':gt 'mey_home', '1'
  155. end
  156. if pranik > 0:
  157. 'You brought your <<pranik>> cookies with you.'
  158. act 'Drink tea with cookies (0:05)':
  159. cla
  160. *clr
  161. minut += 5
  162. pranik -= 1
  163. pcs_health += 30
  164. pcs_mood += 30
  165. pcs_energy += 20
  166. cumspclnt = 2
  167. gs 'cum_cleanup'
  168. pcs_breath = 0
  169. fat += 4
  170. frost = 0
  171. gs 'stat'
  172. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  173. 'You enjoy a cup of tea while you eat some cookies. You know they''re too sweet and can''t be good for your figure, but they taste so good!'
  174. act 'Get up from the table':gt 'mey_home', '1'
  175. end
  176. end
  177. if edaD > 0:
  178. act 'Eat diet food (0:30)':
  179. cla
  180. *clr
  181. frost = 0
  182. minut += 30
  183. pcs_health += 10
  184. pcs_mood += 20
  185. edaD -= 1
  186. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  187. if pcs_energy >= 100:
  188. 'You prepare a diet meal and try to eat it, but you''re really not hungry at all. You can''t finish the meal.'
  189. elseif pcs_energy >= 80:
  190. pcs_energy += 40
  191. 'You try to enjoy the diet meal, but half-way in you realize you weren''t all that hungry yet. You manage to finish the meal, but feel like it was kind of a waste to prepare it.'
  192. else
  193. pcs_energy += 80
  194. 'The diet meal is tasty, and you enjoy eating it.'
  195. end
  196. act 'Get up from the table':gt 'mey_home', '1'
  197. end
  198. end
  199. dynamic $fatdel
  200. if lekarstvo > 0:
  201. 'You have <<lekarstvo>> tablet(s) left.'
  202. if sick > 0 and lekarday ! daystart:
  203. act 'Take a pill (0:05)':
  204. cla
  205. *clr
  206. minut += 5
  207. lekarday = daystart
  208. lekarstvo -= 1
  209. sick -= sick * 20 / 100
  210. if water < 50 : water += 30 else water +=15
  211. if water > 100: water = 100
  212. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/lekr<<picrand>>.jpg"></center>'
  213. 'You swallow the pill, and shortly after you feel a bit better.'
  214. act 'Continue':gt 'mey_home', '1'
  215. end
  216. end
  217. end
  218. if vitamin > 0:
  219. 'You have <<vitamin>> vitamin pills left.'
  220. if vitaminday ! daystart:
  221. act 'Take vitamins (0:05)':
  222. cla
  223. *clr
  224. minut += 5
  225. vitaminday = daystart
  226. vitamin -= 1
  227. frost = 0
  228. if KandidozOnce = 1:Kandidoz -= 2
  229. if GerpesOnce = 1:Gerpes -= 2
  230. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  231. pcs_skin += 1
  232. 'You take some vitamins to stay healthy.'
  233. act 'Continue':gt 'mey_home', '1'
  234. end
  235. end
  236. end
  237. gs 'events', 'read'
  238. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  239. end
  240. if $ARGS[0] = '2':
  241. !bathroom
  242. $locM = 'mey_home'
  243. $metkaM = '2'
  244. minut += 1
  245. cls
  246. gs'stat'
  247. $location_type = 'bathroom'
  248. '<center><b><font color = maroon>Bathroom</font></b></center>'
  249. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
  250. 'A luxurious bathroom looking like the five-star hotel bathrooms you read about in the magazines.'
  251. 'Above the beautiful vanity and sink there is a huge <a href="exec:GT ''mirror'',''start''">mirror</a>.'
  252. !acts copy from [shulgabath]
  253. act 'Return to the hallway': gt 'mey_home', 'start'
  254. gs 'din_van', 'private'
  255. end
  256. ! guestroom
  257. if $ARGS[0] = '3':
  258. cls
  259. $loc = 'mey_home'
  260. $metka = '3'
  261. minut += 1
  262. gs 'stat'
  263. '<center><h4><font color="maroon">Guest room</font></h4></center>'
  264. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/guestroom.jpg"></center>'
  265. 'It feels and looks like a standard room in a hotel. There is a bed, a small wardrobe, a desk, bedsides the table hangs a mirror on the wall.'
  266. 'A <a href="exec:gt ''mirror'', ''start''">mirror</a> hangs on the wall near the front door, besides that are the <a href="exec:gt ''cloakroom'', ''view_coat_list''">coat hooks</a>.'
  267. if komp = 1:'Your <a href="exec:GT ''Komp'',''start''">laptop</a> is on the desk.'
  268. act 'Exit to hallway':
  269. if ($clothingworntype = 'nude' or $clothingworntype = 'swimwear'):
  270. *clr
  271. '<center><img <<$set_imgh>> src="'+'images/pc/clothing/'+iif(tanga=0,'0','tanga')+'.jpg'+'"></center>'
  272. '<center><font color=red><b>You can''t go out dressed like this!</b></font></center>'
  273. exit
  274. end
  275. gt 'mey_home', 'start'
  276. end
  277. act 'Sleep': gs 'bed', 'start'
  278. act 'Wardrobe': gt 'clothing', 'view_clothing_list', 'wardrobe'
  279. gs 'exercise', 'start'
  280. if pcs_horny >= 50: act 'Masturbate':gt 'selfplay', 'start'
  281. if pornMagazine > 0:
  282. 'You hide your porn magazines under the mattress of your bed.'
  283. gs 'events', 'read_porn'
  284. end
  285. gs 'events', 'read'
  286. if dur > 0 and narkday ! daystart:
  287. act 'Snort the White Lady (0:05)':
  288. cla
  289. *clr
  290. minut += 5
  291. narkday = daystart
  292. pcs_health = pcs_vital * 10 + pcs_stren * 5
  293. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  294. pcs_mood = 100
  295. pcs_horny = 100
  296. nark += 10
  297. dur -= 1
  298. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  299. 'You snort some White Lady, feeling dizzy for a moment. After that you feel fantastic, and incredibly horny.'
  300. act 'Continue':gt 'mey_home', 3
  301. end
  302. end
  303. if tanga = 0:
  304. act 'Wear underwear':
  305. cla
  306. tanga = 1
  307. gt 'mey_home', 3
  308. end
  309. elseif tanga = 1:
  310. act 'Take off your underwear':
  311. cla
  312. tanga = 0
  313. gt 'mey_home', 3
  314. end
  315. end
  316. act 'Wait':
  317. cla
  318. waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
  319. if waiting <= 0 or waiting > 120:
  320. minut += 15
  321. elseif waiting > 0 and waiting <= 120:
  322. minut += waiting
  323. end
  324. act 'Take a look at the clock':gt 'mey_home', 3
  325. end
  326. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  327. end
  328. if $ARGS[0] = '4':
  329. cls
  330. $loc = 'mey_home'
  331. $metka = '4'
  332. minut += 1
  333. gs 'stat'
  334. '<center><h4><font color="maroon">Lounge</font></h4></center>'
  335. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/hall.jpg"></center>'
  336. 'Spacious room with a sofa and armchairs, on the wall hangs a large plasma TV, 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'
  337. act 'Return to hallway': gt 'mey_home', 'start'
  338. act 'Garden': gt 'mey_home', '8'
  339. end
  340. if $ARGS[0] = '5':
  341. !add room katja
  342. cls
  343. $loc = 'mey_home'
  344. $metka = '5'
  345. minut += 1
  346. gs 'stat'
  347. '<center><h4><font color="maroon">Katja''s room</font></h4></center>'
  348. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/katya_room.jpg"></center>'
  349. 'Katja''s room feels like someone is living there temporarily and will soon move out. The stuff in the room are in the perfect order, depicting the feeling off a "non-residential premise".'
  350. 'There are numerous flowers in the pots on the windowsill, there are pots hanging on the walls and there are even plants in pots on the floor giving the room a greenhouse feeling.'
  351. 'There is a computer desk in one of the corners, opposite of 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 wildly overgrown plants.'
  352. if katjaFirstKiss >= 1:
  353. if hour >= 17 and week < 6 and kanikuli = 0 and hour < 20 or hour >= 9 and week >= 6 and kanikuli = 0 and hour < 20 or hour >= 9 and kanikuli > 0 and hour < 20:
  354. act 'Chat with Katja': gt'KatjaHomeTalk'
  355. end
  356. else
  357. '<font color=red>Your relationship with Katja is not good enough to just barge into her room, better leave as soon as possible.</font>'
  358. end
  359. act '<b>Leave</b>': gt 'mey_home', 'start'
  360. end
  361. if $ARGS[0] = '6':
  362. cls
  363. $loc = 'mey_home'
  364. $metka = '6'
  365. minut += 1
  366. gs 'stat'
  367. '<center><h4><font color="maroon">Vicky''s room</font></h4></center>'
  368. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/vika_room.jpg"></center>'
  369. 'Vicky''s room is always in a mess. It''s clean, but everything is scattered all over the place. There are soft toys laying around in enormous quantities, and all the walls are plastered with posters of pop stars and film actors.'
  370. '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 rooms centerpiece is the ginormous bed, next to it is a wardrobe. There''s a lone chair somewhere in the corner hidden under all the stuff.'
  371. act 'Return to hallway': gt 'mey_home', 'start'
  372. end
  373. if $ARGS[0] = '7':
  374. cls
  375. $loc = 'mey_home'
  376. $metka = '7'
  377. minut += 1
  378. gs 'stat'
  379. '<center><h4><font color="maroon">Tamara''s room</font></h4></center>'
  380. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_room.jpg"></center>'
  381. 'You would say Tamara Mikhailovna''s room resembles an office, if it was not for the bed in the corner. There''s a computer on a desk, a wardrobe, and a big but a pretty modest bed. The room is quite small and cramped. There are no decorations but one, a sword hanging on the wall. It''s unclear what it''s doing there.'
  382. act 'Return to hallway': gt 'mey_home', 'start'
  383. end
  384. ! courtyard
  385. if $ARGS[0] = '8':
  386. cls
  387. $loc = 'mey_home'
  388. $metka = '8'
  389. minut += 1
  390. gs 'stat'
  391. '<center><h4><font color="maroon">Garden</font></h4></center>'
  392. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/courtyard.jpg"></center>'
  393. 'The garden is quite small for the house and overgrown, most of the space is taken up by a small pool.'
  394. 'A car belonging to Tamara Mikhailovna is parked on the drive next to the garden.'
  395. if hour = 7 and minut >= 30 and week < 6:
  396. '<a href="exec:gs''mey_tamara_events'',''tamara''">Aunt Tamara</a> is here talking on her phone.'
  397. end
  398. act 'Return to hallway': gt 'mey_home', 'start'
  399. end
  400. --- mey_home ---------------------------------