bedrPar.qsrc 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496
  1. # bedrPar
  2. CLOSE ALL
  3. *clr & cla
  4. fromoutside = iif($loc = 'bedrPar',0,1)
  5. $loc = 'bedrPar'
  6. $loc_arg = ''
  7. $location_type = 'private'
  8. $locclass = 'bedr'
  9. $menu_loc = 'bedrPar'
  10. $menu_arg = ''
  11. menu_off = 0
  12. minut += 1
  13. !!day check so mom doesn''t think you have been out all night if you get up very early
  14. motherworry[1] = daystart
  15. gs 'stat'
  16. gs 'themes', 'indoors'
  17. gs 'family_schedule'
  18. if $ARGS[0] = '' or $ARGS[0] = 'start':
  19. if locat['Mother'] = 26 and fromoutside:
  20. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost1.jpg"></center>'
  21. if prezik > 0 and rand(1,3) = 1:
  22. gt 'mother', 'condom_find'
  23. elseif dildo > 0 and motherQW['seen_dildos'] ! 1 and rand(1,3) = 1:
  24. gt 'mother', 'dildo_find'
  25. elseif analplug = 1 and analplugin = 0 and motherQW['seen_plug'] ! 1 and rand(1,3) = 1:
  26. gt 'mother', 'plug_find'
  27. else
  28. 'You walk into your bedroom and find your <<$npc_nickname[''A29'']>> sweeping and dusting the room, folding clothes and putting them away and making the beds.'
  29. act 'Access wardrobe':
  30. $loc = 'korrPar'
  31. $loc_arg = ''
  32. gt 'wardrobe', 'start'
  33. end
  34. act 'Leave': gt 'korrPar'
  35. end
  36. elseif ParrotQW['Level'] = 2:
  37. *clr & cla
  38. menu_off = 1
  39. 'As soon as you enter the room you rush over to <<$ParrotQW[''Name'']>>''s cage and pour the contents of the vial into his water bowl.'
  40. 'You hope this will work and keep him from spilling you and your sister''s bedroom secrets.'
  41. ParrotQW['Level'] = 3
  42. ParrotQW['Day'] = 3
  43. act 'Continue':gt $loc, $loc_arg
  44. elseif ParrotQW['SisterReleaseParrotDay'] + 3 < daystart and ParrotQW['Level'] = 1:
  45. *clr & cla
  46. menu_off = 1
  47. 'When you enter the room, you notice <<$ParrotQW[''Name'']>>''s cage is open and he is gone.'
  48. 'Anya must have released him since you weren''t able to find a solution in time.'
  49. ParrotQW['Owned2'] = 0
  50. ParrotQW['Level'] = 0
  51. ParrotQW['Day'] = 2
  52. ParrotQW['Failed'] = 0
  53. gs 'stat'
  54. act 'Continue':gt $loc, $loc_arg
  55. elseif pcs_magik >= 6 and spellbefshild = 1 and tobiQW = 0 and locat['Anya_inroom'] = 0:
  56. gt 'tobiQW', 'start'
  57. elseif locat['Anya'] = 11:
  58. gt 'sisterQW', 'sisboyQW_expel'
  59. elseif locat['Anya_inroom'] = 1 and ParrotQW['Owned2'] = 1 and ParrotQW['SisKeepParrot'] = 0:
  60. *clr & cla
  61. menu_off = 1
  62. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister2.jpg"></center>'
  63. '"What is that?" Anya asks while pointing at <<$ParrotQW[''Name2'']>> in his cage.'
  64. '"I went to the mall and bought this bird. Isn''t he the cutest?"'
  65. if npc_rel['A33'] > 50:
  66. '"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."'
  67. ParrotQW['SisKeepParrot'] = 1
  68. end
  69. if npc_rel['A33'] <= 50:
  70. '"No he isn''t cute, and I suggest you get it out of here. I''m not sharing my room with a bird!"'
  71. 'You are somewhat upset, but you understand. You should have asked her before buying it.'
  72. 'You go to the window, open it and release the bird.'
  73. ParrotQW['Owned2'] = 0
  74. end
  75. gs 'stat'
  76. act 'Leave': gt 'korrPar'
  77. else
  78. '<center><h1><font color="maroon">Your bedroom</font></h1></center>'
  79. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  80. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/bedrpar.jpg"></center>'
  81. *nl
  82. '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.'
  83. *nl
  84. '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.'
  85. *nl
  86. if ParrotQW['Owned2'] = 1:
  87. '<a href="exec:gt ''popu'',''start2''"><<$ParrotQW[''Name2'']>></a> is sitting in his cage'
  88. if daystart - ParrotQW['BuyDate'] <= 10:
  89. '<<$ParrotQW[''Name2'']>> starts squawking at you when you enter the room.'
  90. elseif daystart - ParrotQW['BuyDate'] <= 20:
  91. 'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. It sounds almost like he is saying "<b>Hello <<$pcs_nickname>>!</b>"'
  92. elseif daystart - ParrotQW['BuyDate'] <= 30:
  93. 'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is clearly saying "<b>Hello <<$pcs_nickname>>!</b>"'
  94. elseif daystart - ParrotQW['BuyDate'] <= 35:
  95. 'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b><<$pcs_nickname>> very pretty!</b>"'
  96. elseif daystart - ParrotQW['BuyDate'] <= 40:
  97. 'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>Great body, <<$pcs_nickname>>!</b>"'
  98. elseif daystart - ParrotQW['BuyDate'] <= 50:
  99. 'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>You''re the best, Anya!</b>"'
  100. elseif daystart - ParrotQW['BuyDate'] <= 55:
  101. 'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>Yeah, that''s it Anya! Swallow it all!</b>"'
  102. else
  103. if ParrotQW['Level'] < 3:
  104. 'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>Your pussy tastes great, Anya!</b>"'
  105. else
  106. parfixrand = rand(0,9)
  107. if parfixrand = 0:'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>What did you say to me?</b>"'
  108. if parfixrand = 1:'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>3.1415926535897932384...</b>"'
  109. if parfixrand = 2:'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>Come closer, my friend.</b>"'
  110. if parfixrand = 3:'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>Here kitty, kitty!</b>"'
  111. if parfixrand = 4:'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>I just met you, and this is crazy!</b>"'
  112. if parfixrand = 5:'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>Bow before me!</b>"'
  113. if parfixrand = 6:'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>He’s just a friend, honest!</b>"'
  114. if parfixrand = 7:'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>What did you do to my socks?</b>"'
  115. if parfixrand = 8:'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>That''s what she said!</b>"'
  116. if parfixrand = 9:'When <<$ParrotQW[''Name2'']>> sees you, he starts ''speaking''. He is saying "<b>Help! They''ve turned me into a parrot!</b>"'
  117. killvar 'parfixrand'
  118. end
  119. end
  120. *nl
  121. end
  122. '<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>.')
  123. if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
  124. '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>.'
  125. elseif tabletki > 0:
  126. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers.'
  127. elseif prezik + prezikcount + preziksabo > 0:
  128. 'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are hidden in one of your desk drawers.'
  129. end
  130. if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and week = 6 and hour > 4 and hour < 9 and detention_set = 1 and SchoolAtestat = 0 and detention_warning ! daystart:
  131. detention_warning = daystart
  132. msg 'You have detention this morning and must be at school before 09:00.'
  133. end
  134. if komp = 1:'Your <a href="exec: gt ''Komp'',''start''">laptop</a> is on your desk.'
  135. if npc_QW['A33'] > 10:npc_QW['A33'] = 10
  136. if locat['Anya_Gad'] = 0:
  137. if sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  138. *clr & cla
  139. menu_off = 1
  140. minut += 5
  141. gs 'stat'
  142. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_6_<<rand(1,7)>>.jpg"></center>'
  143. 'Anya bursts into the room, drunk and disheveled. You notice that her hair and clothes are covered in cum, but she doesn''t seem to care as she falls onto her bed and instantly falls asleep.'
  144. sisboyparty = 1
  145. act 'Move away': gt $loc
  146. else
  147. sisterdialog = 1
  148. if locat['Anya'] = 1:
  149. '<a href="exec:gt ''sistersleep'', ''sister_sleep''">Anya</a> is asleep in her bed.'
  150. elseif locat['Anya'] = 4:
  151. sisterdialog = 3
  152. '<a href="exec:gt ''sister_chat'', ''sister_chat''">Anya</a> is getting ready to go out.'
  153. elseif locat['Anya'] = 15:
  154. if anyaQW['bathroom_dildos'] > 0:gt'sister_chat','bathroom_dildo_talk1'
  155. '<a href="exec:gt ''sister_chat'', ''sister_chat''">Anya</a> is sitting on her bed, reading a book.'
  156. elseif locat['Anya'] = 26:
  157. if sisboypartyQW = 1: sisboypartyQW = 2
  158. if sisboyparty = -1: sisboyparty = 1
  159. 'A drunken Anya is sound asleep in her bed.'
  160. end
  161. end
  162. end
  163. act 'Exit the room':
  164. if (locat['Anya'] = 4 or locat['Anya'] = 15) and daystart - ParrotQW['BuyDate'] > 55 and ParrotQW['Owned2'] = 1 and ParrotQW['SisterReleaseParrotDay'] = 0 : gt 'sister_chat', 'pargone'
  165. gt 'korrPar'
  166. end
  167. act 'Relax on your bed': gt 'bed', 'start'
  168. if pornMagazine > 0:'You have hidden your porn magazines under the mattress of your bed.'
  169. !!Masturbation, allowed after sister threesome (when sis_watch is used for a message) or sister not here.
  170. sis_watch = 0
  171. if locat['Anya_inroom'] = 0 or sisboytrio > 0:
  172. if pornMagazine > 0:gs 'events', 'read_porn'
  173. if rexCarCount >= 9 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
  174. act 'Send Rex a text message': gt 'rex_events','sms'
  175. end
  176. if pcs_horny >= 50:
  177. act 'Masturbate':gt 'selfplay', 'start'
  178. end
  179. if vcard > 0: act 'View your vintage porn cards':card_deck = 0 & gt 'card'
  180. if card > 0: act 'View your new porn cards':card_deck = 1 & gt 'card'
  181. end
  182. gs 'events', 'read'
  183. if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry is 30.'
  184. if locat['Anya_inroom'] = 0: dynamic $palelady
  185. gs 'exercise', 'start'
  186. if sewing_kit = 1:
  187. 'Your <a href="exec:gt ''sewing'',''start''">sewing kit</a> is stored neatly under your bed.'
  188. *nl
  189. if tkan <= 0:
  190. 'You do not have any fabric.'
  191. else
  192. if pcs_sewng < 40:
  193. 'You have <<tkan>> pieces of sewing fabric left.'
  194. elseif pcs_sewng < 80:
  195. 'You have enough fabric for <<tkan>> lessons.'
  196. else
  197. if newgobelen = 0:
  198. act'Start a new tapestry':
  199. *clr & cla
  200. menu_off = 1
  201. tkan -= 1
  202. newgobelen = 1
  203. minut += 15
  204. gs'stat'
  205. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  206. act'Set the tapestry aside':gt $curloc
  207. end
  208. end
  209. end
  210. end
  211. if newgobelen>=1:
  212. 'Your tapestry is <<newgobelen/10>> percent finished.'
  213. act'Work on the tapestry':
  214. *clr & cla
  215. menu_off = 1
  216. minut+=60
  217. gs 'exp_gain', 'sewng', rand(pcs_intel/10, pcs_intel/5)
  218. gobramax = (pcs_sewng - 70) * 6
  219. gobramin = (pcs_sewng - 70) * 2
  220. newgobelen += rand(gobramin,gobramax)
  221. gs'stat'
  222. if newgobelen < 1000:'You spend an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  223. if newgobelen >= 1000:
  224. newgobelen = 0
  225. gobelen += 1
  226. 'Your work on the tapestry is done.'
  227. end
  228. act'Set the tapestry aside':gt $curloc
  229. end
  230. end
  231. if gobelen > 0: 'You have <<gobelen>> completed tapestries.'
  232. end
  233. if ml_guitar['carried'] = 1:
  234. act 'Place the guitar next to your desk':
  235. ml_guitar['carried'] = 0
  236. $ml_guitar['location'] = $curloc
  237. gt $loc, $loc_arg
  238. end
  239. elseif $ml_guitar['location'] = $curloc:
  240. act 'Pick up the guitar':
  241. ml_guitar['carried'] = 1
  242. $ml_guitar['location'] = ''
  243. gt $loc, $loc_arg
  244. end
  245. end
  246. if ml_online['account'] = 0 and internet > 0:
  247. act 'Set up an online music account': gt 'music_onlinemusic', 'setupAccount'
  248. end
  249. !!Uploading recorded music if there are any not uploaded yet
  250. if ml_uploadablemusic > 0 and internet > 0 and ml_online['account'] = 1:
  251. if pcs_inhib < 30:
  252. if pcs_inhib < 10:
  253. $diff = 'hard'
  254. elseif pcs_inhib < 20:
  255. $diff = 'medium'
  256. else
  257. $diff = 'easy'
  258. end
  259. gs 'willpower', 'skill', 'self', $diff
  260. will_cost = (will_cost * 2) - (pcs_perform)
  261. if will_cost <= pcs_willpwr:
  262. act 'Upload music (<<will_cost>> Willpower)': gt 'music_onlinemusic', 'uploadmusic'
  263. else
  264. 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>'
  265. end
  266. end
  267. act 'Upload music': gt 'music_onlinemusic', 'uploadallmusic'
  268. end
  269. if ml_uploadablemusic > 0:
  270. act 'Delete old recordings': gt 'music_onlinemusic', 'deleteoldmusic'
  271. end
  272. if hour > 8 and hour < 22:
  273. if ml_guitar['hasguitar'] = 1:
  274. act 'Play something on the guitar':
  275. pcs_mood += 10
  276. minut += 10
  277. gs 'stat'
  278. 'You pick up your guitar and start to play some songs you know, just for your own entertainment.'
  279. 'You hum along to the tune, relaxing into the music and enjoying it. When you look up, 10 minutes has passed and you are in a much better mood.'
  280. end
  281. end
  282. 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:
  283. if locat['Anya_inroom'] = 1 and pcs_inhib < 30:
  284. if pcs_inhib < 10:
  285. $diff = 'hard'
  286. elseif pcs_inhib < 20:
  287. $diff = 'medium'
  288. else
  289. $diff = 'easy'
  290. end
  291. gs 'willpower', 'skill', 'self', $diff
  292. will_cost = (will_cost * 3) - (pcs_perform)
  293. if will_cost <= pcs_willpwr:
  294. act 'Practice guitar (<<will_cost>> Willpower)':
  295. inhib_exp += rand(1,2)
  296. gs 'willpower', 'pay', 'self'
  297. gs 'stat'
  298. gt 'music_bedroomPractice', 'guitar'
  299. end
  300. else
  301. 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>'
  302. end
  303. else
  304. act 'Practice guitar': gt 'music_bedroomPractice', 'guitar'
  305. end
  306. end
  307. !! Streaming music
  308. if ml_guitar['hasguitar'] = 1 and locat['Anya_inroom'] = 0 and ml_online['account'] = 1 and internet > 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:
  309. ml_streamtime = min((ml_performance['max_perform_minutes']-ml_performance['performed_minutes']), 60)
  310. if pcs_inhib < 30:
  311. if pcs_inhib < 10:
  312. $diff = 'hard'
  313. elseif pcs_inhib < 20:
  314. $diff = 'medium'
  315. else
  316. $diff = 'easy'
  317. end
  318. gs 'willpower', 'skill', 'self', $diff
  319. will_cost = (will_cost * 3) - (pcs_perform)
  320. if will_cost <= pcs_willpwr:
  321. act 'Live stream (<<ml_streamtime>> minutes) (<<will_cost>> Willpower)':
  322. inhib_exp += rand(1,3)
  323. gs 'willpower', 'pay', 'self'
  324. gs 'stat'
  325. gt 'music_onlinemusic', 'liveStream'
  326. end
  327. else
  328. 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>'
  329. end
  330. else
  331. act 'Live stream (<<ml_streamtime>> minutes)': gt 'music_onlinemusic', 'liveStream'
  332. end
  333. end
  334. !! Recording music
  335. if ml_guitar['hasguitar'] = 1 and ml_performance['performed_minutes'] < ml_performance['max_perform_minutes'] and alko < 5:
  336. if pcs_inhib < 20:
  337. if pcs_inhib < 10:
  338. $diff = 'medium'
  339. elseif pcs_inhib < 20:
  340. $diff = 'easy'
  341. end
  342. gs 'willpower', 'skill', 'self', $diff
  343. if will_cost <= pcs_willpwr:
  344. act 'Record a song with your phone (<<will_cost>> Willpower)':
  345. inhib_exp += rand(1,2)
  346. gs 'willpower', 'pay', 'self'
  347. gs 'stat'
  348. gt 'music_onlinemusic', 'recordSong'
  349. end
  350. if komp = 1 and webcamera = 1 and ml_studio['scarlet-3rd-gen'] = 1:
  351. act 'Record and edit a song (<<will_cost>> Willpower)':
  352. inhib_exp += rand(1,2)
  353. gs 'willpower', 'pay', 'self'
  354. gs 'stat'
  355. gt 'music_onlinemusic', 'recordAndEditSong'
  356. end
  357. end
  358. else
  359. act 'Record a song (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  360. act 'Record and edit a song (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  361. end
  362. else
  363. act 'Record a song with your phone': gt 'music_onlinemusic', 'recordSong'
  364. if komp = 1 and webcamera = 1 and ml_studio['scarlet-3rd-gen'] = 1:
  365. act 'Record and edit a song': gt 'music_onlinemusic', 'recordAndEditSong'
  366. end
  367. end
  368. end
  369. end
  370. !! if ml_deparcoQW > 3: act 'Rehearse for your show': gt 'music_bedroomPractice', 'rehearsing'
  371. if locat['Anya_inroom'] = 0 and breastpump = 1 and bp_unbox <= 0:
  372. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Unbox</a> your breast pump'
  373. elseif kid >= 1 and breastpump = 1 and bp_unbox <= 0:
  374. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Unbox</a> your breast pump'
  375. elseif locat['Anya_inroom'] = 0 and breastpump = 1 and bp_unbox = 1 and pcs_inhib > 40:
  376. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Try out</a> your breast pump'
  377. elseif kid >= 1 and breastpump = 1 and bp_unbox = 1 and pcs_inhib > 30:
  378. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Try out</a> your breast pump'
  379. end
  380. gs 'lact_bp', 'massage'
  381. '</td><td width = "100" valign="top"></td><td>'
  382. gs 'subkid'
  383. '</td></tr></table>'
  384. end
  385. end
  386. if $ARGS[0] = 'intro':
  387. grandmaQW['last_month_paid'] = month
  388. menu_off = 1
  389. hour = 6
  390. gs 'stat'
  391. music_loop = 0
  392. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  393. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  394. *nl
  395. '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!"'
  396. wait 1000
  397. $temp_nickname = input('<center>What name do you address your mother by?<br>Mother (default), Mum, Mom, Mama, etc.</center>')
  398. if $temp_nickname ! '':$npc_nickname['A29'] = '<<$temp_nickname>>'
  399. killvar '$temp_nickname'
  400. act 'Continue':
  401. cla & *clr
  402. minut += 2
  403. gs 'stat'
  404. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  405. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  406. 'You tiredly open your eyes and see your <<$npc_nickname[''A29'']>> standing over you. "Fifteen more minutes..." you mumble.'
  407. 'Your <<$npc_nickname[''A29'']>> lets out a loud sigh. "No, up now!" she says as she yanks the covers off.'
  408. '"<<$npc_nickname[''A29'']>>!" you exclaim as you feel a slightly cold breeze hit your body.'
  409. '"No excuses <<$pcs_nickname>>. The summer holidays will be over before you know it and you mustn''t get used to sleeping in, otherwise you won''t be able to get up early when school starts again. From now on, set your alarm to wake up at a reasonable time." your <<$npc_nickname[''A29'']>> says as she stares at you expectantly.'
  410. act 'Get up':
  411. cla & *clr
  412. minut += 2
  413. gs 'stat'
  414. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  415. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  416. 'As soon as you get off your now coverless bed, your <<$npc_nickname[''A29'']>> is quick to resume her nagging, repeating 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.'
  417. '"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."'
  418. act 'Continue':
  419. cla & *clr
  420. minut += 2
  421. gs 'stat'
  422. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  423. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  424. 'You let out an exasperated sigh. "Yeah yeah I know, you told me that already. So how early are we talking?"'
  425. 'Your <<$npc_nickname[''A29'']>> shoots you a sharp look and you know to fix your attitude or else. "Well, that 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."'
  426. act 'Continue':
  427. cla & *clr
  428. minut += 2
  429. gs 'stat'
  430. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  431. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  432. '"You want me to wake up that early?!" you huff. "Can''t I wake up at like... 07:00?"'
  433. '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.'
  434. if stat['think_virgin'] = 1: '"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.'
  435. act 'But why do I--':
  436. cla & *clr
  437. minut += 2
  438. gs 'stat'
  439. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  440. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  441. '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?" your <<$npc_nickname[''A29'']>> says before she storms out of the room without giving you a chance to respond.'
  442. act 'I understand...':gt 'budilnik', 'start'
  443. end
  444. end
  445. end
  446. end
  447. end
  448. end
  449. --- bedrPar ---------------------------------