pornstudio.qsrc 45 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197
  1. # pornstudio
  2. !!2021/04/15
  3. $location_type = 'public_indoors'
  4. if $ARGS[0] = 'start':
  5. CLOSE ALL
  6. $loc_arg = 'start'
  7. $loc = 'pornstudio'
  8. $menu_loc = 'pornstudio'
  9. $menu_arg = 'start'
  10. menu_off = 0
  11. gs 'pornhist', 'short'
  12. cls
  13. minut += 5
  14. gs 'stat'
  15. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
  16. act 'Leave': gt 'city_industrial', 'redlight'
  17. if hour < 10 or hour > 22:
  18. 'The porn studio is currently closed. It is open between 10:00 and 22:00'
  19. exit
  20. end
  21. 'The manager''s office is open.'
  22. act 'Go to the manager': gt 'pornstudio', 'manager'
  23. act 'Visit the manager''s PA': gt 'pornstudio', 'pa'
  24. if bomzQW = 1 and week = 4 and workDisk = 0: act 'Arrive for work': gt 'pornstudio', 'delivery'
  25. if workDolg > 0 and money >= workDolg:
  26. act 'Repay your debt':
  27. cls
  28. menu_off = 1
  29. minut += 5
  30. workDisk = 0
  31. money -= workDolg
  32. workDolg = 0
  33. menu_off = 1
  34. gs 'stat'
  35. 'You give the money that you owe to the studio.'
  36. act 'Leave': gt 'pornstudio', 'start'
  37. end
  38. elseif workDolg = 0:
  39. if workDisk = 1 and week = 5:
  40. act 'Take the disk':
  41. cls
  42. menu_off = 1
  43. minut += 5
  44. workDisk = 2
  45. gs 'stat'
  46. 'You are given a thumb drive, and asked if you remember all the instructions. You nod your head and leave with the drive.'
  47. 'As you leave the studio, you hear someone come out of a nearby building and start following you.'
  48. '<font color="magenta"> "Just avoid dark, deserted places and this will blow over."</font> you reassure yourself, and carry on.'
  49. act 'Leave': gt 'city_industrial', 'redlight'
  50. end
  51. elseif workDisk = 3 and week = 5:
  52. act 'Give the envelope':
  53. cls
  54. menu_off = 1
  55. minut += 5
  56. workDisk = 4
  57. gs 'stat'
  58. if konvert = 0:
  59. workDolg = 200000
  60. workDolgDay = 7
  61. 'Digging through your things, you begin to panic. No envelope. You search again, but to your despair, you can''t find it. You stand there, unable to speak.'
  62. 'The manager grabs his phone and makes a call. You can''t hear exactly what he is saying because your heart is beating so loud, but he soon hangs up.'
  63. '"You are very lucky that the boss is in a good mood. He has given you one week to recover his losses."'
  64. '"You have until next Friday evening to bring me 200,000 <b>₽</b>. Do this and we''re done, you will never work for us again.'
  65. '<font color="#0D42C0"> "Fail, and bad things will happen to you."</font> he says with a stern look on his face.'
  66. else
  67. konvert = 0
  68. money += 5000
  69. 'You give the envelope to the manager and he gives you 5,000 <b>₽</b>.'
  70. end
  71. act 'Leave': gt 'city_industrial', 'redlight'
  72. end
  73. end
  74. end
  75. if pfilmNO = 1 and pfilmNoVenera = 1 and Venera = 0:
  76. act 'Show your medical certificate':
  77. cls
  78. menu_off = 1
  79. minut += 5
  80. pfilmNoVenera = 0
  81. pfilmNO = 0
  82. gs 'stat'
  83. 'You hand over your medical certificate showing that you are STD free. They promise to consider your reinstatement as a porn actress.'
  84. act 'Leave': gt 'pornstudio', 'start'
  85. end
  86. end
  87. end
  88. if $ARGS[0] = 'pa':
  89. *clr & cla
  90. minut += 5
  91. $menu_loc = 'pornstudio'
  92. $menu_arg = 'pa'
  93. menu_off = 0
  94. gs 'stat'
  95. 'There is a young guy tapping on the computer keyboard in a small office.'
  96. if film = 0:
  97. '"Who are you? This office is for staff only."'
  98. else
  99. '<font color="#0D42C0"> "Hi, what can I do for you?"</font>'
  100. if pfilmNO = 0:
  101. act 'Change your porn name':
  102. *clr & cla
  103. menu_off = 1
  104. gs 'stat'
  105. '"I would like to change my professional name. Is it possible?" you ask.'
  106. '"Of course, just give me a minute to register it in the database. So, what would you like to be called?" he replies.'
  107. act '"I want to be called..."':
  108. $pfname = input("Enter the name you want to be known as.")
  109. if $pfname = '':$pfname = 'Lotta Cox'
  110. gt 'pornstudio', 'pa'
  111. end
  112. act '"Never mind"': gt 'pornstudio', 'pa'
  113. end
  114. end
  115. if pfilmSTOP = 0:
  116. act 'What''s the rating of my videos?':
  117. cla
  118. minut += 5
  119. menu_off = 1
  120. gs 'stat'
  121. '"You''ve made <<film>> films."'
  122. if porn_fame < 10:
  123. '"Nobody knows your name. You are one of hundreds of unknown actresses. You will get to play tertiary characters in big movies. Your own movies sold really cheap."'
  124. elseif porn_fame < 20:
  125. '"You are still unknown, but your name is mentioned in the credits. You are unlikely to get recognized. Your own movies are still sold cheap."'
  126. elseif porn_fame < 40:
  127. '"You are mentioned here and there, but you will still mostly get secondary roles in most of your porn movies. Your name is slowly emerging and you have your own fans."'
  128. elseif porn_fame < 60:
  129. '"You are a minor, but known porn actress. You occasionally get primary roles, and could get back cover appearances. Your movies are getting more popular, which means more fans and money."'
  130. elseif porn_fame < 80:
  131. '"You are a known porn actress. You play mostly primary roles, and you appear on the front cover. Your movies are sold at a decent price, and in big number. You may also appear in a variety of adult magazines."'
  132. else
  133. '"You are a famous porn actress and always play the main role. You are a brand name, with sex toys and T-shirts among the items sold as part of your own line of merchandise."'
  134. end
  135. if porn_fame >= 20:
  136. ftypecount[0] = pornvag & $ftypecount[0] = 'vaginal'
  137. ftypecount[1] = pornanal & $ftypecount[1] = 'anal'
  138. ftypecount[2] = porngasm & $ftypecount[15] = 'orgasm'
  139. ftypecount[3] = porngang & $ftypecount[3] = 'group sex'
  140. ftypecount[4] = porncream & $ftypecount[4] = 'creampie'
  141. ftypecount[5] = pornhole & $ftypecount[5] = 'gloryhole'
  142. ftypecount[6] = pornbdsm & $ftypecount[6] = 'bdsm'
  143. ftypecount[7] = pornlesbo & $ftypecount[7] = 'lesbian'
  144. ftypecount[8] = pornpreg & $ftypecount[8] = 'pregnant'
  145. ftypecount[9] = pornexhib & $ftypecount[9] = 'public'
  146. ftypecount[10] = pornmast & $ftypecount[10] = 'masturbation'
  147. ftypecount[11] = pornbukk & $ftypecount[11] = 'cumshot'
  148. ftypecount[12] = pornbj & $ftypecount[12] = 'blowjob'
  149. ftypecount[13] = pornhj & $ftypecount[13] = 'handjob'
  150. ftypecount[14] = pornswall & $ftypecount[14] = 'cum swallowing'
  151. k = 1
  152. :repeating
  153. c = 14
  154. :ftypecount
  155. current = ftypecount[c]
  156. $current = $ftypecount[c]
  157. c -= 1
  158. if current > ftypecount[c]:
  159. ftypecount[c+1] = ftypecount[c]
  160. $ftypecount[c+1] = $ftypecount[c]
  161. ftypecount[c] = current
  162. $ftypecount[c] = $current
  163. end
  164. if c >= k:jump 'ftypecount'
  165. k += 1
  166. if k < 14:jump 'repeating'
  167. if ftypecount[1] = ftypecount[0]:
  168. if ftypecount[0] = ftypecount[2]:
  169. 'You are known for your <<$ftypecount[0]>>, <<$ftypecount[1]>> and <<$ftypecount[2]>> scenes.'
  170. else
  171. 'You are known for your <<$ftypecount[0]>> and <<$ftypecount[1]>> scenes.'
  172. end
  173. else
  174. 'You are known for your <<$ftypecount[0]>> scenes.'
  175. end
  176. end
  177. if film < 10 and porn_fame < 10:
  178. '"By the way, if you wanted, I could completely remove them from our systems - for the right price of course." the guy whispers.'
  179. act 'Tell me more':
  180. cla
  181. minut += 5
  182. films_stop_payment = film * 40000
  183. gs 'stat'
  184. '"Seeing as you''re not well known, it''s unlikely anyone would notice. However, to remove them you''d have to cover the loss of the studio''s potential future profits- 40,000 <b>₽</b> per film. That''s a total of <<films_stop_payment>> <b>₽</b>."'
  185. '"Also, it would piss off your co-stars and our director. It would end your porn career. You should also know that there is no guarantee that there are no other copies of your movies out there anyway, so think carefully."'
  186. if money >= films_stop_payment:
  187. act 'Remove them':
  188. minut += 5
  189. money -= films_stop_payment
  190. pfilmSTOP = 1
  191. killvar 'pfilmday'
  192. killvar 'pornplan'
  193. killvar 'porntaken'
  194. killvar 'pornstack'
  195. killvar 'prodcosttrue'
  196. killvar 'prodcost'
  197. film = 0
  198. gs 'stat'
  199. '"We never met. Have a nice day, and don''t come back."'
  200. act 'Leave': gt 'pornstudio', 'start'
  201. end
  202. end
  203. act 'Not interested': gt 'pornstudio', 'start'
  204. end
  205. act 'Leave': gt 'pornstudio', 'start'
  206. end
  207. act 'Leave': gt 'pornstudio', 'start'
  208. end
  209. end
  210. act 'Leave': gt 'pornstudio', 'start'
  211. end
  212. act 'Leave': gt 'pornstudio', 'start'
  213. end
  214. if $ARGS[0] = 'delivery':
  215. cls
  216. minut += 15
  217. menu_off = 1
  218. gs 'stat'
  219. '"We made inquiries about you, and everything seems in order. Essentially, we give you a thumb drive, you deliver it to the sauna, they give you an envelope and you bring it to us. Immediately."'
  220. '"Upon delivery of the envolope, you get 5000 <b>₽</b>. Deliveries are available every Friday, after the studio has opened. If you agree, then visit any Friday, and choose a safe mode of transport."'
  221. act 'Disagree':bomzQW = -1 & gt 'city_industrial', 'redlight'
  222. act 'Agree':
  223. cls
  224. minut += 15
  225. gs 'stat'
  226. '"We will take you this one time. In the future, you''ll have to make your own way because Fridays are getting risky for us. We need to introduce you to our colleagues."'
  227. act 'Let''s go':
  228. cls
  229. workDisk = 1
  230. minut += 15
  231. gs 'stat'
  232. 'You slip into a car by the entrance, and are driven to the sauna.'
  233. if saunasex = 1:
  234. 'You recall going to this sauna. You had some pretty energetic sex here.'
  235. elseif sauna > 0:
  236. 'Oh, it''s the sauna near your home.'
  237. else
  238. 'This sauna is located near your home. You find it strange that you didn''t notice it before.'
  239. end
  240. 'You go to the sauna, and are introduced to the local managers. It is explained to you who you need to deliver to, and are reminded that it is necessary to return the envelope the same day you receive it.'
  241. '"Don''t forget to use secure transport. We''ll see you on Fridays. <i>Don''t</i> fuck up."'
  242. act 'Leave':bomzQW = 2 & gt 'city_residential'
  243. end
  244. end
  245. end
  246. if $ARGS[0] = 'shower':
  247. *clr & cla
  248. $location_type = 'bathroom'
  249. $loc = 'pornstudio'
  250. $loc_arg = 'bathroom'
  251. $locM = 'pornstudio'
  252. $locM_arg = 'bathroom'
  253. $menu_loc = 'pornstudio'
  254. $menu_arg = 'bathroom'
  255. menu_off = 1
  256. minut += 5
  257. pcs_horny += 1
  258. pcs_makeup = 1
  259. dynamic $showerdin
  260. gs 'stat'
  261. '<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
  262. !! needs to check for cum
  263. 'You enter the cubicle, turn on the shower and thoroughly wash all traces of cum from your body.'
  264. !! else
  265. !! 'You enter the cubicle, turn on the shower and wash yourself clean.'
  266. !! end
  267. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
  268. act 'Look in the mirror': gt 'mirror', 'start'
  269. act 'Go and see Peter': gt 'pornstudio', 'postvideo'
  270. end
  271. if $ARGS[0] = 'bathroom':
  272. *clr & cla
  273. minut += 1
  274. menu_off = 1
  275. gs 'stat'
  276. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/shower.jpg"></center>'
  277. 'You can freshen up in the mirror or go and see Peter about being paid.'
  278. act 'Look in the mirror': gt 'mirror', 'start'
  279. act 'Go and see Peter': gt 'pornstudio', 'postvideo'
  280. end
  281. if $ARGS[0] = 'manager':
  282. cls
  283. minut += 5
  284. menu_off = 1
  285. gs 'stat'
  286. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
  287. 'You walk into the manager''s office and see that he is here.'
  288. if firstkasting = 0: gt 'pornstudio', 'first'
  289. if pregchem >= 2688 and pregtalkpornstudio = 0: gt 'pornstudio', 'pregreact'
  290. if pfilmNO = 1:
  291. ! Banned from shooting porn
  292. 'You''re blacklisted. No decent porn studio will hire you.'
  293. elseif pfilmSTOP = 1:
  294. ! No longer shooting porn
  295. '"I''m sorry, I thought you had retired?"'
  296. elseif ((pfilmday[0] > 0 and hour > 12) or pornmiss = 1) and prodcosttrue <= 20000 and missedshoot = 0:
  297. ! You missed your shooting time, but you have a chance to work it off
  298. missedshoot = 1
  299. pornmiss = 0
  300. 'Peter seems really agitated as he storms towards you, ready to chew you out.'
  301. '"Didn''t I tell you not to be late? Where the fuck were you? I''ve wasted a lot of money! I had to pay actors, assistants, the director and the doctor just to sit on their asses! The whole shoot was a bust!"'
  302. 'He manages to cool off a little with the airing some of his frustration, and after a deep breath, he continues more calmly.'
  303. if pfilmday[1] = 0:
  304. missday = rand(0,3)
  305. porntaken['1,<<missday>>'] = 0
  306. act 'Jump in tomorrow':
  307. prodcost = 0
  308. pfilmNOPAY = 1
  309. porntaken['1,<<missday>>'] = 2
  310. pfilmday[1] = pornplan['1,<<missday>>']
  311. pornstack += 1
  312. freefilm = 1
  313. gt 'pornstudio', 'start'
  314. end
  315. '"I''ll give you a chance to make it right. Another actress has gotten sick and cancelled her shoot. If you jump in instead of her, your debt is cancelled. Or you can work it off, but that will take longer. Of course you can also pay it back, if you have the money. And no, I don''t remember what she was going to shoot. This day has been anything but easy due to you!"'
  316. else
  317. '"You know what, you can work it off, but it will take you a while. Of course you can also pay it back, if you have the money."'
  318. end
  319. act 'Accept your debt':prodcosttrue += prodcost & gt 'pornstudio', 'start'
  320. gs 'willpower', 'misc', 'self'
  321. if will_cost <= pcs_willpwr:
  322. act 'Fuck this shit, I quit! (<<will_cost>> Willpower)':
  323. gs 'willpower', 'pay', 'self'
  324. pfilmNO = 1
  325. killvar 'prodcosttrue'
  326. killvar 'pfilmday'
  327. killvar 'pornplan'
  328. killvar 'porntaken'
  329. killvar 'pornnow'
  330. gt 'pornstudio', 'start'
  331. end
  332. else
  333. act 'Fuck this shit, I quit! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  334. end
  335. exit
  336. elseif prodcosttrue > 20000 and prodcost > 0:
  337. ! You really fucked up, you are banned from porn for life
  338. pfilmNO = 1
  339. killvar 'prodcosttrue'
  340. killvar 'pfilmday'
  341. killvar 'pornplan'
  342. killvar 'porntaken'
  343. killvar 'pornnow'
  344. '"You didn''t come to the shoot! You fucked me again, and you already owed me a lot of money! You took the second chance I gave you and threw it back in my face!"'
  345. '"I don''t want to work with you anymore. You''re now blacklisted, so get out!"'
  346. elseif pfilmday[0] > 0 and hour >= 10 and hour <= 12:
  347. ! You have porn shoot today, and you are in time
  348. pornnow = 1
  349. if hour = 10: '"You''re just in time for your inspection. Off you go now." Peter says with a smile.'
  350. if hour = 11: '"You''re late. My patience is not eternal." Peter says strictly. "Get going to your inspection, quickly!"'
  351. if hour = 12: '"What the hell? Everyone''s waiting for you! Hurry up and get inspected! Now!"'
  352. act 'Go for medical check-up': gt 'pornstudio', 'medical', pfilmday[0]
  353. exit
  354. elseif film = 0 and pornstack = 0:
  355. ! Your first ever movie offer
  356. if firstoffer = 0:
  357. firstoffer = 1
  358. '"So, you''re the new girl? As luck would have it, we''re looking for a brand new girl for our next shoot. It''s called ''Girls Jerk Guys #36''."'
  359. '"For 500 <b>₽</b>, you have to jerk a guy off and have him cum on your tits."'
  360. else
  361. '"Hello. Since you''re brand new, all I can offer you is an introductory movie called ''Girls Jerk Guys #36''."'
  362. '"For 500 <b>₽</b>, you have to jerk a guy off and have him cum on your tits."'
  363. end
  364. gs 'willpower', 'exhib', 'self'
  365. if will_cost <= pcs_willpwr:
  366. act 'Agree (<<will_cost>> Willpower)':
  367. cla
  368. gs 'willpower', 'pay', 'self'
  369. pornstack += 1
  370. pfilmday[1] = 1
  371. gs 'stat'
  372. '"Cool. We shoot tomorrow, so be here between 10:00 and 11:00. And please, don''t be late."'
  373. act 'Leave': gt 'pornstudio', 'start'
  374. end
  375. else
  376. act 'Agree (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  377. end
  378. act 'I don''t think I''m ready': gt 'pornstudio', 'start'
  379. exit
  380. elseif film > 0:
  381. gs 'pornstudio', 'options'
  382. else
  383. 'Peter looks up from his paperwork, and greets you. "Hello. Can I help you with something?"'
  384. end
  385. if porndebt > 0:
  386. act 'Ask about your debt': '"Of course. Your current debt to the company is <<porndebt>> <b>₽</b>."'
  387. end
  388. act 'Leave': gt 'pornstudio', 'start'
  389. end
  390. if $ARGS[0] = 'options':
  391. '"Let''s see what I have on offer for you."'
  392. if film < 5:
  393. fmulti = 100
  394. elseif film < 10:
  395. fmulti = 120
  396. elseif film < 15:
  397. fmulti = 140
  398. elseif film < 25:
  399. fmulti = 160
  400. elseif film < 50:
  401. fmulti = 180
  402. elseif film >= 50:
  403. fmulti = 200
  404. end
  405. act 'Filter by date':
  406. $selection = {
  407. *clr
  408. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
  409. '<font color="grey">The selected days will not be displayed</font><br>'
  410. m1 = month
  411. d1 = day + 1
  412. if monthsend[m1] < d1: m1 += 1 & d1 = 1
  413. if m1 > 12: m1 = 1
  414. w2 = week + 1
  415. if w2 > 7: w2 = 1
  416. p1 = 1
  417. w1 = 1
  418. :monthloop
  419. *p '<Table border=0 cellpadding=1><TR><TH colspan=7><b><i><font size=6 color="brown"><<$monthName[m1]>></font></i></b></TH></TR>'
  420. *p '<TR align="center"><TH> Monday </TH><TH> Tuesday </TH><TH>Wednesday</TH><TH> Thursday </TH><TH> Friday </TH><TH> Saturday </TH><TH> Sunday </TH></TR>'
  421. :weekloop
  422. selected[p1] = p1
  423. if w1 = 1:*p '<TR>'
  424. !making sure that the date and the day of the week are in the correct position
  425. if w2 ! 1:
  426. if w2 = 7:
  427. w1 = 7 & *p '<TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
  428. elseif w2 = 6:
  429. w1 = 6 & *p '<TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
  430. elseif w2 = 5:
  431. w1 = 5 & *p '<TD></TD><TD></TD><TD></TD><TD></TD>'
  432. elseif w2 = 4:
  433. w1 = 4 & *p '<TD></TD><TD></TD><TD></TD>'
  434. elseif w2 = 3:
  435. w1 = 3 & *p '<TD></TD><TD></TD>'
  436. else
  437. w1 = 2 & *p '<TD></TD>'
  438. end
  439. w2 = 1
  440. end
  441. !selectable day display comes
  442. if inversefilter = 1:
  443. if datefilter['<<selected[p1]>>'] = 1:
  444. datefilter['<<selected[p1]>>'] = 0
  445. else
  446. datefilter['<<selected[p1]>>'] = 1
  447. end
  448. end
  449. if m1 = 1 and d1 >= 1 and d1 <= 8:nh1 = 1
  450. if m1 = 2 and d1 = 23:nh1 = 1
  451. if m1 = 3 and d1 = 8:nh1 = 1
  452. if m1 = 5 and (d1 = 1 or d1 = 2):nh1 = 1
  453. if m1 = 5 and d1 = 9:nh1 = 1
  454. if m1 = 6 and (d1 = 12 or d1 = 13):nh1 = 1
  455. if m1 = 11 and d1 = 4:nh1 = 1
  456. if nh1 = 1:
  457. $option = '<font color="red"><del><b><<d1>><b></del></font>'
  458. elseif pfilmday[p1] > 0:
  459. $option = '<font color="green"><<d1>></font>'
  460. elseif datefilter['<<selected[p1]>>'] = 1 or (weekdayfilter = 1 and w1 < 6) or (weekendfilter = 1 and w1 >= 6):
  461. $option = '<font color="grey"><del><<d1>></del></font>'
  462. else
  463. $option = '<a href="exec:datefilter[''<<selected[p1]>>''] = 1 & dynamic $selection"><font color="black"><<d1>></font></a>'
  464. end
  465. killvar 'nh1'
  466. *p '<TD align="center"><font size=5><<$option>></font></TD>'
  467. !preparing for next day
  468. d1 += 1
  469. p1 += 1
  470. w1 += 1
  471. !we have to check the end of the month too
  472. if monthsend[m1] < d1:
  473. !Oh-oh, this is the next month already!
  474. *p '</TR></TABLE><br>'
  475. if w1 = 8: w1 = 1
  476. w2 = w1
  477. w1 = 1
  478. m1 += 1
  479. if m1 > 12: m1 = 1
  480. d1 = 1
  481. !does it necessary to display the next month?
  482. if p1 < 50:jump 'monthloop'
  483. else
  484. !the next day is still the same month
  485. if p1 < 50:
  486. !the next day have to be displayed
  487. if w1 = 8: *p '</TR>' & w1 = 1
  488. jump 'weekloop'
  489. else
  490. !the next day does not have to be displayed
  491. *p '</TR></TABLE><br>'
  492. end
  493. end
  494. inversefilter = 0
  495. ''
  496. if weekdayfilter = 0:
  497. $weekdayfilter = '<a href="exec:weekdayfilter = 1 & dynamic $selection">Remove weekdays</a>'
  498. else
  499. $weekdayfilter = '<a href="exec:weekdayfilter = 0 & dynamic $selection">Restore weekdays</a>'
  500. end
  501. if weekendfilter = 0:
  502. $weekendfilter = '<a href="exec:weekendfilter = 1 & dynamic $selection">Remove weekends</a>'
  503. else
  504. $weekendfilter = '<a href="exec:weekendfilter = 0 & dynamic $selection">Restore weekends</a>'
  505. end
  506. *p '<<$weekdayfilter>> <<$weekendfilter>> <a href="exec:inversefilter = 1 & dynamic $selection">Inverse selection</a><br>'
  507. *p '<a href="exec:killvar ''datefilter'' & killvar ''selected'' & weekdayfilter = 0 & weekendfilter = 0 & dynamic $selection">Clear date filters</a>'
  508. }
  509. dynamic $selection
  510. end
  511. !{ act 'Filter by tag':
  512. $displaytag = {
  513. *clr
  514. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
  515. '<font color="grey">The selected tags will not be displayed</font><br><br>Currenty filtered tags: <font color="green"><<$tagfilter>></font>'
  516. if flag_tag[1] = 0: '<a href="exec:$tagfilter += ''hetero '' & flag_tag[1] = 1 & dynamic $displaytag">heterosexual</a>'
  517. if flag_tag[2] = 0: '<a href="exec:$tagfilter += ''lesbian '' & flag_tag[2] = 1 & dynamic $displaytag">lesbian</a>'
  518. if flag_tag[3] = 0: '<a href="exec:$tagfilter += ''threesome '' & flag_tag[3] = 1 & dynamic $displaytag">threesome</a>'
  519. if flag_tag[4] = 0: '<a href="exec:$tagfilter += ''gangbang '' & flag_tag[4] = 1 & dynamic $displaytag">gangbang</a>'
  520. if flag_tag[5] = 0: '<a href="exec:$tagfilter += ''facial '' & flag_tag[5] = 1 & dynamic $displaytag">facial</a>'
  521. if flag_tag[6] = 0: '<a href="exec:$tagfilter += ''vaginal '' & flag_tag[6] = 1 & dynamic $displaytag">vaginal</a>'
  522. if flag_tag[7] = 0: '<a href="exec:$tagfilter += ''anal '' & flag_tag[7] = 1 & dynamic $displaytag">anal</a>'
  523. if flag_tag[8] = 0: '<a href="exec:$tagfilter += ''blowjob '' & flag_tag[8] = 1 & dynamic $displaytag">blowjob</a>'
  524. if flag_tag[9] = 0: '<a href="exec:$tagfilter += ''handjob '' & flag_tag[9] = 1 & dynamic $displaytag">handjob</a>'
  525. if flag_tag[10] = 0: '<a href="exec:$tagfilter += ''cumshot '' & flag_tag[10] = 1 & dynamic $displaytag">cumshot</a>'
  526. if flag_tag[11] = 0: '<a href="exec:$tagfilter += ''swallowing '' & flag_tag[11] = 1 & dynamic $displaytag">swallowing</a>'
  527. if flag_tag[12] = 0: '<a href="exec:$tagfilter += ''DP '' & flag_tag[12] = 1 & dynamic $displaytag">DP</a>'
  528. if flag_tag[13] = 0: '<a href="exec:$tagfilter += ''creampie '' & flag_tag[13] = 1 & dynamic $displaytag">creampie</a>'
  529. ''
  530. '<a href="exec:killvar ''$tagfilter'' & killvar ''flag_tag'' & dynamic $displaytag">Clear date filters</a>'
  531. }
  532. dynamic $displaytag
  533. end
  534. }
  535. act 'Filter by participants':
  536. $displaynum = {
  537. *clr
  538. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
  539. '<font color="grey">The movies above the selected number of partners will not be displayed</color><br>'
  540. if ppnum = 1:
  541. $pp1 = '<b><font color="red" size=8>1</font></b>'
  542. else
  543. $pp1 = '<a href="exec:ppnum = 1 & dynamic $displaynum"><font size=8 color="black">1</font></a>'
  544. end
  545. if ppnum = 2:
  546. $pp2 = '<b><font color="red" size=8>2</font></b>'
  547. else
  548. $pp2 = '<a href="exec:ppnum = 2 & dynamic $displaynum"><font size=8 color="black">2</font></a>'
  549. end
  550. if ppnum = 3:
  551. $pp3 = '<b><font color="red" size=8>3</font></b>'
  552. else
  553. $pp3 = '<a href="exec:ppnum = 3 & dynamic $displaynum"><font size=8 color="black">3</font></a>'
  554. end
  555. if ppnum = 4:
  556. $pp4 = '<b><font color="red" size=8>4</font></b>'
  557. else
  558. $pp4 = '<a href="exec:ppnum = 4 & dynamic $displaynum"><font size=8 color="black">4</font></a>'
  559. end
  560. if ppnum = 5:
  561. $pp5 = '<b><font color="red" size=8>5</font></b>'
  562. else
  563. $pp5 = '<a href="exec:ppnum = 5 & dynamic $displaynum"><font size=8 color="black">5</font></a>'
  564. end
  565. '<Table border=0 cellspacing=10><TR><TH><<$pp1>></TH><TH><<$pp2>></TH><TH><<$pp3>></TH><TH><<$pp4>></TH><TH><<$pp5>></TH></TR>'
  566. ''
  567. '<a href="exec:killvar ''ppnum'' & dynamic $displaynum">Clear participant limitations</a>'
  568. }
  569. dynamic $displaynum
  570. end
  571. act 'Porn production schedule':
  572. $contracting = {
  573. *clr
  574. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
  575. ''
  576. d1 = day
  577. w1 = week
  578. m1 = month
  579. counter = 1
  580. $pornofday = ''
  581. :pornopt
  582. killvar 'nh1'
  583. pcount[counter] = counter
  584. w1 += 1
  585. if w1 > 7:w1 = 1
  586. d1 += 1
  587. if monthsend[m1] < d1: m1 += 1 & d1 = 1
  588. if m1 > 12: m1 = 1
  589. if m1 = 1 and d1 >= 1 and d1 <= 8:nh1 = 1
  590. if m1 = 2 and d1 = 23:nh1 = 1
  591. if m1 = 3 and d1 = 8:nh1 = 1
  592. if m1 = 5 and (d1 = 1 or d1 = 2):nh1 = 1
  593. if m1 = 5 and d1 = 9:nh1 = 1
  594. if m1 = 6 and (d1 = 12 or d1 = 13):nh1 = 1
  595. if m1 = 11 and d1 = 4:nh1 = 1
  596. if (weekdayfilter = 1 and w1 >= 6) or (weekendfilter = 1 and w1 < 6) or (weekdayfilter = 0 and weekendfilter = 0) or nh1 = 1:
  597. if datefilter['<<selected[counter]>>'] = 0:
  598. if nh1 = 1:
  599. $pornofday = '<i><b>National holiday, no shootings!</b></i><br>'
  600. else
  601. porns = 0
  602. :pornplanloop
  603. dynamic $pornfilmdesc, pornplan['<<counter>>,<<porns>>']
  604. if (pfactor <= ppnum) or (ppnum = 0):
  605. if porntaken['<<counter>>,<<porns>>'] = 2:
  606. $pornofday += '<font color="green"><b><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></b> - <i>Already contracted</i></font><br>'
  607. elseif pfilmday[counter] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  608. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  609. elseif pfilmday[counter - 1] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  610. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  611. elseif pfilmday[counter - 2] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  612. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  613. elseif pfilmday[counter - 3] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  614. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  615. elseif pfilmday[counter - 4] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  616. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  617. elseif pfilmday[counter - 5] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  618. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  619. elseif pfilmday[counter + 1] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  620. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  621. elseif pfilmday[counter + 2] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  622. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  623. elseif pfilmday[counter + 3] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  624. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  625. elseif pfilmday[counter + 4] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  626. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  627. elseif pfilmday[counter + 5] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
  628. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  629. elseif porntaken['<<counter>>,<<porns>>'] = 1:
  630. $pornofday += '<font color="red"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>> - <i>Taken by someone else</i></font><br>'
  631. elseif pornstack < 10:
  632. $pornofday += '<a href="exec:pornstack += 1 & porntaken[''<<counter>>,<<porns>>''] = 2 & pfilmday[<<pcount[counter]>>] = pornplan[''<<counter>>,<<porns>>''] & gs ''stat'' & dynamic $contracting"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></a><br>'
  633. else
  634. $pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
  635. end
  636. end
  637. if porns < 3: porns += 1 & jump 'pornplanloop'
  638. end
  639. if $pornofday ! '':
  640. '<<$monthName[m1]>> <<d1>>, <<$week[w1]>>: '
  641. '<<$pornofday>>'
  642. $pornofday = ''
  643. end
  644. end
  645. end
  646. if counter < 49:
  647. counter += 1
  648. jump 'pornopt'
  649. end
  650. }
  651. dynamic $contracting
  652. end
  653. if pornstack > 1 or (freefilm = 0 and pornstack > 0):
  654. act 'Cancel a contract':
  655. $canceling = {
  656. *clr
  657. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
  658. d1 = day
  659. w1 = week
  660. m1 = month
  661. i = 1
  662. :nopornopt
  663. pcount[i] = i
  664. w1 += 1
  665. if w1 > 7:w1 = 1
  666. d1 += 1
  667. if monthsend[m1] < d1: m1 += 1 & d1 = 1
  668. if (pfilmday[i] = 1 and freefilm = 0) or pfilmday[i] > 1: '<<$monthName[m1]>> <<d1>>, <<$week[w1]>>: '
  669. porns = 0
  670. :nopornplanloop
  671. if porntaken['<<i>>,<<porns>>'] = 2: '<a href="exec:pornstack -= 1 & porntaken[''<<i>>,<<porns>>''] = 0 & pfilmday[<<pcount[i]>>] = 0 & gs ''stat'' & dynamic $canceling"><<$porndesc[pornplan[''<<i>>,<<porns>>'']]>></a>'
  672. if porns < 3: porns += 1 & jump 'nopornplanloop'
  673. if i < 49:
  674. i += 1
  675. jump 'nopornopt'
  676. end
  677. }
  678. dynamic $canceling
  679. end
  680. end
  681. act 'Leave':
  682. killvar 'ppnum'
  683. killvar 'displaynum'
  684. killvar 'displaytext'
  685. killvar 'displayimage'
  686. killvar '$pp1'
  687. killvar '$pp2'
  688. killvar '$pp3'
  689. killvar '$pp4'
  690. killvar '$pp5'
  691. killvar 'displaytag'
  692. killvar 'flag_tag'
  693. killvar 'selection'
  694. killvar 'datefilter'
  695. killvar 'selected'
  696. killvar 'option'
  697. killvar 'tagfilter'
  698. killvar 'contracting'
  699. killvar 'pcount'
  700. killvar 'weekdayfilter'
  701. killvar 'weekendfilter'
  702. gt 'pornstudio', 'start'
  703. end
  704. end
  705. if $ARGS[0] = 'first':
  706. cls
  707. menu_off = 1
  708. gs 'stat'
  709. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting0.jpg"></center>'
  710. 'You sit down on the sofa and greet the boss. "I see it''s your first time with us. So, you want to be a porn star?'
  711. if pcs_inhib < 40 and (money <= 500 and karta <= 500 and home_owned[2] = 0) or (narkoman = 1 or SLomka > 0):
  712. 'While you don''t feel confident enough showing off your body, you are desperate for money, and are willing to do anything to earn it.'
  713. act 'Continue': gt 'pornstudio', 'yes'
  714. elseif pcs_inhib < 40:
  715. 'You don''t feel confident enough to start a career in porn. You should gain some confidence showing off your body first.'
  716. act 'Leave': gt 'pornstudio', 'start'
  717. else
  718. act 'Continue': gt 'pornstudio', 'yes'
  719. end
  720. end
  721. if $ARGS[0] = 'yes':
  722. cls
  723. menu_off = 1
  724. gs 'stat'
  725. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting0.jpg"></center>'
  726. 'You sit down on the sofa and greet the boss. "I see it''s your first time with us. So, you want to be a porn star?"'
  727. act 'Yes':
  728. cla
  729. minut += 5
  730. gs 'stat'
  731. 'You confirm your enthusiasm to be in porn and the boss nods. "Let''s see your papers. You are 18 or older, yes?"'
  732. if age >= 18:
  733. '"Yes I am." you answer, handing him your passport.'
  734. '"All right. First we''ll need to do a casting. Take off your clothes and let me see your body."'
  735. elseif fakepassport = 1:
  736. '"Yes I am." you answer, handing him your fake passport.'
  737. 'You see him frown as he checks your passport with suspicion.'
  738. '"Well, I guess everything is in order. First we''ll need to do a casting. Take off your clothes and let me see your body."'
  739. else
  740. '"Nearly..." you plead.'
  741. '"Right... Here''s my card. Come back when you''re old enough, kid."'
  742. fakepassport = 2
  743. act 'Leave': gt 'pornstudio', 'start'
  744. exit
  745. end
  746. act 'Make excuses and leave': gt 'pornstudio', 'start'
  747. gs 'willpower', 'exhib', 'self'
  748. if will_cost <= pcs_willpwr:
  749. act 'Undress (<<will_cost>> Willpower)':
  750. cla & *clr
  751. gs 'willpower', 'pay', 'self'
  752. minut += 5
  753. gs 'stat'
  754. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting1.jpg"></center>'
  755. 'You undress in front of the boss as he gets up from his chair and walks towards you. "Lie down on the couch and spread your legs."'
  756. act 'Grab your clothes and run out': gt 'pornstudio', 'start'
  757. act 'Lie down':
  758. cla & *clr
  759. minut += 5
  760. gs 'stat'
  761. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting2.jpg"></center>'
  762. 'You lie down on the sofa and spread your legs. The boss takes a few pictures on his phone, explaining that it is for your portfolio. After that, he asks you to kneel.'
  763. act 'Kneel':
  764. cla & *clr
  765. minut += 5
  766. gs 'stat'
  767. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting3.jpg"></center>'
  768. 'You get up from the sofa and kneel in front of the boss as he pulls out his sizeable cock. You admire his member for a few seconds before slowly sucking on his tip. He takes more pictures as he says "Now suck."'
  769. act 'Suck his dick':
  770. cla & *clr
  771. minut += 5
  772. gs 'stat'
  773. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting4.jpg"></center>'
  774. 'You take his shaft into your mouth and begin to suck as he takes a few more pictures.'
  775. act 'Finish him':
  776. cla & *clr
  777. minut += 5
  778. gs 'stat'
  779. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting5.jpg"></center>'
  780. 'You take his dick deep into your throat while trying to look as sexy as possible. Meanwhile, he fondles your breast with his free hand.'
  781. 'He pulls his dick out of your mouth and curtly tells you. "Finish me off." You quickly jerk him off and soon a thick load of cum is covering your face. He takes some last photos of you before returning to his desk and offering you wipes. You quickly clean yourself, get dressed and sit down.'
  782. '"You can call me Peter. You are going to need a pornstar name.'
  783. act 'Choose your pornstar name':
  784. cla & *clr
  785. firstkasting = 1
  786. $pfname = input ("What will your pornstar name be?")
  787. if $pfname <= 0:$pfname = '<<$pcs_nickname>> BimboStar'
  788. '"<<$pfname>>, wonderful name. Now listen. Before shooting starts, you have to pass a medical examination. If we find any sign of a sexually transmitted disease, you are out, no exceptions."'
  789. '"There we go, you''re now registered. We are quite big in the industry, shooting about four films a day, so you can choose what you to be in. Anal or gangbang, it''s your choice, just remember to take care of your health. If you get sick or something, just cancel the shoot. You can do this up to the day of the shooting."'
  790. '"Come see me when you want a contract. And welcome to the world of pornography...<<$pfname>>."'
  791. act '...': gt 'pornstudio', 'start'
  792. end
  793. end
  794. end
  795. end
  796. end
  797. end
  798. else
  799. act 'Undress (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  800. end
  801. end
  802. end
  803. if $ARGS[0] = 'medical':
  804. *clr & cla
  805. menu_off = 1
  806. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/exam.jpg"></center>'
  807. minut += 5
  808. gs 'stat'
  809. 'You go into the office where the doctor is waiting. He quickly snaps on a pair of rubber gloves and tells you to undress.'
  810. 'You remove your clothes and sit on the gynecological chair. The doctor comes up to you and starts the check up. After a thorough inspection, he takes a blood sample.'
  811. '"It will be about half an hour before the tests are finished. They will tell us if you have caught something."'
  812. act 'Wait':
  813. cla
  814. minut += 30
  815. gs 'stat'
  816. '...'
  817. '...'
  818. if venera > 0:
  819. pfilmNO = 1
  820. pfilmNoVenera = 1
  821. '"Your analysis shows you have an STD." the doctor tells you as he calls Peter to the office.'
  822. 'Once he arrives, Peter looks at the test results. "Sorry, but as long as you have an STD, you cannot make films."'
  823. act 'Leave': gt 'pornstudio', 'start'
  824. else
  825. '"Very good, you are clean. You can go to the dressing room."'
  826. act 'Go to the dressing room':
  827. pf = ARGS[1]
  828. dynamic $pornfilmdesc, pf
  829. gs 'pornfilm', 'pornactor'
  830. gs 'pornfilm', 'pornactress'
  831. *clr & cla
  832. '<center><img width=700 src="images/locations/city/redlight/studio_porn/makeup.jpg"></center>'
  833. minut += 30
  834. cumspclnt = 20
  835. gs 'cum_cleanup'
  836. pcs_sweat = 0
  837. pcs_hairbsh = 1
  838. pcs_makeup = 4
  839. pcs_lipbalm += 8
  840. pcs_breath = 1
  841. gs 'stat'
  842. !! pornvnesh uses the same calc as pcs_apprnc except the clothing bonus is hard coded (to 900 and then reduced) and the glasses penalty is removed
  843. pornvnesh = pcs_apprncbase + (pcs_apprncbase * 3 / 5) + mopkoef + (pcs_hairbsh * 10) + lipbalmKoef + (pcs_breath * 5) - sweatKoef - dyevmod - hairkoef - legkoef
  844. 'A skinny white-haired woman is waiting for you in the dressing room.'
  845. 'You take a thorough shower before getting an enema. You then get your hair and make-up done.'
  846. act 'Go to the set': gt 'pornfilm', '<<pf>>'
  847. end
  848. end
  849. end
  850. end
  851. if $ARGS[0] = 'postvideo':
  852. cls
  853. menu_off = 1
  854. minut += 30
  855. pf = pfilmday[0]
  856. pfilmday[0] = 0
  857. pornstack -= 1
  858. pornnow = 0
  859. if film < 5:
  860. fmulti = 25
  861. elseif film < 10:
  862. fmulti = 30
  863. elseif film < 15:
  864. fmulti = 35
  865. elseif film < 25:
  866. fmulti = 40
  867. elseif film < 50:
  868. fmulti = 45
  869. elseif film >= 50:
  870. fmulti = 50
  871. end
  872. film += 1
  873. if film = 1:
  874. $porntitle[film] = 'Girls Jerk Guys #36 - <<$pfname>>'
  875. $pornfilmstory[film] = '<<$pfname>>''s debut into the world of porn. Watch as she jerks off <<$pakter[1]>> and lets him cum all over her tits.'
  876. else
  877. if $pstory = '' and editpornname = 1:
  878. $pornfilmstory[film] = input('You can enter the story of the porn movie. This action can be done only once, but you can choose to do it later! (Just hit Enter/Esc when blank)<br>Tags of the current movie: <font color=#541717 size=2><<$pfilmtags>></font>')
  879. else
  880. $pornfilmstory[film] = $pstory
  881. end
  882. if editpornname = 1:
  883. $porntitle[film] = input("Enter the name of the porn movie. <i>This action can be done only once, but you can choose to do it later! (Just hit Enter/Esc when blank)</i>")
  884. end
  885. end
  886. if pfilmNOPAY = 0:
  887. pfcash = pcash * fmulti
  888. money += pfcash
  889. 'Peter counts <<pfcash>> <b>₽</b> out for your film and wishes good luck.'
  890. else
  891. pfilmNOPAY = 0
  892. pfcash = 0
  893. 'You have fulfilled your obligation and made the film for free.'
  894. end
  895. pornfilmYear[film] = year
  896. pornfilmMonth[film] = month
  897. pornfilmDay[film] = day
  898. porndaystart[film] = daystart
  899. pornfilmType[film] = pf
  900. pornfilmCash[film] = pfcash
  901. pornfilmActAge[film] = age
  902. pornfilmAppAge[film] = vidage
  903. pornfilmpregchem[film] = pregchem
  904. pornfilmacting[film] = acting+orgasmbonus+pcs_intel/10
  905. dynamic $pornfilmdesc, pf
  906. killvar 'orgasmbonus'
  907. if pornfilmacting[film] >= 90:
  908. porn_fame += 3
  909. elseif pornfilmacting[film] >= 75:
  910. porn_fame += 2
  911. elseif pornfilmacting[film] >= 60:
  912. porn_fame += 1
  913. end
  914. pornfilmvnesh[film] = pornvnesh
  915. killvar 'pornvnesh'
  916. if pornfilmvnesh[film] >= 200:
  917. porn_fame += 3
  918. elseif pornfilmvnesh[film] >= 150:
  919. porn_fame += 2
  920. elseif pornfilmvnesh[film] >= 90:
  921. porn_fame += 1
  922. end
  923. acting += actbonus
  924. if pfType ! 0:
  925. unprotfilm = -1
  926. if succubusflag = 1:
  927. !! May add a check to clear unprotfilm based on sucpcinfo (the PC knows Succubae are immune to STD''s)
  928. if pfcash > 0:
  929. $tmp = '"I almost can''t believe they paid me <<pfcash>><b>₽</b> for such a wonderful meal!"'
  930. else
  931. $tmp = '"And they think I''m doing this for free. If only they knew they were paying me in another way..."'
  932. end
  933. 'You let slip a satisfied smirk and think to yourself, <<$tmp>>'
  934. elseif knowpreg = 0 and thinkpreg = 0 and pillcon2 < 1000:
  935. pornDanger[film] = 1
  936. !! Left "ppreg" pending its eventual use
  937. if ppreg = 0:
  938. if pfcash > 0:
  939. $tmp = ' Was <<pfcash>> <b>₽</b> worth the risk of getting impregnated by a seedy porn actor you''ll probably never see again?'
  940. else
  941. $tmp = 'You didn''t even get paid to risk pregnancy! You''ll likely never see the guy again.'
  942. end
  943. 'With a growing sense of horror, you realize that you aren''t on the shot and have no idea when you last took a birth control pill.<<$tmp>>'
  944. else
  945. !{If she has birth control and deliberately isn''t using it, obviously she wants to get pregnant or just doesn''t care.}
  946. if pfcash > 0:
  947. $tmp = 'Either way, <<pfcash>> <b>₽</b> will definitely help make a better life for you and your baby if you end up pregnant.'
  948. else
  949. $tmp = 'The fact that you weren''t even paid to take this risk excites you more than you''d like to admit.'
  950. end
  951. 'From the moment you stepped onto the set, you kept thinking about how you were completely unprotected during this shoot. You aren''t sure if you''re afraid of the consequences or excited by them.<<$tmp>>'
  952. pcs_horny += 10
  953. end
  954. end
  955. killvar '$tmp'
  956. end
  957. if pfactor = 50:
  958. $pornfilmActor[film] = 'Fifty fans of'
  959. else
  960. dynamic $pornactor
  961. $pornfilmActor[film] = ''
  962. pact = pfactor
  963. :pornactortext
  964. if pact > 1:
  965. $pornfilmActor[film] += $pakter[pact]+', '
  966. else
  967. $pornfilmActor[film] += $pakter[pact]
  968. end
  969. pact -= 1
  970. if pact > 0:jump 'pornactortext'
  971. end
  972. if film < 10:
  973. filmkoef = 10
  974. elseif film < 25:
  975. filmkoef = 5
  976. else
  977. filmkoef = 0
  978. end
  979. pfcash = 0
  980. gs 'stat'
  981. act 'Leave': gt 'pornstudio', 'start'
  982. end
  983. if $ARGS[0] = '1':
  984. $loc_arg = $ARGS[0]
  985. $loc = 'pornstudio'
  986. minut = minut + 5
  987. clr
  988. menu_off = 1
  989. gs'stat'
  990. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_1.jpg"></center>'
  991. 'You''ve come to the studio, looking for someone - anything that you think can help you.'
  992. 'You approach a man, who introduces himself as Peter.'
  993. act 'State the purpose of your visit':
  994. *clr & cla
  995. minut += 60
  996. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
  997. '"Peter smiles. "New actresses are always welcome, but if they''re terrible, the studio won''t take them. The auditions are made public, so remember that if you ever consider it."'
  998. '"I''ll tell you everything, here and now, but under one condition - you have to undress."'
  999. act 'Undress':
  1000. *clr & cla
  1001. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting_3.jpg"></center>'
  1002. '"We start with the casting auditions. As I have said, if you are terrible, then you have no hope. This can be overlooked if you have an attractive appearance, however."'
  1003. act 'Continue':
  1004. *clr & cla
  1005. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/model_0.jpg"></center>'
  1006. '"Then a girl is chosen for the lead role. Only the most attractive of girls are chosen"'
  1007. act 'Continue':
  1008. *clr & cla
  1009. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/film_0.jpg"></center>'
  1010. '"Then she shoots the scenes, an interesting and exciting process that can take hours. The films we shoot...'
  1011. act 'Continue':
  1012. *clr & cla
  1013. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/dvd-disx.jpg"></center>'
  1014. '...are how we make money."'
  1015. act 'How and where it is all sold?':
  1016. *clr & cla
  1017. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
  1018. '"We mostly sell it digitally on our premium websites, but we have guys at the sauna in the residential area and in the sex shop for those who want to buy physically. We''re thinking of moving in on the university as well- and not just selling our films there. We could possibly shoot a few films on campus. If they helped us, it would be good for profits, entitle us to dividends and more."'
  1019. act 'Is that legal?':
  1020. *clr & cla
  1021. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/ment_0.jpg"></center>'
  1022. '"It doesn''t matter since we bribe the cops. Maybe in the future you will be able to help us with that? In the meantime, I''ve told you everything you need to know."'
  1023. act 'I sort of understand':
  1024. *clr & cla
  1025. pornstudio = 3
  1026. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
  1027. '"Good girl. Now leave and stop wasting my time."'
  1028. gt 'pornstudio', 'start'
  1029. end
  1030. end
  1031. end
  1032. end
  1033. end
  1034. end
  1035. end
  1036. end
  1037. end
  1038. if $ARGS[0] = '2':
  1039. $loc_arg = $ARGS[0]
  1040. $loc = 'pornstudio'
  1041. menu_off = 1
  1042. clr
  1043. ! WD: Fix Uninitialised ~ 'carrf' to 'carrar'
  1044. carrar = RAND(40, 100)
  1045. gs 'stat'
  1046. '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting_<<rand(1,6)>>.jpg"></center>'
  1047. 'You spend eight hours posing in a variety of sexy underwear for the casting director.'
  1048. minut += 120
  1049. gs 'stat'
  1050. minut += 120
  1051. gs 'stat'
  1052. minut += 120
  1053. gs 'stat'
  1054. minut += 120
  1055. gs 'stat'
  1056. if pcs_apprnc < carrar:
  1057. '"You don''t have what it takes. Sorry."'
  1058. elseif pcs_apprnc >= carrar:
  1059. actr = 1
  1060. 'You get the role.'
  1061. end
  1062. act 'Finish':
  1063. gt 'pornstudio','start'
  1064. end
  1065. end
  1066. if $ARGS[0] = '3':
  1067. $loc_arg = $ARGS[0]
  1068. $loc = 'pornstudio'
  1069. clr
  1070. actr = 0
  1071. gs 'stat'
  1072. gt 'bdsm'
  1073. end
  1074. if $ARGS[0] = 'pregreact':
  1075. '"Wow. I''m surprised you still want to do the shoot considering how far along you are. The good news is, we''ve been looking into appealing to people with different fetishes, so this is the perfect opportunity to start marketing to pregnancy fetishists. However, this is also going to change the shoots you can do."'
  1076. '"You see, this is more of a niche thing and not something we can really use for wide appeal. You can still work, but only on specific pregnancy shoots, so you might not get the same amount of work you got before. But don''t worry, if we can find a way to make money off of you, we definitely will." the manager ends with a smile.'
  1077. act 'Continue': pregtalkpornstudio = 1 & gt 'pornstudio', 'manager'
  1078. end
  1079. --- pornstudio ---------------------------------