bedrPar 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269
  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''">wardrobe</a> where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a>. On top of it is a <a href="exec:gt ''clothing'', ''view_clothing_list'', ''store''">suitcase</a> that you could use to store clothes that you don''t wear often.'
  64. '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.'
  65. *nl
  66. if popugai2 = 1:
  67. '<a href="exec:GT ''popu'',''start2''"><<$namepopu2>></a> is sitting in his cage'
  68. if daystart - parbuydate <= 10: '<<$namepopu2>> starts squawking at you when you enter the room.'
  69. 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>"'
  70. if daystart - parbuydate > 20 and daystart - parbuydate <= 30: 'When <<$namepopu2>> sees you he starts ''speaking''. He is clearly saying "<b>hello <<$pcs_nickname>></b>"'
  71. if daystart - parbuydate > 30 and daystart - parbuydate <= 35: 'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b><<$pcs_nickname>> very pretty</b>"'
  72. if daystart - parbuydate > 35 and daystart - parbuydate <= 40: 'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b><<$pcs_nickname>> great body</b>"'
  73. 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>"'
  74. 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>"'
  75. 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>"'
  76. if saveparQW = 3:
  77. parfixrand = rand(0,9)
  78. if parfixrand = 0:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>What Did You Say To Me?</b>"'
  79. if parfixrand = 1:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>3.1415926535897932384 ....</b>"'
  80. if parfixrand = 2:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Come Closer, My Friend</b>"'
  81. if parfixrand = 3:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Here Kitty, Kitty!</b>"'
  82. if parfixrand = 4:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>I Just Met You and This is Crazy</b>"'
  83. if parfixrand = 5:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Bow Before Me!</b>"'
  84. if parfixrand = 6:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>He’s Just a Friend, Honest!</b>"'
  85. if parfixrand = 7:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>What Did You Do To My Socks?</b>"'
  86. if parfixrand = 8:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>That’s What She Said!</b>"'
  87. if parfixrand = 9:'When <<$namepopu2>> sees you he starts ''speaking''. He is saying "<b>Help! They’ve Turned Me Into a Parrot!</b>"'
  88. end
  89. *nl
  90. end
  91. if budilnikOn = 0:
  92. '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>.'
  93. else
  94. '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>.'
  95. end
  96. if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
  97. '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>.'
  98. elseif tabletki > 0:
  99. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers.'
  100. elseif prezik + prezikcount + preziksabo > 0:
  101. 'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are hidden in one of your desk drawers.'
  102. end
  103. if komp = 1:'Your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a> is on your desk.'
  104. gorodokKomp = 0
  105. gad = 0
  106. gs 'subkid'
  107. if npc_QW['A33'] > 10:npc_QW['A33'] = 10
  108. gs'dinsister'
  109. act 'Exit the room':
  110. if sisterHere = 2 and daystart - parbuydate > 55 and popugai2 = 1 and sisrelparday = 0 :gt'sister','pargone'
  111. gt'korrPar'
  112. end
  113. if sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  114. gs'family'
  115. else
  116. gs'family'
  117. if rexCarCount >= 9 and sisterHere = 1 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
  118. act 'Send Rex a SMS message':gt 'reks','sms'
  119. end
  120. if student > 0 and kursovik < 100:
  121. act 'Do coursework (1:00)':
  122. cla
  123. *clr
  124. minut += 60
  125. kursovik += rand(pcs_intel / 20, pcs_intel / 10)
  126. if kursovik > 100:kursovik = 100
  127. pcs_mood -= 10
  128. '<center><img <<$set_imgh>> src="images/pc/activities/study.jpg"></center>'
  129. 'You sit down at the desk and do your coursework, you''ve finished <<kursovik>> percent of it.'
  130. act 'Leave your desk':gt $curloc
  131. end
  132. end
  133. !!Masturbation, allowed after sister threesome (when sis_watch is used for a message) or sister not here.
  134. sis_watch = 0
  135. if pcs_horny >= 50 and (sisboytrio > 0 or sisterHere = 0):
  136. act 'Masturbate':gt 'selfplay', 'start'
  137. end
  138. if pornMagazine > 0:'You have hidden your porn magazines under the mattress of your bed.'
  139. if (sisboytrio > 0 or sisterHere = 0) and pornMagazine > 0:gs 'events', 'read_porn'
  140. gs 'events', 'read'
  141. if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry with you is 30.'
  142. if vcard > 0:
  143. act 'Look at your deck of vintage porn cards':card_deck = 0 & gt 'card'
  144. end
  145. if card > 0:
  146. act 'Look at your deck of new porn cards':card_deck = 1 & gt 'card'
  147. end
  148. ! if card > 0:
  149. ! if card > 1:
  150. ! act 'Look at your deck of vintage porn cards':gt 'card'
  151. ! elseif card = 2:
  152. ! act 'Look at your deck of new porn cards':gt 'card'
  153. ! elseif card = 1 and card = 2:
  154. ! act 'Look at your deck of vintage porn cards':gt 'card'
  155. ! act 'Look at your deck of new porn cards':gt 'card'
  156. ! end
  157. ! end
  158. if dur > 0:'You have hidden <<dur>> doses of Pale Lady.'
  159. if dur > 0 and narkday ! daystart:
  160. act 'Use some Pale Lady (0:05)':
  161. cla
  162. *clr
  163. minut += 5
  164. narkday = daystart
  165. pcs_health = pcs_vital * 10 + pcs_stren * 5
  166. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  167. pcs_mood = 100
  168. pcs_horny = 100
  169. nark += 10
  170. dur -= 1
  171. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  172. 'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  173. act 'Continue':gt $curloc
  174. end
  175. end
  176. end
  177. gs 'exercise', 'start'
  178. if gobelen>0:'You have <<gobelen>> completed tapestries.'
  179. if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
  180. if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
  181. if pcs_sewng >= 80:
  182. if newgobelen = 0 and tkan > 0:
  183. act'Start a new tapestry':
  184. cls
  185. tkan -= 1
  186. newgobelen = 1
  187. minut += 15
  188. gs'stat'
  189. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  190. act'Set the tapestry aside':gt $curloc
  191. end
  192. end
  193. if newgobelen>=1:
  194. 'Your tapestry is <<newgobelen/10>> percent finished.'
  195. act'Work on the tapestry for an hour':
  196. cls
  197. minut+=60
  198. sewng_exp += rand(pcs_intel/10, pcs_intel/5)
  199. gobramax = (pcs_sewng - 70) * 6
  200. gobramin = (pcs_sewng - 70) * 2
  201. newgobelen += rand(gobramin,gobramax)
  202. gs'stat'
  203. if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  204. if newgobelen >= 1000:
  205. newgobelen = 0
  206. gobelen += 1
  207. 'Your work on the tapestry is done.'
  208. end
  209. act'Set the tapestry aside':gt $curloc
  210. end
  211. end
  212. end
  213. if pcs_sleep <= 80:
  214. if succubusQW = 2:
  215. act 'Undress and go to sleep':
  216. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  217. gt 'bed2', 'succhoice'
  218. end
  219. else
  220. act 'Undress and go to sleep':
  221. if disable_autosave = 0:
  222. if StoryLine = 0:
  223. savegame 'autosave.sav'
  224. else
  225. savegame 'autosave_alt.sav'
  226. end
  227. end
  228. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  229. if magf2bdo = 2:
  230. gt 'bed2', 'magbstchoice'
  231. else
  232. gt 'bed2', 'sleep'
  233. end
  234. end
  235. end
  236. end
  237. --- bedrPar ---------------------------------