stwork.qsrc 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290
  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. killvar '$sexloc'
  18. '<center><b><font color="maroon">Dressing room for strippers</font></b></center>'
  19. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/backstage' + rand(1,7) + '.jpg"></center>'
  20. ''
  21. '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.'
  22. 'There are some stairs leading to the <a href="exec:gt ''stwork'', ''stripgirl''">stage</a> where you can head out to perform.'
  23. '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.'
  24. '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'
  25. 'A wooden door leads to the <a href="exec:gt ''stwork'', ''toilet''">staff bathroom</a>.'
  26. *nl
  27. 'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  28. ! Tattoos increase your desireability as a stripper
  29. if tatlech > 0:stripKoef1 = rand(1, 3)
  30. if tatback > 0:stripKoef2 = rand(1, 3)
  31. if tatblly > 0:stripKoef3 = rand(1, 3)
  32. if tatupb > 0:stripKoef4 = rand(3, 6)
  33. if tatleg > 0:stripKoef5 = rand(1, 3)
  34. if tatarm > 0:stripKoef6 = rand(1, 3)
  35. if tatside > 0:stripKoef7 = rand(1, 3)
  36. stripKoef = stripKoef1 + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5 + stripKoef6 + stripKoef7
  37. if countmoney = 1:
  38. countmoney = 0
  39. gs 'stwork2', 'tipcalculator'
  40. end
  41. act 'Exit the club':
  42. if $clothingworntype ! 'nude':
  43. gt 'stripclub', 'start'
  44. else
  45. msg'<b><font color = red>You need to get dressed.</font></b>'
  46. gt 'stwork', 'start'
  47. end
  48. end
  49. act 'Go to the staff bathroom':gt 'stwork', 'toilet'
  50. act 'Change your clothes':gt 'wardrobe', 'start'
  51. act 'Look in the mirror': gt 'mirror', 'start'
  52. if money >= 100: act 'Have a snack (0:15) (100 <b>₽</b>)': money -= 100 & gs 'food', 'snack'
  53. act 'Have a cup of water (0:05)':gs 'beverage', 'bev_wat'
  54. !! Private dance available
  55. if stprivatechance > 0:
  56. stpriv = stripKoef + (pcs_apprnc / 3)
  57. ! Bonus for poledancing
  58. if stprivatechance = 2:
  59. stprive += 20
  60. end
  61. if stpriv > rand (0, 100):
  62. *nl
  63. 'One of the bouncers walks up to you, telling you that a customer is waiting for you in one of the private rooms.'
  64. act '<b>Go perform a private dance</b>':
  65. stprivatechance = 0
  66. gt 'stwork2', 'privatdance'
  67. end
  68. end
  69. end
  70. if (kosmetica >= 3 or pcs_makeup >= 4) and (hour >= 11 or hour <= 2):
  71. act '<b>Prepare for your show</b>':
  72. *clr & cla
  73. if pcs_sweat >= 20 or (pcs_leghair > 3 or ((pcs_pubes > 3 and pubestyle = 1) or (pubestyle >= 2 and pubestyle <=7) and pcs_pubes > 11)):
  74. dynamic $showerdin
  75. minut += 5
  76. '<h3>Staff Bathroom</h3>'
  77. '<h5>Shower</h5>'
  78. '<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelshower.jpg"></center>'
  79. dynamic $brit
  80. *nl
  81. 'After taking off all of your clothes, you gather up your towel, washcloth and soap, then head to the shower. You wash yourself thoroughly.'
  82. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
  83. end
  84. if pcs_makeup < 4:
  85. makupskl_exp += rand(1,3)
  86. kosmetica -= 3
  87. vidageday -= 1
  88. pcs_makeup = 4
  89. minut += 5
  90. 'You brush your hair and put on heavy makeup for the customers.'
  91. end
  92. pcs_hairbsh = 1
  93. if pcs_leghair <= 3:
  94. if fingal <= 0:
  95. if strippermission = 0:
  96. act 'Go see the manager':
  97. *clr & cla
  98. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripinspection.jpg"></center>'
  99. 'Before going on the stage you go see the manager in his office for your inspection.'
  100. '"Take off your clothes." He tells you matter of factly.'
  101. 'When you''re done undressing, he walks up to you and inspects you closely.'
  102. if pcs_sweat < 20:
  103. '"Good, you have a clean sent. That is very important in this business."'
  104. 'He briefly runs his hand over your legs.'
  105. if pcs_leghair <= 3:
  106. '"Smooth legs. Very good."'
  107. 'He walks around you looking you up and down from every side.'
  108. if fingal <= 0:
  109. '"No bruises. Good. The better you look, the easier it is to make money once you are on that stage."'
  110. '"And the last thing. I need to check if you''ve rid yourself of all your pubic hair."'
  111. '"I suppose that''s a reasonable thing to check." You think to yourself as you show him your naked pussy.'
  112. 'He puts his hand right above your pussy lips and slowly rubs the skin there, taking a bit longer than he did on your legs.'
  113. 'You feel your pussy get a bit wet from his touch and hope that he doesn''t notice.'
  114. gs 'arousal', 'foreplay', 2
  115. gs 'stat'
  116. !! This allows different pubic styles but anything from small bush up is still not permitted.
  117. if (pubestyle = 1 and pcs_pubes <= 3) or lashair = 1:
  118. strippermission = 1
  119. '"That''s very smooth. Looks like you are ready to get on the stage. You can get to work." He says and ushers you out of his office.'
  120. stpredmet = 3
  121. act 'Perform': gt 'stwork2', 'strip'
  122. elseif (pubestyle >= 2 and pubestyle <=7) and pcs_pubes <= 11:
  123. strippermission = 1
  124. '"Very cute pubic hair, I''m sure the customers will appreciate it, now get on stage. You can work" He says and ushers you out of his office.'
  125. stpredmet = 3
  126. act 'Perform': gt 'stwork2', 'strip'
  127. else
  128. '"You need to shave everything off <<$pcs_stagename>>, although a small and cute pubic style is popular at the moment if you feel creative." He smiles and pats you on the butt as he says, "Go take care of that and then come back here."'
  129. act 'Go to the dressing room': gt 'stwork', 'start'
  130. end
  131. else
  132. '"I can''t let you up on the stage with a black eye like that. You''ll have to wait until it''s gone. Come back when it''s healed."'
  133. act 'Go to the dressing room': gt 'stwork', 'start'
  134. end
  135. else
  136. '"Shave your legs, a customer doesn''t want to feel any stubble during a lapdance. Go take care of that and then come back here."'
  137. act 'Go to the dressing room': gt 'stwork', 'start'
  138. end
  139. else
  140. '"Damn it <<$pcs_stagename>>, you stink. Grab a shower we can''t have the club smelling like a locker room."'
  141. act 'Go to the dressing room': gt 'stwork', 'start'
  142. end
  143. end
  144. else
  145. act 'Go on stage':
  146. stpredmet = 3 & gt 'stwork2', 'strip'
  147. end
  148. end
  149. else
  150. 'You aren''t allowed on stage, because of the black eye.'
  151. end
  152. else
  153. 'Nobody wants to see a stripper with hairy legs and untrimmed pubes. Have a shave before you go on stage!'
  154. end
  155. act 'Leave':gt $locM, $metkaM
  156. end
  157. else
  158. *nl
  159. '<font color="red">You don''t have enough make-up to get ready.</font>'
  160. end
  161. !act '<b>Go on stage</b>':
  162. ! if hour >= 11 or hour <= 2:
  163. ! 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:
  164. ! if pcs_makeup >= 4:
  165. ! if pcs_hairbsh = 1:
  166. ! if pcs_sweat < 20:
  167. ! if pcs_leghair <= 3 and pcs_pubes <= 31:
  168. ! if fingal <= 0:
  169. ! stpredmet = 3 & gt 'stwork2', 'strip'
  170. ! else
  171. ! 'You aren''t allowed on stage, because of the black eye.'
  172. ! end
  173. ! else
  174. ! 'Nobody wants to see a stripper with hairy legs and untrimmed pubes. Have a shave before you go on stage!'
  175. ! end
  176. ! else
  177. ! 'Damn, you stink like a pigsty, take a shower before going on stage.'
  178. ! end
  179. ! else
  180. ! 'The least you can do is brush your hair.'
  181. ! end
  182. ! else
  183. ! 'You need to put on very thick makeup if you want people to be impressed by your beauty.'
  184. ! end
  185. ! else
  186. ! 'There is some visible semen on your body. Wash yourself off before going on stage.'
  187. ! end
  188. ! else
  189. ! 'You''re done for today. Time to head home.'
  190. ! end
  191. !end
  192. end
  193. if $ARGS[0] = 'stripgirl':
  194. *clr & cla
  195. gs 'stat'
  196. striptalkrand = rand(0, 10)
  197. 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.'
  198. if striptalkrand = 1:$striptalk = 'I''m telling you, girls with tattoos are a huge turn-on to men.'
  199. 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.'
  200. 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.'
  201. if striptalkrand = 4:$striptalk = 'You know what, those private dances might be guaranteed money, but the real cash is in the extras.'
  202. 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.'
  203. 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.'
  204. 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.'
  205. 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.'
  206. 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.'
  207. 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.'
  208. 'The girls are doing their makeup and hair in the mirror, laughing and gossiping.'
  209. '<<$striptalk>>'
  210. act 'Move away':gt 'stwork', 'start'
  211. end
  212. if $ARGS[0] = 'guard':
  213. *clr & cla
  214. gs 'stat'
  215. 'A bored looking, security guard stands by the door. Seeing you he lazily nods, "Hello <<$pcs_nickname>>."'
  216. act 'Move away':gt 'stwork', 'start'
  217. end
  218. if $ARGS[0] = 'toilet':
  219. $location_type = 'bathroom'
  220. $loc = 'stwork'
  221. $metka = 'toilet'
  222. $locM = 'stwork'
  223. $metkaM = 'toilet'
  224. gs 'stat'
  225. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/toilet.jpg"></center>'
  226. *nl
  227. 'You enter a dirty and smelly staff bathroom that''s probably never been cleaned.'
  228. 'There is no mirror, only a grimy shower, toilet, and basin'
  229. *nl
  230. 'Your razor will last <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
  231. act 'Leave the bathroom':gt 'stwork', 'start'
  232. ! if kosmetica >= 3:
  233. ! act 'Have a shower and get ready for work':
  234. ! *clr & cla
  235. ! dynamic $showerdin
  236. ! minut += 10
  237. ! makupskl_exp += rand(1,3)
  238. ! kosmetica -= 3
  239. ! vidageday -= 1
  240. ! pcs_makeup = 4
  241. ! pcs_hairbsh = 1
  242. ! '<h3>Staff Bathroom</h3>'
  243. ! '<h5>Shower</h5>'
  244. ! '<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelshower.jpg"></center>'
  245. ! *nl
  246. ! '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.'
  247. ! act 'Get out and dry off':gt $locM, $metkaM
  248. ! dynamic $brit
  249. ! end
  250. ! else
  251. ! 'You don''t have enough make-up to get ready.'
  252. ! end
  253. act 'Have a shower':
  254. *clr & cla
  255. dynamic $showerdin
  256. '<h3>Staff Bathroom</h3>'
  257. '<h5>Shower</h5>'
  258. '<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelshower.jpg"></center>'
  259. *nl
  260. '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.'
  261. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
  262. act 'Get out and dry off':gt $locM, $metkaM
  263. dynamic $brit
  264. end
  265. dynamic $brit
  266. dynamic $toymanage
  267. dynamic $enema
  268. dynamic $tampon
  269. dynamic $quickwash
  270. dynamic $basin
  271. dynamic $publicpan
  272. gs 'din_van', 'prvt_pee'
  273. end
  274. --- stwork ---------------------------------