stripclub.qsrc 42 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746
  1. # stripclub
  2. !!2021/04/15
  3. close all
  4. if $ARGS[0] = 'start':
  5. *clr & cla
  6. minut += 5
  7. $menu_loc = 'stripclub'
  8. $menu_arg = 'start'
  9. menu_off = 0
  10. if sound = 0:
  11. if month >= 11 and month <= 12 or month >= 1 and month <= 3:
  12. if hour >= 3 and hour <= 17: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street7.mp3',30 & PLAY 'sound/zima.mp3',30
  13. if hour >= 18 or hour <= 2: PLAY 'sound/street_club.mp3',30
  14. else
  15. if hour >= 3 and hour <= 17: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street7.mp3',30 & PLAY 'sound/street_leto.mp3',30
  16. if hour >= 18 or hour <= 2: PLAY 'sound/street_club.mp3',30
  17. end
  18. end
  19. gs 'stat'
  20. gs 'themes', 'indoors'
  21. '<center><b><font color="maroon">Fuzzy Dice Strip Club</font></b></center>'
  22. if month >= 11 and month <= 12 or month >= 1 and month <= 3:
  23. if hour >= 19 or hour <= 5: '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/club_night_winter.jpg"></center>'
  24. if hour >= 6 and hour <= 18: '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/club_day_winter.jpg"></center>'
  25. else
  26. if hour >= 20 and hour <= 23: '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/club_night_summer_1.jpg"></center>'
  27. if hour >= 0 and hour <= 5: '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/club_night_summer_2.jpg"></center>'
  28. if hour >= 6 and hour <= 19: '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/club_day_summer.jpg"></center>'
  29. end
  30. *nl
  31. act 'Leave': gt 'city_redlight', 'start'
  32. 'There are other strip clubs in the area, the <a href="exec:view''images/locations/city/redlight/stripclub/macho.jpg''">Macho</a>, the <a href="exec:view''images/locations/city/redlight/stripclub/maximus_night.jpg''">Maximus</a> and the <a href="exec:view''images/locations/city/redlight/stripclub/penthouse_night.jpg''">Penthouse</a>, but they are not as popular as the Fuzzy Dice.'
  33. if hour = 3:
  34. 'The strip club is closing, and a security guard ushers everyone out.'
  35. elseif hour > 3 and hour < 18:
  36. 'The strip club is closed. You notice a sign on the door stating that business hours are between 18:00 and 03:00.'
  37. else
  38. if stripdolg > 0:
  39. if money >= 50000:
  40. act 'Pay off your fine (50,000 <b>₽</b>)':
  41. stripdolg = 0
  42. money -= 50000
  43. gt 'stripclub', 'start'
  44. end
  45. else
  46. *nl
  47. 'You still owe a 50,000 <b>₽</b> fine for your illegal actions. You can''t return to the club until you''ve paid it off.'
  48. end
  49. else
  50. if age >= 18 or fakepassport = 1:
  51. if ((week = 3 or week = 4) and stripwork = 1) or ((week = 5 or week = 6) and stripwork1 = 1):
  52. '"Evening, <<$pcs_stagename>>. You working tonight?" he asks.'
  53. 'You give him a quick nod as you head for the employee entrance.'
  54. act 'Use the employee''s entrance':frost = 0 & gt 'stwork', 'start'
  55. elseif (stripwork = 1 or stripwork1 = 1) or (stripbarwork = 1 or stripbarwork1 = 1):
  56. 'Hey, <<$pcs_stagename>>. Paying us a visit on your night off?" he asks.'
  57. 'You nod and he stands aside to let you in. "I''m sure the patrons won''t recognize you with clothes on," he says with a smile.'
  58. else
  59. 'The security guard stops you and, looking you up and down, asks to see your ID.'
  60. 'He looks it over before nodding. "You''re free to enter," he says and stands aside to let you in.'
  61. end
  62. if stripdolg = 0:
  63. if cfnm = 1 and (stripwork = 1 or stripwork1 = 1) or (stripbarwork = 1 or stripbarwork1 = 1):
  64. act 'Enter the club':
  65. cla
  66. minut += 5
  67. frost = 0
  68. '"As you know, it''s Ladies Night tonight. Enjoy," he says with a smile.'
  69. gt 'stripclub', 'forwoman'
  70. end
  71. elseif cfnm = 0 and (stripwork = 1 or stripwork1 = 1) or (stripbarwork = 1 or stripbarwork1 = 1):
  72. act 'Enter the club':
  73. cla
  74. minut += 5
  75. frost = 0
  76. '"Enjoy the girls tonight," he says with a smile.'
  77. gt 'stripclub', 'forman'
  78. end
  79. elseif cfnm = 1 and money >= 500:
  80. act 'Enter the club (500 <b>₽</b>)':
  81. cla
  82. money -= 500
  83. minut += 5
  84. frost = 0
  85. '"It''s Ladies Night tonight. Enjoy," he says with a smile.'
  86. gt 'stripclub', 'forwoman'
  87. end
  88. elseif cfnm = 0 and money >= 300:
  89. act 'Enter the club (300 <b>₽</b>)':
  90. cla
  91. money -= 300
  92. minut += 5
  93. frost = 0
  94. '"Enjoy the girls tonight," he says with a smile.'
  95. gt 'stripclub', 'forman'
  96. end
  97. else
  98. *nl
  99. 'You don''t have enough money to pay the entry fee.'
  100. end
  101. end
  102. if pcs_dancero > 0 and stripwork = 0 and pcs_inhib >= 50:
  103. act 'Ask the manager about working as a stripper': gt 'stripclub', 'manager_stripper'
  104. elseif stripwork = 0 and pcs_inhib < 50:
  105. '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.'
  106. end
  107. !!if pcs_inhib >= 60 and (stripbarwork = 0 or stripbarwork1 = 0):
  108. !!act 'Ask the manager about working in the bar': gt 'stripclub', 'manager_bargirl'
  109. !!elseif pcs_inhib < 60 and (stripbarwork = 0 or stripbarwork1 = 0):
  110. !!'You could ask the manager for a job, but you don''t feel confident enough to work in a strip club, even if it is just in the bar.'
  111. !!end
  112. else
  113. 'The security guard stops you and, looking you up and down, asks to see your ID.'
  114. 'You make a show of rummaging through your purse. "Sorry, I must have left it at home."'
  115. '"You need to leave, but be sure to come back when you''re old enough," he replies.'
  116. end
  117. end
  118. end
  119. end
  120. if $ARGS[0] = 'manager_stripper':
  121. *clr & cla
  122. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/tryout.jpg"></center>'
  123. minut += 15
  124. gs 'stat'
  125. 'You enter the manager''s office and he greets you with a smile. "Hello and welcome to the Fuzzy Dice. How can I help you?"'
  126. 'You return the smile. "Hi, I was wondering if I could get a job here as a stripper?"'
  127. 'The manager looks you over. "Are you at least 18 years old? I had a visit from the police last week, and they found an underage girl working here. I was fortunate enough that the officers could be bribed."'
  128. if age >= 18 or fakepassport = 1:
  129. if age >= 18:
  130. '"Yes I am," you confidently reply and hand him your ID.'
  131. else
  132. '"Yes I am," you answer, handing him your fake passport.'
  133. 'You see him frown as he checks your passport with suspicion. "Well, I guess everything is in order."'
  134. end
  135. 'He leads you to one of the private booths and points to the pole. "Show me what you can do."'
  136. if pcs_dancero >= 40 and pcs_dancpol >= 30:
  137. 'You dance sensually, and clearly he''s smitten by you as he asks you to sit down. "Our business hours are between 18:00 and 03:00. We don''t pay you, but the customers tip generously. Think of it as an incentive; perform well and you''ll earn a tip."'
  138. '"Strippers can perform lap dances for clients at their request for 1000 <b>₽</b> per dance. The stripper gets 400 <b>₽</b>, and the rest goes to the club. Some clients may want to pay extra for further ''entertainment'', but we are <i>not</i> a brothel. A quick blowjob is fine, but anything further will arouse suspicion. You''re not forced to do this by the way, so call for security if they start getting too pushy with you. You''re free to do whatever you want with them outside of business hours though."'
  139. '"One last thing. Dancing on stage involves a lot of work on the pole, so unless you can do that, it''s unlikely you will earn anything. We have a set schedule, so you can choose whether you wish to work Wednesday and Thursday nights, or Friday and Saturday nights. Tuesday is Ladies Night and is for male strippers only, so it''s a night off for all the girls. So what do you say? Interested?"'
  140. act 'Take the weekday shifts':
  141. *clr & cla
  142. stripwork = 1
  143. gs 'stat'
  144. 'You think about it for a minute and smile at him as you accept his offer, choosing to work on Wednesday and Thursday nights.'
  145. 'The manager leads you to the dressing room and tells 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.'
  146. if $pcs_stagename = '':
  147. '"Our girls don''t perform under their real name for obvious reasons. What would you like your stage name to be?"'
  148. $pcs_stagename = input("What name would you like to use at the strip club? (Leave blank for Sapphire)")
  149. if $pcs_stagename = '':$pcs_stagename = 'Sapphire'
  150. end
  151. '"<<$pcs_stagename>>. I like it," the manager says with a smile.'
  152. 'Once you''re done with the forms, you''re sent back to the manager''s office.'
  153. '"Before you go on stage, I expect you to drop by my office so I can see if you''re up to our club standards. It''s just a routine check to make sure that the club''s reputation stays intact. Nothing to worry about," he says before ushering you out of his office again.'
  154. if cfnm = 0:act 'Head to the dressing room':gt 'stwork', 'start'
  155. if cfnm = 1:
  156. 'There are only males performing tonight, so the room is full of guys getting ready to perform.'
  157. act 'Leave':gt 'stripclub', 'work_leave'
  158. end
  159. end
  160. act 'Take the weekend shifts':
  161. *clr & cla
  162. stripwork1 = 1
  163. gs 'stat'
  164. 'You think about it for a minute and smile at him as you accept his offer, choosing to work on Friday and Saturday nights.'
  165. 'The manager leads you to the dressing room and tells 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.'
  166. if $pcs_stagename = '':
  167. '"Our girls don''t perform under their real name for obvious reasons. What would you like your stage name to be?"'
  168. $pcs_stagename = input("What name would you like to use at the strip club? (Leave blank for Sapphire)")
  169. if $pcs_stagename = '':$pcs_stagename = 'Sapphire'
  170. end
  171. '"<<$pcs_stagename>>. I like it," the manager says with a smile.'
  172. 'Once you''re done with the forms, you''re sent back to the manager''s office.'
  173. '"Before you go on stage, I expect you to drop by my office so I can see if you''re up to our club standards. It''s just a routine check to make sure that the club''s reputation stays intact. Nothing to worry about," he says before ushering you out of his office again.'
  174. if cfnm = 0:act 'Head to the dressing room':gt 'stwork', 'start'
  175. if cfnm = 1:
  176. 'There are only males performing tonight, so the room is full of guys getting ready to perform.'
  177. act 'Leave':gt 'stripclub', 'work_leave'
  178. end
  179. end
  180. act 'Reject his offer':
  181. *clr & cla
  182. gs 'stat'
  183. 'You thank him for the offer, but you''re not ready to commit to anything yet.'
  184. '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.'
  185. act 'Leave':gt 'stripclub', 'work_leave'
  186. end
  187. elseif pcs_dancero >= 40:
  188. 'After a minute, he stops you and shakes his head. "Your poledancing is still lacking <<$pcs_nickname>>. If you want this job, you''ll have to take some dance classes first. I believe you can do that at the gym."'
  189. '"Come back when you can handle the pole, and I''ll give you another chance."'
  190. act 'Leave':gt 'stripclub', 'work_leave'
  191. else
  192. 'After a minute he stops you and shakes his head. "Your dancing is very lacking <<$pcs_nickname>>. If you want this job, you''ll have to take some dance classes first. I believe you can do that at the gym."'
  193. '"Come back when you can dance on stage without me worrying you''ll fall off, and I''ll give you another chance."'
  194. act 'Leave':gt 'stripclub', 'work_leave'
  195. end
  196. !! For when bar work as a job is available will need to be moved so it is checked for first
  197. !!{
  198. elseif stripbarwork = 1 or stripbarwork1 = 1:
  199. 'You enter the manager''s office and he greets you with a smile. "Hey there <<$pcs_nickname>>, how can I help you?"'
  200. 'You return the smile. "Hi, I was wondering if I could get a job as a stripper?"'
  201. 'The manager chuckles. "Bored of watching the action and wanting to get in on it?"'
  202. 'He leads you to one of the private booths and points to the pole. "Okay. Show me what you can do."'
  203. if pcs_dancero >= 40 and pcs_dancpol >= 30:
  204. 'You dance sensually, and clearly he''s smitten by you as he asks you to sit down. "As you know, our business hours are between 18:00 and 03:00. We don''t pay you, but the customers tip generously. Think of it as an incentive; perform well and you''ll earn a tip."'
  205. '"Strippers can perform lap dances for clients at their request for 1000 <b>₽</b> per dance. The stripper gets 400 <b>₽</b>, and the rest goes to the club. Some clients may want to pay extra for further ''entertainment'', but we are <i>not</i> a brothel. A quick blowjob is fine, but anything further will arouse suspicion. You''re not forced to do this by the way, so call for security if they start getting too pushy with you. You''re free to do whatever you want with them outside of business hours though."'
  206. '"One last thing. Dancing on stage involves a lot of work on the pole, so unless you can do that, it''s unlikely you will earn anything. Coincidentally, my current schedule for strippers is the same for the bar, so you can choose when you want to work. You''ll remember that Tuesday night is Ladies Night and is for male strippers only. So what do you say? Interested?"'
  207. act 'Take the weekday shifts':
  208. *clr & cla
  209. stripwork = 1
  210. gs 'stat'
  211. 'You think about it for a minute and smile at him as you accept his offer, choosing to work on Wednesday and Thursday nights.'
  212. 'The manager leads you to the dressing room and tells 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.'
  213. if $pcs_stagename = '':
  214. '"Our girls don''t perform under their real name for obvious reasons. What would you like your stage name to be?"'
  215. $pcs_stagename = input("What name would you like to use at the strip club? (Leave blank for Sapphire)")
  216. if $pcs_stagename = '':$pcs_stagename = 'Sapphire'
  217. end
  218. '"<<$pcs_stagename>>. I like it," the manager says with a smile.'
  219. 'Once you''re done with the forms, you''re sent back to the manager''s office.'
  220. '"Before you go on stage, I expect you to drop by my office so I can see if you''re up to our club standards. It''s just a routine check to make sure that the club''s reputation stays intact. Nothing to worry about," he says before ushering you out of his office again.'
  221. if cfnm = 0:act 'Head to the dressing room':gt 'stwork', 'start'
  222. if cfnm = 1:
  223. 'There are only males performing tonight, so the room is full of guys getting ready to perform.'
  224. act 'Leave':gt 'stripclub', 'work_leave'
  225. end
  226. end
  227. act 'Take the weekend shifts':
  228. *clr & cla
  229. stripwork1 = 1
  230. gs 'stat'
  231. 'You think about it for a minute and smile at him as you accept his offer, choosing to work on Friday and Saturday nights.'
  232. 'The manager leads you to the dressing room and tells 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.'
  233. if $pcs_stagename = '':
  234. '"Our girls don''t perform under their real name for obvious reasons. What would you like your stage name to be?"'
  235. $pcs_stagename = input("What name would you like to use at the strip club? (Leave blank for Sapphire)")
  236. if $pcs_stagename = '':$pcs_stagename = 'Sapphire'
  237. end
  238. '"<<$pcs_stagename>>. I like it," the manager says with a smile.'
  239. 'Once you''re done with the forms, you''re sent back to the manager''s office.'
  240. '"Before you go on stage, I expect you to drop by my office so I can see if you''re up to our club standards. It''s just a routine check to make sure that the club''s reputation stays intact. Nothing to worry about," he says before ushering you out of his office again.'
  241. if cfnm = 0:act 'Head to the dressing room':gt 'stwork', 'start'
  242. if cfnm = 1:
  243. 'There are only males performing tonight, so the room is full of guys getting ready to perform.'
  244. act 'Leave':gt 'stripclub', 'work_leave'
  245. end
  246. end
  247. act 'Reject his offer':
  248. *clr & cla
  249. gs 'stat'
  250. 'You thank him for the offer, but you''re not ready to commit to anything yet.'
  251. '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.'
  252. act 'Leave':gt 'stripclub', 'work_leave'
  253. end
  254. elseif pcs_dancero >= 40:
  255. 'After a minute, he stops you and shakes his head. "Your poledancing is still lacking <<$pcs_nickname>>. If you want this job, you''ll have to take some dance classes first. I believe you can do that at the gym."'
  256. '"Come back when you can handle the pole, and I''ll give you another chance."'
  257. act 'Leave':gt 'stripclub', 'work_leave'
  258. else
  259. 'After a minute he stops you and shakes his head. "Your dancing is very lacking <<$pcs_nickname>>. If you want this job, you''ll have to take some dance classes first. I believe you can do that at the gym."'
  260. '"Come back when you can dance on stage without me worrying you''ll fall off, and I''ll give you another chance."'
  261. act 'Leave':gt 'stripclub', 'work_leave'
  262. end
  263. }
  264. else
  265. '"Nearly..." you say dejectedly.'
  266. '"Right. You need to leave, but be sure to come back when you''re old enough," he replies.'
  267. act 'Leave':gt 'city_redlight', 'start'
  268. end
  269. end
  270. !!if ARGS[0] = 'manager_bargirl'
  271. !!*clr & cla
  272. !!'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/tryout.jpg"></center>'
  273. !!minut += 15
  274. !!gs 'stat'
  275. !!'You enter the manager''s office and he greets you with a smile. "Hello and welcome to the Fuzzy Dice. How can I help you?"'
  276. !!'You return the smile. "Hi, I was wondering if I could get a job working in your bar?"'
  277. !!'The manager looks you over. "Are you at least 18 years old? I had a visit from the police last week, and they found an underage girl working here. I was fortunate enough that the officers could be bribed."'
  278. !!*nl
  279. !!if age >= 18 or fakepassport = 1:
  280. !!if age >= 18:
  281. !!'"Yes I am," you confidently reply and hand him your ID.'
  282. !!else
  283. !!'"Yes I am," you answer, handing him your fake passport.'
  284. !!'You see him frown as he checks your passport with suspicion. "Well, I guess everything is in order."'
  285. !!end
  286. !!'He leads you to the bar and passes you over to who you assume to be the bar manager, a woman you would estimate to be around the same age as your mother.'
  287. !!'"Got a potential recruit here, Nina," he says and motions for you to introduce yourself before heading back to his office.'
  288. !!'The woman smiles at you and offers you her hand. "Nina."'
  289. !!'You shake her hand. "<<$pcs_firstname>>, but most people just call me <<$pcs_nickname>>."'
  290. !!*nl
  291. !!'"Okay, <<$pcs_nickname>>. Do you have any experience working in a bar?"'
  292. !!if Worked in the Roadhouse and such
  293. !!'"Somewhat," you reply. "I used to work in a diner."'
  294. !!'"So you would have no issues running drinks to patrons, but you''ll need training before you can work behind the bar."'
  295. !!'"Is that a problem?" you ask.'
  296. !!'"Not at all," she replies. "As you can see, this is a fast paced work environment. Our patrons get thristy, and not just for drinks. If you can run drinks without any trouble, then I''ll find the time to train you to work the bar."'
  297. !!else
  298. !!'You shake your head. "No, I''ve never had a job like this before. Is that a problem?"'
  299. !!'She frowns. "It''s not ideal. I can''t let you work in such a fast paced bar with zero experience. You would have to settle for running drinks on the floor until I can find the time to train you. Our patrons get very thirsty, and not just for drinks, so it would be some very intense on the job learning for you."'
  300. !!end
  301. !!'"We''ll deal with these hurdles when we reach them. Did you have any questions for me?"'
  302. !!'"A few," you reply. "When do I work, what do I get paid and what type of alcohol do you sell?"'
  303. !!'She smiles. "The obvious ones I see. The club operates between 18:00 and 03:00 and I currently have two shift patterns open. Wednesday and Thursday nights, or weekend work on Friday and Saturday. You get paid monthly plus tips. As for what we sell, it''s mostly spirits, cocktails and bottled beer. You can worry about that when you get your training. So, are you interested?"'
  304. !! act 'Take the job'
  305. !!*clr & cla
  306. !!gs 'stat'
  307. !!'"I''ll take it," you say with a smile.'
  308. !!"Excellent," she replies. "Which shift pattern suits you?"'
  309. !!act 'Take the weekday shifts'
  310. !!stripbarwork = 1
  311. !!'"Great. Come see me next week for your first shift and I''ll get you set up."'
  312. !!act 'Leave': gt 'stripclub', 'work_leave'
  313. !!act 'Take the weekend shifts'
  314. !!stripbarwork1 = 1
  315. !!'"Great. Come see me next week for your first shift and I''ll get you set up."'
  316. !!act 'Leave': gt 'stripclub', 'work_leave'
  317. !!end
  318. !!act 'Reject her offer'
  319. !!*clr & cla
  320. !!gs 'stat'
  321. !!'"Sorry, but I don''t feel like I''m quite ready for a job like this yet," you say and she smiles.'
  322. !!"That''s fine," she replies. "Come back when you are."'
  323. !!act 'Leave': gt 'stripclub', 'work_leave'
  324. !!end
  325. !!else
  326. !!'"Nearly..." you say dejectedly.'
  327. !!'"Right. You need to leave, but be sure to come back when you''re old enough," he replies.'
  328. !!act 'Leave':gt 'city_redlight', 'start'
  329. !!end
  330. !!end
  331. if $ARGS[0] = 'work_leave':
  332. if stripwork+stripwork1+stripbarwork+stripbarwork1 = 0:
  333. gt 'city_redlight', 'start'
  334. elseif cfnm = 0:
  335. gt 'stripclub', 'forman'
  336. elseif cfnm = 1:
  337. gt 'stripclub', 'forwoman'
  338. end
  339. end
  340. if $ARGS[0] = 'forman':
  341. *clr & cla
  342. minut += 5
  343. $menu_loc = 'stripclub'
  344. $menu_arg = 'forman'
  345. gs 'stat'
  346. '<center><b><font color="maroon">Strip Club</font></b></center>'
  347. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripclub1.jpg"></center>'
  348. 'There are some girls on the stage dancing to the music. You notice a sign offering private dances, costing 1000 <b>₽</b> per dance.'
  349. act 'Leave': minut += 5 & gt 'stripclub', 'start'
  350. if hour < 2 or hour >= 18:
  351. act 'Watch a striptease':gt 'stripclub', 'stol'
  352. if money >= 1000: act 'Order a private dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
  353. !! if money >= 1000 and AlbinaQW['stripper'] = 1 and (day = 5 or day = 6): act 'Order a private dance from Albina (1,000 <b>₽</b>)':gt 'stripclub', 'albina_dance'
  354. end
  355. !!if (hour < 2 and minut < 30) or hour >= 18: act 'Get a drink at the bar': gt 'stripclub', 'bar'
  356. end
  357. if $ARGS[0] = 'privat':
  358. *clr & cla
  359. money -= 1000
  360. minut += 60
  361. pcs_horny += 25
  362. gs 'stat'
  363. privrand = rand(0, 4)
  364. if privrand = 0:
  365. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/sex/priv2.jpg"></center>'
  366. 'You order a private dance and one of the dancers leads you to a private room, where you''re joined by another girl. They seem to enjoy the female company as they give you a double dance and you can feel your pussy growing slightly wet.'
  367. 'When they finish their dance, one of them climbs onto your lap and whispers in your ear. "2000 <b>₽</b> and I''ll eat your pussy, right here, right now..."'
  368. if money >= 2000: act 'Accept':gt 'stripclub', 'privsex'
  369. act 'Leave':gt 'stripclub', 'forman'
  370. elseif privrand > 0:
  371. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/privat.jpg"></center>'
  372. 'You order a private dance and two very hot girls lead you to a private room. They push you down into the chair and start dancing around you in a very erotic manner as they strip each other. You feel your heart starting to race and your pussy growing slightly wet.'
  373. act 'Finish':gt 'stripclub', 'forman'
  374. if money >= 1000: act 'Order another dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
  375. end
  376. end
  377. if $ARGS[0] = 'stol':
  378. *clr & cla
  379. gs 'stat'
  380. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripclub2.jpg"></center>'
  381. 'The stage is lit up as a girl walks out before a strenuous male audience.'
  382. act 'Watch the striptease':
  383. !!if rand (0,3) = 0:
  384. !!if (year = 2017 and month > 8) and AlbinaQW['stripper'] = 0 and (day = 5 or day = 6):
  385. !!*clr & cla
  386. !!gs 'stat'
  387. !!pcs_horny += 5
  388. !!minut += 15
  389. !!AlbinaQW['stripper'] = 1:
  390. !!'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripclub4.jpg"></center>'
  391. !!'As you look at the girl on stage, you can''t help but think that she looks familiar. You then look closer and notice that it''s Albina!'
  392. !!if npc_rel['A23'] >= 70 or AlbinaQW['Friends'] = 2:
  393. !!'She smiles when she sees you and dances up close to you as she strips, wiggling her bubble butt in your face.'
  394. !!if money >= 50: 'You throw 50 <b>₽</b> onto the stage in front of her and she gives you a wink before moving back into the middle of the stage.'
  395. !!'She teasingly tugs at her skimpy thong before slowly peeling it off, much to the delight of the patrons around you who oggle at her naked body. Her show soon ends and she gathers her clothes and tips up before strutting off the stage as men hoot and holler.'
  396. !!else
  397. !!'You make eye contact and notice a flash of recognition in her eyes, but other than that she doesn''t acknowledge you in the slightest, continuing her performance and stripping down.'
  398. !!if money >= 50: 'You throw 50 <b>₽</b> onto the stage in front of her, but she just rolls her eyes and moves over to dance in front of a group of men offering her far more generous tips.'
  399. !!'She finishes her show by teasingly tugging off her thong, much to the delight of the patrons around you who oggle at her naked body as she gathers her clothing and tips before strutting off stage without even looking in your direction.'
  400. !!end
  401. !!'A few minutes later, Albina walks out onto the floor wearing her skimpy outfit and immediately grabs your arm before dragging you into a private room.'
  402. !!gt 'stripclub', 'albina_confront'
  403. !!elseif AlbinaQW['stripper'] = 1 and (day = 5 or day = 6):
  404. !!*clr & cla
  405. !!gs 'stat'
  406. !!pcs_horny += 5
  407. !!minut += 15
  408. !!AlbinaQW['stripper'] = 1:
  409. !!'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripclub4.jpg"></center>'
  410. !!'You smile when you see Albina strutting up to start her show.'
  411. !!if npc_rel['A23'] >= 70 or AlbinaQW['Friends'] = 2:
  412. !!'She smiles when she sees you and dances up close to you as she strips, wiggling her bubble butt in your face.'
  413. !!if money >= 50: 'You throw 50 <b>₽</b> onto the stage in front of her and she gives you a wink before moving back into the middle of the stage.'
  414. !!'She teasingly tugs at her skimpy thong before slowly peeling it off, much to the delight of the patrons around you who oggle at her naked body. Her show soon ends and she gathers her clothes and tips up before strutting off the stage as men hoot and holler.'
  415. !!else
  416. !!'She doesn''t return your smile when she sees you, however, and barely acknowledges you as she starts stripping down and dancing on the pole.'
  417. !!if money >= 50: 'You throw 50 <b>₽</b> onto the stage in front of her, but she just rolls her eyes and moves over to dance in front of a group of men offering her far more generous tips.'
  418. !!'She finishes her show by teasingly tugging off her thong, much to the delight of the patrons around you who oggle at her naked body as she gathers her clothing and tips before strutting off stage without even looking in your direction.'
  419. !!end
  420. !!gt 'stripclub', 'forman'
  421. !!else
  422. 'The girl on stage starts her performance, slowly stripping down as she dances on the pole. The men in the crowd throw fistfuls of rubles on the stage while hooting and hollering.'
  423. if money >= 50:
  424. act 'Give her 50 <b>₽</b>':
  425. *clr & cla
  426. pcs_horny += 5
  427. minut += 10
  428. money -= 50
  429. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripclub6.jpg"></center>'
  430. 'You stick 50 <b>₽</b> in her panties and she invitingly starts wiggling her hips and shaking her tits in front of you. You feel yourself slowly getting excited.'
  431. 'The girl soon finishes her show and gathers up her clothing and tips before walking off stage as the men cheer at her.'
  432. act 'Move away':gt 'stripclub', 'forman'
  433. end
  434. end
  435. act 'Watch the show':
  436. *clr & cla
  437. pcs_horny += 5
  438. minut += 10
  439. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripclub6.jpg"></center>'
  440. 'You feel yourself slowly getting excited as you watch the girl perform until she finally peels off her thong before gathering up her clothing and tips and walking off stage as the men cheer at her.'
  441. act 'Move away':gt 'stripclub', 'forman'
  442. end
  443. act 'Look away':
  444. *clr & cla
  445. pcs_horny -= 5
  446. minut += 15
  447. 'You decide not to give any money to the stripper and look away from her. You feel a little ashamed as your arousal goes down.'
  448. act 'Move away':gt 'stripclub', 'forman'
  449. end
  450. end
  451. end
  452. if $ARGS[0] = 'forwoman':
  453. *clr & cla
  454. stripguy = 0
  455. minut += 5
  456. $menu_loc = 'stripclub'
  457. $menu_arg = 'forwoman'
  458. gs 'stat'
  459. '<center><b><font color="maroon">Strip Club</font></b></center>'
  460. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripclub1.jpg"></center>'
  461. act 'Leave': minut += 5 & gt 'stripclub', 'start'
  462. if hour ! 2 and mc_inventory['tech_camera'] > 0 and mc_inventory['tech_hidden_cam'] = 0:
  463. act 'Photograph':
  464. minut += 10
  465. 'As soon as you take your camera out, you are immediately approached by a security guard who informs you that there is no photography allowed. You apologize and put the camera back in your purse.'
  466. end
  467. elseif hour ! 2 and mc_inventory['tech_hidden_cam'] > 0:
  468. act 'Photograph':
  469. *clr & cla
  470. minut += 60
  471. 'You put on the mini camera, keeping it half hidden by your chest, and discreetly start walking through the club.'
  472. stripfotorand = rand(0, 10)
  473. if stripfotorand < 2:
  474. mc_inventory['tech_hidden_cam'] = 0
  475. stripdolg = 1
  476. 'You fail to hide the camera well enough and are spotted by the security guard. He grabs you by the hand and leads you to his office, where the owner is already waiting. He takes your camera and says that you owe him 50,000 <b>₽</b> for snooping around and that you''re barred from the club until you pay up.'
  477. act 'Leave':gt 'stripclub', 'start'
  478. elseif stripfotorand >= 2 and stripfotorand < 6:
  479. shantfoto += 1
  480. 'You struggle to take a normal picture. The girls surrounding you are moving obscurely 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.'
  481. act 'Return':gt 'stripclub', 'forwoman'
  482. elseif stripfotorand >= 6:
  483. 'You struggle to take a normal picture. The girls surrounding you are moving obscurely while they strip, and the guard is very close, so you decide that you don''t want to risk anything.'
  484. act 'Return':gt 'stripclub', 'forwoman'
  485. end
  486. end
  487. end
  488. if hour < 2 or hour >= 18: act 'Watch a striptease': gt 'stripclub', 'stolW'
  489. !!if (hour < 2 and minut < 30) or hour >= 18: act 'Get a drink at the bar': gt 'stripclub', 'bar'
  490. if pcs_dancero > 0 and stripwork = 0 and pcs_inhib >= 50:
  491. act 'Ask the manager about working as a stripper': gt 'stripclub', 'manager_stripper'
  492. elseif stripwork = 0 and pcs_inhib < 50:
  493. '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.'
  494. end
  495. !!if pcs_inhib >= 60 and (stripbarwork = 0 or stripbarwork1 = 0):
  496. !!act 'Ask the manager about working in the bar': gt 'stripclub', 'manager_bargirl'
  497. !!elseif pcs_inhib < 60 and (stripbarwork = 0 or stripbarwork1 = 0):
  498. !!'You could ask the manager for a job, but you don''t feel confident enough to work in a strip club, even if it is just in the bar.'
  499. !!end
  500. end
  501. if $ARGS[0] = 'stolW':
  502. *clr & cla
  503. stripguy = 0
  504. gs 'stat'
  505. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripw.jpg"></center>'
  506. 'There are some athletic guys performing on the stage. The women are all excited, squealing and shoving money down their pants.'
  507. if hour < 2 or hour >= 18:
  508. act 'Watch a striptease':
  509. *clr & cla
  510. minut += 15
  511. gs 'stat'
  512. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripw1.jpg"></center>'
  513. '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.'
  514. if money >= 50:
  515. act 'Shove 50 <b>₽</b> down his pants':
  516. *clr & cla
  517. pcs_horny += 5
  518. minut += 10
  519. money -= 50
  520. gs 'stat'
  521. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripw2.jpg"></center>'
  522. 'You shove 50 <b>₽</b> down his pants, and he leads you over to sit on a chair and starts dancing in front of you. Before you know it, he is completely naked, and you have a great view of his cock as he dances in front of you. You feel your pussy growing slightly wet.'
  523. 'He soon finishes his dance and you''re left feeling a little aroused by his show.'
  524. act 'Continue':gt 'stripclub', 'stolW'
  525. end
  526. end
  527. act 'Look away':
  528. cla
  529. pcs_horny -= 5
  530. minut += 15
  531. 'You decide not to give any money to the stripper and look away from him. You feel a little ashamed as your arousal goes down.'
  532. act 'Move away':gt 'stripclub', 'stolW'
  533. end
  534. end
  535. end
  536. act 'Move away':gt 'stripclub', 'forwoman'
  537. end
  538. if $ARGS[0] = 'privsex':
  539. *clr & cla
  540. girl += 2
  541. lesbian += 1
  542. money -= 2000
  543. gs 'arousal', 'cuni', 15, 'lesbian', 'group'
  544. $orgasm_or = 'yes'
  545. gs 'stat'
  546. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/sex/priv3.jpg"></center>'
  547. '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.'
  548. act 'Finish':gt 'stripclub', 'forman'
  549. act 'More':gt 'stripclub', 'privsex1'
  550. end
  551. if $ARGS[0] = 'privsex1':
  552. *clr & cla
  553. privpicrand = rand(4, 7)
  554. girl += 2
  555. lesbian += 1
  556. gs 'arousal', 'cuni', 15, 'lesbian', 'group'
  557. $orgasm_or = 'yes'
  558. gs 'arousal', 'end'
  559. gs 'stat'
  560. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/sex/priv<<privpicrand>>.jpg"></center>'
  561. 'The other girl lets out a sigh and gently pushes her friend away. "You''ve already made her cum. I want in on the action now," she says and starts eating you out. It doesn''t take long before you have another orgasm. When you recover, you notice that you''re now alone in the booth.'
  562. act 'Finish':gt 'stripclub', 'forman'
  563. end
  564. !!if $ARGS[0] = 'bar'
  565. !!!!!!!!!!!!!!!!!!!!!
  566. if $ARGS[0] = 'albina_confront':
  567. *clr & cla
  568. gs 'stat'
  569. '<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/.jpg"></center>'
  570. if npc_rel['A23'] > 70 or AlbinaQW['Friends'] = 2:
  571. '"What are you doing here, <<$pcs_nickname>>?" she asks.'
  572. '"Me? What are <i>you</i> doing here?" you retort and she smiles.'
  573. '"My job, <<$pcs_nickname>>! Stripping is easy money, you know?" A sly grin then appears on her face. "Maybe I can interest you in a private dance?"'
  574. if money >= 1000:
  575. act 'Yes':
  576. minut += 10
  577. pcs_horny += 5
  578. '"Yes!" you reply a little too enthusiastically. "1000 <b>₽</b>, right?"'
  579. 'She waves her hand. "It''s on the house, this one time anyway. You want my services in the future, then you have to pay like everyone else. Also, no telling anyone I work here."'
  580. 'You nod and Albina pushes you into the chair before music starts playing and she starts her show. She seductively dances while slowly peeling her clothes off, all while giving you a teasing smile.'
  581. 'Once down to her thong, she climbs into your lap and starts grinding against you as her perky breasts jiggle in your face. You''re feeling rather aroused by the time she finishes by bending over in front of you and tugging off her thong.'
  582. 'The song then ends and a naked Albina smiles before sitting in your lap.'
  583. if hour < 2 or hour >= 18:
  584. '"I can tell you enjoyed that <<$pcs_nickname>>, and I did too, but I need to get back to work."'
  585. 'You nod and she gets dressed again before she walks you back out onto the floor.'
  586. act 'Return to the floor': gt 'stripclub', 'forman'
  587. else
  588. '"I can tell you enjoyed that <<$pcs_nickname>>, and I did too. My shift is almost over, so why don''t you walk me home?"'
  589. act 'Sure':
  590. '"Sure," you nod and she starts getting dressed again before walking you back out onto the floor.'
  591. '"Just wait for me out here. I won''t be long," Albina says before disappearing backstage. You take a seat and scroll through your phone until she returns and you head out together.'
  592. act 'Wait for Albina': gt 'albina_uni', 'walk_home'
  593. end
  594. act 'No thanks':
  595. '"Sorry, but I need to get going," you reply and she just shrugs.'
  596. '"Suit yourself, but remember; no more free shows."'
  597. 'She gathers up her clothes and gets dressed before heading back out onto the floor.'
  598. act 'Return to the floor': gt 'stripclub', 'forman'
  599. end
  600. end
  601. end
  602. else
  603. act 'No money':
  604. minut += 10
  605. pcs_horny += 5
  606. '"I don''t have any money," you reply.'
  607. '"Then why are you here?" she asks with a puzzled stare. "Never mind, this is on the house this one time. You want my services in the future, then you have to pay like everyone else. Also, no telling anyone I work here."'
  608. 'You nod and Albina pushes you into the chair before music starts playing and she starts her show. She seductively dances while slowly peeling her clothes off, all while giving you a teasing smile.'
  609. 'Once down to her thong, she climbs into your lap and starts grinding against you as her perky breasts jiggle in your face. You''re feeling rather aroused by the time she finishes by bending over in front of you and tugging off her thong.'
  610. 'The song ends and a naked Albina smiles before sitting in your lap.'
  611. if hour < 2 or hour >= 18:
  612. '"I can tell you enjoyed that <<$pcs_nickname>>, and I did too, but I need to get back to work."'
  613. 'You nod and she gets dressed again before she walks you back out onto the floor.'
  614. gt 'stripclub', 'forman'
  615. else
  616. '"I can tell you enjoyed that <<$pcs_nickname>>, and I did too. My shift is almost over, so why don''t you walk me home?"'
  617. act 'Sure':
  618. '"Sure," you nod and she starts getting dressed again before walking you back out onto the floor.'
  619. '"Just wait for me out here. I won''t be long," Albina says before disappearing backstage. You take a seat and scroll through your phone until she returns and you head out together.'
  620. act 'Wait for Albina': gt 'albina_uni', 'walk_home'
  621. end
  622. act 'No thanks':
  623. '"Sorry, but I need to get going," you reply and she just shrugs.'
  624. '"Suit yourself, but remember; no more free shows."'
  625. 'She gathers up her clothes and gets dressed before heading back out onto the floor.'
  626. act 'Return to the floor': gt 'stripclub', 'forman'
  627. end
  628. end
  629. end
  630. end
  631. act 'No thanks':
  632. '"No thanks," you reply. "I need to get going."'
  633. if hour < 2 or hour >= 18:
  634. 'She just shrugs. "Your loss. I need to get back to work."'
  635. 'She walks you back out onto the floor, leaving you behind in the room.'
  636. gt 'stripclub', 'forman'
  637. else
  638. '"Your loss. My shift is almost over, so why don''t you walk me home?"'
  639. act 'Sure':
  640. '"Sure," you nod and she walks you back out onto the floor.'
  641. '"Just wait for me out here. I won''t be long," Albina says before disappearing backstage. You take a seat and scroll through your phone until she returns in her normal clothes and you head out together.'
  642. act 'Wait for Albina': gt 'albina_uni', 'walk_home'
  643. end
  644. act 'No thanks':
  645. '"Sorry, but I need to get going," you reply and she just shrugs.'
  646. '"Suit yourself, but remember; no more free shows."'
  647. 'She gathers up her clothes and gets dressed before heading back out onto the floor.'
  648. act 'Return to the floor': gt 'stripclub', 'forman'
  649. end
  650. end
  651. end
  652. else
  653. '"What the fuck are you doing here, <<$pcs_nickname>>?!" she asks sternly.'
  654. '"What are <i>you</i> doing here?" you retort and she rolls her eyes.'
  655. '"Me? I''m their new cleaner, but they asked me to fill in for one of the girls tonight. What does it look like I''m doing, you fucking idiot?! I don''t know or care why you came here, but don''t expect a private dance from me."'
  656. '"I wasn-" you start to reply, but she cuts you off.'
  657. '"I need to get back to work," she says before leaving the room and heading back out to the floor.'
  658. act 'Return to the floor': gt 'stripclub', 'forman'
  659. end
  660. end
  661. if $ARGS[0] = 'albina_dance':
  662. 'You hand over the money and are taken to one of the private rooms, where you take a seat and wait for Albina to arrive.'
  663. if npc_rel['A23'] >= 70 or AlbinaQW['Friends'] = 2:
  664. minut += 10
  665. pcs_horny += 5
  666. 'Her face lights up when she walks into the room. "<<$pcs_nickname>>! I should take it as a compliment if you want a dance from me."'
  667. 'All you can do is grin and nod as she seductively walks over to you. "Well then, we better get this show started..."'
  668. 'Music starts playing and she starts her show. She seductively dances and twerks while slowly peeling her clothes off, all while giving you a teasing smile.'
  669. 'Once down to her thong, she climbs into your lap and starts grinding against you as her perky breasts jiggle in your face. You''re feeling rather aroused by the time she finishes by bending over in front of you and tugging off her thong. You notice her pussy is a little wet; it seems she''s enjoying this as much as you.'
  670. 'The song ends and a naked Albina smiles at you.'
  671. if npc_sex['A23'] >= 1: 'She proceeds to climb into your lap and starts passionately making out with you while grinding her naked body against you. Once she''s done, she climbs off you and turns to wiggle her naked ass at you.'
  672. 'She gathers up her clothes and starts getting dressed before walking back out to the main floor with you.'
  673. act 'Return to the floor' :gt 'stripclub', 'forman'
  674. else
  675. 'A few minutes later, Albina walks in and rolls her eyes when she sees you. "I''m not giving you of all people a fucking lapdance!" She throws your money on the floor. "Here''s your refund. Now fuck off before I call security."'
  676. 'She crosses her arms and glares at you intently until you leave the room.'
  677. act 'Return to the floor': gt 'stripclub', 'forman'
  678. end
  679. end
  680. --- stripclub ---------------------------------