bedrPar.qsrc 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369
  1. # bedrPar
  2. CLOSE ALL
  3. $metka = ''
  4. $loc = 'bedrPar'
  5. $location_type = 'private'
  6. $locclass = 'bedr'
  7. $menu_loc = 'bedrPar'
  8. $menu_arg = ''
  9. menu_off = 0
  10. clr
  11. minut += 1
  12. gs 'stat'
  13. if night_mode = 1:
  14. fcolor = rgb(255, 255, 255)
  15. bcolor = rgb(0, 0, 0)
  16. lcolor = rgb(106, 90, 205)
  17. elseif night_mode = 2:
  18. fcolor = rgb(255, 255, 255)
  19. bcolor = rgb(20, 20, 20)
  20. lcolor = rgb(106, 90, 205)
  21. else
  22. fcolor = rgb(0, 0, 0)
  23. bcolor = rgb(255, 255, 255)
  24. lcolor = rgb(106, 90, 205)
  25. end
  26. if saveparQW = 2:
  27. cls
  28. 'As soon as you enter the room you rush over to <<$namepopu2>>''s cage and pour the contents of the vial in to his water bowl.'
  29. 'You really hope this will work and keep him from spilling yours and your sister''s bedroom secrets.'
  30. saveparQW = 3
  31. saveparjourQW = 3
  32. act 'Continue':gt $loc, $metka
  33. exit
  34. end
  35. if sisrelparday + 3 < daystart and saveparQW = 1:
  36. cls
  37. 'When you enter the room you notice <<$namepopu2>>''s cage is open and he is gone.'
  38. 'You sister must have released him since you were not able to find a solution in time.'
  39. popugai2 = 0
  40. saveparQW = 0
  41. saveparjourQW = 2
  42. saveparQWfailed = 0
  43. act 'Continue':gt $loc, $metka
  44. exit
  45. end
  46. if pcs_magik >= 6 and spellbefshild = 1 and tobiQW = 0 and sisterHere < 2:gt 'tobiQW', 'start'
  47. if sisboyday + 1 = daystart and hour = 18:gt'sisterQW','sisboyQW_expel'
  48. if sisterHere = 2 and popugai2 = 1 and sispopconf = 0:
  49. cls
  50. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister2.jpg"></center>'
  51. '"What is that ?" your sister asks while pointing at <<$namepopu2>> in his cage'
  52. '"I went to the shopping center and bought this bird. Isn''t he the cutest ?"'
  53. if npc_rel['A33'] > 50:
  54. '"Not really, but I can see this is something you really want. So as long as he doesn''t make too much noise I don''t really care"'
  55. sispopconf = 1
  56. end
  57. if npc_rel['A33'] <= 50:
  58. '"No he is not cute, and I suggest you take it out of here, I am not sharing my room with a bird. "'
  59. 'You feel kind of sad but you understand your sister. You should have asked her before buying it.'
  60. 'You go to the window, open it and release the bird'
  61. popugai2 = 0
  62. end
  63. act 'Leave':gt $loc, $metka
  64. exit
  65. end
  66. '<center><h1><font color="maroon">Your bedroom</font></h1></center>'
  67. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  68. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/bedrpar.jpg"></center>'
  69. *nl
  70. '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.'
  71. *nl
  72. 'Your <a href="exec:gt ''bed2''">bed</a> stands opposite the wardrobe, and your <a href="exec:gt ''stol'' ,''stolPar''">desk</a> is next to it. Your sister''s bed is in the other corner.'
  73. *nl
  74. if popugai2 = 1:
  75. '<a href="exec:GT ''popu'',''start2''"><<$namepopu2>></a> is sitting in his cage'
  76. if daystart - parbuydate <= 10: '<<$namepopu2>> starts squawking at you when you enter the room.'
  77. if daystart - parbuydate > 10 and daystart - parbuydate <= 20: 'When <<$namepopu2>> sees you he starts ''speaking''. It sounds almost like he is saying "<b>hello <<$pcs_nickname>></b>"'
  78. if daystart - parbuydate > 20 and daystart - parbuydate <= 30: 'When <<$namepopu2>> sees you he starts ''speaking''. He is clearly saying "<b>hello <<$pcs_nickname>></b>"'
  79. if daystart - parbuydate > 30 and daystart - parbuydate <= 35: 'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b><<$pcs_nickname>> very pretty</b>"'
  80. if daystart - parbuydate > 35 and daystart - parbuydate <= 40: 'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b><<$pcs_nickname>> great body</b>"'
  81. if daystart - parbuydate > 40 and daystart - parbuydate <= 50: 'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b><<$npc_firstname[''A33'']>> you''re the best</b>"'
  82. if daystart - parbuydate > 50 and daystart - parbuydate <= 55: 'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Yeah <<$npc_firstname[''A33'']>> swallow it all</b>"'
  83. if daystart - parbuydate > 55 and saveparQW < 3: 'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Yeah <<$npc_firstname[''A33'']>> your pussy tastes great</b>"'
  84. if saveparQW = 3:
  85. parfixrand = rand(0,9)
  86. if parfixrand = 0:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>What Did You Say To Me?</b>"'
  87. if parfixrand = 1:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>3.1415926535897932384 ....</b>"'
  88. if parfixrand = 2:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Come Closer, My Friend</b>"'
  89. if parfixrand = 3:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Here Kitty, Kitty!</b>"'
  90. if parfixrand = 4:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>I Just Met You and This is Crazy</b>"'
  91. if parfixrand = 5:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Bow Before Me!</b>"'
  92. if parfixrand = 6:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>He’s Just a Friend, Honest!</b>"'
  93. if parfixrand = 7:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>What Did You Do To My Socks?</b>"'
  94. if parfixrand = 8:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>That’s What She Said!</b>"'
  95. if parfixrand = 9:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Help! They’ve Turned Me Into a Parrot!</b>"'
  96. end
  97. *nl
  98. end
  99. if budilnikOn = 0:
  100. 'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & GT ''<<$loc>>''">off</a>.'
  101. else
  102. 'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & GT ''<<$loc>>''">on</a>.'
  103. end
  104. if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
  105. '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>.'
  106. elseif tabletki > 0:
  107. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers.'
  108. elseif prezik + prezikcount + preziksabo > 0:
  109. 'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are hidden in one of your desk drawers.'
  110. end
  111. if sewing_kit = 1:
  112. 'Your <a href="exec:gt ''sewing'',''start''">sewing kit</a> is stored neatly under your bed.'
  113. *nl
  114. 'You have <<tkan>> pieces of sewing fabric left.'
  115. end
  116. if komp = 1:'Your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a> is on your desk.'
  117. gorodokKomp = 0
  118. gad = 0
  119. gs 'subkid'
  120. if npc_QW['A33'] > 10:npc_QW['A33'] = 10
  121. gs'dinsister'
  122. act 'Exit the room':
  123. if sisterHere = 2 and daystart - parbuydate > 55 and popugai2 = 1 and sisrelparday = 0 :gt'sister','pargone'
  124. gt'korrPar'
  125. end
  126. if sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  127. gs'family'
  128. else
  129. gs'family'
  130. if rexCarCount >= 9 and sisterHere = 1 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
  131. act 'Send Rex a SMS message':gt 'reks','sms'
  132. end
  133. if student > 0 and kursovik < 100:
  134. act 'Do coursework (1:00)':
  135. cla
  136. *clr
  137. minut += 60
  138. kursovik += rand(pcs_intel / 20, pcs_intel / 10)
  139. if kursovik > 100:kursovik = 100
  140. pcs_mood -= 10
  141. '<center><img <<$set_imgh>> src="images/pc/activities/study.jpg"></center>'
  142. 'You sit down at the desk and do your coursework, you''ve finished <<kursovik>> percent of it.'
  143. act 'Leave your desk':gt $curloc
  144. end
  145. end
  146. !!Masturbation, allowed after sister threesome (when sis_watch is used for a message) or sister not here.
  147. sis_watch = 0
  148. if pcs_horny >= 50 and (sisboytrio > 0 or sisterHere = 0):
  149. act 'Masturbate':gt 'selfplay', 'start'
  150. end
  151. if pornMagazine > 0:'You have hidden your porn magazines under the mattress of your bed.'
  152. if (sisboytrio > 0 or sisterHere = 0) and pornMagazine > 0:gs 'events', 'read_porn'
  153. gs 'events', 'read'
  154. if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry with you is 30.'
  155. if vcard > 0:
  156. act 'Look at your deck of vintage porn cards':card_deck = 0 & gt 'card'
  157. end
  158. if card > 0:
  159. act 'Look at your deck of new porn cards':card_deck = 1 & gt 'card'
  160. end
  161. if dur > 0:'You have hidden <<dur>> doses of Pale Lady.'
  162. if dur > 0 and narkday ! daystart:
  163. act 'Use some Pale Lady (0:05)':
  164. cla
  165. *clr
  166. minut += 5
  167. narkday = daystart
  168. pcs_health = pcs_vital * 10 + pcs_stren * 5
  169. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  170. pcs_mood = 100
  171. pcs_horny = 100
  172. nark += 10
  173. dur -= 1
  174. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  175. 'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  176. act 'Continue':gt $curloc
  177. end
  178. end
  179. end
  180. gs 'exercise', 'start'
  181. if gobelen>0:'You have <<gobelen>> completed tapestries.'
  182. if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
  183. if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
  184. if pcs_sewng >= 80:
  185. if newgobelen = 0 and tkan > 0:
  186. act'Start a new tapestry':
  187. cls
  188. tkan -= 1
  189. newgobelen = 1
  190. minut += 15
  191. gs'stat'
  192. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  193. act'Set the tapestry aside':gt $curloc
  194. end
  195. end
  196. if newgobelen>=1:
  197. 'Your tapestry is <<newgobelen/10>> percent finished.'
  198. act'Work on the tapestry for an hour':
  199. cls
  200. minut+=60
  201. sewng_exp += rand(pcs_intel/10, pcs_intel/5)
  202. gobramax = (pcs_sewng - 70) * 6
  203. gobramin = (pcs_sewng - 70) * 2
  204. newgobelen += rand(gobramin,gobramax)
  205. gs'stat'
  206. if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  207. if newgobelen >= 1000:
  208. newgobelen = 0
  209. gobelen += 1
  210. 'Your work on the tapestry is done.'
  211. end
  212. act'Set the tapestry aside':gt $curloc
  213. end
  214. end
  215. end
  216. if sisterHere = 0 and breastpump = 1 and bp_unbox <= 0:
  217. '<a href="exec: gt ''lact_lib'', ''bp_unbox_event''">Unbox</a> your breast pump'
  218. elseif kid >= 1 and breastpump = 1 and bp_unbox <= 0:
  219. '<a href="exec: gt ''lact_lib'', ''bp_unbox_event''">Unbox</a> your breast pump'
  220. elseif sisterHere = 0 and breastpump = 1 and bp_unbox = 1 and pcs_inbition < 40:
  221. '<a href="exec: gt ''lact_lib'', ''bp_unbox_event''">Try out</a> your breast pump'
  222. elseif kid >= 1 and breastpump = 1 and bp_unbox = 1 and pcs_inbition > 30:
  223. '<a href="exec: gt ''lact_lib'', ''bp_unbox_event''">Try out</a> your breast pump'
  224. end
  225. if breastcounter <= 0:
  226. temp_var = 50
  227. else
  228. temp_var = (50/breastcounter)
  229. end
  230. if breastpump <= 0 and pcs_horny >= temp_var:
  231. act 'Massage your breasts': gt 'lact_lib','man_milking'
  232. end
  233. if pcs_sleep <= 80:
  234. if $clothingworntype = 'nude':
  235. $sleep_txt = 'Go to sleep'
  236. else
  237. $sleep_txt = 'Undress and go to sleep'
  238. end
  239. if succubusQW = 2:
  240. act '<<$sleep_txt>>':
  241. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  242. gt 'bed2', 'succhoice'
  243. end
  244. else
  245. act '<<$sleep_txt>>':
  246. if disable_autosave = 0:
  247. if StoryLine = 0:
  248. savegame 'autosave.sav'
  249. else
  250. savegame 'autosave_alt.sav'
  251. end
  252. end
  253. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  254. if magf2bdo = 2:
  255. gt 'bed2', 'magbstchoice'
  256. else
  257. gt 'bed2', 'sleep'
  258. end
  259. end
  260. killvar '$sleep_txt'
  261. end
  262. end
  263. if $ARGS[0] = 'intro':
  264. cla & *clr
  265. $metka = ''
  266. $loc = 'korrPar'
  267. $temp_nickname = '<<$npc_nickname[''A29'']>>'
  268. monthbabkapay = month
  269. menu_off = 1
  270. hour = 6
  271. gs 'stat'
  272. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  273. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  274. *nl
  275. '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!"'
  276. wait 2000
  277. $npc_nickname['A29'] = input('<center>What name do you address your mother by?<br>Mother (default), Mum, Mom, Mama, etc.</center>')
  278. if $npc_nickname['A29'] = '':$npc_nickname['A29'] = '<<$temp_nickname>>'
  279. killvar '$temp_nickname'
  280. act 'Continue':
  281. cla & *clr
  282. minut += 2
  283. gs 'stat'
  284. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  285. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  286. *nl
  287. 'You tiredly open your eyes seeing your <<$npc_nickname[''A29'']>> standing over you, "Fifteen more minutes..."'
  288. 'Your <<$npc_nickname[''A29'']>> lets out a loud sigh, "No, up now!" as she yanks the cover off...'
  289. '"<<$npc_nickname[''A29'']>>!" you exclaim, as you feel a slight cold breeze hit your body.'
  290. '"No excuses, <<$pcs_nickname>>. The summer holidays will be over soon and you need to get used to waking up early, for when school starts. So, from now on set your alarm, so you can wake up at a reasonable time." <<$npc_nickname[''A29'']>> says as she stares at you expectantly.'
  291. act 'Get up':
  292. cla & *clr
  293. minut += 2
  294. gs 'stat'
  295. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  296. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  297. *nl
  298. '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 almost over, 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.'
  299. '"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."'
  300. act 'Continue':
  301. cla & *clr
  302. minut += 2
  303. gs 'stat'
  304. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  305. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  306. *nl
  307. 'You let out an exasperated sigh, "Yeah, yeah I know, you told me that already. So, how early are we talking?"'
  308. '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 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."'
  309. act 'Continue':
  310. cla & *clr
  311. minut += 2
  312. gs 'stat'
  313. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  314. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
  315. *nl
  316. '"You want me to wake up that early?!" You huff. "Can''t I wake up at like... 07:00?"'
  317. '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.'
  318. act 'But why do I--':
  319. cla & *clr
  320. minut += 2
  321. gs 'stat'
  322. '<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
  323. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost5.jpg"></center>'
  324. *nl
  325. '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..'
  326. act 'I understand...':gt 'budilnik', 'start'
  327. end
  328. end
  329. end
  330. end
  331. end
  332. end
  333. --- bedrPar ---------------------------------