1
0

bedrPar.qsrc 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271
  1. # bedrPar
  2. CLOSE ALL
  3. $metka = ''
  4. $loc = 'bedrPar'
  5. $location_type = 'private'
  6. $locclass = 'bedr'
  7. clr
  8. minut += 1
  9. gs 'stat'
  10. if night_mode = 1:
  11. fcolor = rgb(255, 255, 255)
  12. bcolor = rgb(0, 0, 0)
  13. lcolor = rgb(106, 90, 205)
  14. else
  15. fcolor = rgb(0, 0, 0)
  16. bcolor = rgb(255, 255, 255)
  17. lcolor = rgb(106, 90, 205)
  18. end
  19. if saveparQW = 2:
  20. cls
  21. '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.'
  22. 'You really hope this will work and keep him from spilling yours and your sister''s bedroom secrets.'
  23. saveparQW = 3
  24. saveparjourQW = 3
  25. act 'Continue':gt $loc, $metka
  26. exit
  27. end
  28. if sisrelparday + 3 < daystart and saveparQW = 1:
  29. cls
  30. 'When you enter the room you notice <<$namepopu2>>''s cage is open and he is gone.'
  31. 'You sister must have released him since you were not able to find a solution in time.'
  32. popugai2 = 0
  33. saveparQW = 0
  34. saveparjourQW = 2
  35. saveparQWfailed = 0
  36. act 'Continue':gt $loc, $metka
  37. exit
  38. end
  39. if pcs_magik >= 6 and spellbefshild = 1 and tobiQW = 0 and sisterHere < 2:gt 'tobiQW', 'start'
  40. if sisboyday + 1 = daystart and hour = 18:gt'sisterQW','sisboyQW_expel'
  41. if sisterHere = 2 and popugai2 = 1 and sispopconf = 0:
  42. cls
  43. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister2.jpg"></center>'
  44. '"What is that ?" your sister asks while pointing at <<$namepopu2>> in his cage'
  45. '"I went to the shopping center and bought this bird. Isn''t he the cutest ?"'
  46. if npc_rel['A33'] > 50:
  47. '"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"'
  48. sispopconf = 1
  49. end
  50. if npc_rel['A33'] <= 50:
  51. '"No he is not cute, and I suggest you take it out of here, I am not sharing my room with a bird. "'
  52. 'You feel kind of sad but you understand your sister. You should have asked her before buying it.'
  53. 'You go to the window, open it and release the bird'
  54. popugai2 = 0
  55. end
  56. act 'Leave':gt $loc, $metka
  57. exit
  58. end
  59. '<center><h1><font color="maroon">Your bedroom</font></h1></center>'
  60. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  61. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/bedrpar.jpg"></center>'
  62. *nl
  63. '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.'
  64. *nl
  65. 'Your <a href="exec:gt ''bed2''">bed</a> is in the corner across from 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.'
  66. *nl
  67. if popugai2 = 1:
  68. '<a href="exec:GT ''popu'',''start2''"><<$namepopu2>></a> is sitting in his cage'
  69. if daystart - parbuydate <= 10: '<<$namepopu2>> starts squawking at you when you enter the room.'
  70. 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>"'
  71. if daystart - parbuydate > 20 and daystart - parbuydate <= 30: 'When <<$namepopu2>> sees you he starts ''speaking''. He is clearly saying "<b>hello <<$pcs_nickname>></b>"'
  72. if daystart - parbuydate > 30 and daystart - parbuydate <= 35: 'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b><<$pcs_nickname>> very pretty</b>"'
  73. if daystart - parbuydate > 35 and daystart - parbuydate <= 40: 'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b><<$pcs_nickname>> great body</b>"'
  74. 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>"'
  75. 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>"'
  76. 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>"'
  77. if saveparQW = 3:
  78. parfixrand = rand(0,9)
  79. if parfixrand = 0:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>What Did You Say To Me?</b>"'
  80. if parfixrand = 1:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>3.1415926535897932384 ....</b>"'
  81. if parfixrand = 2:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Come Closer, My Friend</b>"'
  82. if parfixrand = 3:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Here Kitty, Kitty!</b>"'
  83. if parfixrand = 4:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>I Just Met You and This is Crazy</b>"'
  84. if parfixrand = 5:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Bow Before Me!</b>"'
  85. if parfixrand = 6:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>He’s Just a Friend, Honest!</b>"'
  86. if parfixrand = 7:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>What Did You Do To My Socks?</b>"'
  87. if parfixrand = 8:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>That’s What She Said!</b>"'
  88. if parfixrand = 9:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Help! They’ve Turned Me Into a Parrot!</b>"'
  89. end
  90. *nl
  91. end
  92. if budilnikOn = 0:
  93. 'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 1 & GT ''<<$loc>>''">off</a>.'
  94. else
  95. 'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 0 & GT ''<<$loc>>''">on</a>.'
  96. end
  97. if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
  98. '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>.'
  99. elseif tabletki > 0:
  100. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers.'
  101. elseif prezik + prezikcount + preziksabo > 0:
  102. 'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are hidden in one of your desk drawers.'
  103. end
  104. if sewing_kit = 1:
  105. 'Your <a href="exec:gt ''sewing'',''start''">sewing kit</a> is stored neatly under your bed.'
  106. *nl
  107. 'You have <<tkan>> pieces of sewing fabric left.'
  108. end
  109. if komp = 1:'Your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a> is on your desk.'
  110. gorodokKomp = 0
  111. gad = 0
  112. gs 'subkid'
  113. if npc_QW['A33'] > 10:npc_QW['A33'] = 10
  114. gs'dinsister'
  115. act 'Exit the room':
  116. if sisterHere = 2 and daystart - parbuydate > 55 and popugai2 = 1 and sisrelparday = 0 :gt'sister','pargone'
  117. gt'korrPar'
  118. end
  119. if sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  120. gs'family'
  121. else
  122. gs'family'
  123. if rexCarCount >= 9 and sisterHere = 1 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
  124. act 'Send Rex a SMS message':gt 'reks','sms'
  125. end
  126. if student > 0 and kursovik < 100:
  127. act 'Do coursework (1:00)':
  128. cla
  129. *clr
  130. minut += 60
  131. kursovik += rand(pcs_intel / 20, pcs_intel / 10)
  132. if kursovik > 100:kursovik = 100
  133. pcs_mood -= 10
  134. '<center><img <<$set_imgh>> src="images/pc/activities/study.jpg"></center>'
  135. 'You sit down at the desk and do your coursework, you''ve finished <<kursovik>> percent of it.'
  136. act 'Leave your desk':gt $curloc
  137. end
  138. end
  139. !!Masturbation, allowed after sister threesome (when sis_watch is used for a message) or sister not here.
  140. sis_watch = 0
  141. if pcs_horny >= 50 and (sisboytrio > 0 or sisterHere = 0):
  142. act 'Masturbate':gt 'selfplay', 'start'
  143. end
  144. if pornMagazine > 0:'You have hidden your porn magazines under the mattress of your bed.'
  145. if (sisboytrio > 0 or sisterHere = 0) and pornMagazine > 0:gs 'events', 'read_porn'
  146. gs 'events', 'read'
  147. if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry with you is 30.'
  148. if vcard > 0:
  149. act 'Look at your deck of vintage porn cards':card_deck = 0 & gt 'card'
  150. end
  151. if card > 0:
  152. act 'Look at your deck of new porn cards':card_deck = 1 & gt 'card'
  153. end
  154. if dur > 0:'You have hidden <<dur>> doses of Pale Lady.'
  155. if dur > 0 and narkday ! daystart:
  156. act 'Use some Pale Lady (0:05)':
  157. cla
  158. *clr
  159. minut += 5
  160. narkday = daystart
  161. pcs_health = pcs_vital * 10 + pcs_stren * 5
  162. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  163. pcs_mood = 100
  164. pcs_horny = 100
  165. nark += 10
  166. dur -= 1
  167. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  168. 'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  169. act 'Continue':gt $curloc
  170. end
  171. end
  172. end
  173. gs 'exercise', 'start'
  174. if gobelen>0:'You have <<gobelen>> completed tapestries.'
  175. if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
  176. if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
  177. if pcs_sewng >= 80:
  178. if newgobelen = 0 and tkan > 0:
  179. act'Start a new tapestry':
  180. cls
  181. tkan -= 1
  182. newgobelen = 1
  183. minut += 15
  184. gs'stat'
  185. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  186. act'Set the tapestry aside':gt $curloc
  187. end
  188. end
  189. if newgobelen>=1:
  190. 'Your tapestry is <<newgobelen/10>> percent finished.'
  191. act'Work on the tapestry for an hour':
  192. cls
  193. minut+=60
  194. sewng_exp += rand(pcs_intel/10, pcs_intel/5)
  195. gobramax = (pcs_sewng - 70) * 6
  196. gobramin = (pcs_sewng - 70) * 2
  197. newgobelen += rand(gobramin,gobramax)
  198. gs'stat'
  199. if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  200. if newgobelen >= 1000:
  201. newgobelen = 0
  202. gobelen += 1
  203. 'Your work on the tapestry is done.'
  204. end
  205. act'Set the tapestry aside':gt $curloc
  206. end
  207. end
  208. end
  209. if pcs_sleep <= 80:
  210. if $clothingworntype = 'nude':
  211. $sleep_txt = 'Go to sleep'
  212. else
  213. $sleep_txt = 'Undress and go to sleep'
  214. end
  215. if succubusQW = 2:
  216. act '<<$sleep_txt>>':
  217. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  218. gt 'bed2', 'succhoice'
  219. end
  220. else
  221. act '<<$sleep_txt>>':
  222. if disable_autosave = 0:
  223. if StoryLine = 0:
  224. savegame 'autosave.sav'
  225. else
  226. savegame 'autosave_alt.sav'
  227. end
  228. end
  229. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  230. if magf2bdo = 2:
  231. gt 'bed2', 'magbstchoice'
  232. else
  233. gt 'bed2', 'sleep'
  234. end
  235. end
  236. killvar '$sleep_txt'
  237. end
  238. end
  239. --- bedrPar ---------------------------------