stripclub.qsrc 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511
  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 strip club is closing and security guard ushers everyone out.'
  21. elseif hour > 2 and hour < 11:
  22. 'The strip club is closed. You notice a sign on the door: The business hours are between 15 - 02.'
  23. else
  24. if stripdolg > 0:
  25. if money >= 50000:
  26. act 'Pay off your fine (50,000 <b>₽</b>)':
  27. stripdolg = 0
  28. money -= 50000
  29. gt 'stripclub', 'start'
  30. end
  31. else
  32. *nl
  33. 'You still owe a 50,000 <b>₽</b> fine for your illegal actions. You cannot return to the club until you have paid them off.'
  34. end
  35. end
  36. if stripdolg = 0:
  37. if cfnm = 1 and money >= 500:
  38. act 'Enter (500 <b>₽</b>)':
  39. cla
  40. money -= 500
  41. minut += 5
  42. frost = 0
  43. gt 'stripclub', 'forwoman'
  44. end
  45. elseif cfnm = 0 and money >= 300:
  46. act 'Enter (300 <b>₽</b>)':
  47. cla
  48. money -= 300
  49. minut += 5
  50. frost = 0
  51. gt 'stripclub', 'forman'
  52. end
  53. end
  54. if pcs_dancero > 0 and stripwork = 0 and pcs_inhib >= 60:
  55. act 'Talk to the manager about performing in the strip club':
  56. cla
  57. *clr
  58. minut += 15
  59. gs 'stat'
  60. 'The manager observes you for a while and asks, "Are you really 18 years old? I had a visit from the police last week and they found an under-aged girl working here. I was fortunate enough that the officers could be bribed."'
  61. *nl
  62. if age >= 18:
  63. '"Yes I am." You answer him. He points at a spot where he wants you to do a little dance.'
  64. 'You dance sensually, clearly he''s smitten by you. He asks you to sit down, "Our business hours are between 18:00 to 02:00. Some days there are only male strippers performing. We don''t pay strippers, but the customers tip generously. Think of it as an incentive, perform well and you''ll earn a tip."'
  65. '"Strippers can perform lap dances for clients at their request for 1000 <b>₽</b> per lap dance, the stripper gets 400 <b>₽</b>, and the rest belongs to the club. They may want further entertainment, as the club doesn''t operate as a brothel we don''t really accept that kind of business but we usually turn a blind eye to it."'
  66. '"One last thing that I nearly forgot, dancing on stage involves a lot of work on the pole. Unless you do that, it is unlikely you will earn anything. There is no set schedule, the employees choose when they want to come to work. So what do you say, are you interested?"'
  67. act 'Accept his offer':
  68. cla
  69. *clr
  70. stripwork = 1
  71. gs 'stat'
  72. 'You think about it for a minut and smile at him as you accept his offer. The manager leads you to the dressing room and tell a woman responsible for the costumes that you''re going to join the club. He also introduces you to the chief of security, who takes your picture and makes you sign some documents. After you''re done the boss once again greets you welcome and then returns to his office.'
  73. if cfnm = 0:act 'Look around':gt 'stwork', 'start'
  74. if cfnm = 1:
  75. 'There are only males performing tonight, so the room is full of guys getting ready to perform.'
  76. act 'Leave':gt 'stripclub', 'start'
  77. end
  78. end
  79. act 'Reject his offer':
  80. cla
  81. *clr
  82. gs 'stat'
  83. 'You thank him for the offer but you''re not ready to commit to anything yet.'
  84. 'You can see on his face that he''s disappointed but he can''t really do anything about your decision. He thanks you and tells you if you ever change your mind you''re welcome back.'
  85. act 'Leave':gt 'stripclub', 'start'
  86. end
  87. elseif fakepassport = 1:
  88. '"Yes I am." you answer, handing him your fake passport.'
  89. 'You see him frown as he checks your passport with suspicion, "Well, I guess everything is in order." as he points at a spot where he wants you to do a little dance.'
  90. 'You dance sensually, clearly he''s smitten by you. He asks you to sit down, "Our business hours are between 18:00 to 02:00. Some days there are only male strippers performing. We don''t pay strippers, but the customers tip generously. Think of it as an incentive, perform well and you''ll earn a tip."'
  91. '"Strippers can perform lap dances for clients at their request for 1000 <b>₽</b> per lap dance, the stripper gets 400 <b>₽</b>, and the rest belongs to the club. They may want further entertainment, as the club doesn''t operate as a brothel we don''t really accept that kind of business but we usually turn a blind eye to it."'
  92. '"One last thing that I nearly forgot, dancing on stage involves a lot of work on the pole. Unless you do that, it is unlikely you will earn anything. There is no set schedule, the employees choose when they want to come to work. So what do you say, are you interested?"'
  93. act 'Accept his offer':
  94. cla
  95. *clr
  96. stripwork = 1
  97. gs 'stat'
  98. 'You think about it for a minut and smile at him as you accept his offer. The manager leads you to the dressing room and tell a woman responsible for the costumes that you''re going to join the club. He also introduces you to the chief of security, who takes your picture and makes you sign some documents. After you''re done the boss once again greets you welcome and then returns to his office.'
  99. if cfnm = 0:act 'Look around':gt 'stwork', 'start'
  100. if cfnm = 1:
  101. 'There are only males performing tonight, so the room is full of guys getting ready to perform.'
  102. act 'Leave':gt 'stripclub', 'start'
  103. end
  104. end
  105. act 'Reject his offer':
  106. cla
  107. *clr
  108. gs 'stat'
  109. 'You thank him for the offer but you''re not ready to commit to anything yet.'
  110. 'You can see on his face that he''s disappointed but he can''t really do anything about your decision. He thanks you and tells you if you ever change your mind you''re welcome back.'
  111. act 'Leave':gt 'stripclub', 'start'
  112. end
  113. else
  114. '"Nearly..." you say dejectingly.'
  115. '"Right. You need to leave this establishment, be sure to come back when you are old enough." he tells you.'
  116. act 'Leave':gt 'Nord', 'redlight'
  117. end
  118. end
  119. elseif stripwork = 0 and pcs_inhib < 60:
  120. 'You could ask the manager for a job, but you don''t feel confident enough to be a stripper, you should get more used to showing off your body first.'
  121. end
  122. if stripwork = 1: act 'Walk into the dressing room':frost = 0 & gt 'stwork', 'start'
  123. end
  124. end
  125. act 'Leave': gt 'Nord', 'redlight'
  126. end
  127. if $ARGS[0] = 'forman':
  128. cla
  129. *clr
  130. minut += 5
  131. gs 'stat'
  132. '<center><b><font color="maroon">Strip Club</font></b></center>'
  133. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub1.jpg"></center>'
  134. 'There are some girls on the stage, dancing to the music. You notice a sign offering private dances, costing 1000 <b>₽</b> per dance.'
  135. act 'Leave':
  136. cla
  137. *clr
  138. minut += 5
  139. gt 'stripclub', 'start'
  140. end
  141. if hour ! 2:
  142. act 'Sit at a table near the stage and watch a striptease':gt 'stripclub', 'stol'
  143. if money >= 1000:
  144. act 'Order a private lap dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
  145. end
  146. if money >= 5000:
  147. act 'Order a special show (5,000 <b>₽</b>)':
  148. stprrand = rand(0, 1)
  149. if stprrand = 0:gt 'stripclub', 'stpr1'
  150. if stprrand = 1:gt 'stripclub', 'stpr2'
  151. end
  152. end
  153. end
  154. end
  155. if $ARGS[0] = 'privat':
  156. cla
  157. *clr
  158. money -= 1000
  159. minut += 60
  160. pcs_horny += 25
  161. pcs_dom += 1
  162. gs 'stat'
  163. privrand = rand(0, 4)
  164. if privrand = 0:
  165. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/priv2.jpg"></center>'
  166. 'During the striptease the girls seem to be enjoying the female company and begin to caress you openly, making the male customers a bit jealous as they don''t get to enjoy the same attention as you''re getting.'
  167. act 'Finish':gt 'stripclub', 'forman'
  168. act 'Let them continue on':gt 'stripclub', 'privsex'
  169. elseif privrand > 0:
  170. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/privat.jpg"></center>'
  171. 'There are some very hot girls dancing around you, your feel your pulse rise, their movements are just like an aphrodisiac.'
  172. if money >= 1000:
  173. act 'Order another dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
  174. end
  175. act 'Finish':gt 'stripclub', 'forman'
  176. end
  177. end
  178. if $ARGS[0] = 'stol':
  179. cla
  180. *clr
  181. gs 'stat'
  182. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub2.jpg"></center>'
  183. 'The stage is lit up as a girl is dancing and undressing erotically before a strenuous male audience.'
  184. act 'Watch the striptease':
  185. cla
  186. *clr
  187. gs 'stat'
  188. minut += 15
  189. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub4.jpg"></center>'
  190. 'The girl dances in front of you clearly hoping you''ll give her a tip.'
  191. if money >= 50:
  192. act 'Give her 50 <b>₽</b>':
  193. cla
  194. *clr
  195. pcs_horny += 5
  196. minut += 10
  197. money -= 50
  198. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub6.jpg"></center>'
  199. 'You stick 50 <b>₽</b> in the strippers panties and she invitingly starts wagging her hips and shaking her tits in front of you, you feel yourself slowly getting excited.'
  200. act 'Further':gt 'stripclub', 'stol'
  201. end
  202. end
  203. act 'Downcast eyes':
  204. cla
  205. *clr
  206. pcs_horny -= 5
  207. minut += 15
  208. 'You decided not to give any money to the stripper and look away from her. You feel a little ashamed as your arousal goes down a bit.'
  209. act 'Further':gt 'stripclub', 'stol'
  210. end
  211. end
  212. act 'Move away':gt 'stripclub', 'forman'
  213. end
  214. if $ARGS[0] = 'forwoman':
  215. cla
  216. *clr
  217. stripguy = 0
  218. minut += 5
  219. gs 'stat'
  220. '<center><b><font color="maroon">Strip Club</font></b></center>'
  221. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub1.jpg"></center>'
  222. act 'Leave':
  223. cla
  224. *clr
  225. minut += 5
  226. gt 'stripclub', 'start'
  227. end
  228. if hour ! 2 and zenit > 0 and minifoto = 0:
  229. act 'Photograph':
  230. minut += 10
  231. 'As soon as you take the camera out you are immediately approached by a security guard that informs you that there is no photography allowed, you apologize and put the camera back in your purse.'
  232. end
  233. elseif hour ! 2 and minifoto > 0:
  234. act 'Photograph':
  235. cla
  236. *clr
  237. minut += 60
  238. 'You put on the mini camera, keeping it half hidden by your chest and discreetly start walking through the club.'
  239. stripfotorand = rand(0, 10)
  240. if stripfotorand < 2:
  241. minifoto = 0
  242. stripdolg = 1
  243. 'You fail to hide the camera well enough and get spotted out by the security guard. He grabs you by the hand and leads you to his office, already waiting there for you is the owner, he takes your camera, and says that you own him 50,000 <b>₽</b> for snooping around and until you pay up you are barred from the club.'
  244. act 'Leave':gt 'stripclub', 'start'
  245. elseif stripfotorand >= 2 and stripfotorand < 6:
  246. shantfoto += 1
  247. 'You struggle to take a normal picture, the girls surrounding you are moving obscurly while they strip, and the guard is very close so you have to be careful. You finally manage to take a normal picture in the end.'
  248. act 'Return':gt 'stripclub', 'forwoman'
  249. elseif stripfotorand >= 6:
  250. 'You struggle to take a normal picture, the girls surrounding you are moving obscurly while they strip, and the guard is very close so you decide that you don''t want to risk anything.'
  251. act 'Return':gt 'stripclub', 'forwoman'
  252. end
  253. end
  254. end
  255. if hour ! 2:
  256. act 'Sit at a table near the stage and watch a striptease':gt 'stripclub', 'stolW'
  257. end
  258. end
  259. if $ARGS[0] = 'stolW':
  260. cla
  261. *clr
  262. stripguy = 0
  263. gs 'stat'
  264. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripw.jpg"></center>'
  265. 'There are some athletic guys performing on the stage, the women are all excited, squealing and shoving money down their pants.'
  266. if hour < 23:
  267. act 'Watch a striptease':
  268. cla
  269. *clr
  270. minut += 15
  271. gs 'stat'
  272. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripw1.jpg"></center>'
  273. 'A male stripper walks over to you and begins moving his hips in a circular movement. He''s trying to get you excited enough so you''ll give him a tip.'
  274. if money >= 50:
  275. act 'Shove 50 <b>₽</b> down his pants':
  276. cla
  277. *clr
  278. pcs_horny += 5
  279. minut += 10
  280. money -= 50
  281. gs 'stat'
  282. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripw2.jpg"></center>'
  283. 'You shove 50 <b>₽</b> down his pants and he leads you over to sit on a chair starts dancing in front of you. Before you know it he is completely naked and you have a great view of his cock. The stripper gropes your chest, trying to get your breasts out from under your blouse.'
  284. act 'Stop':gt 'stripclub', 'stolW'
  285. !!act 'Touch his hand member':gt 'cfnm', 'start'
  286. act 'Let him expose your breasts':gs 'npcgeneratec', 0, 'Stripper', rand(18,28) & gs 'boyStat', $npclastgenerated & gt 'cfnm', 'start'
  287. end
  288. end
  289. act 'Downcast eyes':
  290. cla
  291. pcs_horny -= 5
  292. minut += 15
  293. 'You decided not to give any money to the stripper and look away from him. You feel a little ashamed as your arousal goes down a bit.'
  294. act 'Further':gt 'stripclub', 'stolW'
  295. end
  296. end
  297. end
  298. act 'Move away':gt 'stripclub', 'forwoman'
  299. end
  300. if $ARGS[0] = 'privsex':
  301. cla
  302. *clr
  303. girl += 2
  304. lesbian += 1
  305. gs 'arousal', 'cuni', 15, 'lesbian', 'group'
  306. $orgasm_or = 'yes'
  307. gs 'stat'
  308. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/priv3.jpg"></center>'
  309. 'The girls lead you away from the center stage into a private booth. Before you know it they''ve taken off your clothes and have you widely spreading your legs as one of them licks your pussy, bringing you to orgasm, while the other girl continues to caress your body.'
  310. act 'Finish':gt 'stripclub', 'forman'
  311. act 'More':gt 'stripclub', 'privsex1'
  312. end
  313. if $ARGS[0] = 'privsex1':
  314. cla
  315. *clr
  316. privpicrand = rand(4, 7)
  317. girl += 2
  318. lesbian += 1
  319. gs 'arousal', 'cuni', 15, 'lesbian', 'group'
  320. $orgasm_or = 'yes'
  321. gs 'arousal', 'end'
  322. gs 'stat'
  323. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/priv<<privpicrand>>.jpg"></center>'
  324. 'The other girl lets out a sigh, "You''ve already made her orgasm... I don''t care I also want in on the action..." as she gently pushes her friend away and begins eating you out. It doesn''t take long before you reach an orgasm once again. As you manage to calm down you notice that you''re all alone in the booth.'
  325. act 'Finish':gt 'stripclub', 'forman'
  326. end
  327. if $ARGS[0] = 'stpr1':
  328. cla
  329. *clr
  330. gs 'arousal', 'voyeur', 5, 'lesbian', 'group'
  331. gs 'stat'
  332. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex1.jpg"></center>'
  333. 'You wait for a moment before the security guard walks up to you and tells you to follow him.'
  334. 'He leads you to a room and as you enter you notice a girl fucking another one with a strap-on. You sit down and enjoy the moans coming from the girl getting fucked for a moment.'
  335. act 'Leave':gt 'stripclub', 'forman'
  336. act 'Join them':
  337. cla
  338. *clr
  339. girl += 2
  340. lesbian += 1
  341. gs 'arousal', 'bj', 10, 'lesbian', 'sub', 'group'
  342. gs 'stat'
  343. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex2.jpg"></center>'
  344. 'Wanting in on the action, you start to undress and tell the other girl to put on a strap-on. As the girl finishes you kneel in front of them as they stand beside you and rest their strap-ons against your face, you start greedily sucking, licking the remnants of one of the girl''s juices while lubing the other cock.'
  345. act 'Doggy-Style':
  346. cla
  347. *clr
  348. gs 'arousal', 'bj', 10, 'lesbian', 'sub', 'group'
  349. gs 'arousal', 'vaginal_strap', 10, 'lesbian', 'sub', 'group'
  350. minut -= 10
  351. gs 'stat'
  352. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex3.jpg"></center>'
  353. 'The girls chuckle a little as they see you this submisive and after they deemed you''ve sucked enough they push you onto your hands and knees as one of them stands behind you and enters your moist pussy while you continue to suck the other.'
  354. act 'Two Smoking Barrels':
  355. cla
  356. *clr
  357. gs 'arousal', 'anal_strap', 10, 'lesbian', 'sub', 'group'
  358. gs 'arousal', 'vaginal_strap', 10, 'lesbian', 'sub', 'group'
  359. minut -= 10
  360. $orgasm_or = 'yes'
  361. gs 'stat'
  362. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex4.jpg"></center>'
  363. '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 one of the girls quickly slides underneath you, while the the other girl standing behind you eases her way into your ass.'
  364. 'They begin to fuck you in full force and it doesn''t take long before they bring you to orgasm.'
  365. act 'Further':
  366. cla
  367. *clr
  368. gs 'cum_call', 'mouth', 'strippers'
  369. gs 'cum_call', 'face', 'strippers'
  370. gs 'cum_call', 'breasts', 'strippers'
  371. gs 'arousal', 'end'
  372. gs 'stat'
  373. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex5.jpg"></center>'
  374. 'As you finish, the girls pull out and stand over you and jerk their strap-on until a liquid pours out that tastes much like sperm. The liquid covers your mouth, face and chest.'
  375. act 'Finish':gt 'stripclub', 'forman'
  376. end
  377. end
  378. end
  379. end
  380. end
  381. if $ARGS[0] = 'stpr2':
  382. cla
  383. *clr
  384. girl += 2
  385. lesbian += 1
  386. gs 'arousal', 'foreplay', 5, 'lesbian', 'group'
  387. gs 'stat'
  388. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex6.jpg"></center>'
  389. 'You wait for a moment before the security guard walks up to you and tells you to follow him.'
  390. 'He leads you to a room and as you enter you notice two girls each holding a strap-on in their hands. Without any hesitation they walk over to you and strip you down and await further instructions.'
  391. act 'Have them suck you off':
  392. cla
  393. *clr
  394. gs 'arousal', 'foreplay', 10, 'lesbian', 'dom', 'group'
  395. gs 'stat'
  396. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex7.jpg"></center>'
  397. 'You tell one of the girls to hand over her strap-on which you put on. You command the girls to kneel and stick the cock in front of their faces. Not needed a cue they start sucking on it lubing the best they can.'
  398. act 'Fuck them':
  399. cla
  400. *clr
  401. gs 'arousal', 'vaginal_strap_give', 30, 'lesbian', 'dom', 'group'
  402. $orgasm_or = 'yes'
  403. gs 'arousal', 'end'
  404. gs 'stat'
  405. prsexrand = rand(9, 13)
  406. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex<<prsexrand>>.jpg"></center>'
  407. 'After a while you get a bit bored by as you smirk and tell them that you want to fuck them. They eagerly position themselves, ready for you fake cock. You fuck them as your heart desires, eventually stopping after you have your first orgasm, as for them, hmm... you''ve lost count and all you hear is panting.'
  408. act 'Finish':gt 'stripclub', 'forman'
  409. end
  410. end
  411. act 'Suck them off':
  412. cla
  413. *clr
  414. gs 'arousal', 'bj', 10, 'lesbian', 'sub', 'group'
  415. gs 'stat'
  416. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex8.jpg"></center>'
  417. 'You want to get used today so you order them to put on the strap-ons as you get on your knees and joyfully begin sucking them off.'
  418. act 'Have them fuck you':
  419. cla
  420. *clr
  421. gs 'arousal', 'vaginal_strap', 30, 'lesbian', 'sub', 'group'
  422. gs 'arousal', 'anal_strap', 30, 'lesbian', 'sub', 'group'
  423. minut -= 30
  424. $orgasm_or = 'yes'
  425. gs 'arousal', 'end'
  426. gs 'stat'
  427. prsexrand = rand(14, 19)
  428. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex<<prsexrand>>.jpg"></center>'
  429. 'You yearn to have your holes filled as you stop sucking them and order them to fill your orifices. The girls quickly position themselves and start fucking you.'
  430. 'Losing yourselves to the moment it is no longer clear who is the customer and who isn''t, as they fuck you in different positions and orifices, you lose count of how many times you orgasm, at the end you are all quite satisfied.'
  431. act 'Finish':gt 'stripclub', 'forman'
  432. end
  433. end
  434. end
  435. --- stripclub ---------------------------------