pornstudio.qsrc 45 KB

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