1
0

stwork.qsrc 8.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205
  1. # stwork
  2. if $ARGS[0] = 'start':
  3. $loc = 'stwork'
  4. $metka = 'start'
  5. $locM = 'stwork'
  6. $metkaM = 'start'
  7. $sexloc = 'stwork'
  8. $menu_loc = 'stwork'
  9. $menu_arg = 'start'
  10. menu_off = 0
  11. $location_type = 'private'
  12. clr
  13. minut += 5
  14. stripMir = 1
  15. gs 'stat'
  16. gs 'themes', 'indoors'
  17. '<center><b><font color="maroon">Dressing room for strippers</font></b></center>'
  18. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/striprazd.jpg"></center>'
  19. ''
  20. 'There are several <a href="exec:gt ''mirror'', ''start''">mirrors</a> hanging on the wall, where you can <a href="exec:gt ''mirror'', ''brush''">brush</a> your hair, and a selection of <a href="exec:gt ''wardrobe'', ''start''">clothes</a> hanging on rails for the girls to dress in.'
  21. 'There are some stairs leading to the <a href="exec:gt ''stwork'', ''stripgirl''">stage</a> where you can head out to perform.'
  22. 'To the side there''s a <a href="exec:stripMir = 0 & gt ''stripclub'', ''start''">steel door</a> which overlooks the back yard and the staff uses as an entrance, to save them from meeting scummy customers. Standing by this entrance, there''s always <a href="exec:gt ''stwork'', ''guard''">security</a> keeping the talent safe.'
  23. 'Near the exit door is a vending machine selling '+iif(money >= 100,'<a href="exec:money -= 100 & gt ''food'', ''snack''">snacks</a>','snacks')+' and a <a href="exec:gt ''beverage'', ''bev_wat''">water cooler</a>, which is heavily used by staff after coming off stage'
  24. 'Behind a wooden door there''s the <a href="exec:gt ''stwork'', ''toilet''">staff bathroom</a>.'
  25. &! if tatlech > 0:stripKoef = rand(1, 3)
  26. &! if tatback > 0:stripKoef2 = rand(1, 3)
  27. &! if tatblly > 0:stripKoef3 = rand(1, 3)
  28. &! if tatupb > 0:stripKoef4 = rand(3, 6)
  29. &! if tatleg > 0:stripKoef5 = rand(1, 3)
  30. &! if tatarm > 0:stripKoef6 = rand(1, 3)
  31. &! if tatside > 0:stripKoef7 = rand(1, 3)
  32. if kosmetica >= 3 or pcs_makeup >= 4:
  33. act '<b>Prepare for your show</b>':
  34. *clr & cla
  35. if pcs_sweat >= 20 or (pcs_leghair > 3 or pcs_pubes > 3):
  36. dynamic $showerdin
  37. minut += 5
  38. '<h3>Staff Bathroom</h3>'
  39. '<h5>Shower</h5>'
  40. '<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelshower.jpg"></center>'
  41. dynamic $brit
  42. *nl
  43. 'After taking off all of your clothes, you gather up your towel, washcloth and soap, then head to the shower. You wash yourself thoroughly.'
  44. end
  45. if pcs_makeup < 4:
  46. makupskl_exp += rand(1,3)
  47. kosmetica -= 3
  48. vidageday -= 1
  49. pcs_makeup = 4
  50. minut += 5
  51. 'You brush your hair and put on heavy you makeup for the customers.'
  52. end
  53. pcs_hairbsh = 1
  54. if pcs_leghair <= 3 and pcs_pubes <= 3:
  55. if fingal <= 0:
  56. act 'Go on stage':
  57. stpredmet = 3 & gt 'stwork2', 'strip'
  58. end
  59. else
  60. 'You aren''t allowed on stage, because of the black eye.'
  61. end
  62. else
  63. 'Nobody wants to see a stripper with hairy legs and untrimmed pubes. Have a shave before you go on stage!'
  64. end
  65. act 'Leave':gt $locM, $metkaM
  66. end
  67. else
  68. 'You don''t have enough make-up to get ready.'
  69. end
  70. !act '<b>Go on stage</b>':
  71. ! if hour >= 11 or hour <= 2:
  72. ! if cumloc[1] = 0 and cumloc[2] = 0 and cumloc[4] = 0 and cumloc[5] = 0 and cumloc[6] = 0 and cumloc[7] = 0 and cumloc[11] = 0 and cumloc[14] = 0:
  73. ! if pcs_makeup >= 4:
  74. ! if pcs_hairbsh = 1:
  75. ! if pcs_sweat < 20:
  76. ! if pcs_leghair <= 3 and pcs_pubes <= 31:
  77. ! if fingal <= 0:
  78. ! stpredmet = 3 & gt 'stwork2', 'strip'
  79. ! else
  80. ! 'You aren''t allowed on stage, because of the black eye.'
  81. ! end
  82. ! else
  83. ! 'Nobody wants to see a stripper with hairy legs and untrimmed pubes. Have a shave before you go on stage!'
  84. ! end
  85. ! else
  86. ! 'Damn, you stink like a pigsty, take a shower before going on stage.'
  87. ! end
  88. ! else
  89. ! 'The least you can do is brush your hair.'
  90. ! end
  91. ! else
  92. ! 'You need to put on very thick makeup if you want people to be impressed by your beauty.'
  93. ! end
  94. ! else
  95. ! 'There is some visible semen on your body. Wash yourself off before going on stage.'
  96. ! end
  97. ! else
  98. ! 'You''re done for today. Time to head home.'
  99. ! end
  100. !end
  101. act 'Go to the staff bathroom':gt 'stwork', 'toilet'
  102. act 'Look in the mirror': gt 'mirror', 'start'
  103. act 'Change your clothes':gt 'wardrobe', 'start'
  104. act 'Have a cup of water (0:05)':gs 'beverage', 'bev_wat'
  105. if money >= 100: act 'Have a snack (0:15) (100 <b>₽</b>)': money -= 100 & gs 'food', 'snack'
  106. act 'Exit the club':
  107. if $clothingworntype ! 'nude':
  108. gt 'stripclub', 'start'
  109. else
  110. msg'<b><font color = red>You need to get dressed.</font></b>'
  111. gt 'stwork', 'start'
  112. end
  113. end
  114. end
  115. if $ARGS[0] = 'stripgirl':
  116. *clr & cla
  117. gs 'stat'
  118. striptalkrand = rand(0, 10)
  119. if striptalkrand = 0:$striptalk = 'Have you heard about that new girl? She''s really good-looking and all, but she got booed off-stage, apperantly she was worthless.'
  120. if striptalkrand = 1:$striptalk = 'I''m telling you, girls with tattoos are a huge turn-on to men.'
  121. if striptalkrand = 2:$striptalk = 'Working the pole is much more profitable than just dancing, it''s easier to excite the customer, but it also demands more from the person doing it.'
  122. if striptalkrand = 3:$striptalk = 'Phew, you really have to leave it all out on the stage, getting back all sweaty, with disheveled hair and makeup ruined. The cost in cosmetics is enough to bankrupt you.'
  123. if striptalkrand = 4:$striptalk = 'You know what, those private dances might be guaranteed money, but the real cash is in the extras.'
  124. if striptalkrand = 5:$striptalk = 'Remember that ugly girl? She got on stage and got booed off the stage by the customers, but as soon as she started working the pole, their jaws dropped, and she made a fortune in tips.'
  125. if striptalkrand = 6:$striptalk = 'Why doesn''t the manager ever says if it''s a male or female day? I recently rushed to work, even broke a nail, then I get here and there''s these bears up on stage. Had to turn around and head back home.'
  126. if striptalkrand = 7:$striptalk = 'That cute security guard was telling me about the problems the girls face with this job. Half of them turn up whores in the end, the money is better.'
  127. if striptalkrand = 8:$striptalk = 'There was a fat woman trying to dance on the pole, she fell face first on the floor. I thought she had knocked herself out, you should have seen the black eye she got.'
  128. if striptalkrand = 9:$striptalk = 'Recently we had a comedian working here. She was a pretty little thing and she danced well, but it''s not with jokes you earn tips here.'
  129. if striptalkrand = 10:$striptalk = 'I heard about clubs abroad where the tips are so good, that the strippers pay for the right to work there.'
  130. 'The girls are doing their makeup and hair in the mirror, laughing and gossiping.'
  131. '<<$striptalk>>'
  132. act 'Move away':gt 'stwork', 'start'
  133. end
  134. if $ARGS[0] = 'guard':
  135. *clr & cla
  136. gs 'stat'
  137. 'A bored looking, security guard stands by the door. Seeing you he lazily nods, "Hello <<$pcs_nickname>>."'
  138. act 'Move away':gt 'stwork', 'start'
  139. end
  140. if $ARGS[0] = 'toilet':
  141. $location_type = 'bathroom'
  142. $loc = 'stwork'
  143. $metka = 'toilet'
  144. $locM = 'stwork'
  145. $metkaM = 'toilet'
  146. gs 'stat'
  147. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/toilet.jpg"></center>'
  148. *nl
  149. 'You enter a dirty and smelly staff bathroom that''s probably never been cleaned.'
  150. 'There is no mirror, only a grimy shower, toilet, and basin'
  151. act 'Leave the bathroom':gt 'stwork', 'start'
  152. ! if kosmetica >= 3:
  153. ! act 'Have a shower and get ready for work':
  154. ! *clr & cla
  155. ! dynamic $showerdin
  156. ! minut += 10
  157. ! makupskl_exp += rand(1,3)
  158. ! kosmetica -= 3
  159. ! vidageday -= 1
  160. ! pcs_makeup = 4
  161. ! pcs_hairbsh = 1
  162. ! '<h3>Staff Bathroom</h3>'
  163. ! '<h5>Shower</h5>'
  164. ! '<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelshower.jpg"></center>'
  165. ! *nl
  166. ! 'After taking off all of your clothes, you gather up your towel, washcloth and soap, then head to the shower. You wash yourself thoroughly, brush your hair, and put on heavy you makeup for the customers.'
  167. ! act 'Get out and dry off':gt $locM, $metkaM
  168. ! dynamic $brit
  169. ! end
  170. ! else
  171. ! 'You don''t have enough make-up to get ready.'
  172. ! end
  173. act 'Have a shower':
  174. *clr & cla
  175. dynamic $showerdin
  176. '<h3>Staff Bathroom</h3>'
  177. '<h5>Shower</h5>'
  178. '<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelshower.jpg"></center>'
  179. *nl
  180. 'After taking off all of your clothes, you gather up your towel, washcloth and soap, then head to the shower. You wash yourself thoroughly to be as clean as possible for potential customers.'
  181. act 'Get out and dry off':gt $locM, $metkaM
  182. dynamic $brit
  183. end
  184. dynamic $toymanage
  185. dynamic $enema
  186. dynamic $tampon
  187. dynamic $quickwash
  188. dynamic $basin
  189. dynamic $removepan
  190. gs 'din_van', 'prvt_pee'
  191. end
  192. --- stwork ---------------------------------