tanspalnya 5.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176
  1. # tanspalnya
  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>Your Bedroom in Nicholas'' Apartment</b></center>'
  11. '<center><img src="images/img/centr/spaln.jpg"></center>'
  12. 'Your bedroom is fairly large, considering you''re only an employee. There is a small <a href="exec:gt ''bed'', ''start''">double bed</a> and an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a>.'
  13. 'Half a wall is taken up by an expensive-looking 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>). There''s a make-up table with a <a href="exec:gt ''mirror'', ''start''">mirror</a> next to it.'
  14. if komp = 1:
  15. $komp = 'with your <a href="exec:gt ''Komp'', ''start''">laptop</a>.'
  16. else
  17. $komp = ''
  18. end
  19. 'A luxurious <a href="exec:gt ''divan'', ''start''">leather sofa</a> is also part of the ensemble. Mounted on the wall opposite the sofa is a huge plasma <a href="exec:gt ''TV'', ''start''">TV</a>. Under the window, you see a brand-new <a href="exec:gt ''stol'', ''start''">desk</a><<$komp>>.'
  20. if obruch > 0:'<br>Your hula hoop stands in a corner of the room. '
  21. if skak > 0:'Your jump rope is sitting on a shelf. '
  22. if bookYog > 0:'A yoga mat is rolled up in a corner next to the wardrobe. '
  23. if mishka > 0:'On one of the shelves, you''ve placed your <<mishka>> teddy bear.'
  24. gs 'events', 'sport'
  25. 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>.'
  26. act 'Go to the corridor':
  27. if $clothingworntype ! 'nude':
  28. gt 'tanhouse'
  29. else
  30. msg'<b><font color = red>You probably shouldn''t walk around naked, especially not at your workplace. You need to get dressed.</font></b>'
  31. gt $CURLOC
  32. end
  33. end
  34. act 'Study (2:00)':
  35. cla
  36. minut += 120
  37. pcs_intel += 1
  38. 'You spend two hours studying and feel a little smarter now.'
  39. act 'Finish':gt 'tanspalnya'
  40. end
  41. if student > 0 and kursovik < 100:
  42. act 'Write course work (1:00)':
  43. cla
  44. *clr
  45. minut += 60
  46. kursovik += rand(pcs_intel / 20, pcs_intel / 10)
  47. if kursovik > 100:kursovik = 100
  48. manna -= 10
  49. '<center><img src="images/etogame/study.jpg"></center>'
  50. 'You work on your course work and have now completed <<kursovik>> percent.'
  51. act 'Finish':gt 'tanspalnya'
  52. end
  53. end
  54. gs 'events', 'read'
  55. if magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt'tobiQW','start'
  56. if sick >= 1:
  57. act 'Get some bed rest (illness)':
  58. cla
  59. *clr
  60. minut += 240
  61. sick -= 1
  62. if sick < 0:sick = 0
  63. gs'stat'
  64. '<center><img src="images/inBed/sick+rand(11,17)+.jpg"></center>'
  65. 'You lie in bed, coughing, sneezing, blowing your nose... and, as if that wasn''t enough, you also think you might be getting a headache.'
  66. 'Drifting in and out of sleep, you spend about 4 hours tossing and turning, trying to sweat out the illness, and you actually feel better when you decide to stretch your legs.'
  67. act 'Get up': gt 'bedr'
  68. end
  69. end
  70. if pcs_horny >= 50:
  71. act 'Masturbate':
  72. gt'selfplay'
  73. end
  74. end
  75. if pornMagazine > 0:'You hide a porn magazine under your mattress.' & dynamic $d_read_porn
  76. if tanga = 0 and clrbelo > 0:
  77. act 'Wear underwear':
  78. cla
  79. tanga = 1
  80. gt'tanspalnya'
  81. end
  82. else
  83. act 'Remove underwear':
  84. cla
  85. tanga = 0
  86. gt'tanspalnya'
  87. end
  88. end
  89. if dur > 0:'You have hidden <<dur>> doses of Pale Lady behind your wardrobe.'
  90. if dur > 0 and narkday ! daystart:
  91. act 'Take some cocaine (0:05)':
  92. cla
  93. *clr
  94. minut += 5
  95. narkday = daystart
  96. health = pcs_vital * 10 + pcs_stren * 5
  97. willpower = pcs_intel * 5 + will * 5
  98. manna = (pcs_intel * magik) + magik * 100 + pcs_vital * 10 + rikudo
  99. pcs_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 start to feel great, as if you could do anything, <b>be</b> anything - but you''re also starting to feel incredibly horny.'
  104. act 'Leave':gt $curloc
  105. end
  106. end
  107. if MaidWorkDay ! daystart:
  108. MaidWorkDay = daystart
  109. MaidWork = 0
  110. TanHallClean = 0
  111. TanRoomClean = 0
  112. TanBathClean = 0
  113. TanMasterClean = 0
  114. TanLivingClean = 0
  115. TanMaidRoomClean = 0
  116. TanKitchenClean = 0
  117. TanMadeBreakfast = 0
  118. end
  119. if tan_work_evalDay ! daystart and tan_work_evaluation = 1:
  120. tan_work_evalDay = daystart
  121. tan_work_evaluation = 0
  122. elseif tan_work_evalDay ! daystart and tan_work_evaluation = 0:
  123. tan_work_evalDay = daystart
  124. tan_work_rep -= 1
  125. ''
  126. 'You did not go to see Nicholas yesterday evening. Regardless of how much or little work you did, this is sure to decrease your professional standing with him as your employer.'
  127. tan_work_evaluation = 0
  128. end
  129. if TanMaidRoomClean = 0:
  130. act 'Clean your Room':
  131. cla
  132. minut += 30
  133. TanMaidRoomClean = 1
  134. MaidWork += 1
  135. gs 'stat'
  136. nl
  137. ''
  138. 'You vacuum, wet wipe, dust and polish all the surfaces and objects in your room, knowing well that, if a guest wanted to take a look inside, you''d embarrass Nicholas if this room wasn''t in as perfect a condition as is expected of all the others.'
  139. 'At least you are free to wear whatever you want while you clean your room, you think.'
  140. act 'Finish cleaning':
  141. gt 'tanspalnya'
  142. end
  143. end
  144. end
  145. --- tanspalnya ---------------------------------