1
0

bedrPar 5.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184
  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 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. if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
  28. '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>.'
  29. elseif tabletki > 0:
  30. 'Your <a href="exec:gt ''stol'', ''bc''">birth control</a> is hidden in one of your desk drawers.'
  31. elseif prezik + prezikcount + preziksabo > 0:
  32. 'Your <a href="exec:gt ''stol'', ''bc''">condoms</a> are hidden in one of your desk drawers.'
  33. end
  34. if komp = 1:'Your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a> is on your desk.'
  35. gorodokKomp = 0
  36. gad = 0
  37. if npc_QW['A33'] > 10:npc_QW['A33'] = 10
  38. gs'dinsister'
  39. if clrbelo <= 4: clrbelo = 5
  40. act 'Exit the room':
  41. gt'korrPar'
  42. end
  43. if sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  44. gs'family'
  45. else
  46. gs'family'
  47. if rexCarCount >= 9 and sisterHere = 1 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
  48. act 'Take your sister''s phone':gt 'reks','sms'
  49. end
  50. if student > 0 and kursovik < 100:
  51. act 'Do coursework (1:00)':
  52. cla
  53. *clr
  54. minut += 60
  55. kursovik += rand(pcs_intel / 20, pcs_intel / 10)
  56. if kursovik > 100:kursovik = 100
  57. pcs_mood -= 10
  58. '<center><img src="images/pc/activities/study.jpg"></center>'
  59. 'You sit down at the desk and do your coursework, you''ve finished <<kursovik>> percent of it.'
  60. act 'Leave your desk':gt $curloc
  61. end
  62. end
  63. if pcs_horny >= 50 and sisterHere = 0:
  64. act 'Masturbate':gt 'selfplay'
  65. end
  66. if pornMagazine > 0:'You have hidden your porn magazines under the mattress of your bed.'
  67. if sisterHere = 0 and pornMagazine > 0:gs 'events', 'read_porn'
  68. gs 'events', 'read'
  69. if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry with you is 30.'
  70. if vcard > 0:
  71. act 'Look at your deck of vintage porn cards':card_deck = 0 & gt 'card'
  72. end
  73. if card > 0:
  74. act 'Look at your deck of new porn cards':card_deck = 1 & gt 'card'
  75. end
  76. ! if card > 0:
  77. ! if card > 1:
  78. ! act 'Look at your deck of vintage porn cards':gt 'card'
  79. ! elseif card = 2:
  80. ! act 'Look at your deck of new porn cards':gt 'card'
  81. ! elseif card = 1 and card = 2:
  82. ! act 'Look at your deck of vintage porn cards':gt 'card'
  83. ! act 'Look at your deck of new porn cards':gt 'card'
  84. ! end
  85. ! end
  86. if dur > 0:'You have hidden <<dur>> doses of Pale Lady.'
  87. if dur > 0 and narkday ! daystart:
  88. act 'Use some Pale Lady (0:05)':
  89. cla
  90. *clr
  91. minut += 5
  92. narkday = daystart
  93. pcs_health = pcs_vital * 10 + pcs_stren * 5
  94. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  95. pcs_mood = 100
  96. pcs_horny = 100
  97. nark += 10
  98. dur -= 1
  99. '<center><img src="images/shared/drugs/dur.jpg"></center>'
  100. 'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  101. act 'Continue':gt $curloc
  102. end
  103. end
  104. end
  105. if tanga = 0:
  106. act 'Wear underwear':
  107. cla
  108. tanga = 1
  109. gt $curloc
  110. end
  111. elseif tanga = 1:
  112. act 'Take off your underwear':
  113. cla
  114. tanga = 0
  115. gt $curloc
  116. end
  117. end
  118. gs 'exercise', 'start'
  119. if gobelen>0:'You have <<gobelen>> completed tapestries.'
  120. if pcs_sewng >= 50 and tkan > 0:'You have enough fabric for <<tkan>> lessons.'
  121. if pcs_sewng >= 50 and tkan <= 0:'You do not have any fabric.'
  122. if pcs_sewng >= 200:
  123. if newgobelen = 0 and tkan > 0:
  124. act'Start a new tapestry':
  125. cls
  126. tkan -= 1
  127. newgobelen = 1
  128. minut += 15
  129. gs'stat'
  130. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  131. act'Set the tapestry aside':gt $curloc
  132. end
  133. end
  134. if newgobelen>=1:
  135. 'Your tapestry is <<newgobelen/10>> percent finished.'
  136. act'Work on the tapestry for an hour':
  137. cls
  138. minut+=60
  139. sewng_exp += rand(0,1000)
  140. gobramax = pcs_sewng / 100
  141. gobramin = pcs_sewng / 200
  142. newgobelen += rand(gobramin,gobramax)
  143. gs'stat'
  144. if newgobelen < 1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  145. if newgobelen >= 1000:
  146. newgobelen = 0
  147. gobelen += 1
  148. 'Your work on the tapestry is done.'
  149. end
  150. act'Set the tapestry aside':gt $curloc
  151. end
  152. end
  153. end
  154. --- bedrPar ---------------------------------