1
0

bedrPar 6.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213
  1. # bedrPar
  2. CLOSE ALL
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $metka = ''
  6. $loc = 'bedrPar'
  7. $location_type = 'private'
  8. clr
  9. minut += 1
  10. gs 'stat'
  11. if night_mode = 1:
  12. fcolor = rgb(255, 255, 255)
  13. bcolor = rgb(0, 0, 0)
  14. lcolor = rgb(106, 90, 205)
  15. else
  16. fcolor = rgb(0, 0, 0)
  17. bcolor = rgb(255, 255, 255)
  18. lcolor = rgb(106, 90, 205)
  19. end
  20. if pcs_magik >= 6 and spellbefshild = 1 and tobiQW = 0 and sisterHere < 2:gt 'tobiQW', 'start'
  21. if sisboyday + 1 = daystart and hour = 18:gt'sisterQW','sisboyQW_expel'
  22. '<center><h1><font color="maroon">Your bedroom</font></h1></center>'
  23. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  24. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/bedrpar.jpg"></center>'
  25. *nl
  26. 'This is the small bedroom you share with your sister, Anya. On one side of the room is a wardrobe that you can use to <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</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. 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.'
  27. 'In the bottom of your wardrobe you have <a href="exec:gt ''shoes'', ''select''">your shoes</a>.'
  28. if budilnikOn = 0:
  29. '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>.'
  30. else
  31. '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>.'
  32. end
  33. if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
  34. '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>.'
  35. elseif tabletki > 0:
  36. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers.'
  37. elseif prezik + prezikcount + preziksabo > 0:
  38. 'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are hidden in one of your desk drawers.'
  39. end
  40. if komp = 1:'Your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a> is on your desk.'
  41. gorodokKomp = 0
  42. gad = 0
  43. if npc_QW['A33'] > 10:npc_QW['A33'] = 10
  44. gs'dinsister'
  45. if clrbelo <= 4: clrbelo = 5
  46. act 'Exit the room':
  47. gt'korrPar'
  48. end
  49. if sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  50. gs'family'
  51. else
  52. gs'family'
  53. if rexCarCount >= 9 and sisterHere = 1 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
  54. act 'Take your sister''s phone':gt 'reks','sms'
  55. end
  56. if student > 0 and kursovik < 100:
  57. act 'Do coursework (1:00)':
  58. cla
  59. *clr
  60. minut += 60
  61. kursovik += rand(pcs_intel / 20, pcs_intel / 10)
  62. if kursovik > 100:kursovik = 100
  63. pcs_mood -= 10
  64. '<center><img <<$set_imgh>> src="images/pc/activities/study.jpg"></center>'
  65. 'You sit down at the desk and do your coursework, you''ve finished <<kursovik>> percent of it.'
  66. act 'Leave your desk':gt $curloc
  67. end
  68. end
  69. if pcs_horny >= 50 and sisterHere = 0:
  70. act 'Masturbate':gt 'selfplay', 'start'
  71. end
  72. if pornMagazine > 0:'You have hidden your porn magazines under the mattress of your bed.'
  73. if sisterHere = 0 and pornMagazine > 0:gs 'events', 'read_porn'
  74. gs 'events', 'read'
  75. if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry with you is 30.'
  76. if vcard > 0:
  77. act 'Look at your deck of vintage porn cards':card_deck = 0 & gt 'card'
  78. end
  79. if card > 0:
  80. act 'Look at your deck of new porn cards':card_deck = 1 & gt 'card'
  81. end
  82. ! if card > 0:
  83. ! if card > 1:
  84. ! act 'Look at your deck of vintage porn cards':gt 'card'
  85. ! elseif card = 2:
  86. ! act 'Look at your deck of new porn cards':gt 'card'
  87. ! elseif card = 1 and card = 2:
  88. ! act 'Look at your deck of vintage porn cards':gt 'card'
  89. ! act 'Look at your deck of new porn cards':gt 'card'
  90. ! end
  91. ! end
  92. if dur > 0:'You have hidden <<dur>> doses of Pale Lady.'
  93. if dur > 0 and narkday ! daystart:
  94. act 'Use some Pale Lady (0:05)':
  95. cla
  96. *clr
  97. minut += 5
  98. narkday = daystart
  99. pcs_health = pcs_vital * 10 + pcs_stren * 5
  100. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  101. pcs_mood = 100
  102. pcs_horny = 100
  103. nark += 10
  104. dur -= 1
  105. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  106. 'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  107. act 'Continue':gt $curloc
  108. end
  109. end
  110. end
  111. if tanga = 0:
  112. act 'Wear underwear':
  113. cla
  114. tanga = 1
  115. gt $curloc
  116. end
  117. elseif tanga = 1:
  118. act 'Take off your underwear':
  119. cla
  120. tanga = 0
  121. gt $curloc
  122. end
  123. end
  124. gs 'exercise', 'start'
  125. if gobelen>0:'You have <<gobelen>> completed tapestries.'
  126. if pcs_sewng >= 40 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
  127. if pcs_sewng >= 40 and tkan <= 0:'You do not have any fabric.'
  128. if pcs_sewng >= 80:
  129. if newgobelen = 0 and tkan > 0:
  130. act'Start a new tapestry':
  131. cls
  132. tkan -= 1
  133. newgobelen = 1
  134. minut += 15
  135. gs'stat'
  136. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  137. act'Set the tapestry aside':gt $curloc
  138. end
  139. end
  140. if newgobelen>=1:
  141. 'Your tapestry is <<newgobelen/10>> percent finished.'
  142. act'Work on the tapestry for an hour':
  143. cls
  144. minut+=60
  145. sewng_exp += rand(pcs_intel/10, pcs_intel/5)
  146. gobramax = (pcs_sewng - 70) * 6
  147. gobramin = (pcs_sewng - 70) * 2
  148. newgobelen += rand(gobramin,gobramax)
  149. gs'stat'
  150. if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  151. if newgobelen >= 1000:
  152. newgobelen = 0
  153. gobelen += 1
  154. 'Your work on the tapestry is done.'
  155. end
  156. act'Set the tapestry aside':gt $curloc
  157. end
  158. end
  159. end
  160. if pcs_sleep <= 80:
  161. if succubusQW = 2:
  162. act 'Undress and go to sleep':
  163. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  164. gt 'bed2', 'succhoice'
  165. end
  166. else
  167. act 'Undress and go to sleep':
  168. if disable_autosave = 0:
  169. if StoryLine = 0:
  170. savegame 'autosave.sav'
  171. else
  172. savegame 'autosave_alt.sav'
  173. end
  174. end
  175. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  176. if magf2bdo = 2:
  177. gt 'bed2', 'magbstchoice'
  178. else
  179. gt 'bed2', 'sleep'
  180. end
  181. end
  182. end
  183. end
  184. --- bedrPar ---------------------------------