stripclub 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479
  1. # stripclub
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. minut += 5
  7. gs 'stat'
  8. if night_mode = 1:
  9. fcolor = rgb(255, 255, 255)
  10. bcolor = rgb(0, 0, 0)
  11. lcolor = rgb(106, 90, 205)
  12. else
  13. fcolor = rgb(0, 0, 0)
  14. bcolor = rgb(255, 255, 255)
  15. lcolor = rgb(106, 90, 205)
  16. end
  17. '<center><b><font color="maroon">Strip Club</font></b></center>'
  18. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub.jpg"></center>'
  19. if hour = 2:
  20. 'The stripclub is closing and security usher everyone out.'
  21. elseif hour > 2 and hour < 15:
  22. 'The stripclub is closed.'
  23. else
  24. if rand(1, 100) <= 30 and stripday ! daystart:
  25. stripday = daystart
  26. cfnm = 1
  27. elseif stripday ! daystart:
  28. stripday = daystart
  29. cfnm = 0
  30. end
  31. if cfnm = 1:'Tonight''s performance will feature male strippers. The cover charge is 500 <b>₽</b>.'
  32. if cfnm = 0:'Tonight''s performance will feature female strippers. The cover charge is 500 <b>₽</b>.'
  33. if stripdolg > 0 and money >= 50000:
  34. act 'Pay off your fine (50,000 <b>₽</b>)':
  35. stripdolg = 0
  36. money -= 50000
  37. gt 'stripclub', 'start'
  38. end
  39. end
  40. if stripdolg = 0:
  41. if cfnm = 1 and money >= 500:
  42. act 'Enter (500 <b>₽</b>)':
  43. cla
  44. money -= 500
  45. minut += 5
  46. frost = 0
  47. gt 'stripclub', 'forwoman'
  48. end
  49. elseif cfnm = 0 and money >= 500:
  50. act 'Enter (500 <b>₽</b>)':
  51. cla
  52. money -= 500
  53. minut += 5
  54. frost = 0
  55. gt 'stripclub', 'forman'
  56. end
  57. end
  58. if pcs_dancero > 0 and stripwork = 0:
  59. act 'Talk to the manager about performing in the strip club':
  60. cla
  61. minut += 15
  62. gs 'stat'
  63. 'The manager looks at you and asks you: "Are you really 18 years old? Because I got a visit from the police last week and they found an underaged girl working here. I was fortunate enough that the officers could be bribed."'
  64. if age >= 18:
  65. '"Yes I am." You answer him.'
  66. 'You perform in the managers'' office. He is a young man and after you have finished he asks you to sit down, "We are open every day from 15 to 2 in the morning. Some days we have only male strippers. We don''t pay strippers, but the customers tip generously. Think of it as an incentive scheme, perform well and you earn a tip.'
  67. 'Strippers can perform lap dances for clients at their request for 1000 <b>₽</b> per lap dance, the stripper gets 800 <b>₽</b>, 200 is for the club. They may offer further private entertainment, the club cannot take any money for this, we are not a brothel.'
  68. 'Nearly forgot, lap dance is a straight striptease, dancing on stage involves a lot of work on the pole. Unless you dance on the pole, it is unlikely to earn you anything. There is no set schedule, strippers choose when they want to come to work. Bring casual work you can combine stripping with other types of work. So what do you think? interested?"'
  69. elseif fakepassport = 1:
  70. '"Yes I am." You answer, handing him your fake passport.'
  71. 'You see him frown as he checks your passport with suspicion.'
  72. '"Well, I guess everything is in order."'
  73. 'You perform in the managers'' office. He is a young man and after you have finished he asks you to sit down, "We are open every day from 15 to 2 in the morning. Some days we have only male strippers. We don''t pay strippers, but the customers tip generously. Think of it as an incentive scheme, perform well and you earn a tip.'
  74. 'Strippers can perform lap dances for clients at their request for 1000 <b>₽</b> per lap dance, the stripper gets 800 <b>₽</b>, 200 is for the club. They may offer further private entertainment, the club cannot take any money for this, we are not a brothel.'
  75. 'Nearly forgot, lap dance is a straight striptease, dancing on stage involves a lot of work on the pole. Unless you dance on the pole, it is unlikely to earn you anything. There is no set schedule, strippers choose when they want to come to work. Bring casual work you can combine stripping with other types of work. So what do you think? interested?"'
  76. else
  77. '"Nearly..." You plead.'
  78. '"Right. You need to leave this establishment, be sure to come back when you are old enough.'
  79. act 'Leave':gt 'down'
  80. exit
  81. end
  82. act 'No':gt 'stripclub', 'start'
  83. act 'Yes':
  84. cls
  85. stripwork = 1
  86. 'Yes, happy with everything you nod. The manager leads you to the dressing room and shows you the woman who is responsible for the costumes. He introduces you to the chief of security, who printed you a pass and he returned to his office.'
  87. if cfnm = 0:act 'Look around':gt 'stwork', 'start'
  88. if cfnm = 1:
  89. 'Today the program is male striptease, so the room is full of guys getting ready to perform.'
  90. act 'Leave':gt 'stripclub', 'start'
  91. end
  92. end
  93. end
  94. end
  95. if cfnm = 0 and stripwork > 0:
  96. act 'Walk into the dressing room':frost = 0 & gt 'stwork', 'start'
  97. elseif cfnm > 0 and stripwork > 0:
  98. 'Today there is no work, male strippers only.'
  99. end
  100. end
  101. end
  102. act 'Leave':
  103. cla
  104. minut += 5
  105. gt 'down'
  106. end
  107. end
  108. if $ARGS[0] = 'forman':
  109. cla
  110. clr
  111. *clr
  112. minut += 5
  113. gs 'stat'
  114. '<center><b><font color="maroon">Strip Club</font></b></center>'
  115. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub1.jpg"></center>'
  116. 'On the stage in the main hall are girls undressing to the music, there is a private dance service, 1000 <b>₽</b> per dance.'
  117. act 'Leave':
  118. cla
  119. minut += 5
  120. gt 'stripclub', 'start'
  121. end
  122. if hour ! 2:
  123. act 'Sit at a table near the stage and watch a striptease':gt 'stripclub', 'stol'
  124. if money >= 1000:
  125. act 'Order a lap dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
  126. end
  127. if money >= 5000:
  128. act 'Order a special show (5,000 <b>₽</b>)':
  129. stprrand = rand(0, 1)
  130. if stprrand = 0:gt 'stripclub', 'stpr1'
  131. if stprrand = 1:gt 'stripclub', 'stpr2'
  132. end
  133. end
  134. end
  135. end
  136. if $ARGS[0] = 'privat':
  137. cla
  138. clr
  139. *clr
  140. money -= 1000
  141. minut += 60
  142. pcs_horny += 25
  143. pcs_dom += 1
  144. gs 'stat'
  145. privrand = rand(0, 4)
  146. if privrand = 0:
  147. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/priv2.jpg"></center>'
  148. 'During the striptease the girls seem to be enjoy some female company and begin to caress you openly.'
  149. act 'Finish':gt 'stripclub', 'forman'
  150. act 'Let them':gt 'stripclub', 'privsex'
  151. elseif privrand > 0:
  152. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/privat.jpg"></center>'
  153. 'Very hot girls dance around you, your pulse rises, it feels like an aphrodisiac.'
  154. if money >= 1000:
  155. act 'Another lap dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
  156. end
  157. act 'Finish':gt 'stripclub', 'forman'
  158. end
  159. end
  160. if $ARGS[0] = 'stol':
  161. cla
  162. clr
  163. *clr
  164. gs 'stat'
  165. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub2.jpg"></center>'
  166. 'Lit up on the stage a girl is dancing and undressing erotically before a strenuous male audience.'
  167. act 'Watch striptease':
  168. cla
  169. *clr
  170. clr
  171. gs 'stat'
  172. minut += 15
  173. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub4.jpg"></center>'
  174. 'The girl dances in front of you clearly hoping for a tip.'
  175. if money >= 50:
  176. act 'Give her 50 <b>₽</b>':
  177. cla
  178. *clr
  179. pcs_horny += 5
  180. minut += 15
  181. money -= 50
  182. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub6.jpg"></center>'
  183. 'You are stick 50 <b>₽</b> in the strippers panties and she invitingly start wagging her hips and shaking her tits in front of you, you feel yourself slowly getting excited.'
  184. act 'Further':gt 'stripclub', 'stol'
  185. end
  186. end
  187. act 'Downcast eyes':
  188. cla
  189. pcs_horny -= 5
  190. minut += 15
  191. 'You decided not to give any money to the stripper and look away from her eyes, you feel a little ashamed and it doesn''t help your arousal.'
  192. act 'Further':gt 'stripclub', 'stol'
  193. end
  194. end
  195. act 'Move away':gt 'stripclub', 'forman'
  196. end
  197. if $ARGS[0] = 'forwoman':
  198. cla
  199. clr
  200. *clr
  201. stripguy = 0
  202. minut += 5
  203. gs 'stat'
  204. '<center><b><font color="maroon">Strip Club</font></b></center>'
  205. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub1.jpg"></center>'
  206. act 'Leave':
  207. cla
  208. minut += 5
  209. gt 'stripclub', 'start'
  210. end
  211. if hour ! 2 and zenit > 0 and minifoto = 0:
  212. act 'Photograph':
  213. minut += 10
  214. 'As soon as you get the camera out you are immediately approached by a security guard, and told that there is no photography allowed, you apologize and hide the camera in your purse.'
  215. end
  216. elseif hour ! 2 and minifoto > 0:
  217. act 'Photograph':
  218. cla
  219. minut += 60
  220. 'You remove the mini camera, hold it half hidden by your chest and discreetly start walking down the hall.'
  221. stripfotorand = rand(0, 10)
  222. if stripfotorand < 2:
  223. minifoto = 0
  224. stripdolg = 1
  225. 'You are spotted and the security guard takes you by the hand and leads you to his outpost, already waiting for you is the administrator, he takes your camera, and says that you owe a fine of 50,000 <b>₽</b>. and until you pay up you are barred from the club.'
  226. act 'Leave':gt 'stripclub', 'start'
  227. elseif stripfotorand >= 2 and stripfotorand < 6:
  228. shantfoto += 1
  229. 'You struggle to take a normal picture, the girls surrounding you in obscure states of undress, but the guard is very close. In the end you manage to take a normal picture.'
  230. act 'Return':gt 'stripclub', 'forwoman'
  231. elseif stripfotorand >= 6:
  232. 'You struggle to take a normal picture, the girls surrounding you in obscure states of undress, but the guard is very close.'
  233. act 'Return':gt 'stripclub', 'forwoman'
  234. end
  235. end
  236. end
  237. if hour ! 2:
  238. act 'Sit at a table near the stage and watch a striptease':gt 'stripclub', 'stolW'
  239. end
  240. end
  241. if $ARGS[0] = 'stolW':
  242. cla
  243. clr
  244. *clr
  245. stripguy = 0
  246. gs 'stat'
  247. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripw.jpg"></center>'
  248. 'On the stage are hulking, athletic guys, girls squeal and shove them money in the heat.'
  249. if hour < 23:
  250. act 'See a striptease':
  251. cla
  252. *clr
  253. clr
  254. gs 'stat'
  255. minut += 15
  256. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripw1.jpg"></center>'
  257. 'A stripper comes to you and hugs you.'
  258. if money >= 50:
  259. act 'Shove him 50 <b>₽</b>':
  260. cla
  261. *clr
  262. pcs_horny += 5
  263. minut += 15
  264. money -= 50
  265. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripw2.jpg"></center>'
  266. 'You shove him 50 <b>₽</b> and he sits you on a chair starts dancing in front of you, he is completely naked and you have a great view of his dick. The stripper gropes your chest, trying to get your breasts out from under your blouse.'
  267. act 'Stop':gt 'stripclub', 'stolW'
  268. !!act 'Touch his hand member':gt 'cfnm', 'start'
  269. act 'Let him expose your breasts':gs 'npcgeneratec', 0, 'Stripper', rand(18,28) & gs 'boyStat', $npclastgenerated & gt 'cfnm', 'start'
  270. end
  271. end
  272. act 'Downcast eyes':
  273. cla
  274. pcs_horny -= 5
  275. minut += 15
  276. 'You decided not to give money to the stripper and look away from him, you feel a little ashamed and your arousal decreases.'
  277. act 'Further':gt 'stripclub', 'stolW'
  278. end
  279. end
  280. end
  281. act 'Move away':gt 'stripclub', 'forwoman'
  282. end
  283. if $ARGS[0] = 'privsex':
  284. cla
  285. *clr
  286. girl += 2
  287. lesbian += 1
  288. pcs_horny = 0
  289. orgasm += 1
  290. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/priv3.jpg"></center>'
  291. 'You widely spreads your legs as one of them licks your pussy, bringing you to orgasm, while the other girl continues to caress your body.'
  292. act 'Finish':gt 'stripclub', 'forman'
  293. act 'More':gt 'stripclub', 'privsex1'
  294. end
  295. if $ARGS[0] = 'privsex1':
  296. cla
  297. *clr
  298. privpicrand = rand(4, 7)
  299. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/priv<<privpicrand>>.jpg"></center>'
  300. 'You caress each other.'
  301. act 'Finish':gt 'stripclub', 'forman'
  302. end
  303. if $ARGS[0] = 'stpr1':
  304. cla
  305. *clr
  306. pcs_horny += 30
  307. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex1.jpg"></center>'
  308. 'The room includes two girls with strapons, you sit down and they start fucking each other.'
  309. act 'Finish':gt 'stripclub', 'forman'
  310. act 'Join them':
  311. cla
  312. *clr
  313. SUB += 3
  314. girl += 2
  315. lesbian += 1
  316. stat['vaginal'] += 1
  317. stat['anal'] += 1
  318. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex2.jpg"></center>'
  319. 'You undress and kneel in front of the girls, they stand beside you and rest their strapons against your face, you start greedily sucking, licking the remnants of their juices from the phalluses.'
  320. act 'Doggy-Style':
  321. cla
  322. *clr
  323. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex3.jpg"></center>'
  324. 'The girls push you onto your hands and knees and one of them stands behind you and enters your pussy as you continue to suck the other.'
  325. act 'Two Smoking Barrels':
  326. cla
  327. *clr
  328. pcs_horny = 0
  329. orgasm += 1
  330. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex4.jpg"></center>'
  331. 'You look up at the girl in front of you and lustily plead, "I want both of you inside me." It appears they were thinking the same thing as you are quickly on top of the girl in front of you and fucking her strapon, as the girl behind eases her way into you ass.'
  332. 'They fuck you in both holes bringing you to orgasm.'
  333. act 'Further':
  334. cla
  335. *clr
  336. spafinloc = 12
  337. gs 'cum_manage'
  338. spafinloc = 11
  339. gs 'cum_manage'
  340. cumbrest += 1
  341. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex5.jpg"></center>'
  342. 'When you are finished, the girls stand over you and out of their fake cocks pours a liquid that tastes much like sperm, it is poured into your mouth and on your face and chest.'
  343. act 'Finish':gt 'stripclub', 'forman'
  344. end
  345. end
  346. end
  347. end
  348. end
  349. if $ARGS[0] = 'stpr2':
  350. cla
  351. *clr
  352. girl += 2
  353. lesbian += 1
  354. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex6.jpg"></center>'
  355. 'The room features two girls holding strapons in their hands, they strip you and freeze in anticipation of your wishes.'
  356. act 'Fuck them':
  357. cla
  358. *clr
  359. pcs_dom += 3
  360. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex7.jpg"></center>'
  361. 'You wear one of the strapons, and the girls kneel and begin to suck it.'
  362. act 'Fuck them':gt 'stripclub', 'stpr3'
  363. end
  364. act 'Surrender':
  365. cla
  366. *clr
  367. SUB += 3
  368. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex8.jpg"></center>'
  369. 'You get on your knees, and girls wear their strapons and you obediently suck them with joy.'
  370. act 'Surrender':gt 'stripclub', 'stpr4'
  371. end
  372. end
  373. if $ARGS[0] = 'stpr3':
  374. cla
  375. *clr
  376. pcs_horny = 0
  377. orgasm += 1
  378. minut += 45
  379. prsexrand = rand(9, 13)
  380. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex<<prsexrand>>.jpg"></center>'
  381. 'You fuck them as your heart desires, eventually stopping after you have your first orgasm, as for them, hmm.. you lost count somewhere around 6 or 7.'
  382. if hour ! 2:
  383. act 'More':gt 'stripclub', 'stpr3'
  384. end
  385. act 'Finish':gt 'stripclub', 'forman'
  386. end
  387. if $ARGS[0] = 'stpr4':
  388. cla
  389. *clr
  390. pcs_horny = 0
  391. orgasm += 1
  392. prsexrand = rand(14, 19)
  393. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex<<prsexrand>>.jpg"></center>'
  394. 'Losing youselves to the moment it is no longer clear who is the customer and who isn''t, as you all try different positions and orifices, in the end you are all quite satisfied.'
  395. if hour ! 2:
  396. act 'More':gt 'stripclub', 'stpr4'
  397. end
  398. act 'Finish':gt 'stripclub', 'forman'
  399. end
  400. --- stripclub ---------------------------------