mey_home.qsrc 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381
  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. $metka = 'door'
  9. $loc = 'mey_home'
  10. $menu_loc = 'mey_home'
  11. $menu_arg = 'door'
  12. menu_off = 0
  13. cls
  14. gs'stat'
  15. '<center><h4><font color="maroon">Meynold''s house</font></h4></center>'
  16. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/mey_home.jpg"></center>'
  17. *nl
  18. if mey_vika['key'] = 1:
  19. 'You open the door with your key and enter the house.'
  20. act 'Enter': gt 'mey_home', 'start'
  21. elseif hour < 20 and ((week < 6 and hour >= 15) or (week >= 6 and hour > 10)):
  22. if mey_vika['mey_vika_qw'] = 27: gt 'mey_tamara_events', 'next_meet'
  23. if mey_vika['mey_vika_qw'] > 27:
  24. *clr
  25. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_tea1.jpg"></center>'
  26. *nl
  27. 'You walk up to the Meynolds residence and ring the doorbell...'
  28. 'After a short wait, you hear the lock click and you see Katja''s mother Kathy and sister Vicky standing by the door: <br><do>Oh hi, <<$pcs_nickname>>, welcome! Come in, make yourself at home.</do>'
  29. act 'Enter': gt 'mey_home', 'start'
  30. else
  31. cla
  32. 'You walk up to the Meynolds residence and ring the doorbell...'
  33. 'Katja opens the door and quickly drags you to her room.'
  34. act 'Go to Katjas room':
  35. if frost > 0: frost = 0
  36. gt 'KatjaHomeTalk'
  37. end
  38. end
  39. else
  40. *clr
  41. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_tea0.jpg"></center>'
  42. 'You walk up to the Meynolds residence and ring the doorbell...'
  43. 'No one opens the door, it looks like nobody''s home or they are all asleep.'
  44. 'Maybe you should try again at a more sociable time?'
  45. act 'Leave': minut += 5 & gt 'pavResidential'
  46. end
  47. end
  48. ! hall
  49. if $ARGS[0] = 'start':
  50. $metka = 'start'
  51. $loc = 'mey_home'
  52. $menu_loc = 'mey_home'
  53. $menu_arg = 'start'
  54. menu_off = 0
  55. killvar '$locclass'
  56. cls
  57. gs'stat'
  58. '<center><h4><font color="maroon">Hall</font></h4></center>'
  59. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/corridor.jpg"></center>'
  60. *nl
  61. '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.'
  62. 'There are stairs leading to the second floor. You can also see two doors where the signs say "Toilet" and "Bathroom".'
  63. act 'Leave the house':minut += 5 & gt 'pavResidential'
  64. if mey_vika['mey_vika_qw'] = 30 and mey_vika['qw_day'] ! daystart and hour = 23: gs 'mey_vika_events', 'case_gift'
  65. 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'
  66. 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'
  67. 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'
  68. if mey_vika['mey_vika_qw'] >= 32:
  69. ! welcome to the corporate
  70. 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:
  71. gt 'mey_tamara_events', 'party0'
  72. end
  73. ! check appearance before going to corporate
  74. if week = 7 and (hour = 17 or hour = 18) and mey_vika['mey_vika_qw'] = 41:
  75. '<br><a href="exec: gt''mey_tamara_events'',''check_look''">Tamara Mikhailovna.</a> is waiting for you in the lobby.'
  76. exit
  77. end
  78. ! need to fuck Katja!
  79. if KatjaSex >= 5 and mey_vika['mey_vika_qw'] > 35 and hour = 23 and mey_vika['mey_vika_bang_qw'] = 0:
  80. gs 'mey_vika_events', 'bang_katya'
  81. exit
  82. end
  83. ! Vic calls in the shower
  84. 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)):
  85. gs 'mey_vika_events', 'bath_qw1'
  86. exit
  87. end
  88. if ((week < 6 and hour >= 14 and hour < 20) or (week = 6 and hour >= 10 and hour < 20)) and mey_tamara['help_day'] ! daystart:
  89. act 'Clean the house':
  90. menu_off = 1
  91. cla
  92. mey_tamara['help_day'] = daystart
  93. mey_tamara['help_count'] += 1
  94. minut += rand(50,70)
  95. gs 'sweat', 'add', 3
  96. pcs_mood -= 5
  97. gs 'stat'
  98. if mey_vika['bath_qw'] = 0 and mey_vika['bath_qw_day'] ! daystart:
  99. gs 'mey_vika_events', 'bath_qw0'
  100. else
  101. '<br>You take out a hefty vacuum cleaner from the closet, and it takes you about an hour to vacuum the house.'
  102. act 'Finish': gt 'mey_home', 'start'
  103. end
  104. end
  105. end
  106. end
  107. act 'Kitchen': gt 'mey_home', '1'
  108. act 'Bathroom': gt 'mey_home', '2'
  109. act 'Guest room': gt 'mey_home', '3'
  110. act 'Lounge': gt 'mey_home', '4'
  111. act 'Katja''s room': gt 'mey_home', '5'
  112. act 'Vicky''s room': gt 'mey_home', '6'
  113. act 'Tamara Mikhailovna''s room': gt 'mey_home', '7'
  114. act 'Garden': gt 'mey_home', '8'
  115. !!if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  116. end
  117. ! kitchen
  118. if $ARGS[0] = '1':
  119. *clr & cla
  120. $loc = 'mey_home'
  121. $metka = '1'
  122. $locclass = 'kitr'
  123. $menu_loc = 'mey_home'
  124. $menu_arg = '1'
  125. menu_off = 0
  126. gs 'kit_din'
  127. gs 'stat'
  128. '<center><h4><font color="maroon">Kitchen</font></h4></center>'
  129. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/kitchen.jpg"></center>'
  130. *nl
  131. '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.'
  132. act 'Return to hallway': gt 'mey_home', 'start'
  133. 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:
  134. act 'Cook for the whole family':
  135. menu_off = 1
  136. cla
  137. mey_tamara['help_day'] = daystart
  138. mey_tamara['help_count'] += 1
  139. minut += rand(50,70)
  140. gs 'stat'
  141. '<br>You take out the food from the refrigerator, and start cooking for the whole family. It takes you about an hour to finish.'
  142. act 'Finish': gt 'mey_home', '1'
  143. end
  144. end
  145. act 'Eat a full meal (0:30)':gs 'food', 'm_meal'
  146. act 'Eat a light meal (0:25)':gs 'food', 's_meal'
  147. act 'Have a snack (0:15)':gs 'food', 'snack'
  148. dynamic $driwater
  149. dynamic $dritea
  150. dynamic $fill_bottle
  151. dynamic $edaD
  152. dynamic $pranik
  153. dynamic $fatdel
  154. dynamic $fatdel
  155. dynamic $lekarstvo
  156. dynamic $vitamin
  157. gs 'events', 'read'
  158. !!if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  159. end
  160. if $ARGS[0] = '2':
  161. !bathroom
  162. $locM = 'mey_home'
  163. $metkaM = '2'
  164. $metka = '2'
  165. $menu_loc = 'mey_home'
  166. $menu_arg = '2'
  167. menu_off = 0
  168. minut += 1
  169. cls
  170. gs'stat'
  171. $location_type = 'bathroom'
  172. '<center><b><font color = maroon>Bathroom</font></b></center>'
  173. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
  174. *nl
  175. 'A luxurious bathroom looking like the five-star hotel bathrooms you read about in the magazines.'
  176. 'Above the beautiful vanity and sink there is a huge <a href="exec:gt ''mirror'',''start''">mirror</a>.'
  177. !acts copy from [shulgabath]
  178. act 'Return to the hallway': gt 'mey_home', 'start'
  179. gs 'din_van', 'private'
  180. end
  181. ! guestroom
  182. if $ARGS[0] = '3':
  183. cls
  184. $locM = 'mey_home'
  185. $metkaM = '3'
  186. $loc = 'mey_home'
  187. $metka = '3'
  188. $menu_loc = 'mey_home'
  189. $menu_arg = '3'
  190. menu_off = 0
  191. minut += 1
  192. gs 'stat'
  193. '<center><h4><font color="maroon">Guest room</font></h4></center>'
  194. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/guestroom.jpg"></center>'
  195. *nl
  196. 'It feels and looks like a standard room in a hotel.'
  197. '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 desk.'
  198. *nl
  199. 'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to <b>'+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+'</b> during the week and <b>'+iif(timerEnd < 10,'0<<timerEnd>>','<<timerEnd>>')+':'+iif(timerEndM < 10,'0<<timerEndM>>','<<timerEndM>>')+'</b> during the weekend. It is currently turned '+iif(budilnikOn = 0, '<a href="exec: budilnikOn = 1 & gt $loc, $metka">OFF</a>.', '<a href="exec: budilnikOn = 0 & gt $loc, $metka">ON</a>.')
  200. *nl
  201. 'A <a href="exec:gt ''mirror'', ''start''">mirror</a> hangs on the wall near the front door.'
  202. if komp = 1:'Your <a href="exec:gt ''Komp'',''start''">laptop</a> is on the desk.'
  203. *nl
  204. 'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  205. act 'Return to the hallway':
  206. if ($clothingworntype = 'nude' or $clothingworntype = 'swimwear'):
  207. *clr
  208. '<center><img <<$set_imgh>> src="'+'images/pc/clothing/'+iif($pantyworntype = 'none','0','tanga')+'.jpg'+'"></center>'
  209. *nl
  210. '<center><font color=red><b>You can''t go out dressed like this!</b></font></center>'
  211. exit
  212. end
  213. gt 'mey_home', 'start'
  214. end
  215. gs 'exercise', 'start'
  216. if pcs_horny >= 50: act 'Masturbate':gt 'selfplay', 'start'
  217. if pornMagazine > 0:
  218. 'You hide your porn magazines under the mattress of your bed.'
  219. gs 'events', 'read_porn'
  220. end
  221. gs 'events', 'read'
  222. if dur > 0 and narkday ! daystart:
  223. act 'Snort the White Lady (0:05)':
  224. menu_off = 1
  225. cla
  226. *clr
  227. minut += 5
  228. narkday = daystart
  229. gs 'drugs', 'cocaine'
  230. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  231. *nl
  232. 'You snort some White Lady, feeling dizzy for a moment. After that you feel fantastic, and incredibly horny.'
  233. act 'Continue':gt 'mey_home', '3'
  234. end
  235. end
  236. act 'Relax on your bed': gt 'bed', 'start'
  237. act 'Wait':gs 'obj_din', 'wait'
  238. !!if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  239. end
  240. if $ARGS[0] = '4':
  241. cls
  242. $loc = 'mey_home'
  243. $metka = '4'
  244. $menu_loc = 'mey_home'
  245. $menu_arg = '4'
  246. menu_off = 0
  247. minut += 1
  248. gs 'stat'
  249. '<center><h4><font color="maroon">Lounge</font></h4></center>'
  250. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/hall.jpg"></center>'
  251. *nl
  252. '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'
  253. act 'Return to hallway': gt 'mey_home', 'start'
  254. act 'Garden': gt 'mey_home', '8'
  255. end
  256. if $ARGS[0] = '5':
  257. !add room katja
  258. cls
  259. $loc = 'mey_home'
  260. $metka = '5'
  261. $menu_loc = 'mey_home'
  262. $menu_arg = '5'
  263. menu_off = 0
  264. minut += 1
  265. $locclass = 'livingr'
  266. gs 'stat'
  267. '<center><h4><font color="maroon">Katja''s room</font></h4></center>'
  268. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/katya_room.jpg"></center>'
  269. *nl
  270. '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".'
  271. '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.'
  272. '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.'
  273. if katjaFirstKiss >= 1:
  274. if (hour >= 15 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):
  275. act 'Chat with Katja': gt'KatjaHomeTalk'
  276. end
  277. else
  278. '<font color=red>Your relationship with Katja is not good enough to just barge into her room, better leave as soon as possible.</font>'
  279. end
  280. act 'Return to the hallway': gt 'mey_home', 'start'
  281. end
  282. if $ARGS[0] = '6':
  283. cls
  284. $loc = 'mey_home'
  285. $metka = '6'
  286. $menu_loc = 'mey_home'
  287. $menu_arg = '6'
  288. menu_off = 0
  289. minut += 1
  290. gs 'stat'
  291. '<center><h4><font color="maroon">Vicky''s room</font></h4></center>'
  292. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/vika_room.jpg"></center>'
  293. *nl
  294. '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.'
  295. '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.'
  296. act 'Return to hallway': gt 'mey_home', 'start'
  297. end
  298. if $ARGS[0] = '7':
  299. cls
  300. $loc = 'mey_home'
  301. $metka = '7'
  302. $menu_loc = 'mey_home'
  303. $menu_arg = '7'
  304. menu_off = 0
  305. minut += 1
  306. gs 'stat'
  307. '<center><h4><font color="maroon">Tamara''s room</font></h4></center>'
  308. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_room.jpg"></center>'
  309. *nl
  310. '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.'
  311. act 'Return to hallway': gt 'mey_home', 'start'
  312. end
  313. ! courtyard
  314. if $ARGS[0] = '8':
  315. cls
  316. $loc = 'mey_home'
  317. $metka = '8'
  318. $menu_loc = 'mey_home'
  319. $menu_arg = '8'
  320. menu_off = 0
  321. minut += 1
  322. gs 'stat'
  323. '<center><h4><font color="maroon">Garden</font></h4></center>'
  324. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/courtyard.jpg"></center>'
  325. *nl
  326. 'The garden is quite small for the house and overgrown, most of the space is taken up by a small pool.'
  327. 'A car belonging to Tamara Mikhailovna is parked on the drive next to the garden.'
  328. if hour = 7 and minut >= 30 and week < 6:
  329. '<a href="exec:gs''mey_tamara_events'',''tamara''">Aunt Tamara</a> is here talking on her phone.'
  330. end
  331. act 'Return to hallway': gt 'mey_home', 'start'
  332. end
  333. --- mey_home ---------------------------------