bedrPar.qsrc 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493
  1. # bedrPar
  2. CLOSE ALL
  3. *clr & cla
  4. $loc = 'bedrPar'
  5. $loc_arg = ''
  6. $location_type = 'private'
  7. $locclass = 'bedr'
  8. $menu_loc = 'bedrPar'
  9. $menu_arg = ''
  10. menu_off = 0
  11. minut += 1
  12. gs 'stat'
  13. gs 'themes', 'indoors'
  14. gs 'family_schedule'
  15. if momloc = 26:
  16. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost1.jpg"></center>'
  17. if prezik > 0 and rand(1,3) = 1:
  18. gt 'mother', 'condom_find'
  19. elseif dildo > 0 and motherQW['seen_dildos'] ! 1 and rand(1,3) = 1:
  20. gt 'mother', 'dildo_find'
  21. elseif analplug = 1 and analplugin = 0 and motherQW['seen_plug'] ! 1 and rand(1,3) = 1:
  22. gt 'mother', 'plug_find'
  23. else
  24. 'As you walk into your bedroom you find your <<$npc_nickname[''A29'']>> cleaning the room. Sweeping, folding clothes and putting them away, dusting, making the beds and just generally cleaning everything.'
  25. act 'Leave': gt $loc, $loc_arg
  26. end
  27. end
  28. if ParrotQW['Level'] = 2:
  29. *clr & cla
  30. menu_off = 1
  31. 'As soon as you enter the room you rush over to <<$ParrotQW[''Name'']>>''s cage and pour the contents of the vial in to his water bowl.'
  32. 'You really hope this will work and keep him from spilling yours and your sister''s bedroom secrets.'
  33. ParrotQW['Level'] = 3
  34. ParrotQW['Day'] = 3
  35. act 'Continue':gt $loc, $loc_arg
  36. exit
  37. end
  38. if ParrotQW['SisterReleaseParrotDay'] + 3 < daystart and ParrotQW['Level'] = 1:
  39. *clr & cla
  40. menu_off = 1
  41. 'When you enter the room you notice <<$ParrotQW[''Name'']>>''s cage is open and he is gone.'
  42. 'You sister must have released him since you were not able to find a solution in time.'
  43. ParrotQW['Owned2'] = 0
  44. ParrotQW['Level'] = 0
  45. ParrotQW['Day'] = 2
  46. ParrotQW['Failed'] = 0
  47. act 'Continue':gt $loc, $loc_arg
  48. exit
  49. end
  50. if pcs_magik >= 6 and spellbefshild = 1 and tobiQW = 0 and sisterHere < 2:gt 'tobiQW', 'start'
  51. if anyaloc = 25: gt 'sisterQW', 'sisboyQW_expel'
  52. if sisterHere = 2 and ParrotQW['Owned2'] = 1 and ParrotQW['SisKeepParrot'] = 0:
  53. *clr & cla
  54. menu_off = 1
  55. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister2.jpg"></center>'
  56. '"What is that?" your sister asks while pointing at <<$ParrotQW[''Name2'']>> in his cage'
  57. '"I went to the shopping center and bought this bird. Isn''t he the cutest ?"'
  58. if npc_rel['A33'] > 50:
  59. '"Not really, but I can see this is something you really want. As long as he doesn''t make too much noise, I don''t really care"'
  60. ParrotQW['SisKeepParrot'] = 1
  61. end
  62. if npc_rel['A33'] <= 50:
  63. '"No he isn''t cute, and I suggest you take it out of here, I am not sharing my room with a bird."'
  64. 'You feel kind of sad but you understand your sister. You should have asked her before buying it.'
  65. 'You go to the window, open it and release the bird'
  66. ParrotQW['Owned2'] = 0
  67. end
  68. act 'Leave':gt $loc, $loc_arg
  69. exit
  70. end
  71. '<center><h1><font color="maroon">Your bedroom</font></h1></center>'
  72. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  73. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/bedrpar.jpg"></center>'
  74. *nl
  75. 'This is the small bedroom you share with your sister, Anya. On one side of the room is a <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> where you can choose outfits and organise your clothing.'
  76. *nl
  77. 'Your <a href="exec:gt ''bed'', ''start''">bed</a> stands opposite the wardrobe, and your <a href="exec:gt ''stol'' ,''stolPar''">desk</a> is next to it'+iif(strapon = 1, '. You keep your strapon inside it.', '')+'. Your sister''s bed is in the other corner.'
  78. *nl
  79. 'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  80. *nl
  81. if ParrotQW['Owned2'] = 1:
  82. '<a href="exec:gt ''popu'',''start2''"><<$ParrotQW[''Name2'']>></a> is sitting in his cage'
  83. if daystart - ParrotQW['BuyDate'] <= 10: '<<$ParrotQW[''Name2'']>> starts squawking at you when you enter the room.'
  84. if daystart - ParrotQW['BuyDate'] > 10 and daystart - ParrotQW['BuyDate'] <= 20: 'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. It sounds almost like he is saying "<b>hello <<$pcs_nickname>></b>"'
  85. if daystart - ParrotQW['BuyDate'] > 20 and daystart - ParrotQW['BuyDate'] <= 30: 'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is clearly saying "<b>hello <<$pcs_nickname>></b>"'
  86. if daystart - ParrotQW['BuyDate'] > 30 and daystart - ParrotQW['BuyDate'] <= 35: 'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b><<$pcs_nickname>> very pretty</b>"'
  87. if daystart - ParrotQW['BuyDate'] > 35 and daystart - ParrotQW['BuyDate'] <= 40: 'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b><<$pcs_nickname>> great body</b>"'
  88. if daystart - ParrotQW['BuyDate'] > 40 and daystart - ParrotQW['BuyDate'] <= 50: 'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b><<$npc_firstname[''A33'']>> you''re the best</b>"'
  89. if daystart - ParrotQW['BuyDate'] > 50 and daystart - ParrotQW['BuyDate'] <= 55: 'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>Yeah <<$npc_firstname[''A33'']>> swallow it all</b>"'
  90. if daystart - ParrotQW['BuyDate'] > 55 and ParrotQW['Level'] < 3: 'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>Yeah <<$npc_firstname[''A33'']>> your pussy tastes great</b>"'
  91. if ParrotQW['Level'] = 3:
  92. parfixrand = rand(0,9)
  93. if parfixrand = 0:'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>What Did You Say To Me?</b>"'
  94. if parfixrand = 1:'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>3.1415926535897932384 ....</b>"'
  95. if parfixrand = 2:'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>Come Closer, My Friend</b>"'
  96. if parfixrand = 3:'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>Here Kitty, Kitty!</b>"'
  97. if parfixrand = 4:'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>I Just Met You and This is Crazy</b>"'
  98. if parfixrand = 5:'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>Bow Before Me!</b>"'
  99. if parfixrand = 6:'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>He’s Just a Friend, Honest!</b>"'
  100. if parfixrand = 7:'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>What Did You Do To My Socks?</b>"'
  101. if parfixrand = 8:'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>That’s What She Said!</b>"'
  102. if parfixrand = 9:'When <<$ParrotQW[''Name2'']>> sees you he starts ''speaking''. He is saying "<b>Help! They’ve Turned Me Into a Parrot!</b>"'
  103. killvar 'parfixrand'
  104. end
  105. *nl
  106. end
  107. '<table><tr><td valign="top">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">OFF</a>.', '<a href="exec: budilnikOn = 0 & gt $loc">ON</a>.')
  108. if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
  109. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers, as are your <a href="exec:gt ''stol'', ''bc''">condoms</a>.'
  110. elseif tabletki > 0:
  111. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers.'
  112. elseif prezik + prezikcount + preziksabo > 0:
  113. 'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are hidden in one of your desk drawers.'
  114. end
  115. if sewing_kit = 1:
  116. 'Your <a href="exec:gt ''sewing'',''start''">sewing kit</a> is stored neatly under your bed.'
  117. *nl
  118. 'You have <<tkan>> pieces of sewing fabric left.'
  119. end
  120. if komp = 1:'Your <a href="exec: gt ''Komp'',''start''">laptop</a> is on your desk.'
  121. gad = 0
  122. if npc_QW['A33'] > 10:npc_QW['A33'] = 10
  123. !!Default is Anya not being here or being asleep, can be overwritten in next block
  124. sisterHere = 0
  125. if sister_indorf = 0:
  126. if sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  127. *clr & cla
  128. menu_off = 1
  129. minut += 5
  130. gs 'stat'
  131. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_6_<<rand(1,7)>>.jpg"></center>'
  132. 'Drunk and disheveled, Anya bursts into the room.'
  133. 'You notice that her hair, and all her clothes are smeared in sticky sperm.'
  134. 'In this state, she falls on the bed and instantly falls asleep.'
  135. sisboyparty = 1
  136. act 'Move away': gt $loc
  137. else
  138. sisterdialog = 1
  139. if anyaloc = 1:
  140. 'Your sister <a href="exec:gt ''sistersleep'', ''sister_sleep''">Anya</a> is asleep in her bed.'
  141. elseif anyaloc = 4:
  142. sisterdialog = 3
  143. sisterHere = 1
  144. 'Your sister <a href="exec:gt ''sister_chat'', ''sister_chat''">Anya</a> is getting ready to go out.'
  145. elseif anyaloc = 15:
  146. sisterHere = 1
  147. 'Your sister <a href="exec:gt ''sister_chat'', ''sister_chat''">Anya</a> is sitting on her bed, reading a book.'
  148. elseif anyaloc = 26:
  149. if sisboypartyQW = 1: sisboypartyQW = 2
  150. if sisboyparty = -1: sisboyparty = 1
  151. 'Your drunken sister Anya is sound asleep in her bed.'
  152. end
  153. end
  154. end
  155. act 'Exit the room':
  156. if (anyaloc = 4 or anyaloc = 15) and daystart - ParrotQW['BuyDate'] > 55 and ParrotQW['Owned2'] = 1 and ParrotQW['SisterReleaseParrotDay'] = 0 : gt 'sister_chat', 'pargone'
  157. gt'korrPar'
  158. end
  159. if student > 0 and kursovik < 100:
  160. act 'Do coursework (1:00)':
  161. *clr & cla
  162. menu_off = 1
  163. minut += 60
  164. kursovik += rand(pcs_intel / 20, pcs_intel / 10)
  165. if kursovik > 100:kursovik = 100
  166. pcs_mood -= 10
  167. '<center><img <<$set_imgh>> src="images/pc/activities/study.jpg"></center>'
  168. 'You sit down at the desk and do your coursework. You''ve finished <<kursovik>> percent of it.'
  169. act 'Leave your desk':gt $curloc
  170. end
  171. end
  172. if pornMagazine > 0:'You have hidden your porn magazines under the mattress of your bed.'
  173. !!Masturbation, allowed after sister threesome (when sis_watch is used for a message) or sister not here.
  174. sis_watch = 0
  175. if sisterHere = 0 or sisboytrio > 0:
  176. if pornMagazine > 0:gs 'events', 'read_porn'
  177. if rexCarCount >= 9 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
  178. act 'Send Rex a SMS message': gt 'reks','sms'
  179. end
  180. if pcs_horny >= 50:
  181. act 'Masturbate':gt 'selfplay', 'start'
  182. end
  183. if vcard > 0: act 'View your vintage porn cards':card_deck = 0 & gt 'card'
  184. if card > 0: act 'View your new porn cards':card_deck = 1 & gt 'card'
  185. end
  186. gs 'events', 'read'
  187. if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry is 30.'
  188. if sisterHere = 0: dynamic $palelady
  189. gs 'exercise', 'start'
  190. if gobelen>0:'You have <<gobelen>> completed tapestries.'
  191. if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
  192. if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
  193. if pcs_sewng >= 80:
  194. if newgobelen = 0 and tkan > 0:
  195. act'Start a new tapestry':
  196. *clr & cla
  197. menu_off = 1
  198. tkan -= 1
  199. newgobelen = 1
  200. minut += 15
  201. gs'stat'
  202. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  203. act'Set the tapestry aside':gt $curloc
  204. end
  205. end
  206. if newgobelen>=1:
  207. 'Your tapestry is <<newgobelen/10>> percent finished.'
  208. act'Work on the tapestry for an hour':
  209. *clr & cla
  210. menu_off = 1
  211. minut+=60
  212. sewng_exp += rand(pcs_intel/10, pcs_intel/5)
  213. gobramax = (pcs_sewng - 70) * 6
  214. gobramin = (pcs_sewng - 70) * 2
  215. newgobelen += rand(gobramin,gobramax)
  216. gs'stat'
  217. if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  218. if newgobelen >= 1000:
  219. newgobelen = 0
  220. gobelen += 1
  221. 'Your work on the tapestry is done.'
  222. end
  223. act'Set the tapestry aside':gt $curloc
  224. end
  225. end
  226. end
  227. if ml_guitar['carried'] = 1:
  228. act 'Place the guitar next to your desk':
  229. ml_guitar['carried'] = 0
  230. gt 'bedrPar', 'start'
  231. end
  232. elseif ml_guitar['hasguitar'] and ml_guitar['carried'] = 0:
  233. act 'Pick up the guitar':
  234. ml_guitar['carried'] = 1
  235. gt 'bedrPar', 'start'
  236. end
  237. end
  238. if ml_online['account'] = 0 and internet > 0:
  239. act 'Set up an online music account (0:30)': gt 'music_onlinemusic', 'setupAccount'
  240. end
  241. !!Uploading recorded music if there are any not uploaded yet
  242. if ml_uploadablemusic > 0 and internet > 0 and ml_online['account'] = 1:
  243. if pcs_inhib < 30:
  244. if pcs_inhib < 10:
  245. $diff = 'hard'
  246. elseif pcs_inhib < 20:
  247. $diff = 'medium'
  248. else
  249. $diff = 'easy'
  250. end
  251. gs 'willpower', 'skill', 'self', $diff
  252. will_cost = (will_cost * 2) - (pcs_perform)
  253. if will_cost <= pcs_willpwr:
  254. act 'Upload music (<<will_cost>> Willpower)': gt 'music_onlinemusic', 'uploadmusic'
  255. else
  256. act 'Upload music (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  257. end
  258. end
  259. act 'Upload music': gt 'music_onlinemusic', 'uploadallmusic'
  260. end
  261. if ml_uploadablemusic > 0:
  262. act 'Delete old recordings': gt 'music_onlinemusic', 'deleteoldmusic'
  263. end
  264. if hour > 8 and hour < 22:
  265. if ml_guitar['hasguitar'] = 1:
  266. act 'Play something on the guitar (10 minutes)':
  267. mood += 10
  268. 'You pick up your guitar and start to play some songs you know, just for your own entertainment.'
  269. 'You hum along the tune, relaxing into the music, just enjoying it. When you look up a quarter of an hour passed and you are in a much better mood.'
  270. end
  271. end
  272. if ml_guitar['hasguitar'] = 1 and (ml_guitar['chordbook'] = 1 or ml_guitarlesson['lessoncount'] > 0) and ml_performance['performed_minutes'] < ml_performance['max_perform_minutes'] and alko < 5:
  273. if sisterHere = 1 and pcs_inhib < 30:
  274. if pcs_inhib < 10:
  275. $diff = 'hard'
  276. elseif pcs_inhib < 20:
  277. $diff = 'medium'
  278. else
  279. $diff = 'easy'
  280. end
  281. gs 'willpower', 'skill', 'self', $diff
  282. will_cost = (will_cost * 3) - (pcs_perform)
  283. if will_cost <= pcs_willpwr:
  284. act 'Practice guitar (0:30) (<<will_cost>> Willpower)':
  285. inhib_exp += rand(1,2)
  286. gs 'willpower', 'pay', 'self'
  287. gs 'stat'
  288. gt 'music_bedroomPractice', 'guitar'
  289. end
  290. else
  291. act 'Practice guitar (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You feel too embarrassed to pick up your guitar in front of people</font>'
  292. end
  293. else
  294. act 'Practice guitar (0:30)': gt 'music_bedroomPractice', 'guitar'
  295. end
  296. end
  297. !! Streaming music
  298. if ml_guitar['hasguitar'] = 1 and ml_online['account'] = 1 and internet > 0 and sisterHere = 0 and ml_performance['performed_minutes'] < ml_performance['max_perform_minutes'] and ml_performance['max_perform_minutes'] >= 15 and alko < 5 and ml_streaming['lastday'] ! daystart:
  299. ml_streamtime = min((ml_performance['max_perform_minutes']-ml_performance['performed_minutes']), 60)
  300. if pcs_inhib < 30:
  301. if pcs_inhib < 10:
  302. $diff = 'hard'
  303. elseif pcs_inhib < 20:
  304. $diff = 'medium'
  305. else
  306. $diff = 'easy'
  307. end
  308. gs 'willpower', 'skill', 'self', $diff
  309. will_cost = (will_cost * 3) - (pcs_perform)
  310. if will_cost <= pcs_willpwr:
  311. act 'Live stream (<<ml_streamtime>> minutes) (<<will_cost>> Willpower)':
  312. inhib_exp += rand(1,3)
  313. gs 'willpower', 'pay', 'self'
  314. gs 'stat'
  315. gt 'music_onlinemusic', 'liveStream'
  316. end
  317. else
  318. act 'Live stream (<<ml_streamtime>> minutes) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  319. end
  320. else
  321. act 'Live stream (<<ml_streamtime>> minutes)': gt 'music_onlinemusic', 'liveStream'
  322. end
  323. end
  324. !! Recording music
  325. if ml_guitar['hasguitar'] = 1 and sisterHere = 0 and ml_performance['performed_minutes'] < ml_performance['max_perform_minutes'] and alko < 5:
  326. if pcs_inhib < 20:
  327. if pcs_inhib < 10:
  328. $diff = 'medium'
  329. elseif pcs_inhib < 20:
  330. $diff = 'easy'
  331. end
  332. gs 'willpower', 'skill', 'self', $diff
  333. if will_cost <= pcs_willpwr:
  334. act 'Record a song with your phone (0:30) (<<will_cost>> Willpower)':
  335. inhib_exp += rand(1,2)
  336. gs 'willpower', 'pay', 'self'
  337. gs 'stat'
  338. gt 'music_onlinemusic', 'recordSong'
  339. end
  340. if komp = 1 and webcamera = 1 and ml_studio['scarlet-3rd-gen'] = 1:
  341. act 'Record and edit a song (2:00) (<<will_cost>> Willpower)':
  342. inhib_exp += rand(1,2)
  343. gs 'willpower', 'pay', 'self'
  344. gs 'stat'
  345. gt 'music_onlinemusic', 'recordAndEditSong'
  346. end
  347. end
  348. else
  349. act 'Record a song (0:30) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  350. act 'Record and edit a song (1:30) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  351. end
  352. else
  353. act 'Record a song with your phone (0:30)': gt 'music_onlinemusic', 'recordSong'
  354. if komp = 1 and webcamera = 1 and ml_studio['scarlet-3rd-gen'] = 1:
  355. act 'Record and edit a song (1:30)': gt 'music_onlinemusic', 'recordAndEditSong'
  356. end
  357. end
  358. end
  359. end
  360. !! if ml_deparcoQW > 3: act 'Rehearse for your show': gt 'music_bedroomPractice', 'rehearsing'
  361. if sisterHere = 0 and breastpump = 1 and bp_unbox <= 0:
  362. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Unbox</a> your breast pump'
  363. elseif kid >= 1 and breastpump = 1 and bp_unbox <= 0:
  364. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Unbox</a> your breast pump'
  365. elseif sisterHere = 0 and breastpump = 1 and bp_unbox = 1 and pcs_inbition > 40:
  366. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Try out</a> your breast pump'
  367. elseif kid >= 1 and breastpump = 1 and bp_unbox = 1 and pcs_inbition > 30:
  368. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Try out</a> your breast pump'
  369. end
  370. gs 'lact_bp', 'massage'
  371. '</td><td width = "100" valign="top"></td><td>'
  372. gs 'subkid'
  373. '</td></tr></table>'
  374. act 'Relax on your bed': gt 'bed', 'start'
  375. if $ARGS[0] = 'intro':
  376. cla & *clr
  377. $loc_arg = ''
  378. $loc = 'korrPar'
  379. $temp_nickname = '<<$npc_nickname[''A29'']>>'
  380. grandmaQW['last_month_paid'] = month
  381. menu_off = 1
  382. hour = 6
  383. gs 'stat'
  384. music_loop = 0
  385. CLOSE ALL
  386. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  387. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  388. *nl
  389. 'All of a sudden you hear a familiar voice yell out, "<<$pcs_nickname>>, time to get up. You can''t spend the whole day laying around!"'
  390. wait 1000
  391. $npc_nickname['A29'] = input('<center>What name do you address your mother by?<br>Mother (default), Mum, Mom, Mama, etc.</center>')
  392. if $npc_nickname['A29'] = '':$npc_nickname['A29'] = '<<$temp_nickname>>'
  393. killvar '$temp_nickname'
  394. act 'Continue':
  395. cla & *clr
  396. minut += 2
  397. gs 'stat'
  398. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  399. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  400. 'You tiredly open your eyes seeing your <<$npc_nickname[''A29'']>> standing over you, "Fifteen more minutes..."'
  401. 'Your <<$npc_nickname[''A29'']>> lets out a loud sigh, "No, up now!" as she yanks the cover off...'
  402. '"<<$npc_nickname[''A29'']>>!" you exclaim, as you feel a slight cold breeze hit your body.'
  403. '"No excuses, <<$pcs_nickname>>. The summer holidays will be over before you know it and you mustn''t get used to sleeping in, or you won''t be able to get up early when school starts again. So, from now on set your alarm to wake up at a reasonable time." <<$npc_nickname[''A29'']>> says as she stares at you expectantly.'
  404. act 'Get up':
  405. cla & *clr
  406. minut += 2
  407. gs 'stat'
  408. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  409. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  410. 'As soon as you get off your now coverless bed, your <<$npc_nickname[''A29'']>> is quick to resume her nagging, telling you again what you already heard from her a few moments ago. "Summer is no excuse to laze around all day, you can''t sleep in anymore, not even for another fifteen minutes." She''s not even looking at you while she talks, but luckily for you that means she misses you rolling your eyes.'
  411. '"What are you going to do when school starts, or when you get a job? You better get into the habit of setting your alarm so you can wake up bright and early."'
  412. act 'Continue':
  413. cla & *clr
  414. minut += 2
  415. gs 'stat'
  416. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  417. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  418. 'You let out an exasperated sigh, "Yeah, yeah I know, you told me that already. So, how early are we talking?"'
  419. 'Your <<$npc_nickname[''A29'']>> shoots you a sharp look and you know to fix your attitude or else. "Well, depends on what you plan to do in the morning. There''s breakfast, showering and brushing your teeth, doing your hair and then makeup and shaving if you really need to. If I remember right... Anya used to wake up at 06:00 for school."'
  420. act 'Continue':
  421. cla & *clr
  422. minut += 2
  423. gs 'stat'
  424. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  425. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  426. '"You want me to wake up that early?!" You huff. "Can''t I wake up at like... 07:00?"'
  427. 'Your <<$npc_nickname[''A29'']>> shrugs. "You could, but then you might have to cut corners or even end up running late to school, and I won''t be having any of that. Your teachers won''t either," she warns you before making her way towards the kitchen. "Oh, don''t forget; you need to head down to the clinic and see the gynecologist for a check up. Not just once, but every month," she adds quickly.'
  428. act 'But why do I--':
  429. cla & *clr
  430. minut += 2
  431. gs 'stat'
  432. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  433. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  434. 'Before you can finish, she cuts you off. "I''m not going to have you running around town like so many of those other girls I see! Opening their legs for any boy that comes around..." She shakes her head in disgust. "I want a referral every month and it better tell me you''re still a virgin or else, understand?" <<$npc_nickname[''A29'']>> says as she storms out of the room, without giving you a chance to respond..'
  435. act 'I understand...':gt 'budilnik', 'start'
  436. end
  437. end
  438. end
  439. end
  440. end
  441. end
  442. --- bedrPar ---------------------------------