1
0

stwork2 6.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243
  1. # stwork2
  2. !!minut += 15
  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 = 'and boo you, you hear someone shout, "Get rid of this stupid cow."'
  8. if publichot >= 10 and publichot < 20:$pubhot = 'and you boo.'
  9. if publichot >= 20 and publichot < 30:$pubhot = 'clearly bored, drinking and talking among themselves.'
  10. if publichot >= 30 and publichot < 60:$pubhot = 'sometimes looking at you to smile and enjoy the view.'
  11. if publichot >= 60 and publichot < 70:$pubhot = 'watching you with legitimate interest and conversing with each other over their beers.'
  12. if publichot >= 70 and publichot < 80:$pubhot = '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 forgoting about their drinking, whoopping and waving money at you.'
  15. 'Men sit 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. city_stripping += rand(1,2)
  27. if stpredmet = 1:pcs_sweat += 5
  28. if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1
  29. publichot += rand(pcs_dancero/5, pcs_dancero/3)
  30. if publichotstart = publichot: publichot -= rand(5, 10) & publichotstart = publichot
  31. gs 'stat'
  32. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub2.jpg"></center>'
  33. 'You dance on stage, undressing in public.'
  34. if pcs_weight > pcs_hgt - 90:
  35. vesrand = rand(0, 100)
  36. if vesrand >= 75:
  37. publichot -= rand(5, 10)
  38. 'In the hall they laugh at you, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
  39. end
  40. end
  41. gs 'stwork2', 'tipcalculator'
  42. end
  43. act 'Dance around the pole 5 minutes (<<stpredmet>> garments)':
  44. cls
  45. minut += 5
  46. stpredmet -= 1
  47. pcs_sweat += 5
  48. fat -= 5
  49. pcs_mood -= rand(4, 8)
  50. dancpol_exp += rand(2, 4)
  51. city_stripping += rand(1,2)
  52. if stpredmet = 1:pcs_hairbsh = 0
  53. if stpredmet = 0:pcs_makeup = 0 & stripdancesum += 1
  54. !pcs_hairbsh = 0
  55. publichot += rand(pcs_dancero / 10, pcs_dancero / 5)+ rand(pcs_dancpol / 5, pcs_dancpol / 2)
  56. if publichotstart = publichot:publichot -= rand(5, 10) & publichotstart = publichot
  57. gs 'stat'
  58. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/strippole.jpg"></center>'
  59. 'You dance around the pole acrobatically and undress sexily in public.'
  60. if pcs_weight > pcs_hgt - 90:
  61. vesrand = rand(0, 100)
  62. if vesrand >= 75:
  63. 'Performing another trick on the pole you can not support your weight and crash to the floor. The crowd laughs, "Hey, hippopotamus, stomp at the swamp where you came from."'
  64. publichot -= 15
  65. fingalrand = rand(0, 100)
  66. if fingalrand >= 75:
  67. fingal += rand(2, 5)
  68. 'When you fall, you hit the floor really hard and it seems you feel a bruise forming on your face.'
  69. end
  70. end
  71. if vesrand >= 50:
  72. publichot -= rand(5, 10)
  73. 'In the hall they laugh at you, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
  74. end
  75. end
  76. gs 'stwork2', 'tipcalculator'
  77. end
  78. end
  79. if stpredmet = 0:
  80. if publichot >= 70:
  81. privatrand = rand(0, 100)
  82. if privatrand >= 70:
  83. 'After the dance, the guard approaches you and tells you that you have a customer for a private dance.'
  84. gs 'stwork2', 'privatdance'
  85. exit
  86. end
  87. end
  88. end
  89. else
  90. 'That''s it for tonight. Time to go home.'
  91. end
  92. act 'Quit the stage':gt 'stwork', 'start'
  93. if $ARGS[0] = 'tipcalculator':
  94. chance = 0
  95. paymin = 0
  96. paymax = 0
  97. if publichot < 30:
  98. 'Nobody even noticed you or your efforts on the stage.'
  99. elseif publichot < 60:
  100. 'A couple of people looked at you but no more than that, you didn''t earn a tip.'
  101. elseif publichot < 70:
  102. paymax = 1
  103. if payrand = 0: 'A couple of people looked at you but no more than that, you didn''t earn a tip.'
  104. elseif publichot < 80:
  105. chance = 5
  106. paymin = 3
  107. paymax = 10
  108. elseif publichot < 90:
  109. chance = 10
  110. paymin = 10
  111. paymax = 50
  112. else
  113. chance = 15
  114. paymin = 10
  115. paymax = 100
  116. end
  117. payrand = rand(0, chance)
  118. if payrand = 0:
  119. 'Noone tipped you.'
  120. else
  121. paymoneyrand = rand(paymin, paymax)
  122. money += paymoneyrand * 10
  123. pcs_mood += rand(1,2)
  124. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  125. end
  126. end
  127. if $ARGS[0] = 'privatdance':
  128. act 'Go and perform a lap dance':
  129. cls
  130. minut += 30
  131. money += 800
  132. if pcs_sweat < 30 : pcs_sweat += 10
  133. pcs_hairbsh = 0
  134. pcs_makeup = 0
  135. fat -= 5
  136. pcs_mood += rand(2,6)
  137. dancero_exp += rand(2, 4)
  138. stripdancesum += 1
  139. gs 'stat'
  140. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/privatstrip.jpg"></center>'
  141. 'In a smaller side room you play some music and spend half an hour showing off your erotic dancing to the client.'
  142. stprrand = rand(0,5)
  143. if stprrand = 0:gt 'stwork2', 'pr1'
  144. if stprrand = 1:gt 'stwork2', 'pr2'
  145. if stprrand = 2:gt 'stwork2', 'pr3'
  146. act 'Go to the locker room':gt 'stwork', 'start'
  147. end
  148. end
  149. if $ARGS[0] = 'pr1':
  150. cla
  151. *clr
  152. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr1.jpg"></center>'
  153. 'After a while the 4 guys you are dancing for ask you to service them in full for 5000 <b>₽</b>.'
  154. act 'Go back to the locker room':gt 'stwork', 'start'
  155. act 'Agree':
  156. gang += 1
  157. guy += 4
  158. dynamic $clrboy
  159. i=rand(18,40)
  160. gs 'npcgeneratec', 0, 'Private dance Client', i
  161. gs 'boyStat', $npclastgenerated
  162. $boy[0] = $boy
  163. gs 'npcgeneratec', 0, 'Friend of Client', i
  164. $boy[1] = $npclastgenerated
  165. gs 'npcgeneratec', 0, 'Friend of Client', i
  166. $boy[2] = $npclastgenerated
  167. gs 'npcgeneratec', 0, 'Friend of Client', i
  168. $boy[3] = $npclastgenerated
  169. picrand = 12
  170. money += 5000
  171. gt 'paysex', 'var'
  172. end
  173. end
  174. if $ARGS[0] = 'pr2':
  175. cla
  176. *clr
  177. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr2.jpg"></center>'
  178. 'You guy you have been dancing for has had his hands down his pants the whole time, he asks if you can finish him off for 3000 <b>₽</b>.'
  179. act 'Go back to the locker room':gt 'stwork', 'start'
  180. act 'Agree':
  181. guy += 1
  182. picrand = 39
  183. money += 3000
  184. xgt 'sex', 'var'
  185. end
  186. end
  187. if $ARGS[0] = 'pr3':
  188. cla
  189. *clr
  190. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr3.jpg"></center>'
  191. 'The group you are dancing for had hired you and another dancer, after your dance she give you an erotic kiss. The clients cheer for more, then offer you 2000 <b>₽</b> each to take it all the way.'
  192. act 'Go back to the locker room':gt 'stwork', 'start'
  193. act 'Agree':
  194. girl += 1
  195. lesbian += 1
  196. picrand = 18
  197. money += 2000
  198. xgt 'lezbsex', 'var'
  199. end
  200. end
  201. --- stwork2 ---------------------------------