1
0

pornstudio.qsrc 42 KB

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