stwork2 8.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252
  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 publichot < 10:$pubhot = 'booing you, you hear someone shout, "Get this stupid cow off the stage."'
  8. if publichot >= 10 and publichot < 20:$pubhot = 'clearly showing disconsent with your dancing. They want you off the stage as quickly as possible.'
  9. if publichot >= 20 and publichot < 30:$pubhot = 'clearly looking bored, drinking and talking among themselves, ignoring you.'
  10. if publichot >= 30 and publichot < 60:$pubhot = 'sometime looking at you, smiling and enjoy the performence.'
  11. if publichot >= 60 and publichot < 70:$pubhot = 'watching you with genuine interest while conversing with each other over their beers.'
  12. if publichot >= 70 and publichot < 80:$pubhot = 'having their attention focused on you.'
  13. if publichot >= 80 and publichot < 90:$pubhot = 'with strained faces, sweat beading on their foreheads, their arousal clearly showing.'
  14. if publichot >= 90:$pubhot = 'completely indulgded 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. if hour >= 15 or hour <= 2:
  17. if stpredmet > 0:
  18. act 'Striptease 5 minutes (<<stpredmet>> items of clothing)':
  19. cls
  20. minut += 5
  21. stpredmet -= 1
  22. pcs_sweat += 5
  23. fat -= 3
  24. pcs_mood -= rand(2, 6)
  25. dancero_exp += rand(2, 4)
  26. if pcs_exhibition < 50:exhibition_exp += rand(1,3)
  27. city_stripping += rand(1,2)
  28. if stpredmet = 1:pcs_sweat += 5
  29. if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1
  30. publichot += rand(pcs_dancero/5, pcs_dancero/3)
  31. if publichotstart = publichot: publichot -= rand(5, 10) & publichotstart = publichot
  32. gs 'stat'
  33. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub2.jpg"></center>'
  34. '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...'
  35. if pcs_weight > pcs_hgt - 90:
  36. vesrand = rand(0, 100)
  37. if vesrand >= 75:
  38. publichot -= rand(5, 10)
  39. 'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
  40. end
  41. end
  42. gs 'stwork2', 'tipcalculator'
  43. act 'Continue': gt 'stwork2', 'strip'
  44. end
  45. act 'Dance around the pole 5 minutes (<<stpredmet>> garments)':
  46. cls
  47. minut += 5
  48. stpredmet -= 1
  49. pcs_sweat += 5
  50. fat -= 5
  51. pcs_mood -= rand(4, 8)
  52. dancpol_exp += rand(2, 4)
  53. if pcs_exhibition < 65:exhibition_exp += rand(1,3)
  54. city_stripping += rand(1,2)
  55. if stpredmet = 1:pcs_hairbsh = 0
  56. if stpredmet = 0:pcs_makeup = 0 & stripdancesum += 1
  57. !pcs_hairbsh = 0
  58. publichot += rand(pcs_dancero / 10, pcs_dancero / 5)+ rand(pcs_dancpol / 5, pcs_dancpol / 2)
  59. if publichotstart = publichot:publichot -= rand(5, 10) & publichotstart = publichot
  60. gs 'stat'
  61. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/strippole.jpg"></center>'
  62. '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.'
  63. if pcs_weight > pcs_hgt - 90:
  64. vesrand = rand(0, 100)
  65. if vesrand >= 75:
  66. '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."'
  67. publichot -= 15
  68. fingalrand = rand(0, 100)
  69. if fingalrand >= 75:
  70. fingal += rand(2, 5)
  71. gs 'pain', 4, 'cheeks', 'Slam'
  72. gs 'stat'
  73. 'As you fall, you hit the floor really hard and you can feel a bruise forming on your face.'
  74. end
  75. end
  76. if vesrand >= 50:
  77. publichot -= rand(5, 10)
  78. 'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
  79. end
  80. end
  81. gs 'stwork2', 'tipcalculator'
  82. act 'Continue': gt 'stwork2', 'strip'
  83. end
  84. end
  85. if stpredmet = 0:
  86. if publichot >= 70:
  87. privatrand = rand(0, 100)
  88. if privatrand >= 70:
  89. 'After you finish dance, the security guard approaches you and tells you that you have a customer wanting a private show.'
  90. gs 'stwork2', 'privatdance'
  91. exit
  92. end
  93. end
  94. end
  95. else
  96. 'Your shift is over for tonight. Time to head home.'
  97. end
  98. act 'Leave the stage':gt 'stwork', 'start'
  99. end
  100. if $ARGS[0] = 'tipcalculator':
  101. chance = 0
  102. paymin = 0
  103. paymax = 0
  104. if publichot < 30:
  105. 'Nobody even noticed you or your efforts on the stage.'
  106. elseif publichot < 60:
  107. 'A couple of people looked at you but nothing more than that, you didn''t recieve a tip.'
  108. elseif publichot < 70:
  109. paymax = 1
  110. if payrand = 0: 'A couple of people looked at you but nothing more than that, you didn''t recieve a tip.'
  111. elseif publichot < 80:
  112. chance = 5
  113. paymin = 3
  114. paymax = 10
  115. 'The customers are pleased with your performence. They give you a small tip.'
  116. elseif publichot < 90:
  117. chance = 10
  118. paymin = 10
  119. paymax = 50
  120. 'The customers are following you move between their conversations. As you finish they give you a decent tip.'
  121. else
  122. chance = 15
  123. paymin = 10
  124. paymax = 100
  125. 'The customers are paying their full attention to your dancing and are tipping quite nicely.'
  126. end
  127. payrand = rand(0, chance)
  128. if payrand = 0:
  129. 'No one tipped you.'
  130. else
  131. paymoneyrand = rand(paymin, paymax)
  132. money += paymoneyrand * 10
  133. pcs_mood += rand(1,2)
  134. 'Some guy shoved <<paymoneyrand>>0 <b>₽</b> in your panties and slapped you on the ass.'
  135. end
  136. end
  137. if $ARGS[0] = 'privatdance':
  138. act 'Go and perform a lap dance':
  139. cls
  140. minut += 30
  141. money += 800
  142. if pcs_sweat < 30 : pcs_sweat += 10
  143. pcs_hairbsh = 0
  144. pcs_makeup = 0
  145. fat -= 5
  146. pcs_mood += rand(2,6)
  147. dancero_exp += rand(2, 4)
  148. stripdancesum += 1
  149. gs 'stat'
  150. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/privatstrip.jpg"></center>'
  151. '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.'
  152. stprrand = rand(0,5)
  153. if stprrand = 0:gt 'stwork2', 'pr1'
  154. if stprrand = 1:gt 'stwork2', 'pr2'
  155. if stprrand = 2:gt 'stwork2', 'pr3'
  156. act 'Return to the locker room':gt 'stwork', 'start'
  157. end
  158. end
  159. if $ARGS[0] = 'pr1':
  160. cla
  161. *clr
  162. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr1.jpg"></center>'
  163. '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 5000 <b>₽</b>.'
  164. act 'Reject them':gt 'stwork', 'start'
  165. act 'Agree':
  166. gang += 1
  167. guy += 4
  168. killvar '$boy'
  169. i=rand(18,40)
  170. gs 'npcgeneratec', 0, 'Private dance Client', i
  171. gs 'boyStat', $npclastgenerated
  172. gs 'npcgeneratec', 0, 'Friend of Client', i
  173. gs 'boyStat', $npclastgenerated,'1'
  174. gs 'npcgeneratec', 0, 'Friend of Client', i
  175. gs 'boyStat', $npclastgenerated,'2'
  176. gs 'npcgeneratec', 0, 'Friend of Client', i
  177. gs 'boyStat', $npclastgenerated,'3'
  178. picrand = 12
  179. money += 5000
  180. gt 'paysex', 'var'
  181. end
  182. end
  183. if $ARGS[0] = 'pr2':
  184. cla
  185. *clr
  186. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr2.jpg"></center>'
  187. '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 3000 <b>₽</b>.'
  188. act 'Reject him':gt 'stwork', 'start'
  189. act 'Agree':
  190. guy += 1
  191. picrand = 39
  192. money += 3000
  193. xgt 'sex', 'var'
  194. end
  195. end
  196. if $ARGS[0] = 'pr3':
  197. cla
  198. *clr
  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 2000 <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 += 2000
  207. xgt 'lezbsex', 'var'
  208. end
  209. end
  210. --- stwork2 ---------------------------------