stripclub 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449
  1. # stripclub
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. minut += 5
  7. gs 'stat'
  8. fcolor = rgb(0, 0, 0)
  9. bcolor = rgb(255, 255, 255)
  10. lcolor = rgb(106, 90, 205)
  11. '<center><b><font color="maroon">Strip Club</font></b></center>'
  12. '<center><img src="images/etogame/stripclub.jpg"></center>'
  13. if hour = 2:
  14. 'The stripclub is closing and security usher everyone out.'
  15. elseif hour > 2 and hour < 15:
  16. 'The stripclub is closed.'
  17. else
  18. if rand(1, 100) <= 30 and stripday ! daystart:
  19. stripday = daystart
  20. cfnm = 1
  21. elseif stripday ! daystart:
  22. stripday = daystart
  23. cfnm = 0
  24. end
  25. if cfnm = 1:'Today''s program, male striptease, ticket 500 rub.'
  26. if cfnm = 0:'Today''s program, striptease, ticket 500 rub.'
  27. if stripdolg > 0 and money >= 50000:
  28. act 'Pay off your fine (50,000 <b>₽</b>)':
  29. stripdolg = 0
  30. money -= 50000
  31. gt 'stripclub', 'start'
  32. end
  33. end
  34. if stripdolg = 0:
  35. if cfnm = 1 and money >= 500:
  36. act 'Pay entrance fee (500 <b>₽</b>) and enter':
  37. cla
  38. money -= 500
  39. minut += 5
  40. frost = 0
  41. gt 'stripclub', 'forwoman'
  42. end
  43. elseif cfnm = 0 and money >= 500:
  44. act 'Pay entrance fee (500 <b>₽</b>) and enter':
  45. cla
  46. money -= 500
  47. minut += 5
  48. frost = 0
  49. gt 'stripclub', 'forman'
  50. end
  51. end
  52. if stripdance > 0 and stripwork = 0:
  53. act 'Talk to the manager about working as a stripper':
  54. cla
  55. minut += 15
  56. gs 'stat'
  57. '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 costomers tip generously. Think of it as an incentive scheme, perform well and you earn a tip.'
  58. '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.'
  59. '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?"'
  60. act 'No':gt 'stripclub', 'start'
  61. act 'Yes':
  62. cls
  63. stripwork = 1
  64. '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.'
  65. if cfnm = 0:act 'Look around':gt 'stwork', 'start'
  66. if cfnm = 1:
  67. 'Today the program is male striptease, so the room is full of guys getting ready to perform.'
  68. act 'Leave':gt 'stripclub', 'start'
  69. end
  70. end
  71. end
  72. end
  73. if cfnm = 0 and stripwork > 0:
  74. act 'Walk into the dressing room':frost = 0 & gt 'stwork', 'start'
  75. elseif cfnm > 0 and stripwork > 0:
  76. 'Today there is no work, male strippers only.'
  77. end
  78. end
  79. end
  80. act 'Leave':
  81. cla
  82. minut += 5
  83. gt 'down'
  84. end
  85. end
  86. if $ARGS[0] = 'forman':
  87. cla
  88. clr
  89. *clr
  90. minut += 5
  91. gs 'stat'
  92. '<center><b><font color="maroon">Strip Club</font></b></center>'
  93. '<center><img src="images/etogame/stripclub1.jpg"></center>'
  94. 'On the stage in the main hall are girls undressing to the music, there is a private dance service, 1000 <b>₽</b> per dance.'
  95. act 'Leave':
  96. cla
  97. minut += 5
  98. gt 'stripclub', 'start'
  99. end
  100. if hour ! 2:
  101. act 'Sit at a table near the stage and watch a striptease':gt 'stripclub', 'stol'
  102. if money >= 1000:
  103. act 'Order a lap dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
  104. end
  105. if money >= 5000:
  106. act 'Order a special show (5,000 <b>₽</b>)':
  107. stprrand = rand(0, 1)
  108. if stprrand = 0:gt 'stripclub', 'stpr1'
  109. if stprrand = 1:gt 'stripclub', 'stpr2'
  110. end
  111. end
  112. end
  113. end
  114. if $ARGS[0] = 'privat':
  115. cla
  116. clr
  117. *clr
  118. money -= 1000
  119. minut += 60
  120. horny += 25
  121. DOM += 1
  122. gs 'stat'
  123. privrand = rand(0, 4)
  124. if privrand = 0:
  125. '<center><img src="images/img/centr/priv2.jpg"></center>'
  126. 'During the striptease the girls seem to be enjoy some female company and begin to caress you openly.'
  127. act 'Finish':gt 'stripclub', 'forman'
  128. act 'Let them':gt 'stripclub', 'privsex'
  129. elseif privrand > 0:
  130. '<center><img src="images/etogame/privat.jpg"></center>'
  131. 'Very hot girls dance around you, your pulse rises, it feels like an aphrodisiac.'
  132. if money >= 1000:
  133. act 'Another lap dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
  134. end
  135. act 'Finish':gt 'stripclub', 'forman'
  136. end
  137. end
  138. if $ARGS[0] = 'stol':
  139. cla
  140. clr
  141. *clr
  142. gs 'stat'
  143. '<center><img src="images/etogame/stripclub2.jpg"></center>'
  144. 'Lit up on the stage a girl is dancing and undressing erotically before a strenuous male audience.'
  145. act 'Watch striptease':
  146. cla
  147. *clr
  148. clr
  149. gs 'stat'
  150. minut += 15
  151. '<center><img src="images/etogame/stripclub4.jpg"></center>'
  152. 'The girl dances in front of you clearly hoping for a tip.'
  153. if money >= 50:
  154. act 'Give her 50 <b>₽</b>':
  155. cla
  156. *clr
  157. horny += 5
  158. minut += 15
  159. money -= 50
  160. '<center><img src="images/etogame/stripclub6.jpg"></center>'
  161. '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.'
  162. act 'Further':gt 'stripclub', 'stol'
  163. end
  164. end
  165. act 'Downcast eyes':
  166. cla
  167. horny -= 5
  168. minut += 15
  169. '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.'
  170. act 'Further':gt 'stripclub', 'stol'
  171. end
  172. end
  173. act 'Move away':gt 'stripclub', 'forman'
  174. end
  175. if $ARGS[0] = 'forwoman':
  176. cla
  177. clr
  178. *clr
  179. stripguy = 0
  180. minut += 5
  181. gs 'stat'
  182. '<center><b><font color="maroon">Strip Club</font></b></center>'
  183. '<center><img src="images/etogame/stripclub1.jpg"></center>'
  184. act 'Leave':
  185. cla
  186. minut += 5
  187. gt 'stripclub', 'start'
  188. end
  189. if hour ! 2 and zenit > 0 and minifoto = 0:
  190. act 'Photograph':
  191. minut += 10
  192. '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.'
  193. end
  194. elseif hour ! 2 and minifoto > 0:
  195. act 'Photograph':
  196. cla
  197. minut += 60
  198. 'You remove the mini camera, hold it half hidden by your chest and descreetly start walking down the hall.'
  199. stripfotorand = rand(0, 10)
  200. if stripfotorand < 2:
  201. minifoto = 0
  202. stripdolg = 1
  203. '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.'
  204. act 'Leave':gt 'stripclub', 'start'
  205. elseif stripfotorand >= 2 and stripfotorand < 6:
  206. shantfoto += 1
  207. '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.'
  208. act 'Return':gt 'stripclub', 'forwoman'
  209. elseif stripfotorand >= 6:
  210. 'You struggle to take a normal picture, the girls surrounding you in obscure states of undress, but the guard is very close.'
  211. act 'Return':gt 'stripclub', 'forwoman'
  212. end
  213. end
  214. end
  215. if hour ! 2:
  216. act 'Sit at a table near the stage and watch a striptease':gt 'stripclub', 'stolW'
  217. end
  218. end
  219. if $ARGS[0] = 'stolW':
  220. cla
  221. clr
  222. *clr
  223. stripguy = 0
  224. gs 'stat'
  225. '<center><img src="images/picVA/stripW.jpg"></center>'
  226. 'On the stage are hulking, athletic guys, girls squeal and shove them money in the heat.'
  227. if hour < 23:
  228. act 'See a striptease':
  229. cla
  230. *clr
  231. clr
  232. gs 'stat'
  233. minut += 15
  234. '<center><img src="images/picVA/stripW1.jpg"></center>'
  235. 'A stripper comes to you and hugs you.'
  236. if money >= 50:
  237. act 'Shove him 50 <b>₽</b>':
  238. cla
  239. *clr
  240. horny += 5
  241. minut += 15
  242. money -= 50
  243. '<center><img src="images/picVA/stripW2.jpg"></center>'
  244. '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.'
  245. act 'Stop':gt 'stripclub', 'stolW'
  246. !!act 'Touch his hand member':gt 'cfnm', 'start'
  247. act 'Let him expose your breasts':gt 'cfnm', 'start'
  248. end
  249. end
  250. act 'Downcast eyes':
  251. cla
  252. horny -= 5
  253. minut += 15
  254. 'You decided not to give money to the stripper and look away from him, you feel a little ashamed and your arousal decreases.'
  255. act 'Further':gt 'stripclub', 'stolW'
  256. end
  257. end
  258. end
  259. act 'Move away':gt 'stripclub', 'forwoman'
  260. end
  261. if $ARGS[0] = 'privsex':
  262. cla
  263. *clr
  264. girl += 2
  265. lesbian += 1
  266. horny = 0
  267. orgasm += 1
  268. '<center><img src="images/img/centr/priv3.jpg"></center>'
  269. '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.'
  270. act 'Finish':gt 'stripclub', 'forman'
  271. act 'More':gt 'stripclub', 'privsex1'
  272. end
  273. if $ARGS[0] = 'privsex1':
  274. cla
  275. *clr
  276. privpicrand = rand(4, 7)
  277. '<center><img src="images/img/centr/priv<<privpicrand>>.jpg"></center>'
  278. 'You caress each other.'
  279. act 'Finish':gt 'stripclub', 'forman'
  280. end
  281. if $ARGS[0] = 'stpr1':
  282. cla
  283. *clr
  284. horny += 30
  285. '<center><img src="images/img/centr/prsex1.jpg"></center>'
  286. 'The room includes two girls with strapons, you sit down and they start fucking each other.'
  287. act 'Finish':gt 'stripclub', 'forman'
  288. act 'Join them':
  289. cla
  290. *clr
  291. SUB += 3
  292. girl += 2
  293. lesbian += 1
  294. sex += 1
  295. anal += 1
  296. '<center><img src="images/img/centr/prsex2.jpg"></center>'
  297. '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.'
  298. act 'Doggy-Style':
  299. cla
  300. *clr
  301. '<center><img src="images/img/centr/prsex3.jpg"></center>'
  302. '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.'
  303. act 'Two Smoking Barrels':
  304. cla
  305. *clr
  306. horny = 0
  307. orgasm += 1
  308. '<center><img src="images/img/centr/prsex4.jpg"></center>'
  309. 'You look up at the girl in front of you and lustily plead, "I want both of you inside me." It appears theyy 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.'
  310. 'They fuck you in both holes bringing you to orgasm.'
  311. act 'Further':
  312. cla
  313. *clr
  314. spafinloc = 12
  315. gs 'cum_manage'
  316. spafinloc = 11
  317. gs 'cum_manage'
  318. cumbrest += 1
  319. '<center><img src="images/img/centr/prsex5.jpg"></center>'
  320. '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.'
  321. act 'Finish':gt 'stripclub', 'forman'
  322. end
  323. end
  324. end
  325. end
  326. end
  327. if $ARGS[0] = 'stpr2':
  328. cla
  329. *clr
  330. girl += 2
  331. lesbian += 1
  332. '<center><img src="images/img/centr/prsex6.jpg"></center>'
  333. 'The room features two girls holding strapons in their hands, they strip you and freeze in anticipation of your wishes.'
  334. act 'Fuck them':
  335. cla
  336. *clr
  337. DOM += 3
  338. '<center><img src="images/img/centr/prsex7.jpg"></center>'
  339. 'You wear one of the strapons, and the girls kneel and begin to suck it.'
  340. act 'Fuck them':gt 'stripclub', 'stpr3'
  341. end
  342. act 'Surrender':
  343. cla
  344. *clr
  345. SUB += 3
  346. '<center><img src="images/img/centr/prsex8.jpg"></center>'
  347. 'You get on your knees, and girls wear their strapons and you obediently suck them with joy.'
  348. act 'Surrender':gt 'stripclub', 'stpr4'
  349. end
  350. end
  351. if $ARGS[0] = 'stpr3':
  352. cla
  353. *clr
  354. horny = 0
  355. orgasm += 1
  356. minut += 45
  357. prsexrand = rand(9, 13)
  358. '<center><img src="images/img/centr/prsex<<prsexrand>>.jpg"></center>'
  359. 'You fuck them as your heart desires, eventually stopping after you have your first oragasm, as for them, hmm.. you lost count somewhere around 6 or 7.'
  360. if hour ! 2:
  361. act 'More':gt 'stripclub', 'stpr3'
  362. end
  363. act 'Finish':gt 'stripclub', 'forman'
  364. end
  365. if $ARGS[0] = 'stpr4':
  366. cla
  367. *clr
  368. horny = 0
  369. orgasm += 1
  370. prsexrand = rand(14, 19)
  371. '<center><img src="images/img/centr/prsex<<prsexrand>>.jpg"></center>'
  372. '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.'
  373. if hour ! 2:
  374. act 'More':gt 'stripclub', 'stpr4'
  375. end
  376. act 'Finish':gt 'stripclub', 'forman'
  377. end
  378. --- stripclub ---------------------------------