stwork2 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375
  1. # stwork2
  2. !!minut += 15
  3. clr
  4. gs 'stat'
  5. '<center><b><font color="maroon">Stage</font></b></center>'
  6. '<center><img 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 += 10
  23. fat -= 3
  24. pcs_mood -= rand(5, 10)
  25. if stpredmet = 1:pcs_sweat += 10
  26. if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1
  27. publichot += rand(pcs_dancero/30, pcs_dancero/10)
  28. if publichotstart = publichot:publichot -= rand(5, 10) & publichotstart = publichot
  29. gs 'stat'
  30. '<center><img src="images/locations/city/citycenter/stripclub/stripclub2.jpg"></center>'
  31. 'You dance on stage, undressing in public.'
  32. if pcs_weight > pcs_hgt - 90:
  33. vesrand = rand(0, 100)
  34. if vesrand >= 75:
  35. publichot -= rand(5, 10)
  36. 'In the hall they laugh at you, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
  37. end
  38. end
  39. dynamic $pubhotdi
  40. act 'further':gt $curloc
  41. end
  42. act 'Dance around the pole 5 minutes (<<stpredmet>> garments)':
  43. cls
  44. minut += 5
  45. stpredmet -= 1
  46. pcs_sweat += 20
  47. fat -= 5
  48. pcs_mood -= rand(10, 50)
  49. if stpredmet = 1:pcs_hairbsh = 0
  50. if stpredmet = 0:pcs_makeup = 0 & stripdancesum += 1
  51. !pcs_hairbsh = 0
  52. publichot += rand(pcs_dancero / 20, pcs_dancero / 5)+ rand(pcs_dancpol / 20, pcs_dancpol / 5)
  53. if publichotstart = publichot:publichot -= rand(5, 10) & publichotstart = publichot
  54. gs 'stat'
  55. '<center><img src="images/locations/city/citycenter/stripclub/strippole.jpg"></center>'
  56. 'You dance around the pole acrobaticaly and undress sexily in public.'
  57. if pcs_weight > pcs_hgt - 90:
  58. vesrand = rand(0, 100)
  59. if vesrand >= 75:
  60. '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."'
  61. publichot -= 15
  62. fingalrand = rand(0, 100)
  63. if fingalrand >= 75:
  64. fingal += rand(2, 5)
  65. 'When you fall, you hit the floor really hard and it seems you feel a bruise forming on your face.'
  66. end
  67. end
  68. if vesrand >= 50:
  69. publichot -= rand(5, 10)
  70. 'In the hall they laugh at you, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
  71. end
  72. end
  73. dynamic $pubhotdi
  74. act 'further':gt $curloc
  75. end
  76. end
  77. if stpredmet = 0:
  78. if publichot >= 80 and publichot < 90:
  79. privatrand = rand(0, 100)
  80. if privatrand >= 90:
  81. 'After the dance, the guard approaches you and tells you that you have a customer for a private dance.'
  82. dynamic $privatdancedi
  83. exit
  84. end
  85. end
  86. if publichot >= 90:
  87. privatrand = rand(0, 100)
  88. if privatrand >= 70:
  89. 'After the dance, the guard approaches you and tells you that you have a customer for a private dance.'
  90. dynamic $privatdancedi
  91. exit
  92. end
  93. end
  94. end
  95. else
  96. 'That''s it for tonight. Time to go home.'
  97. end
  98. act 'Quit the stage':gt 'stwork', 'start'
  99. $pubhotdi = {
  100. if publichot < 30:
  101. payrand = 0
  102. 'Nobody even noticed you or your efforts on the stage.'
  103. elseif publichot >= 30 and publichot < 60:
  104. payrand = 0
  105. 'A couple of people looked at you but no more than that, you didn''t earn a tip.'
  106. elseif publichot >= 60 and publichot < 70:
  107. payrand = rand(0, 1)
  108. if payrand = 0:
  109. 'A couple of people looked at you but no more than that, you didn''t earn a tip.'
  110. elseif payrand = 1:
  111. paymoneyrand = rand(1, 3)
  112. money += paymoneyrand * 10
  113. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  114. end
  115. elseif publichot >= 70 and publichot < 80:
  116. payrand = rand(0, 5)
  117. if payrand = 0:
  118. 'Noone tipped you.'
  119. elseif payrand = 1:
  120. paymoneyrand = rand(1, 3)
  121. money += paymoneyrand * 10
  122. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  123. elseif payrand = 2:
  124. paymoneyrand = rand(2, 4)
  125. money += paymoneyrand * 10
  126. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  127. elseif payrand = 3:
  128. paymoneyrand = rand(3, 5)
  129. money += paymoneyrand * 10
  130. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  131. elseif payrand = 4:
  132. paymoneyrand = rand(4, 6)
  133. money += paymoneyrand * 10
  134. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  135. elseif payrand = 5:
  136. paymoneyrand = rand(5, 10)
  137. money += paymoneyrand * 10
  138. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  139. end
  140. elseif publichot >= 80 and publichot < 90:
  141. payrand = rand(0, 10)
  142. if payrand = 0:
  143. 'Noone tipped you.'
  144. elseif payrand = 1:
  145. paymoneyrand = rand(1, 3)
  146. money += paymoneyrand * 10
  147. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  148. elseif payrand = 2:
  149. paymoneyrand = rand(2, 4)
  150. money += paymoneyrand * 10
  151. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  152. elseif payrand = 3:
  153. paymoneyrand = rand(3, 5)
  154. money += paymoneyrand * 10
  155. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  156. elseif payrand = 4:
  157. paymoneyrand = rand(4, 6)
  158. money += paymoneyrand * 10
  159. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  160. elseif payrand = 5:
  161. paymoneyrand = rand(5, 10)
  162. money += paymoneyrand * 10
  163. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  164. elseif payrand = 6:
  165. paymoneyrand = rand(7, 12)
  166. money += paymoneyrand * 10
  167. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  168. elseif payrand = 7:
  169. paymoneyrand = rand(10, 15)
  170. money += paymoneyrand * 10
  171. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  172. elseif payrand = 8:
  173. paymoneyrand = rand(15, 20)
  174. money += paymoneyrand * 10
  175. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  176. elseif payrand = 9:
  177. paymoneyrand = rand(20, 30)
  178. money += paymoneyrand * 10
  179. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  180. elseif payrand = 10:
  181. paymoneyrand = rand(30, 50)
  182. money += paymoneyrand * 10
  183. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  184. end
  185. elseif publichot >= 90:
  186. payrand = rand(0, 15)
  187. if payrand = 0:
  188. 'Noone tipped you.'
  189. elseif payrand = 1:
  190. paymoneyrand = rand(1, 3)
  191. money += paymoneyrand * 10
  192. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  193. elseif payrand = 2:
  194. paymoneyrand = rand(2, 4)
  195. money += paymoneyrand * 10
  196. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  197. elseif payrand = 3:
  198. paymoneyrand = rand(3, 5)
  199. money += paymoneyrand * 10
  200. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  201. elseif payrand = 4:
  202. paymoneyrand = rand(4, 6)
  203. money += paymoneyrand * 10
  204. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  205. elseif payrand = 5:
  206. paymoneyrand = rand(5, 10)
  207. money += paymoneyrand * 10
  208. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  209. elseif payrand = 6:
  210. paymoneyrand = rand(7, 12)
  211. money += paymoneyrand * 10
  212. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  213. elseif payrand = 7:
  214. paymoneyrand = rand(10, 15)
  215. money += paymoneyrand * 10
  216. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  217. elseif payrand = 8:
  218. paymoneyrand = rand(15, 20)
  219. money += paymoneyrand * 10
  220. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  221. elseif payrand = 9:
  222. paymoneyrand = rand(20, 30)
  223. money += paymoneyrand * 10
  224. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  225. elseif payrand = 10:
  226. paymoneyrand = rand(30, 40)
  227. money += paymoneyrand * 10
  228. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  229. elseif payrand = 11:
  230. paymoneyrand = rand(40, 50)
  231. money += paymoneyrand * 10
  232. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  233. elseif payrand = 12:
  234. paymoneyrand = rand(50, 60)
  235. money += paymoneyrand * 10
  236. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  237. elseif payrand = 13:
  238. paymoneyrand = rand(60, 70)
  239. money += paymoneyrand * 10
  240. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  241. elseif payrand = 14:
  242. paymoneyrand = rand(70, 80)
  243. money += paymoneyrand * 10
  244. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  245. elseif payrand = 15:
  246. paymoneyrand = rand(80, 100)
  247. money += paymoneyrand * 10
  248. 'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
  249. end
  250. end
  251. }
  252. $privatdancedi = {
  253. act 'Go and perform a lap dance':
  254. cls
  255. minut += 30
  256. money += 800
  257. if pcs_sweat < 30 : pcs_sweat += 10
  258. pcs_hairbsh = 0
  259. pcs_makeup = 0
  260. fat -= 5
  261. stripdancesum += 1
  262. gs 'stat'
  263. '<center><img src="images/locations/city/citycenter/stripclub/privatstrip.jpg"></center>'
  264. 'In a smaller side room you play some music and spend half an hour showing off your erotic dancing to the client.'
  265. stprrand = rand(0,5)
  266. if stprrand = 0:gt 'stwork2', 'pr1'
  267. if stprrand = 1:gt 'stwork2', 'pr2'
  268. if stprrand = 2:gt 'stwork2', 'pr3'
  269. act 'Go to the locker room':gt 'stwork', 'start'
  270. end
  271. }
  272. if $ARGS[0] = 'pr1':
  273. cla
  274. *clr
  275. !!money += 2000
  276. '<center><img src="images/locations/city/citycenter/stripclub/pr1.jpg"></center>'
  277. 'After a while the 4 guys you are dancing for ask you to service them in full for 5000 <b>₽</b>.'
  278. act 'Go back to the locker room':gt 'stwork', 'start'
  279. act 'Agree':
  280. gang += 1
  281. guy += 4
  282. dynamic $clrboy
  283. i=rand(18,40)
  284. gs 'npcgeneratec', 0, 'Private dance Client', i
  285. gs 'boyStat', $npclastgenerated
  286. $boy[0] = $boy
  287. gs 'npcgeneratec', 0, 'Friend of Client', i
  288. $boy[1] = $npclastgenerated
  289. gs 'npcgeneratec', 0, 'Friend of Client', i
  290. $boy[2] = $npclastgenerated
  291. gs 'npcgeneratec', 0, 'Friend of Client', i
  292. $boy[3] = $npclastgenerated
  293. picrand = 12
  294. money += 5000
  295. gt 'paysex', 'var'
  296. end
  297. end
  298. if $ARGS[0] = 'pr2':
  299. cla
  300. *clr
  301. !!money += 2000
  302. '<center><img src="images/locations/city/citycenter/stripclub/pr2.jpg"></center>'
  303. '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>.'
  304. act 'Go back to the locker room':gt 'stwork', 'start'
  305. act 'Agree':
  306. guy += 1
  307. picrand = 39
  308. money += 3000
  309. xgt 'sex', 'var'
  310. end
  311. end
  312. if $ARGS[0] = 'pr3':
  313. cla
  314. *clr
  315. !!money += 2000
  316. '<center><img src="images/locations/city/citycenter/stripclub/pr3.jpg"></center>'
  317. '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.'
  318. act 'Go back to the locker room':gt 'stwork', 'start'
  319. act 'Agree':
  320. girl += 1
  321. lesbian += 1
  322. picrand = 18
  323. money += 2000
  324. xgt 'lezbsex', 'var'
  325. end
  326. end
  327. --- stwork2 ---------------------------------