spalnya 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180
  1. # spalnya
  2. CLOSE ALL
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $metkaM = $ARGS[0]
  6. $locM = $CURLOC
  7. minut += 5
  8. tanhouse1 = 1
  9. gs 'stat'
  10. '<center><b>Bedroom</b></center>'
  11. '<center><img src="images/img/centr/spaln.jpg"></center>'
  12. 'The room is a very good size, there is a <a href="exec:gt ''bed'', ''start''">double bed</a> and an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a>.'
  13. 'Also, an expensive 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>) stands against a wall, beside which stands a make-up table with a <a href="exec:gt ''mirror'', ''start''">mirror</a> on it.'
  14. if komp = 1:
  15. $komp = ' with your <a href="exec:gt ''Komp'', ''start''">laptop</a> on it'
  16. else
  17. $komp = ''
  18. end
  19. 'A luxury <a href="exec:gt ''divan'', ''start''">leather sofa</a> against a wall. Mounted on the wall opposite the sofa is a huge plasma <a href="exec:gt ''TV'', ''start''">TV</a>. Under the window is a new <a href="exec:gt ''stol'', ''start''">desk</a><<$komp>>.'
  20. if obruch > 0:'<br>A hula hoop stands in corner of the room. '
  21. if skak > 0:'A jump rope is on a shelf. '
  22. if bookYog > 0:'A yoga mat is rolled up in a corner. '
  23. if mishka > 0:'On a shelf is <<mishka>> teddy bear'
  24. sports = 0
  25. $sportStringPrefix = ''
  26. if obruch > 0 and obruchday ! daystart:
  27. $sitrobr = $sportStringPrefix + ' <a href="exec:dynamic $sitrobrd">twist hoop</a>'
  28. sports = 1
  29. $sportStringPrefix = ', '
  30. else
  31. $sitrobr = ''
  32. end
  33. if bookYog > 0 and bookYogday ! daystart:
  34. $sitryog = $sportStringPrefix + ' <a href="exec:dynamic $sitryogd">meditation</a>'
  35. sports = 1
  36. $sportStringPrefix = ', '
  37. else
  38. $sitryog = ''
  39. end
  40. if skak > 0 and skakday ! daystart:
  41. $sitrskak = $sportStringPrefix + ' <a href="exec:dynamic $sitrskakd">jumping rope</a>'
  42. sports = 1
  43. $sportStringPrefix = ', '
  44. else
  45. $sitrskak = ''
  46. end
  47. if pressday ! daystart:
  48. $sitrpress = $sportStringPrefix + ' <a href="exec:dynamic $sitrpressd">abdominal exercises</a>'
  49. sports = 1
  50. $sportStringPrefix = ', '
  51. else
  52. $sitrpress = ''
  53. end
  54. if pushday ! daystart:
  55. $sitrpush = ' <a href="exec:dynamic $sitrpushd">push-ups</a>'
  56. sports = 1
  57. $sportStringPrefix = ', '
  58. else
  59. $sitrpush = ''
  60. end
  61. if sports = 1:
  62. $sportsitr = '<<$sitrpush>><<$sitrpress>><<$sitrskak>><<$sitrobr>><<$sitr_tread>><<$sitryog>>'
  63. 'The room has enough space for a variety of sporting activities:<<$sportsitr>>.'
  64. end
  65. if suhbelo2 > 0:'<br>Lying on the table are <<suhbelo2>> pieces of dried laundry, that need <a href="exec:dynamic $gladbelo">to be ironed</a>.'
  66. act 'Goto the corridor':
  67. if $clothingworntype ! 'nude':
  68. gt 'house'
  69. else
  70. msg'<b><font color = red>You need to get dressed.</font></b>'
  71. gt $CURLOC
  72. end
  73. end
  74. act 'Study (2:00)':
  75. cla
  76. minut += 120
  77. intel += 1
  78. 'You spend two hours studying and now feel a little smarter.'
  79. act 'Finish':gt 'spalnya'
  80. end
  81. if student > 0 and kursovik < 100:
  82. act 'Write course work (1:00)':
  83. cla
  84. *clr
  85. minut += 60
  86. kursovik += rand(intel / 20, intel / 10)
  87. if kursovik > 100:kursovik = 100
  88. manna -= 10
  89. '<center><img src="images/etogame/study.jpg"></center>'
  90. 'You work on your course work and have now completed <<kursovik>> percent.'
  91. act 'Finish':gt 'spalnya'
  92. end
  93. end
  94. gs 'events', 'read'
  95. if magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt'tobiQW','start'
  96. if sick >= 1:
  97. act 'Get some bed rest (illness)':
  98. cla
  99. *clr
  100. minut += 240
  101. sick -= 1
  102. if sick < 0:sick = 0
  103. gs'stat'
  104. '<center><img src="images/inBed/sick+rand(11,17)+.jpg"></center>'
  105. 'You lie in bed, coughing, sneezing and blowing your nose'
  106. act 'Get up': gt 'bedr'
  107. end
  108. end
  109. if horny >= 50:
  110. act 'Masturbate':
  111. gt'selfplay'
  112. end
  113. end
  114. if pornMagazine > 0:'Under your mattress you hide a porn magazine.' & dynamic $d_read_porn
  115. if tanga = 0 and clrbelo > 0:
  116. act 'Wear underwear':
  117. cla
  118. tanga = 1
  119. gt'spalnya'
  120. end
  121. else
  122. act 'Remove underwear':
  123. cla
  124. tanga = 0
  125. gt'spalnya'
  126. end
  127. end
  128. if dur > 0:'You have hidden <<dur>> doses pale lady'
  129. if dur > 0 and narkday ! daystart:
  130. act 'Take some coke (0:05)':
  131. cla
  132. *clr
  133. minut += 5
  134. narkday = daystart
  135. health = vital * 10 + stren * 5
  136. willpower = intel * 5 + will * 5
  137. manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
  138. horny = 100
  139. nark += 10
  140. dur -= 1
  141. '<center><img src="images/etogame/dur.jpg"></center>'
  142. 'You take a small dose of coke and not long after you just start to feel great.'
  143. act 'Leave':gt $curloc
  144. end
  145. end
  146. --- spalnya ---------------------------------