pornstudio.qsrc 45 KB

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