1
0

bedrPar 5.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194
  1. # bedrPar
  2. CLOSE ALL
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. clr
  8. minut += 1
  9. gs 'stat'
  10. fcolor = rgb(0, 0, 0)
  11. bcolor = rgb(255, 255, 255)
  12. lcolor = rgb(106, 90, 205)
  13. if magik >= 6 and spellbefshild = 1 and tobiQW = 0 and sisterHere < 2:gt 'tobiQW', 'start'
  14. if sisboyday + 1 = daystart and hour = 18:gt'sisterQW','sisboyQW_expel'
  15. '<center><b><font color="maroon">Your bedroom</font></b></center>'
  16. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  17. '<center><img src="images/qwest/alter/bedrPar.jpg"></center>'
  18. 'A small room in which you and your sister live. It contains a wardrobe (where you can <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 there''s a <a href="exec:gt ''clothing'', ''view_clothing_list'', ''store''">suitcase</a> you can store some clothes in. Also your <a href="exec:gt ''bed2''">bed</a>, a <a href="exec:gt ''stol'' ,''stolPar''">desk</a> and your sister''s bed. You hide your birth control in a drawer in your desk.'
  19. if komp = 1:'Your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a> is on the desk.'
  20. gorodokKomp = 0
  21. gad = 0
  22. if sisboyQW > 10:sisboyQW = 10
  23. gs'dinsister'
  24. if clrbelo <= 4: clrbelo = 5
  25. act 'Exit the room':
  26. gt'korrPar'
  27. end
  28. if sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
  29. gs'family'
  30. else
  31. gs'family'
  32. if rexCarCount >= 9 and sisterHere = 1 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
  33. act 'Take your sister''s phone':gt 'reks','sms'
  34. end
  35. if student > 0 and kursovik < 100:
  36. act 'Do coursework (1:00)':
  37. cla
  38. *clr
  39. minut += 60
  40. kursovik += rand(intel / 20, intel / 10)
  41. if kursovik > 100:kursovik = 100
  42. manna -= 10
  43. '<center><img src="images/etogame/study.jpg"></center>'
  44. 'You sit down at the desk and do your coursework, you''ve finished <<kursovik>> percent of it.'
  45. act 'Leave your desk':gt $curloc
  46. end
  47. end
  48. if horny >= 50 and sisterHere = 0:
  49. act 'Masturbate':gt 'selfplay'
  50. end
  51. if pornMagazine > 0:'You have hidden your porn magazines under the mattress of your bed.'
  52. if sisterHere = 0 and pornMagazine > 0:dynamic $d_read_porn
  53. gs 'events', 'read'
  54. if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry with you is 30.'
  55. if card > 0:
  56. act 'Look at your deck of cards':gt 'card'
  57. end
  58. if dur > 0:'You have hidden <<dur>> doses of Pale Lady.'
  59. if dur > 0 and narkday ! daystart:
  60. act 'Use some Pale Lady (0:05)':
  61. cla
  62. *clr
  63. minut += 5
  64. narkday = daystart
  65. health = vital * 10 + stren * 5
  66. willpower = intel * 5 + will * 5
  67. manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
  68. horny = 100
  69. nark += 10
  70. dur -= 1
  71. '<center><img src="images/etogame/dur.jpg"></center>'
  72. 'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  73. act 'Continue':gt $curloc
  74. end
  75. end
  76. end
  77. if tanga = 0:
  78. act 'Wear underwear':
  79. cla
  80. tanga = 1
  81. gt $curloc
  82. end
  83. elseif tanga = 1:
  84. act 'Take off your underwear':
  85. cla
  86. tanga = 0
  87. gt $curloc
  88. end
  89. end
  90. sports = 0
  91. if obruch > 0 and obruchday ! daystart:
  92. $sitrobr = '<a href="exec: dynamic $sitrobrd ">Hula hoop</a>'
  93. sports = 1
  94. else
  95. $sitrobr = ''
  96. end
  97. if bookYog > 0 and bookYogday ! daystart:
  98. $sitryog = '<a href="exec: dynamic $sitryogd ">Meditate</a>'
  99. sports = 1
  100. else
  101. $sitryog = ''
  102. end
  103. if skak > 0 and skakday ! daystart:
  104. $sitrskak = '<a href="exec: dynamic $sitrskakd ">Jumping rope</a>'
  105. sports = 1
  106. else
  107. $sitrskak = ''
  108. end
  109. if pressday ! daystart:
  110. $sitrpress = '<a href="exec: dynamic $sitrpressd ">Abdominal exercises</a>'
  111. sports = 1
  112. else
  113. $sitrpress = ''
  114. end
  115. if pushday ! daystart:
  116. $sitrpush = '<a href="exec: dynamic $sitrpushd ">Push-ups</a>'
  117. sports = 1
  118. else
  119. $sitrpush = ''
  120. end
  121. $sportsitr = '<<$sitrpush>> <<$sitrpress>> <<$sitrskak>> <<$sitryog>> <<$sitrobr>>'
  122. if sports = 1:
  123. 'There isn''t much space in the room, but enough for a variety of sport activities such as:'
  124. '<center><<$sportsitr>></center>'
  125. end
  126. if gobelen>0:'You have <<gobelen>> completed tapestries.'
  127. if poSkill>=50 and tkan>0:'You have enough fabric for <<tkan>> lessons.'
  128. if poSkill>=50 and tkan<=0:'You do not have any fabric.'
  129. if poSkill>=200:
  130. if newgobelen=0 and tkan>0:
  131. act'Start a new tapestry':
  132. cls
  133. tkan-=1
  134. newgobelen=1
  135. minut+=15
  136. gs'stat'
  137. 'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
  138. act'Set the tapestry aside':gt $curloc
  139. end
  140. end
  141. if newgobelen>=1:
  142. 'Your tapestry is <<newgobelen/10>> percent finished.'
  143. act'Work on the tapestry for an hour':
  144. cls
  145. minut+=60
  146. poSkill+=rand(0,1000)
  147. gobramax=poSkill/100
  148. gobramin=poSkill/200
  149. newgobelen+=rand(gobramin,gobramax)
  150. gs'stat'
  151. if newgobelen<1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
  152. if newgobelen>=1000:
  153. newgobelen=0
  154. gobelen+=1
  155. 'Your work on the tapestry is done.'
  156. end
  157. act'Set the tapestry aside':gt $curloc
  158. end
  159. end
  160. end
  161. --- bedrPar ---------------------------------