nichBedroomServant.qsrc 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207
  1. # nichBedroomServant
  2. CLOSE ALL
  3. $metka = ''
  4. $loc = 'nichBedroomServant'
  5. $locM = $loc
  6. $nichLoc = 'servant'
  7. $metkaM = ''
  8. $location_type = 'private'
  9. $locclass = 'bedr'
  10. $menu_loc = 'nichBedroomServant'
  11. $menu_arg = ''
  12. menu_off = 0
  13. tanhouse1 = 1
  14. !! Has to happen before there is any output
  15. if nichWork = 2:
  16. if nichLastWorkDay ! daystart:
  17. gs 'nichUtil', 'startWorkday'
  18. end
  19. !! this code has to be include everywhere where PC can change clothes or enter the apartment
  20. gs 'nichUtil', 'checkOutfit'
  21. end
  22. !! Argument return: PC has been in the room before, dont perform actions meant to be executed before or as she enters the room.
  23. if $ARGS[0] = '' or $ARGS[0] = 'start' or $ARGS[0] = 'return':
  24. gs 'stat'
  25. '<center><b>Your Bedroom in Nicholas'' Apartment</b></center>'
  26. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/nichApartment/bedroomServant.jpg"></center>'
  27. '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>.'
  28. 'Half a wall is taken up by an expensive-looking <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing). There''s a make-up table with a <a href="exec:gt ''mirror'', ''start''">mirror</a> next to it.'
  29. if komp = 1:
  30. $komp = ' with your <a href="exec:gt ''Komp'', ''start''">laptop</a>.'
  31. else
  32. $komp = '.'
  33. end
  34. '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 big flat <a href="exec:gt ''TV'', ''start''">TV</a>. Under the window, you see a brand-new <a href="exec:gt ''nichBedroomServant'', ''desk''">desk</a><<$komp>>'
  35. if obruch > 0:'<br>Your hula hoop stands in a corner of the room. '
  36. if skak > 0:'Your jump rope is sitting on a shelf. '
  37. if bookYog > 0:'A yoga mat is rolled up in a corner next to the wardrobe. '
  38. if mishka > 0:'On one of the shelves, you''ve placed your <<mishka>> teddy bear.'
  39. gs 'exercise', 'start'
  40. if nichSalaryOutstanding > 0:
  41. *nl
  42. 'On top of your desk lies your paycheck over <<nichSalaryOutstanding>> <b>?</b>(<a href="exec:gt ''nichBedroomServant'', ''redeemSalary''">redeem</a>).'
  43. end
  44. act 'Go to the hallway':
  45. if nichEvtGalaTele1 = 1 and nichGalaOpinion = 1 and (rand(1,100) <= 40 or nichDebug = 1):
  46. gt 'nichBedroomServant', 'evtBodyguardIntim1'
  47. elseif nichGalaOpponent = 31 and (rand(1,100) <= 10 or nichDebug = 1):
  48. !!Todo: Sveta gets abducted
  49. else
  50. if $clothingworntype ! 'nude':
  51. minut += 1
  52. gt 'nichApartment'
  53. else
  54. msg'<b><font color = red>You probably shouldn''t walk around naked, especially not at your workplace. You need to get dressed.</font></b>'
  55. gt $CURLOC
  56. end
  57. end
  58. end
  59. act 'Go to the servant bathroom':
  60. gt 'nichBathServant'
  61. end
  62. act 'Study (2:00)':
  63. *clr & cla
  64. menu_off = 1
  65. minut += 120
  66. intel_exp += 1
  67. '<center><img <<$set_imgh>> src="images/pc/activities/study.jpg"></center>'
  68. 'You spend two hours studying and feel a little smarter now.'
  69. act 'Finish':gt $loc
  70. end
  71. if student > 0 and kursovik < 100:
  72. act 'Write course work (1:00)':
  73. *clr & cla
  74. menu_off = 1
  75. minut += 60
  76. kursovik += rand(pcs_intel / 20, pcs_intel / 10)
  77. if kursovik > 100:kursovik = 100
  78. pcs_mood -= 10
  79. '<center><img <<$set_imgh>> src="images/pc/activities/study.jpg"></center>'
  80. 'You work on your course work and have now completed <<kursovik>> percent.'
  81. act 'Finish':gt $loc
  82. end
  83. end
  84. gs 'events', 'read'
  85. if pcs_magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt'tobiQW','start'
  86. if sick >= 1:
  87. act 'Get some bed rest (illness)':
  88. *clr & cla
  89. menu_off = 1
  90. minut += 240
  91. sick -= 1
  92. if sick < 0:sick = 0
  93. gs'stat'
  94. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick'+rand(11,17)+'.jpg"></center>'
  95. '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.'
  96. '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.'
  97. act 'Get up': gt 'bedr'
  98. end
  99. end
  100. if pcs_horny >= 50: act 'Masturbate': gt'selfplay', 'start'
  101. if pornMagazine > 0:'You hide a porn magazine under your mattress.' & dynamic $d_read_porn
  102. if dur > 0:'You have hidden <<dur>> doses of Pale Lady behind your wardrobe.'
  103. if dur > 0 and narkday ! daystart:
  104. act 'Take some cocaine (0:05)':
  105. *clr & cla
  106. menu_off = 1
  107. minut += 5
  108. narkday = daystart
  109. pcs_health = pcs_vital * 10 + pcs_stren * 5
  110. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  111. pcs_manna = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
  112. pcs_mood = 100
  113. pcs_horny = 100
  114. nark += 10
  115. dur -= 1
  116. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  117. '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.'
  118. act 'Leave':gt $curloc
  119. end
  120. end
  121. if nichWork = 2:
  122. gs 'nichChore','inspect','servant'
  123. end
  124. elseif $ARGS[0] = 'evtBodyguardIntim1':
  125. *clr & cla
  126. '<center><img <<$set_imgh>> src="images/characters/city/taras/encounter1.jpg"></center>'
  127. 'Before you have the chance to leave your room you get pushed back inside by a man you don''t know yet.'
  128. 'Taken by surpise you can only gasp as he painfully turns your right arm around, forcing you into a bent over position.'
  129. 'He obviously knows what he is doing. He has expertly fixated you with just one hand, leaving you next to no room to move.'
  130. '"Let me introduce myself. My name is Taras, but you will call me Sir. I am the bodyguard of Mistress Gala. I am responsible for protecting not only her life and health, but also the good reputation of her family."'
  131. '"She told me that her husband hired a little skank as his new maid."'
  132. 'You gasp in surprise as he pulls up your skirt leaving your butt exposed.'
  133. '"And from the looks of it she is right. Not that I would have doubted her word."'
  134. 'He smacks your left buttock painfully.'
  135. '"Of course that can''t be accepted."'
  136. 'He smacks your other buttock.'
  137. '"Consider this your first and only warning. If you whore around this house, if you make Mistress Gala unhappy in any way, you will regret it."'
  138. 'He smacks your left buttock again.'
  139. '"Do you understand?"'
  140. !! Todo: Disagree
  141. 'Unable to resist in you current position you meekly nod your head "Yes."'
  142. 'The right buttock again.'
  143. '"Yes what?"'
  144. '"Yes sir, I understand."'
  145. 'He waits for another few seconds before gently stroking your hair and then releasing you.'
  146. '"Good girl. I would hate to actually hurt you." with this obvious lie he leaves your room.'
  147. gs 'pain', 3, 'asscheeks', 'spank'
  148. nichGalaOpinion = 2
  149. act 'Return':
  150. gt $loc
  151. end
  152. elseif $ARGS[0] = 'desk':
  153. if nichGalaOpponent = 21:
  154. '<center><img <<$set_imgh>> src="images/characters/city/gala/necklace.jpg"></center>'
  155. 'You open your desk. Something doesn''t seem to be right. After closer investigation you find Galas missing necklace hidden under some of your items.'
  156. act 'Leave it there':
  157. gt 'stol','start'
  158. end
  159. act 'Bring it back to where it belongs':
  160. minut += 3
  161. nichGalaOpponent = 22
  162. gt 'nichBedroomServant', 'return'
  163. end
  164. else
  165. gt 'stol','start'
  166. end
  167. elseif $ARGS[0] = 'redeemSalary'
  168. *clr & cla
  169. karta += nichSalaryOutstanding
  170. nichSalaryOutstanding = 0
  171. 'Your salary of <<nichSalaryOutstanding>> <b>?</b> is transferred to your bank account.'
  172. act 'Back': gt 'nichBedroomServant', 'return'
  173. end
  174. --- nickBedroomServant ---------------------------------