stwork2.qsrc 8.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249
  1. # stwork2
  2. if $ARGS[0] = 'strip':
  3. clr
  4. gs 'stat'
  5. '<center><b><font color="maroon">Stage</font></b></center>'
  6. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub1.jpg"></center>'
  7. if striptip < 10:$pubhot = 'booing you, you hear someone shout, "Get this stupid cow off the stage."'
  8. if striptip >= 10 and striptip < 20:$pubhot = 'clearly showing discontent with your dancing. They want you off the stage as quickly as possible.'
  9. if striptip >= 20 and striptip < 30:$pubhot = 'clearly looking bored, drinking and talking among themselves, ignoring you.'
  10. if striptip >= 30 and striptip < 60:$pubhot = 'sometime looking at you, smiling and enjoy the performance.'
  11. if striptip >= 60 and striptip < 70:$pubhot = 'watching you with genuine interest while conversing with each other over their beers.'
  12. if striptip >= 70 and striptip < 80:$pubhot = 'having their attention focused on you.'
  13. if striptip >= 80 and striptip < 90:$pubhot = 'with strained faces, sweat beading on their foreheads, their arousal clearly showing.'
  14. if striptip >= 90:$pubhot = 'completely indulged in you. They''re clapping and waving money at you trying to get you attention.'
  15. 'There are men sitting in front of the stage <<$pubhot>>.'
  16. act 'Leave the stage':gt 'stwork', 'start'
  17. if hour >= 11 or hour <= 2:
  18. if stpredmet = 3:lapdance = 0
  19. if stpredmet > 0:
  20. act 'Striptease 5 minutes (<<stpredmet>> items of clothing)':
  21. *clr & cla
  22. minut += 5
  23. stpredmet -= 1
  24. pcs_sweat += 5
  25. fat -= 3
  26. dancero_exp += rand(2, 4)
  27. inhib_exp += rand(2,5)
  28. city_stripping += rand(1,2)
  29. if stpredmet = 1:pcs_sweat += 5
  30. if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1
  31. striptip = rand(pcs_dancero,100)
  32. lapdance += striptip
  33. gs 'stat'
  34. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub2.jpg"></center>'
  35. 'You walk up on the stage and hear the music start. The effect is immediate, you start moving seductively on stage, teasingly undressing on stage...'
  36. if pcs_weight > pcs_hgt - 90:
  37. vesrand = rand(0, 100)
  38. if vesrand >= 75:
  39. striptip -= rand(5, 10)
  40. 'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
  41. end
  42. end
  43. gs 'stwork2', 'tipcalculator'
  44. act 'Continue': gt 'stwork2', 'strip'
  45. end
  46. act 'Dance around the pole 5 minutes (<<stpredmet>> garments)':
  47. *clr & cla
  48. minut += 5
  49. stpredmet -= 1
  50. pcs_sweat += 5
  51. fat -= 5
  52. pcs_mood -= rand(4, 8)
  53. dancpol_exp += rand(2, 4)
  54. inhib_exp += rand(2,5)
  55. city_stripping += rand(1,2)
  56. if stpredmet = 1:pcs_hairbsh = 0
  57. if stpredmet = 0:pcs_makeup = 0 & stripdancesum += 1
  58. !pcs_hairbsh = 0
  59. striptip = rand(pcs_dancpol,100)
  60. lapdance += striptip
  61. gs 'stat'
  62. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/strippole.jpg"></center>'
  63. 'You step up on the stage and the music starts. You grab hold of the pole and acrobatically slide around it while you teasingly undress.'
  64. if pcs_weight > pcs_hgt - 90:
  65. vesrand = rand(0, 100)
  66. if vesrand >= 75:
  67. 'Performing another trick on the pole you can not support your weight and fall flat to the floor. The crowd laughs, "Hey, hippopotamus, stomp back to the swamp where you came from."'
  68. striptip -= 15
  69. fingalrand = rand(0, 100)
  70. if fingalrand >= 75:
  71. fingal += rand(2, 5)
  72. gs 'pain', 4, 'cheeks', 'Slam'
  73. gs 'stat'
  74. 'As you fall, you hit the floor really hard and you can feel a bruise forming on your face.'
  75. end
  76. end
  77. if vesrand >= 50:
  78. striptip -= rand(5, 10)
  79. 'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
  80. end
  81. end
  82. gs 'stwork2', 'tipcalculator'
  83. act 'Continue': gt 'stwork2', 'strip'
  84. end
  85. end
  86. if stpredmet = 0:
  87. if lapdance >= 150:
  88. privatrand = rand(0, 100)
  89. if privatrand >= 50:
  90. 'After you finish dance, the security guard approaches you and tells you that you have a customer wanting a private show.'
  91. gs 'stwork2', 'privatdance'
  92. exit
  93. end
  94. end
  95. end
  96. else
  97. 'Your shift is over for tonight. Time to head home.'
  98. end
  99. end
  100. if $ARGS[0] = 'tipcalculator':
  101. if striptip < 30:
  102. 'Nobody even noticed you or your efforts on the stage.'
  103. elseif striptip < 60:
  104. 'A couple of people looked at you but nothing more than that, you didn''t receive a tip.'
  105. elseif striptip < 70:
  106. if payrand = 0: 'A couple of people looked at you but nothing more than that, you didn''t receive a tip.'
  107. elseif striptip < 80:
  108. if rand(0,5) = 0:
  109. 'The customers are pleased with your performance. No one tipped you.'
  110. else
  111. paymoneyrand = rand(3,10) * 5
  112. money += paymoneyrand
  113. pcs_mood += rand(1,2)
  114. 'The customers are pleased with your performance. They give you <<paymoneyrand>> <b>₽</b> in tips.'
  115. end
  116. elseif striptip < 90:
  117. if rand(0,10) = 0:
  118. 'The customers are following you move between their conversations. No one tipped you.'
  119. else
  120. paymoneyrand = rand(10,50) * 5
  121. money += paymoneyrand
  122. pcs_mood += rand(1,2)
  123. 'The customers are following you move between their conversations. As you finish they give you <<paymoneyrand>> <b>₽</b> in tips.'
  124. end
  125. else
  126. if rand(0,15) = 0:
  127. 'The customers are paying their full attention to your dancing but no one tipped you.'
  128. else
  129. paymoneyrand = rand(10,100) * 5
  130. money += paymoneyrand
  131. pcs_mood += rand(1,2)
  132. 'The customers are paying their full attention to your dancing and are tipped <<paymoneyrand>> <b>₽</b>.'
  133. end
  134. end
  135. end
  136. if $ARGS[0] = 'privatdance':
  137. act 'Go and perform a lap dance':
  138. *clr & cla
  139. minut += 30
  140. money += 400
  141. if pcs_sweat < 30 : pcs_sweat += 10
  142. pcs_hairbsh = 0
  143. pcs_makeup = 0
  144. fat -= 5
  145. pcs_mood += rand(2,6)
  146. dancero_exp += rand(2, 4)
  147. stripdancesum += 1
  148. gs 'stat'
  149. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/privatstrip.jpg"></center>'
  150. 'You walk over to a smaller private room where you put on some music before the customer walks in. As the customer walks in you tell him to sit down and enjoy the show. You spend half an hour showing off your dancing skills, and every time you grind against him you can feel his rock hard cock.'
  151. stprrand = rand(0,15)
  152. if stprrand = 0:
  153. gt 'stwork2', 'pr1'
  154. elseif stprrand = 1:
  155. gt 'stwork2', 'pr2'
  156. elseif stprrand = 2:
  157. gt 'stwork2', 'pr3'
  158. end
  159. act 'Return to the locker room':gt 'stwork', 'start'
  160. end
  161. end
  162. if $ARGS[0] = 'pr1':
  163. *clr & cla
  164. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr1.jpg"></center>'
  165. 'Just as you start to dance, you hear a knock on the door. His friends are waiting outside wanting to join in on the dance. Feeling trapped you agree and start dancing, after a while they tell you to stop and ask if you''re willing to go all the way for 4000 <b>₽</b>.'
  166. act 'Reject them':gt 'stwork', 'start'
  167. act 'Agree':
  168. gang += 1
  169. guy += 4
  170. killvar '$boy'
  171. i=rand(18,40)
  172. gs 'npcgeneratec', 0, 'Private dance Client', i
  173. gs 'boyStat', $npclastgenerated
  174. gs 'npcgeneratec', 0, 'Friend of Client', i
  175. gs 'boyStat', $npclastgenerated,'1'
  176. gs 'npcgeneratec', 0, 'Friend of Client', i
  177. gs 'boyStat', $npclastgenerated,'2'
  178. gs 'npcgeneratec', 0, 'Friend of Client', i
  179. gs 'boyStat', $npclastgenerated,'3'
  180. picrand = 12
  181. money += 4000
  182. gt 'paysex', 'var'
  183. end
  184. end
  185. if $ARGS[0] = 'pr2':
  186. *clr & cla
  187. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr2.jpg"></center>'
  188. 'The man you''re dancing is mesmerized by you and can''t stop touching himself, after a while he asks you if he can fuck you for 2000 <b>₽</b>.'
  189. act 'Reject him':gt 'stwork', 'start'
  190. act 'Agree':
  191. guy += 1
  192. picrand = 39
  193. money += 2000
  194. xgt 'sex', 'var'
  195. end
  196. end
  197. if $ARGS[0] = 'pr3':
  198. *clr & cla
  199. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr3.jpg"></center>'
  200. 'It''s a bit different dancing for a woman, it''s not often you have the pleasure doing that so you''re feeling a bit more frisky than usual. As you finish the dance she gives you an kiss and you start making out. She stops and offers you 1000 <b>₽</b> to continue on.'
  201. act 'Reject her':gt 'stwork', 'start'
  202. act 'Agree':
  203. girl += 1
  204. lesbian += 1
  205. picrand = 18
  206. money += 1000
  207. $sexloc = 'stwork'
  208. xgt 'lezbsex', 'var'
  209. end
  210. end
  211. --- stwork2 ---------------------------------