spalnya 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134
  1. # spalnya
  2. CLOSE ALL
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $metkaM = ''
  6. $locM = 'spalnya'
  7. $location_type = 'private'
  8. minut += 5
  9. tanhouse1 = 1
  10. gs 'stat'
  11. '<center><b>Bedroom</b></center>'
  12. '<center><img src="images/img/centr/spaln.jpg"></center>'
  13. '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>.'
  14. '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.'
  15. if komp = 1:
  16. $komp = ' with your <a href="exec:gt ''Komp'', ''start''">laptop</a> on it'
  17. else
  18. $komp = ''
  19. end
  20. '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>>.'
  21. if obruch > 0:'<br>A hula hoop stands in corner of the room. '
  22. if skak > 0:'A jump rope is on a shelf. '
  23. if bookYog > 0:'A yoga mat is rolled up in a corner. '
  24. if mishka > 0:'On a shelf is <<mishka>> teddy bear'
  25. gs 'events', 'sport'
  26. 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>.'
  27. act 'Goto the corridor':
  28. if $clothingworntype ! 'nude':
  29. gt 'house'
  30. else
  31. msg'<b><font color = red>You need to get dressed.</font></b>'
  32. gt $CURLOC
  33. end
  34. end
  35. act 'Study (2:00)':
  36. cla
  37. minut += 120
  38. intel += 1 + (mentats_dose - rand(0,mentats_dose))
  39. 'You spend two hours studying and now feel a little smarter.'
  40. act 'Finish':gt 'spalnya'
  41. end
  42. if student > 0 and kursovik < 100:
  43. act 'Write course work (1:00)':
  44. cla
  45. *clr
  46. minut += 60
  47. kursovik += rand(intel / 20, intel / 10)
  48. if kursovik > 100:kursovik = 100
  49. manna -= 10
  50. '<center><img src="images/etogame/study.jpg"></center>'
  51. 'You work on your course work and have now completed <<kursovik>> percent.'
  52. act 'Finish':gt 'spalnya'
  53. end
  54. end
  55. gs 'events', 'read'
  56. if magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt'tobiQW','start'
  57. if sick >= 1:
  58. act 'Get some bed rest (illness)':
  59. cla
  60. *clr
  61. minut += 240
  62. sick -= 1
  63. if sick < 0:sick = 0
  64. gs'stat'
  65. '<center><img src="images/inbed/sick+rand(11,17)+.jpg"></center>'
  66. 'You lie in bed, coughing, sneezing and blowing your nose'
  67. act 'Get up': gt 'bedr'
  68. end
  69. end
  70. if horny >= 50:
  71. act 'Masturbate':
  72. gt'selfplay'
  73. end
  74. end
  75. if pornMagazine > 0:'Under your mattress you hide a porn magazine.' & gs 'events', 'read_porn'
  76. if tanga = 0 and clrbelo > 0:
  77. act 'Wear underwear':
  78. cla
  79. tanga = 1
  80. gt'spalnya'
  81. end
  82. else
  83. act 'Remove underwear':
  84. cla
  85. tanga = 0
  86. gt'spalnya'
  87. end
  88. end
  89. if dur > 0:'You have hidden <<dur>> doses pale lady'
  90. if dur > 0 and narkday ! daystart:
  91. act 'Take some coke (0:05)':
  92. cla
  93. *clr
  94. minut += 5
  95. narkday = daystart
  96. health = vital * 10 + stren * 5
  97. willpower = intel * 5 + will * 5
  98. manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
  99. horny = 100
  100. nark += 10
  101. dur -= 1
  102. '<center><img src="images/etogame/dur.jpg"></center>'
  103. 'You take a small dose of coke and not long after you just start to feel great.'
  104. act 'Leave':gt $curloc
  105. end
  106. end
  107. --- spalnya ---------------------------------