1
0

stwork2.qsrc 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431
  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 = 'sometimes 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. if hour >= 11 or hour <= 2:
  17. if stpredmet = 3:lapdance = 0
  18. if stpredmet > 0:
  19. if $pantyworntype ! 'none' and $braworntype ! 'none':
  20. act 'Striptease 15 minutes':
  21. *clr & cla
  22. countmoney = 1
  23. custbooing = 0
  24. minut += 15
  25. gs 'sweat', 'add', 15
  26. fat -= 3
  27. dancero_exp += rand(2, 4)
  28. inhib_exp += rand(2,5)
  29. city_stripping += rand(1,2)
  30. if stpredmet = 1:gs 'sweat', 'add', 5
  31. if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1
  32. striptip = rand(pcs_dancero,100)
  33. lapdance += striptip
  34. gs 'stat'
  35. !You either start with underwear and clothes or in underwear. Each has a different picture set.
  36. if $clothingworntype ! 'nude':
  37. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclo' + rand(1,3) + '.jpg"></center>'
  38. 'You walk up on the stage and hear the music start. The effect is immediate, you start moving seductively around the pole in the center of the stage...'
  39. gs 'stwork2', 'custboo'
  40. act 'Take off your top':
  41. *clr & cla
  42. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclo' + rand(4,5) + '.jpg"></center>'
  43. if custboo = 0:
  44. pcs_mood += 5
  45. 'Urged on by the audience, you take off your blouse and let it drop to the stage while you keep teasing them.'
  46. else
  47. pcs_mood -= 5
  48. 'Ignoring the comments from the audience, you take off your blouse and let it drop to the stage while you keep teasing them.'
  49. end
  50. gs 'stwork2', 'custboo'
  51. gs 'stat'
  52. act 'Take off your skirt':
  53. *clr & cla
  54. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclo' + rand(6,7) + '.jpg"></center>'
  55. if custboo = 0:
  56. pcs_mood += 5
  57. 'The positive responses make you smile even broader as you unzip your skirt and let it drop to your ankles before kicking it off and lying down on the stage, rolling around and looking several customers straight in the eyes. Some of them throw some bills your way, and you take care to pay them some extra attention.'
  58. else
  59. pcs_mood -= 5
  60. 'The negative comments make you feel a bit uncomfortable as you unzip your skirt and let it drop to your ankles before kicking it off and lying down on the stage, rolling around and looking several customers straight in the eyes.'
  61. end
  62. gs 'stwork2', 'custboo'
  63. gs 'stat'
  64. if custbooing < 2:
  65. act 'Show them more':
  66. *clr & cla
  67. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclo' + rand(9,15) + '.jpg"></center>'
  68. if custboo = 0:
  69. pcs_mood += 5
  70. 'The men in the first row go wild when you take off your bra, shouting "Show your pussy! Show your pussy!"'
  71. 'As you hook your fingers into your panties, a few customers start throwing money on the stage. You walk over to one of them and bend over, giving him a great view of your ass as you pull your panties off.'
  72. 'After that you dance as seductively as you can, trying to spread your attention over the audience, but paying extra attention to the ones who give you more money.'
  73. else
  74. 'The negative comments make you feel a bit uncomfortable as you take off your bra, but as soon as soon as they can see your tits, the audience becomes a lot more appreciative.'
  75. 'This gives you the courage to take off your panties as well. Once you are naked, some customers start throwing money on the stage.'
  76. 'You dance as seductively as you can, trying to spread your attention over the audience, but paying extra attention to the ones who give you more money.'
  77. end
  78. 'When the music starts winding down, you collect your tips and pick up your clothes, blowing a few kisses to your audience before going backstage again.'
  79. gs 'exhibitionism', 3
  80. stprivatechance = 1
  81. gs 'stat'
  82. act 'Leave the stage': gt 'stwork', 'start'
  83. end
  84. else
  85. act 'Show them more':
  86. *clr & cla
  87. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclo8.jpg"></center>'
  88. pcs_mood -= 5
  89. 'Not sure what you could do to please your audience, you take off your bra and toss it with the rest of your clothes. Even this doesn''t seem to get any positive responses.'
  90. 'All you can hear is mockery as you try to ignore them and continue your act. The cutting remarks keep coming however, and soon you are close to tears.'
  91. 'Before the music stops, you start collecting your meager tips and clothes and flee backstage.'
  92. gs 'exhibitionism', 1
  93. stprivatechance = 0
  94. gs 'stat'
  95. act 'Leave the stage': gt 'stwork', 'start'
  96. end
  97. end
  98. end
  99. end
  100. else
  101. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripund' + rand(1,3) + '.jpg"></center>'
  102. 'You walk up on the stage and hear the music start. The effect is immediate, you start moving seductively around the pole in the center of the stage...'
  103. gs 'stwork2', 'custboo'
  104. act 'Take off your bra':
  105. *clr & cla
  106. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripund' + rand(4,8) + '.jpg"></center>'
  107. if custboo = 0:
  108. pcs_mood += 5
  109. 'Urged on by the audience, you slowly take off your bra and let it drop to the stage while you keep teasing them.'
  110. else
  111. pcs_mood -= 5
  112. 'Ignoring the comments from the audience, you slowly take off your bra and let it drop to the stage while you keep teasing them.'
  113. end
  114. 'You even perform a few easy moves on the pole.'
  115. gs 'stwork2', 'custboo'
  116. gs 'exhibitionism', 1
  117. gs 'stat'
  118. act 'Take off your panties':
  119. *clr & cla
  120. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripund' + rand(9,12) + '.jpg"></center>'
  121. if custboo = 0:
  122. pcs_mood += 5
  123. 'The positive responses make you smile even broader as you playfully drop your panties to your ankles before kicking them off. You look several customers straight in the eyes as you do so. Some of them throw some bills your way, and you take care to pay them some extra attention.'
  124. else
  125. pcs_mood -= 5
  126. 'The negative comments make you feel a bit uncomfortable as you playfully drop your panties to your ankles before kicking them off. You look several customers straight in the eyes as you do so.'
  127. end
  128. gs 'stwork2', 'custboo'
  129. gs 'exhibitionism', 2
  130. gs 'stat'
  131. if custbooing < 2:
  132. act 'Dance some more':
  133. *clr & cla
  134. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripund' + rand(13,14) + '.jpg"></center>'
  135. if custboo = 0:
  136. pcs_mood += 5
  137. 'The men in the first row go wild as soon as you are fully nude, shouting out their approval. Several of them are tipping generously.'
  138. 'You dance as seductively as you can, trying to spread your attention over the audience, but paying extra attention to the ones who give you more money.'
  139. else
  140. 'The negative comments make you feel a bit uncomfortable. Not wanting to give up, you put all your effort into your dancing. This seems to please some of them, and they start tipping you after all.'
  141. 'You dance as seductively as you can, trying to spread your attention over the audience, but paying extra attention to the ones who give you more money.'
  142. end
  143. 'When the music starts winding down, you collect your tips and pick up your clothes, blowing a few kisses to your audience before going backstage again.'
  144. gs 'exhibitionism', 3
  145. stprivatechance = 1
  146. gs 'stat'
  147. act 'Leave the stage': gt 'stwork', 'start'
  148. end
  149. else
  150. act 'Flee the stage':
  151. *clr & cla
  152. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripund' + rand(13,14) + '.jpg"></center>'
  153. pcs_mood -= 5
  154. 'Even being completely naked doesn''t seem to get any positive responses.'
  155. 'All you can hear is mockery as you try to ignore them and continue your act. The cutting remarks keep coming however, and soon you are close to tears.'
  156. 'Before the music stops, you start collecting your meager tips and clothes and flee backstage.'
  157. gs 'exhibitionism', 3
  158. stprivatechance = 0
  159. gs 'stat'
  160. act 'Leave the stage': gt 'stwork', 'start'
  161. end
  162. end
  163. end
  164. end
  165. end
  166. end
  167. end
  168. act 'Dance around the pole 5 minutes (<<stpredmet>> garments)':
  169. *clr & cla
  170. minut += 5
  171. stpredmet -= 1
  172. gs 'sweat', 'add', 5
  173. fat -= 5
  174. pcs_mood -= rand(4, 8)
  175. dancpol_exp += rand(2, 4)
  176. inhib_exp += rand(2,5)
  177. city_stripping += rand(1,2)
  178. if stpredmet = 1:pcs_hairbsh = 0
  179. if stpredmet = 0:pcs_makeup = 0 & stripdancesum += 1
  180. !pcs_hairbsh = 0
  181. striptip = rand(pcs_dancpol,100)
  182. lapdance += striptip
  183. gs 'stat'
  184. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/strippole.jpg"></center>'
  185. '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.'
  186. if pcs_weight > pcs_hgt - 90:
  187. vesrand = rand(0, 100)
  188. if vesrand >= 75:
  189. 'Performing another trick on the pole, you can not support your weight and fall flat on your face. The crowd laughs, "Hey, hippopotamus, stomp back to the swamp where you came from."'
  190. striptip -= 15
  191. fingalrand = rand(0, 100)
  192. if fingalrand >= 75:
  193. fingal += rand(2, 5)
  194. gs 'pain', 4, 'cheeks', 'Slam'
  195. gs 'stat'
  196. 'As you fall, you hit the floor really hard, and you can feel a bruise forming on your face.'
  197. end
  198. end
  199. if vesrand >= 50:
  200. striptip -= rand(5, 10)
  201. 'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass are shaking like jelly."'
  202. end
  203. end
  204. gs 'stwork2', 'tipcalculator'
  205. act 'Continue': gt 'stwork2', 'strip'
  206. end
  207. end
  208. if stpredmet = 0:
  209. if lapdance >= 150:
  210. privatrand = rand(0, 100)
  211. if privatrand >= 50:
  212. 'After you finish dancing, a security guard approaches you and tells you that you have a customer wanting a private show.'
  213. act '<b>Go perform a private dance</b>':
  214. stprivatechance = 0
  215. gt 'stwork2', 'privatdance'
  216. end
  217. end
  218. end
  219. end
  220. else
  221. 'Your shift is over for tonight. Time to head home.'
  222. end
  223. act 'Leave the stage':gt 'stwork', 'start'
  224. end
  225. if $ARGS[0] = 'custboo':
  226. if pcs_weight > pcs_hgt - 90:
  227. vesrand = rand(0, 100)
  228. if vesrand >= 60:
  229. striptip -= rand(5, 10)
  230. custboo = 1
  231. custbooing += 1
  232. resprand = rand(0,3)
  233. if resprand = 0:
  234. 'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass are shaking like jelly."'
  235. elseif resprand = 1:
  236. 'You overhear some of the customers right next to the stage, "What a cow. Someone should roll her off the stage."'
  237. elseif resprand = 2:
  238. 'You overhear some of the customers right next to the stage, "They should get that fat bitch off the stage and bring on a better looking stripper."'
  239. elseif resprand = 3:
  240. 'You overhear some of the customers right next to the stage, "Looks like they cater to your tastes too. What was that last fat bitch called again? She weighed more than you, and this girl weighs as much as you two combined."'
  241. end
  242. else
  243. custboo = 0
  244. resprand = rand(0,1)
  245. if resprand = 0:
  246. 'A few customers are catcalling. "Get those fat titties out!" You hear one of them yell.'
  247. elseif resprand = 1:
  248. 'A few customers are catcalling. "Show us some flesh!" You hear one of them yell.'
  249. end
  250. end
  251. else
  252. custboo = 0
  253. resprand = rand(0,1)
  254. if resprand = 0:
  255. 'Several customers are catcalling. They want to see more.'
  256. elseif resprand = 1:
  257. 'Most of the crowd seems to like what they are seeing. "Show us some more flesh!" You hear one of them yell.'
  258. end
  259. end
  260. end
  261. if $ARGS[0] = 'tipcalculator':
  262. !20% chance that tattoos increase tips
  263. if rand (0, 4) = 0:
  264. striptip += stripKoef
  265. end
  266. if striptip < 30:
  267. 'Nobody even noticed you or your efforts on the stage.'
  268. elseif striptip < 60:
  269. 'A couple of people looked at you but nothing more than that, you didn''t receive a single tip.'
  270. elseif striptip < 70:
  271. if payrand = 0: 'A couple of people looked at you but nothing more than that, you didn''t receive any tips.'
  272. elseif striptip < 80:
  273. if rand(0,5) = 0:
  274. 'The customers were pleased with your performance. No one tipped you however.'
  275. else
  276. paymoneyrand = rand(3,10) * 5
  277. money += paymoneyrand
  278. pcs_mood += rand(1,2)
  279. 'The customers were pleased with your performance. They gave you <<paymoneyrand>> <b>₽</b> in tips.'
  280. end
  281. elseif striptip < 90:
  282. if rand(0,10) = 0:
  283. 'The customers followed your movements between their conversations. No one tipped you however.'
  284. else
  285. paymoneyrand = rand(10,50) * 5
  286. money += paymoneyrand
  287. pcs_mood += rand(1,2)
  288. 'The customers followed your movements between their conversations. After counting out your tips it amounts to <<paymoneyrand>> <b>₽</b>.'
  289. end
  290. else
  291. if rand(0,15) = 0:
  292. 'The customers were mesmerized by your dancing, but no one tipped you.'
  293. else
  294. paymoneyrand = rand(10,100) * 5
  295. money += paymoneyrand
  296. pcs_mood += rand(1,2)
  297. 'The customers were mesmerized by your dancing and have tipped <<paymoneyrand>> <b>₽</b>.'
  298. end
  299. end
  300. end
  301. if $ARGS[0] = 'privatdance':
  302. *clr & cla
  303. minut += 20
  304. gs 'arousal', 'foreplay', 10
  305. money += 400
  306. if pcs_sweat < 30 : gs 'sweat', 'add', 10
  307. pcs_hairbsh = 0
  308. pcs_makeup = 0
  309. fat -= 5
  310. pcs_mood += rand(2,6)
  311. dancero_exp += rand(2, 4)
  312. stripdancesum += 1
  313. gs 'stat'
  314. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/privatstrip.jpg"></center>'
  315. '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.'
  316. stprrand = rand(0,15)
  317. if stprrand = 0:
  318. gt 'stwork2', 'pr1'
  319. elseif stprrand = 1:
  320. gt 'stwork2', 'pr2'
  321. elseif stprrand = 2:
  322. gt 'stwork2', 'pr3'
  323. end
  324. act 'Return to the locker room':gt 'stwork', 'start'
  325. end
  326. if $ARGS[0] = 'pr1':
  327. *clr & cla
  328. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr1.jpg"></center>'
  329. '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>.'
  330. act 'Reject them':gt 'stwork', 'start'
  331. act 'Agree':
  332. gang += 1
  333. guy += 4
  334. killvar '$boy'
  335. i=rand(18,40)
  336. gs 'npcgeneratec', 0, 'Private dance client', i
  337. gs 'boyStat', $npclastgenerated
  338. gs 'npcgeneratec', 0, 'Friend of client', i
  339. gs 'boyStat', $npclastgenerated, '1'
  340. gs 'npcgeneratec', 0, 'Friend of client', i
  341. gs 'boyStat', $npclastgenerated, '2'
  342. gs 'npcgeneratec', 0, 'Friend of client', i
  343. gs 'boyStat', $npclastgenerated, '3'
  344. picrand = 12
  345. money += 4000
  346. $sexloc = 'stwork'
  347. gt 'paysex', 'var'
  348. end
  349. end
  350. if $ARGS[0] = 'pr2':
  351. *clr & cla
  352. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr2.jpg"></center>'
  353. 'The man you''re dancing for 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>.'
  354. gs 'willpower', 'sex', 'resist', 'hard'
  355. if will_cost <= pcs_willpwr:
  356. act 'Reject him (<<will_cost>> Willpower)':
  357. gs 'willpower', 'pay', 'resist'
  358. gs 'stat'
  359. gt 'stwork', 'start'
  360. end
  361. else
  362. act 'Reject him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  363. end
  364. act 'Agree':
  365. gs 'npcgeneratec', 0, 'Private dance client', rand(20,55)
  366. guy += 1
  367. picrand = 39
  368. money += 2000
  369. $sexloc = 'stwork'
  370. xgt 'sex', 'var'
  371. end
  372. end
  373. if $ARGS[0] = 'pr3':
  374. *clr & cla
  375. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr3.jpg"></center>'
  376. 'It''s a bit different dancing for a woman. It''s not often you have the pleasure of doing that, so you''re feeling a bit more frisky than usual. As you finish the dance, she gives you a kiss, and you start making out. She stops and offers you 1000 <b>₽</b> to continue on.'
  377. gs 'willpower', 'sex', 'resist', 'hard'
  378. if will_cost <= pcs_willpwr:
  379. act 'Reject her (<<will_cost>> Willpower)':
  380. gs 'willpower', 'pay', 'resist'
  381. gs 'stat'
  382. gt 'stwork', 'start'
  383. end
  384. else
  385. act 'Reject her (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  386. end
  387. act 'Agree':
  388. girl += 1
  389. lesbian += 1
  390. picrand = 18
  391. money += 1000
  392. $sexloc = 'stwork'
  393. xgt 'lezbsex', 'var'
  394. end
  395. end
  396. --- stwork2 ---------------------------------