1
0

pornstudio 83 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245
  1. # pornstudio
  2. if $ARGS[0] = 'start':
  3. CLOSE ALL
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. gs 'pornhist'
  7. cls
  8. minut += 5
  9. gs 'stat'
  10. '<center><img src="images/studia/studia_0.jpg"></center>'
  11. act 'Leave':gt 'down'
  12. if hour < 10 or hour > 22:
  13. 'The Porn studio is closed. Opening hours are between 10 and 22'
  14. exit
  15. end
  16. 'Manager''s office open.'
  17. act 'Go to the manager':gt 'pornstudio', 'manager'
  18. act 'Visit the managers PA':
  19. cla
  20. *clr
  21. minut += 5
  22. gs 'stat'
  23. 'There is a young guy tapping on the computer keyboard in a small office.'
  24. if film = 0:
  25. '"Who are you? This office is for staff only."'
  26. else
  27. '<font color="#0D42C0"> "Hi <<$pfname>>, what can I do for you?"</font>'
  28. if pfilmSTOP = 0:
  29. act 'What''s the rating of my videos?':
  30. cla
  31. minut += 5
  32. gs 'stat'
  33. '"You''ve made <<film>> films.'
  34. if film < 5:'Their rating is still very low, simply put, almost nobody is watching them."'
  35. if film >= 5 and film < 10:'You have a few views, but not much. Almost nobody knows who you are.'
  36. if film >= 10 and film < 15:'You have an emerging audience. You are more-less well-known by the hardcore fans.'
  37. if film >= 15 and film < 25:'Your videos can be found on most major porn sites, views peaking over the thousand mark.'
  38. if film >= 25 and film < 50:'You`re pretty well known in the porn industry. You already have your fans and admirers.'
  39. if film >= 50:'You are a Porn Star!'
  40. if film >= 15:
  41. if pornhj >= 15 and pornbj >= 15 and pornclassic >= 15 and pornall >= 15 and porngroup >= 15 and porngrouphard >= 15:
  42. You are know for your versatility, only a select few pornstars can match your range.
  43. elseif pornhj < 15 and pornbj < 15 and pornclassic < 15 and pornall < 15 and porngroup < 15 and porngrouphard < 15:
  44. 'You are known as a versatile porn actress, you have not yet made a real impact in any particular area.'
  45. else
  46. $pornrange = 'You are known for'
  47. if pornhj >= 15: $pornrange += ', your handjobs'
  48. if pornbj >= 15: $pornrange += ', your cocksucking'
  49. if pornclassic >= 15: $pornrange += ', your fucking'
  50. if pornall >= 15: $pornrange += ', your anal sex'
  51. if porngroup >= 15: $pornrange += ', your groupsex'
  52. if porngrouphard >= 15: $pornrange += 'and your rough groupsex'
  53. $pornrange += '.'
  54. '<<$pornrange>>'
  55. end
  56. end
  57. if film < 10:
  58. 'The guy whispers "By the way, if you wanted, I could completely remove them from the network - for a good price of course."'
  59. act 'Tell me more':
  60. cla
  61. minut += 5
  62. films_stop_payment = film * 40000
  63. gs 'stat'
  64. '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>.'
  65. 'Also, that would piss off your co-stars and our director. It would end your porn career.'
  66. if money >= films_stop_payment:
  67. act 'Agree':
  68. minut += 5
  69. money -= films_stop_payment
  70. pfilmSTOP = 1
  71. film = 0
  72. gs 'stat'
  73. 'We never met. Have a nice day, and don''t come back'
  74. act 'Leave':gt 'pornstudio', 'start'
  75. end
  76. end
  77. act 'Not interested':gt 'pornstudio', 'start'
  78. end
  79. act 'Leave':gt 'pornstudio', 'start'
  80. end
  81. act 'Leave':gt 'pornstudio', 'start'
  82. end
  83. end
  84. act 'Leave':gt 'pornstudio', 'start'
  85. end
  86. act 'Leave':gt 'pornstudio', 'start'
  87. end
  88. if bomzQW = 1 and week = 4 and workDisk = 0:
  89. act 'Arrive for work':
  90. cls
  91. minut += 15
  92. gs 'stat'
  93. '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.'
  94. 'Upon delivery of envolope you get 5000 <b>₽</b>. Deliveries available every Friday, after the studio has opened. If you agree, then visit any Friday, choose a safe mode of transport.'
  95. act 'No, I don''t think it''s for me (leave)':bomzQW = -1 & gt 'down'
  96. act 'Agree to work':
  97. cls
  98. minut += 15
  99. gs 'stat'
  100. 'Just this time, we will take you. In the future you''ll have to make your onwn way, because Fridays are getting risky for us, but we need to intruduce you to our colleagues.'
  101. act 'Let''s go':
  102. cls
  103. workDisk = 1
  104. minut += 15
  105. gs 'stat'
  106. 'You slip into a jeep by the entrance, and your driven to the sauna.'
  107. if saunasex = 1:
  108. 'You recall going to this sauna. You had some pretty energetic sex here.'
  109. elseif sauna > 0:
  110. 'Oh, it''s the sauna near your home.'
  111. else
  112. 'This sauna is located near your home, it is strange that you did not notice it before.'
  113. end
  114. '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.'
  115. '"Don''t forget to use secure transport. We''ll see you on Fridays and don''t fuck up."'
  116. act 'Leave':bomzQW = 2 & gt 'street'
  117. end
  118. end
  119. end
  120. end
  121. if workDolg > 0 and money >= workDolg:
  122. act 'Repay your debt':
  123. cls
  124. minut += 5
  125. workDisk = 0
  126. money -= workDolg
  127. workDolg = 0
  128. gs 'stat'
  129. 'You give the money that you owe to the studio.'
  130. act 'Leave':gt 'pornstudio', 'start'
  131. end
  132. elseif workDolg = 0:
  133. if workDisk = 1 and week = 5:
  134. act 'Take the disk':
  135. cls
  136. minut += 5
  137. workDisk = 2
  138. gs 'stat'
  139. 'You are given a thumb drive, and asked if you remember all the instructions. You nod your head and leave with the drive.'
  140. 'Moving away from the studio near you hear someone else came out of a nearby building and follow for you.'
  141. '<font color="magenta"> "Avoid deserted places, maybe this will blow over"</font> you reassure yourself, and carry on.'
  142. act 'Leave':gt 'down'
  143. end
  144. elseif workDisk = 3 and week = 5:
  145. act 'Give the envelope':
  146. cls
  147. minut += 5
  148. workDisk = 4
  149. gs 'stat'
  150. if konvert = 0:
  151. workDolg = 200000
  152. workDolgDay = 7
  153. 'Digging through your things you begin to panic. No envelope. You search everything again, but you don''t find the envelope.'
  154. 'SHIT!! But how could you let this happen! What have you gotten into now?!'
  155. 'You stand there unable to speak. Looks like you''re fucked.'
  156. '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.'
  157. '"You are very lucky, the boss is in a good mood. So has given you one week to cover his losses."'
  158. '"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.'
  159. '<font color="#0D42C0">Fail, and bad things will happen to you.</font>'
  160. else
  161. konvert = 0
  162. money += 5000
  163. 'You give the envelope to the manager and he gives you 5,000 <b>₽</b>.'
  164. end
  165. act 'Leave':gt 'down'
  166. end
  167. end
  168. end
  169. if pfilmNO = 1 and pfilmNoVenera = 1 and Venera = 0:
  170. act 'Show the certificate about STD''s cured':
  171. cls
  172. minut += 5
  173. pfilmNoVenera = 0
  174. pfilmNO = 0
  175. gs 'stat'
  176. 'You hand over your medical certificate showing that you are STD free. They promise to consider your reinstatement as a porn actress.'
  177. act 'Leave':gt 'pornstudio', 'start'
  178. end
  179. end
  180. end
  181. if $ARGS[0] = 'manager':
  182. cla
  183. *clr
  184. minut += 5
  185. gs 'stat'
  186. '<center><img src="images/studia/studia_0.jpg"></center>'
  187. 'The boss of the porn studio welcomes you and gestures for you to sit down on the couch.'
  188. if pfilmNO = 1:
  189. 'You''re blacklisted, no decent porn studio will hire you, goodbye.'
  190. act 'Leave':gt 'pornstudio', 'start'
  191. exit
  192. end
  193. if pfilmSTOP = 1:
  194. 'I''m sorry I thought you had retired...'
  195. act 'Leave':gt 'pornstudio', 'start'
  196. exit
  197. end
  198. if pfilmday = daystart and pfilm > 0:
  199. 'Do not distract me from my work. Like I said, we shoot tomorrow.'
  200. act 'Leave':gt 'pornstudio', 'start'
  201. exit
  202. end
  203. if pfilmday >= daystart + 2:
  204. pfilmNO = 1
  205. 'You did not come to the shoot. You fucked me. I paid a lot of money for assistants, actors, cameramen, plus studio rental, and you took it and threw it in my face.'
  206. 'No, I do not want to work with you and moreover, you''re blacklisted.'
  207. act 'Leave':gt 'pornstudio', 'start'
  208. exit
  209. end
  210. if pfilm > 0 and hour >= 10 and hour <= 12:
  211. if hour = 10:'"Come on honey, inspection."'
  212. if hour = 11:'"You''re late, my patience is not eternal", Peter says, strictly. Quickly now, inspection.'
  213. if hour = 12:'What the hell? Everyone''s waiting for you. Hurry up honey, inspection. Now!.'
  214. pfilmday = daystart
  215. act 'Go for medical check-up':
  216. cla
  217. *clr
  218. minut += 5
  219. gs 'stat'
  220. '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.'
  221. '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.'
  222. 'After half an hour the tests are completed. If you have caught something, it''ll show in the blood tests.'
  223. act 'Wait':
  224. cla
  225. *clr
  226. minut += 30
  227. gs 'stat'
  228. if venera > 0:
  229. pfilmNO = 1
  230. pfilmNoVenera = 1
  231. 'Your analysis showed an STD. The doctor tells you and calls Peter. Peter looks at the test results.'
  232. 'Sorry, but as long as you have an STD you cannot make films.'
  233. act 'Leave':gt 'pornstudio', 'start'
  234. else
  235. 'Very good, you are clean. Go to the dressing room'
  236. act 'Go to the dressing room':
  237. pf = pfilm
  238. dynamic $pornfilmdesc
  239. cla
  240. *clr
  241. minut += 30
  242. hapri = 1
  243. mop = 4
  244. gs 'stat'
  245. 'In the dressing room a skinny whiter-haired woman is waiting for you.'
  246. if pfilm > 3:'First you are given a powerful enema.'
  247. 'You put on some makeup and get your hair done.'
  248. !!if the scene with anal, then enema.
  249. act 'Go to the set':
  250. if pfactor ! 50:
  251. akrand = rand(1,10)
  252. if akrand = 1:$pakter = 'Alexei'
  253. if akrand = 2:$pakter = 'Sergey'
  254. if akrand = 3:$pakter = 'George'
  255. if akrand = 4:$pakter = 'Ignat'
  256. if akrand = 5:$pakter = 'Simeon'
  257. if akrand = 6:$pakter = 'Vasili'
  258. if akrand = 7:$pakter = 'Boris'
  259. if akrand = 8:$pakter = 'Danek'
  260. if akrand = 9:$pakter = 'Pyotr'
  261. if akrand = 10:$pakter = 'Oleg'
  262. if akrand = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  263. if akrand = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  264. if akrand = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  265. if akrand = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  266. if akrand = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  267. if akrand = 6 and aksex6 = 0:aksex6 = 1 & guy += 1
  268. if akrand = 7 and aksex7 = 0:aksex7 = 1 & guy += 1
  269. if akrand = 8 and aksex8 = 0:aksex8 = 1 & guy += 1
  270. if akrand = 9 and aksex9 = 0:aksex9 = 1 & guy += 1
  271. if akrand = 10 and aksex10 = 0:aksex10 = 1 & guy += 1
  272. if pfactor > 1:
  273. akrand2 = rand(1, 9)
  274. if akrand2 = akrand:akrand2 += 1
  275. if akrand2 = 1:$pakter2 = 'Alexei'
  276. if akrand2 = 1:$pakter2 = 'Alexei'
  277. if akrand2 = 2:$pakter2 = 'Sergey'
  278. if akrand2 = 3:$pakter2 = 'George'
  279. if akrand2 = 4:$pakter2 = 'Ignat'
  280. if akrand2 = 5:$pakter2 = 'Simeon'
  281. if akrand2 = 6:$pakter2 = 'Vasili'
  282. if akrand2 = 7:$pakter2 = 'Boris'
  283. if akrand2 = 8:$pakter2 = 'Danek'
  284. if akrand2 = 9:$pakter2 = 'Pyotr'
  285. if akrand2 = 10:$pakter2 = 'Oleg'
  286. if akrand2 = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  287. if akrand2 = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  288. if akrand2 = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  289. if akrand2 = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  290. if akrand2 = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  291. if akrand2 = 6 and aksex6 = 0:aksex6 = 1 & guy += 1
  292. if akrand2 = 7 and aksex7 = 0:aksex7 = 1 & guy += 1
  293. if akrand2 = 8 and aksex8 = 0:aksex8 = 1 & guy += 1
  294. if akrand2 = 9 and aksex9 = 0:aksex9 = 1 & guy += 1
  295. if akrand2 = 10 and aksex10 = 0:aksex10 = 1 & guy += 1
  296. end
  297. if pfactor > 2:
  298. akrand3 = rand(1, 8)
  299. if akrand3 = akrand or akrand3 = akrand2:akrand3 += 1
  300. if akrand3 = akrand or akrand3 = akrand2:akrand3 += 1
  301. if akrand3 = 1:$pakter3 = 'Alexei'
  302. if akrand3 = 2:$pakter3 = 'Sergey'
  303. if akrand3 = 3:$pakter3 = 'George'
  304. if akrand3 = 4:$pakter3 = 'Ignat'
  305. if akrand3 = 5:$pakter3 = 'Simeon'
  306. if akrand3 = 6:$pakter3 = 'Vasili'
  307. if akrand3 = 7:$pakter3 = 'Boris'
  308. if akrand3 = 8:$pakter3 = 'Danek'
  309. if akrand3 = 9:$pakter3 = 'Pyotr'
  310. if akrand3 = 10:$pakter3 = 'Oleg'
  311. if akrand3 = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  312. if akrand3 = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  313. if akrand3 = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  314. if akrand3 = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  315. if akrand3 = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  316. if akrand3 = 6 and aksex6 = 0:aksex6 = 1 & guy += 1
  317. if akrand3 = 7 and aksex7 = 0:aksex7 = 1 & guy += 1
  318. if akrand3 = 8 and aksex8 = 0:aksex8 = 1 & guy += 1
  319. if akrand3 = 9 and aksex9 = 0:aksex9 = 1 & guy += 1
  320. if akrand3 = 10 and aksex10 = 0:aksex10 = 1 & guy += 1
  321. end
  322. if pfactor > 3:
  323. akrand4 = rand(1, 7)
  324. if akrand4 = akrand or akrand4 = akrand2 or akrand4 = akrand3:akrand4 += 1
  325. if akrand4 = akrand or akrand4 = akrand2 or akrand4 = akrand3:akrand4 += 1
  326. if akrand4 = akrand or akrand4 = akrand2 or akrand4 = akrand3:akrand4 += 1
  327. if akrand4 = 1:$pakter4 = 'Alexei'
  328. if akrand4 = 2:$pakter4 = 'Sergey'
  329. if akrand4 = 3:$pakter4 = 'George'
  330. if akrand4 = 4:$pakter4 = 'Ignat'
  331. if akrand4 = 5:$pakter4 = 'Simeon'
  332. if akrand4 = 6:$pakter4 = 'Vasili'
  333. if akrand4 = 7:$pakter4 = 'Boris'
  334. if akrand4 = 8:$pakter4 = 'Danek'
  335. if akrand4 = 9:$pakter4 = 'Pyotr'
  336. if akrand4 = 10:$pakter4 = 'Oleg'
  337. if akrand4 = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  338. if akrand4 = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  339. if akrand4 = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  340. if akrand4 = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  341. if akrand4 = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  342. if akrand4 = 6 and aksex6 = 0:aksex6 = 1 & guy += 1
  343. if akrand4 = 7 and aksex7 = 0:aksex7 = 1 & guy += 1
  344. if akrand4 = 8 and aksex8 = 0:aksex8 = 1 & guy += 1
  345. if akrand4 = 9 and aksex9 = 0:aksex9 = 1 & guy += 1
  346. if akrand4 = 10 and aksex10 = 0:aksex10 = 1 & guy += 1
  347. end
  348. end
  349. if pfilm = 1:
  350. pfType = 0
  351. cla
  352. *clr
  353. minut += 30
  354. gs 'stat'
  355. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  356. 'To the side stands the actor <<$pakter>>, stroking his member.'
  357. act 'Undress and start':
  358. cla
  359. *clr
  360. minut += 30
  361. hj += 1
  362. gs 'stat'
  363. '<center><img src="images/studia/hj.gif"></center>'
  364. '<<$pakter>> lies on the bed. You lie down beside him and take his penis in your hand. You begin to stroke his penis.'
  365. act 'Masturbate him':
  366. cla
  367. *clr
  368. minut += 5
  369. '<center><img src="images/studia/hjcumontits.gif"></center>'
  370. '<<$pakter>> begins to caress your chest, and you continues to jerk his cock squirting his hot cum on you.'
  371. $boy = $pakter
  372. sexpartkno = 1
  373. spafinloc = 15
  374. gs 'cum_manage'
  375. act 'Have a shower':
  376. cla
  377. *clr
  378. minut += 5
  379. sweat = -3
  380. horny += 1
  381. mop = 1
  382. dynamic $showerdin
  383. '<center><img src="images/pics/dush.jpg"></center>'
  384. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  385. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  386. end
  387. end
  388. end
  389. elseif pfilm = 2:
  390. pfType = 0
  391. cla
  392. *clr
  393. minut += 30
  394. gs 'stat'
  395. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  396. 'To the side stands the actor <<$pakter>>, stroking his member.'
  397. act 'Undress and start':
  398. cla
  399. *clr
  400. minut += 30
  401. hj += 1
  402. gs 'stat'
  403. '<center><img src="images/studia/hj.gif"></center>'
  404. '<<$pakter>> lay on the bed. You lie down beside him and take his penis in your hand. You begin to stroke his penis.'
  405. act 'Suck it':
  406. cla
  407. *clr
  408. bj += 1
  409. minut += 5
  410. '<center><img src="images/studia/bj.gif"></center>'
  411. '<<$pakter>> sits on the bed. You settle down between his legs, take his cock in your mouth and begin sucking the head of his penis.'
  412. act 'Keep sucking':
  413. cla
  414. *clr
  415. minut += 5
  416. '<center><img src="images/studia/deep.gif"></center>'
  417. '<<$pakter>> begins to fuck your mouth, driving his cock down your throat with every thrust.'
  418. 'Finally he takes his cock out. You wipe the saliva from your mouth.'
  419. act 'Open your mouth':
  420. cla
  421. *clr
  422. minut += 5
  423. facial += 1
  424. gs 'stat'
  425. '<center><img src="images/studia/cum.gif"></center>'
  426. '<<$pakter>> shoots hot streams of sperm into your mouth and down your throat.'
  427. $boy = $pakter
  428. sexpartkno = 1
  429. spafinloc = 12
  430. sexvolume = 36
  431. gs 'cum_manage'
  432. spafinloc = 11
  433. sexvolume = 4
  434. gs 'cum_manage'
  435. act 'Clean his cock':
  436. cla
  437. *clr
  438. minut += 5
  439. swallow += 1
  440. gs 'stat'
  441. '<center><img src="images/studia/bj2.gif"></center>'
  442. 'You keep your eyes fixed on his, as you gently lick every last drop of sperm from his cock.'
  443. act 'Shower':
  444. cla
  445. *clr
  446. minut += 5
  447. sweat = -3
  448. horny += 1
  449. mop = 1
  450. dynamic $showerdin
  451. '<center><img src="images/pics/dush.jpg"></center>'
  452. 'You enter the shower cubicle. Turned on the shower and gently wash all traces of semen from your body.'
  453. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  454. end
  455. end
  456. end
  457. end
  458. end
  459. end
  460. elseif pfilm = 3:
  461. pfType = 0
  462. cla
  463. *clr
  464. minut += 30
  465. gs 'stat'
  466. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  467. 'To the side stands the actor <<$pakter>>, stroking his inviting member.'
  468. act 'Undress and start':
  469. cla
  470. *clr
  471. minut += 30
  472. hj += 1
  473. gs 'stat'
  474. '<center><img src="images/studia/hj.gif"></center>'
  475. '<<$pakter>> lies on the bed. You lie down beside him and take his penis in your hand. You begin to pleasure him.'
  476. act 'Blow him':
  477. cla
  478. *clr
  479. bj += 1
  480. minut += 5
  481. '<center><img src="images/studia/bj.gif"></center>'
  482. '<<$pakter>> sits on the edge of the bed. You kneel down between his legs, and passionately suck the head of his penis like it''s the most delicious lollipop.'
  483. act 'Suck more':
  484. cla
  485. *clr
  486. minut += 5
  487. '<center><img src="images/studia/deep.gif"></center>'
  488. '<<$pakter>> begins to fuck your mouth deeply, occasionally withdrawing completely to allow you to catch your breath, before returning more vigorously.'
  489. act 'Doggy style':
  490. cla
  491. *clr
  492. sex += 1
  493. vagina += 1
  494. minut += 15
  495. '<center><img src="images/studia/sex.gif"></center>'
  496. 'You turn around and get on all fours, <<$pakter>> guides his dick deep into your pussy. He begins to fuck you from behind, hard.'
  497. $boy = $pakter
  498. sexpartkno = 1
  499. cumprecheck = 1
  500. gs 'cum_manage'
  501. act 'Kneel down and open your mouth':
  502. cla
  503. *clr
  504. minut += 5
  505. spafinloc = 12
  506. sexvolume = 36
  507. gs 'cum_manage'
  508. spafinloc = 11
  509. sexvolume = 4
  510. gs 'cum_manage'
  511. facial += 1
  512. gs 'stat'
  513. '<center><img src="images/studia/cum.gif"></center>'
  514. '<<$pakter>> holds his cock to your open mouth and fills it with sperm.'
  515. act 'Clean his cock with your mouth':
  516. cla
  517. *clr
  518. minut += 5
  519. swallow += 1
  520. gs 'stat'
  521. '<center><img src="images/studia/bj2.gif"></center>'
  522. 'Looking it to his eyes adoringly, you meticulously lick all the cum off his dick.'
  523. act 'Shower':
  524. cla
  525. *clr
  526. minut += 5
  527. sweat = -3
  528. horny += 1
  529. mop = 1
  530. dynamic $showerdin
  531. '<center><img src="images/pics/dush.jpg"></center>'
  532. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  533. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  534. end
  535. end
  536. end
  537. end
  538. end
  539. end
  540. end
  541. elseif pfilm = 4:
  542. pfType = 0
  543. cla
  544. *clr
  545. minut += 30
  546. gs 'stat'
  547. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  548. 'To the side stands the actor <<$pakter>>, stroking his impressive member.'
  549. act 'Undress and start':
  550. cla
  551. *clr
  552. minut += 30
  553. hj += 1
  554. gs 'stat'
  555. '<center><img src="images/studia/hj.gif"></center>'
  556. '<<$pakter>> lies on the bed. You lie down beside him, place your hand on his penis and begin to stroke it.'
  557. act 'Blow him':
  558. cla
  559. *clr
  560. bj += 1
  561. minut += 5
  562. '<center><img src="images/studia/bj.gif"></center>'
  563. '<<$pakter>> sits up. You have crouch down on the floor, he swings his legs over and you suddenly have his cock right in front of your face.'
  564. 'After admiring the impressive sight, you remember you''re being filmed and begin sucking the head of his penis.'
  565. act 'Suck further':
  566. cla
  567. *clr
  568. minut += 5
  569. '<center><img src="images/studia/deep.gif"></center>'
  570. '<<$pakter>> relaxes as you take control with your mouth trying to take the full length of his cock down your throat.'
  571. act 'Doggy style':
  572. cla
  573. *clr
  574. sex += 1
  575. vagina += 1
  576. minut += 5
  577. '<center><img src="images/studia/sex.gif"></center>'
  578. 'You turn around and get on all fours, <<$pakter>> guides his dick deep into your pussy. He begins to fuck you from behind, hard.'
  579. 'Just as you''re really getting into it, <<$pakter>> pulls his cock out. You feel him pressing against your anus.'
  580. $boy = $pakter
  581. sexpartkno = 1
  582. cumprecheck = 1
  583. gs 'cum_manage'
  584. act 'Anal':
  585. cla
  586. *clr
  587. anal += 1
  588. anus += 1
  589. minut += 5
  590. '<center><img src="images/studia/sex.gif"></center>'
  591. 'You try as best you can to relax your anus. Suddenly <<$pakter>> pushes into your ass and goes at t like a jack-hammer.'
  592. act 'Kneel down and open your mouth':
  593. cla
  594. *clr
  595. minut += 5
  596. facial += 1
  597. gs 'stat'
  598. '<center><img src="images/studia/cum.gif"></center>'
  599. '<<$pakter>> brings his cock to your mouth, and feeds you the contents of his balls.'
  600. spafinloc = 12
  601. sexvolume = 36
  602. gs 'cum_manage'
  603. spafinloc = 11
  604. sexvolume = 4
  605. gs 'cum_manage'
  606. act 'Clean his cock with your mouth':
  607. cla
  608. *clr
  609. minut += 5
  610. swallow += 1
  611. gs 'stat'
  612. '<center><img src="images/studia/bj2.gif"></center>'
  613. 'You keep look deep into his eyes, then lick and kiss his sperm covered cock until it''s thoughly cleaned.'
  614. act 'Shower':
  615. cla
  616. *clr
  617. minut += 5
  618. sweat = -3
  619. horny += 1
  620. mop = 1
  621. dynamic $showerdin
  622. '<center><img src="images/pics/dush.jpg"></center>'
  623. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  624. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  625. end
  626. end
  627. end
  628. end
  629. end
  630. end
  631. end
  632. end
  633. elseif pfilm = 5:
  634. pfType = 0
  635. cla
  636. *clr
  637. minut += 30
  638. gang += 1
  639. gs 'stat'
  640. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  641. 'Actors <<$pakter>> and <<$pakter2>>, are watching porn on a monitor, getting their cocks ready for you...'
  642. act 'Undress and kneel':
  643. cla
  644. *clr
  645. minut += 10
  646. bj += 2
  647. gs 'stat'
  648. '<center><img src="images/studia/tbj.gif"></center>'
  649. '<<$pakter>> and <<$pakter2>> slap their fully errect cocks against your face.'
  650. act 'Suck them':
  651. cla
  652. *clr
  653. minut += 15
  654. gs 'stat'
  655. '<center><img src="images/studia/tbj2.gif"></center>'
  656. 'You start by sucking both members trying to please them both. Then, using your tounge, you draw circles under <<$pakter>>s gland, making him moan.'
  657. 'Then you push your lips tightly against <<$pakter2>>s head, until your mouth is forced open, the look in his eyes tells you he''s ready'
  658. act 'Fuck':
  659. cla
  660. *clr
  661. minut += 15
  662. sex += 1
  663. vagina += 1
  664. gs 'stat'
  665. '<center><img src="images/studia/three.gif"></center>'
  666. 'You bend over and <<$pakter>> drives his dick into your pussy while you suck <<$pakter2>>.'
  667. $boy = $pakter
  668. sexpartkno = 1
  669. cumprecheck = 1
  670. gs 'cum_manage'
  671. act 'Anal':
  672. cla
  673. *clr
  674. minut += 15
  675. anal += 1
  676. anus += 1
  677. gs 'stat'
  678. '<center><img src="images/studia/threea.gif"></center>'
  679. '<<$pakter>> takes his cock out of your pusssy, and plunges it into your ass. The change and the extra tightness quickly overwelms him.'
  680. 'He shoots his load into your ass, all the while you keep sucking <<$pakter2>>.'
  681. spafinloc = 3
  682. gs 'cum_manage'
  683. act 'Cum on face':
  684. cla
  685. *clr
  686. minut += 5
  687. facial += 1
  688. gs 'stat'
  689. '<center><img src="images/studia/tcum.gif"></center>'
  690. 'You move around to clean up <<$pakter>>, when <<$pakter2>> grabs your head and feeds you his cum saying the most depraved things as it slowly trickles down your throat.'
  691. $boy = $pakter2
  692. sexpartkno = 1
  693. spafinloc = 11
  694. gs 'cum_manage'
  695. act 'Shower':
  696. cla
  697. *clr
  698. minut += 5
  699. sweat = -3
  700. horny += 1
  701. mop = 1
  702. dynamic $showerdin
  703. '<center><img src="images/pics/dush.jpg"></center>'
  704. 'You enter the shower cubicle. Turn on the shower and gently wash the cum from your face and ass.'
  705. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  706. end
  707. end
  708. end
  709. end
  710. end
  711. end
  712. elseif pfilm = 6:
  713. pfType = 0
  714. cla
  715. *clr
  716. minut += 30
  717. gang += 1
  718. gs 'stat'
  719. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  720. 'Actors <<$pakter>> and <<$pakter2>>, are watching porn on a monitor, getting their cocks ready for you...'
  721. act 'Undress and start':
  722. cla
  723. *clr
  724. minut += 10
  725. bj += 2
  726. gs 'stat'
  727. '<center><img src="images/studia/tbj.gif"></center>'
  728. '<<$pakter>> and <<$pakter2>> bash their fully errect cocks into your face.'
  729. act 'Suck':
  730. cla
  731. *clr
  732. minut += 15
  733. gs 'stat'
  734. '<center><img src="images/studia/tbj2.gif"></center>'
  735. 'You started to suck both members trying to please them both, it feels so good, all this cock and it''s all for you.'
  736. act 'Fuck':
  737. cla
  738. *clr
  739. minut += 15
  740. sex += 1
  741. vagina += 1
  742. gs 'stat'
  743. '<center><img src="images/studia/three.gif"></center>'
  744. 'You got on all fours and <<$pakter>> fucks you like a dog while you suck <<$pakter2>>.'
  745. $boy = $pakter
  746. sexpartkno = 1
  747. cumprecheck = 1
  748. gs 'cum_manage'
  749. act 'Anal':
  750. cla
  751. *clr
  752. minut += 15
  753. anal += 1
  754. anus += 1
  755. gs 'stat'
  756. '<center><img src="images/studia/threea.gif"></center>'
  757. '<<$pakter>> switches it up and sticks his cock into your ass while you keep sucking <<$pakter2>>.'
  758. act 'Double Penetration':
  759. cla
  760. *clr
  761. minut += 15
  762. anus += 1
  763. vagina += 1
  764. gs 'stat'
  765. '<center><img src="images/studia/three2.gif"></center>'
  766. '<<$pakter>> takes his dick out of your ass and lies down. Knowing <<$pakter>> wants more, you straddle his cock.'
  767. 'You feel how his cock fill your pussy while <<$pakter2>> cames up from behind you and pushes his penis into your ass.'
  768. 'The guys find a rhythm and grind away at your holes, you moan loudly.'
  769. act 'Finish in mouth':
  770. cla
  771. *clr
  772. minut += 5
  773. facial += 1
  774. gs 'stat'
  775. '<center><img src="images/studia/tcum.gif"></center>'
  776. 'The guys tell you they''re close and disengage. You grab the cock of <<$pakter>> and began to suck.'
  777. 'Suddenly your head gets turned around and <<$pakter2>> shoots his load on your face and in your mouth.'
  778. $boy = $pakter2
  779. spafinloc = 12
  780. sexvolume = 36
  781. gs 'cum_manage'
  782. spafinloc = 11
  783. sexvolume = 4
  784. gs 'cum_manage'
  785. act 'Shower':
  786. cla
  787. *clr
  788. minut += 5
  789. sweat = -3
  790. horny += 1
  791. mop = 1
  792. dynamic $showerdin
  793. '<center><img src="images/pics/dush.jpg"></center>'
  794. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  795. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  796. end
  797. end
  798. end
  799. end
  800. end
  801. end
  802. end
  803. elseif pfilm = 7:
  804. pfType = 1
  805. cla
  806. *clr
  807. minut += 30
  808. gang += 1
  809. gs 'stat'
  810. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  811. 'To the side stands the actor <<$pakter>>, stroking his member.'
  812. act 'Undress and start':
  813. cla
  814. *clr
  815. minut += 30
  816. bj += 1
  817. gs 'stat'
  818. '<center><img src="images/studia/bj.gif"></center>'
  819. '<<$pakter>> sits before a TV. You walk up to him while disrobing and kneel between his legs, taking his cock in your mouth and begin sucking the head of his penis.'
  820. act 'Keep sucking':
  821. cla
  822. *clr
  823. minut += 15
  824. '<center><img src="images/studia/deep.gif"></center>'
  825. '<<$pakter>> begins to fuck your mouth, driving his cock down your throat with every thrust.'
  826. 'Finally he takes his cock out. You wipe the saliva from your mouth.'
  827. act 'Lay down on the couch':
  828. cla
  829. *clr
  830. minut += 15
  831. sex += 1
  832. gs 'stat'
  833. '<center><img src="images/_nuki/porn/fuck<<rand(1,2)>>.gif" width="500"></center>'
  834. '<<$pakter>> grabs your hips and throw you on the couch and starts to fuck you.'
  835. if horny < 70 or exhibi < 4:
  836. act 'Fake orgasm':
  837. cla
  838. minut += 15
  839. horny += 15
  840. sexpartkno = 1
  841. $boy = $pakter+', a porn actor'
  842. gs 'cum_manage'
  843. gs 'stat'
  844. '<center><img src="images/_nuki/porn/porgasmfake.gif" width="400"></center>'
  845. 'Finally you feel <<$pakter>> cumming inside of you, so you fake a sreaming orgasm for the film. You keep your eyes fixed on his, as he pumps a huge amount of sperm in you. He finally climbs off of you, but you stay on the couch while the cameraman comes forward to film your pussy as it slowly starts to leak the actor''s seed. After a few minutes the director nods his head, and you get up.'
  846. act 'Shower':
  847. cla
  848. *clr
  849. minut += 5
  850. sweat = -3
  851. horny += 1
  852. mop = 1
  853. dynamic $showerdin
  854. '<center><img src="images/pics/dush.jpg"></center>'
  855. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  856. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  857. end
  858. end
  859. else
  860. act 'Orgasm':
  861. cla
  862. minut += 15
  863. orgasm += 1
  864. horny = 0
  865. sexpartkno = 1
  866. $boy = $pakter+', a porn actor'
  867. gs 'cum_manage'
  868. gs 'stat'
  869. '<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
  870. 'Finally you feel <<$pakter>> cumming inside of you, which starts your own orgasm. You keep your eyes fixed on his, as he pumps a huge amount of sperm in you. He finally climbs off of you, but you stay on the couch while the cameraman comes forward to film your pussy as it slowly starts to leak the actor''s seed. After a few minutes the director nods his head, and you get up.'
  871. act 'Shower':
  872. cla
  873. *clr
  874. minut += 5
  875. sweat = -3
  876. horny += 1
  877. mop = 1
  878. dynamic $showerdin
  879. '<center><img src="images/pics/dush.jpg"></center>'
  880. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  881. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  882. end
  883. end
  884. end
  885. end
  886. end
  887. end
  888. elseif pfilm = 8:
  889. pfType = 1
  890. cla
  891. *clr
  892. minut += 30
  893. gang += 1
  894. gs 'stat'
  895. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  896. 'Actors <<$pakter>> and <<$pakter2>>, are watching porn on a monitor, getting their cocks ready for you...'
  897. act 'Undress and kneel':
  898. cla
  899. *clr
  900. minut += 10
  901. bj += 2
  902. gs 'stat'
  903. '<center><img src="images/studia/tbj.gif"></center>'
  904. '<<$pakter>> and <<$pakter2>> slap their fully errect cocks against your face.'
  905. act 'Suck them':
  906. cla
  907. *clr
  908. minut += 15
  909. gs 'stat'
  910. '<center><img src="images/studia/tbj2.gif"></center>'
  911. 'You start by sucking both members trying to please them both. Then, using your tounge, you draw circles under <<$pakter>>''s gland, making him moan.'
  912. 'Then you push your lips tightly against <<$pakter2>>''s head, until your mouth is forced open, the look in his eyes tells you he''s ready'
  913. act 'Fuck them':
  914. cla
  915. *clr
  916. minut += 25
  917. horny += 15
  918. sex += 1
  919. anal += 1
  920. vagina += 1
  921. anus += 1
  922. '<center><img src="images/_nuki/porn/threesomeDP<<rand(1,5)>>.gif" width="500"></center>'
  923. if rand(0,1) = 0:
  924. $boy = $pakter+', a porn actor'
  925. sexpartkno = 1
  926. gs 'cum_manage'
  927. $boy = $pakter2+', a porn actor'
  928. sexpartkno = 1
  929. spafinloc = 3
  930. gs 'cum_manage'
  931. '<<$pakter>> lays on the bed and you climb above him, fitting his cock in your pussy, then wait until <<$pakter2>> pushes his member in your ass. He soon starts to fuck you enthusiastically, making you ride <<$pakter>>''s dick. This continues for a while, but soon the director signals the guys that they should cum inside.'
  932. else
  933. $boy = $pakter2+', a porn actor'
  934. sexpartkno = 1
  935. gs 'cum_manage'
  936. $boy = $pakter+', a porn actor'
  937. sexpartkno = 1
  938. spafinloc = 3
  939. gs 'cum_manage'
  940. '<<$pakter2>> lays on the bed and you climb above him, fitting his cock in your pussy, then wait until <<$pakter>> pushes his member in your ass. He soon starts to fuck you enthusiastically, making you ride <<$pakter2>>''s dick. This continues for a while, but soon the director signals the guys that they should cum inside.'
  941. end
  942. 'The guys starts to fuck you even faster as a reply, and pretty soon you feel them twitching inside oy your body.'
  943. ''
  944. if horny < 70 or exhibi < 4:
  945. '<center><img src="images/_nuki/porn/porgasmfake.gif" width="400"></center>'
  946. 'You fake a sreaming orgasm for the film. You keep your eyes fixed on the guy below you as he pumps a huge amount of sperm in you. The guys finally finishing, so you lay down on the bed with your legs apart so the cameraman could take a few closeups of your pussy and ass as thely slowly start to leak the actors'' seed. After a few minutes of this the director nods his head, and you get up.'
  947. else
  948. orgasm += 1
  949. horny = 0
  950. '<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
  951. 'You have a real orgasm while filming. You keep your eyes fixed on the guy below you as he pumps a huge amount of sperm in you. The guys finally finishing, so you lay down on the bed with your legs apart so the cameraman could take a few closeups of your pussy and ass as thely slowly start to leak the actors'' seed. After a few minutes of this the director nods his head, and you get up.'
  952. end
  953. gs 'stat'
  954. act 'Shower':
  955. cla
  956. *clr
  957. minut += 5
  958. sweat = -3
  959. horny += 1
  960. mop = 1
  961. dynamic $showerdin
  962. '<center><img src="images/pics/dush.jpg"></center>'
  963. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  964. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  965. end
  966. end
  967. end
  968. end
  969. elseif pfilm = 9:
  970. pfType = 1
  971. cla
  972. *clr
  973. minut += 30
  974. gang += 1
  975. gs 'stat'
  976. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  977. 'Actors <<$pakter>> and <<$pakter2>>, are watching porn on a monitor, getting their cocks ready for you...'
  978. act 'Undress and kneel':
  979. cla
  980. *clr
  981. minut += 10
  982. bj += 2
  983. gs 'stat'
  984. '<center><img src="images/studia/tbj.gif"></center>'
  985. '<<$pakter>> and <<$pakter2>> slap their fully errect cocks against your face.'
  986. act 'Suck them':
  987. cla
  988. *clr
  989. minut += 15
  990. gs 'stat'
  991. '<center><img src="images/studia/tbj2.gif"></center>'
  992. 'You start by sucking both members trying to please them both. Then, using your tounge, you draw circles under <<$pakter>>''s gland, making him moan.'
  993. 'Then you sucking <<$pakter2>>''s dick while he grabs your hair for leverage and facefuck you. After a while the director gestures for you to get to the next scene, so he releases you, and looking at <<$pakter>> he urges you to push your ass out.'
  994. act 'Fuck them':
  995. cla
  996. *clr
  997. minut += 25
  998. sex += 1
  999. horny += 15
  1000. '<center><img src="images/_nuki/porn/threesomePM<<rand(1,12)>>.gif" width="500"></center>'
  1001. if rand(0,1) = 0:
  1002. $boy = $pakter+', a porn actor'
  1003. sexpartkno = 1
  1004. gs 'cum_manage'
  1005. $boy = $pakter2+', a porn actor'
  1006. sexpartkno = 1
  1007. spafinloc = 12
  1008. gs 'cum_manage'
  1009. 'You get in position before <<$pakter2>> and starts to suck him, while <<$pakter>> starts to fuck your pussy. He soon works on that part enthusiastically, making you swallow <<$pakter2>>''s dick. This continues for a while, but soon the director signals that the scene is good enough, and it is time for the finale.'
  1010. else
  1011. $boy = $pakter2+', a porn actor'
  1012. sexpartkno = 1
  1013. gs 'cum_manage'
  1014. $boy = $pakter+', a porn actor'
  1015. sexpartkno = 1
  1016. spafinloc = 3
  1017. gs 'cum_manage'
  1018. 'You get in position before <<$pakter>> and starts to suck him, while <<$pakter2>> starts to fuck your pussy. He soon works on that part enthusiastically, making you swallow <<$pakter>>''s dick. This continues for a while, but soon the director signals that the scene is good enough, and it is time for the finale.'
  1019. end
  1020. 'The guys immediately starts to fuck you even faster, clearly trying to cum as soon as possible, while still coordinating with each other, and since they are professional, you soon feel them twitching inside oy your body simultaneously, bathing your cunt in seed while your mouth quickly fills with sperm too.'
  1021. ''
  1022. if horny < 70 or exhibi < 4:
  1023. '<center><img src="images/_nuki/porn/porgasmfake.gif" width="400"></center>'
  1024. 'You fake a sreaming orgasm for the film. You keep your eyes fixed on the guy before you as he pumps a huge amount of sperm in your mouth. The guys finally finishing and your movie partners step away from the scene so so the cameraman could take a few closeups of your sperm-full mouth and seed-dripping pussy. After a few seconds you swallow the sperm and get up.'
  1025. else
  1026. orgasm += 1
  1027. horny = 0
  1028. '<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
  1029. 'You have a real orgasm while filming. You keep your eyes fixed on the guy before you as he pumps a huge amount of sperm in your mouth. The guys finally finishing and your movie partners step away from the scene so so the cameraman could take a few closeups of your sperm-full mouth and seed-dripping pussy. After a few seconds you swallow the sperm and get up.'
  1030. end
  1031. gs 'stat'
  1032. act 'Shower':
  1033. cla
  1034. *clr
  1035. minut += 5
  1036. sweat = -3
  1037. horny += 1
  1038. mop = 1
  1039. dynamic $showerdin
  1040. '<center><img src="images/pics/dush.jpg"></center>'
  1041. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  1042. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  1043. end
  1044. end
  1045. end
  1046. end
  1047. elseif pfilm = 10:
  1048. pfType = 1
  1049. cla
  1050. *clr
  1051. minut += 30
  1052. gang += 1
  1053. gs 'stat'
  1054. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  1055. 'Actors <<$pakter>>, <<$pakter2>>, <<$pakter3>> and <<$pakter4>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'
  1056. act 'Warmup':
  1057. cla
  1058. *clr
  1059. minut += 20
  1060. hj += 4
  1061. bj += 4
  1062. horny += 20
  1063. gs 'stat'
  1064. '<center><img src="images/_nuki/porn/warmupgang.gif" width="500"></center>'
  1065. 'The actors gather around you, and you soon suck one guy while giving a handjob for an another one. The two other guys get creative, one of them sucking your tits, while the other licking your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
  1066. act 'Fuck them':
  1067. cla
  1068. *clr
  1069. hj += 4
  1070. bj += 4
  1071. sex += 4
  1072. horny += 20
  1073. minut += 20
  1074. gs 'stat'
  1075. '<center><img src="images/_nuki/porn/gangp<<rand(1,4)>>.gif" width="500"></center>'
  1076. 'The guys starts to fuck you, one after the other, but never cumming. All the while you keep them ready with your hands and mouth.'
  1077. act 'Cream bath':
  1078. cla
  1079. *clr
  1080. minut += 5
  1081. horny += 10
  1082. 'The guys continue to fuck you, but this time with the purpose of cumming as quickly as possible.'
  1083. $boy = $pakter+', a porn actor'
  1084. sexpartkno = 1
  1085. cumprecheck = 1
  1086. gs 'cum_manage'
  1087. if rand(0,5) > 0:
  1088. '<center><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
  1089. '<<$pakter>> suddenly groans, pulling out in the last second coating your pussylips with his sperm.'
  1090. else
  1091. '<center><img src="images/_nuki/porn/cumbathM<<rand(1,2)>>.gif" width="500"><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
  1092. '<<$pakter>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your pussylips.'
  1093. sexpartkno = 1
  1094. gs 'cum_manage'
  1095. end
  1096. spafinloc = 1
  1097. sexpartkno = 1
  1098. gs 'cum_manage'
  1099. 'When he is done, he is replaced by <<$pakter2>>, who also fucks you.'
  1100. $boy = $pakter2+', a porn actor'
  1101. sexpartkno = 1
  1102. cumprecheck = 1
  1103. gs 'cum_manage'
  1104. if rand(0,5) > 0:
  1105. '<center><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
  1106. '<<$pakter2>> suddenly groans, pulling out in the last second coating your breasts with his sperm.'
  1107. else
  1108. '<center><img src="images/_nuki/porn/cumbathM<<rand(1,2)>>.gif" width="500"><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
  1109. '<<$pakter2>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your breasts.'
  1110. sexpartkno = 1
  1111. gs 'cum_manage'
  1112. end
  1113. spafinloc = 15
  1114. sexpartkno = 1
  1115. gs 'cum_manage'
  1116. 'When he is done, he is replaced by <<$pakter3>>, who also fucks you.'
  1117. $boy = $pakter3+', a porn actor'
  1118. sexpartkno = 1
  1119. cumprecheck = 1
  1120. gs 'cum_manage'
  1121. if rand(0,5) > 0:
  1122. '<center><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
  1123. '<<$pakter3>> suddenly groans, pulling out in the last second coating your face and hair with his sperm.'
  1124. else
  1125. '<center><img src="images/_nuki/porn/cumbathM<<rand(1,2)>>.gif" width="500"><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
  1126. '<<$pakter3>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your face and hair with his sperm.'
  1127. sexpartkno = 1
  1128. gs 'cum_manage'
  1129. end
  1130. spafinloc = 11
  1131. sexpartkno = 1
  1132. gs 'cum_manage'
  1133. spafinloc = 11
  1134. sexpartkno = 1
  1135. gs 'cum_manage'
  1136. 'When he is done, he is replaced by <<$pakter4>>, who also fucks you.'
  1137. $boy = $pakter4+', a porn actor'
  1138. sexpartkno = 1
  1139. cumprecheck = 1
  1140. gs 'cum_manage'
  1141. if rand(0,5) > 0:
  1142. '<center><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
  1143. '<<$pakter4>> suddenly groans, pulling out in the last second coating your belly with his sperm.'
  1144. else
  1145. '<center><img src="images/_nuki/porn/cumbathM<<rand(1,2)>>.gif" width="500"><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
  1146. '<<$pakter4>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your belly with his sperm.'
  1147. sexpartkno = 1
  1148. gs 'cum_manage'
  1149. end
  1150. sexpartkno = 1
  1151. spafinloc = 14
  1152. gs 'cum_manage'
  1153. gs 'stat'
  1154. act 'Shower':
  1155. cla
  1156. *clr
  1157. minut += 5
  1158. sweat = -3
  1159. horny += 1
  1160. mop = 1
  1161. dynamic $showerdin
  1162. '<center><img src="images/pics/dush.jpg"></center>'
  1163. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  1164. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  1165. end
  1166. end
  1167. end
  1168. end
  1169. elseif pfilm = 11:
  1170. pfType = 1
  1171. cla
  1172. *clr
  1173. minut += 30
  1174. gang += 1
  1175. gs 'stat'
  1176. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  1177. 'Actors <<$pakter>>, <<$pakter2>>, <<$pakter3>> and <<$pakter4>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'
  1178. act 'Warmup':
  1179. cla
  1180. *clr
  1181. minut += 20
  1182. hj += 4
  1183. bj += 4
  1184. horny += 20
  1185. gs 'stat'
  1186. '<center><img src="images/_nuki/porn/warmupgang.gif" width="500"></center>'
  1187. 'The actors gather around you, and you soon suck one guy while giving a handjob for an another one. The two other guys get creative, one of them sucking your tits, while the other licking your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
  1188. act 'Fuck them':
  1189. cla
  1190. *clr
  1191. hj += 4
  1192. bj += 4
  1193. sex += 4
  1194. horny += 20
  1195. minut += 20
  1196. $boy = $pakter+', a porn actor'
  1197. sexpartkno = 1
  1198. cumprecheck = 1
  1199. gs 'cum_manage'
  1200. $boy = $pakter2+', a porn actor'
  1201. sexpartkno = 1
  1202. cumprecheck = 1
  1203. gs 'cum_manage'
  1204. $boy = $pakter3+', a porn actor'
  1205. sexpartkno = 1
  1206. cumprecheck = 1
  1207. gs 'cum_manage'
  1208. $boy = $pakter4+', a porn actor'
  1209. sexpartkno = 1
  1210. cumprecheck = 1
  1211. gs 'cum_manage'
  1212. gs 'stat'
  1213. '<center><img src="images/_nuki/porn/threesomePM<<rand(1,12)>>.gif" width="500"></center>'
  1214. 'The guys starts to fuck you, one after the other, but never cumming. All the while you keep them ready with your hands and mouth.'
  1215. act 'Creampie':
  1216. cla
  1217. *clr
  1218. minut += 5
  1219. cumpussy += 4
  1220. '<center><img src="images/_nuki/porn/porncp<<rand(1,4)>>.gif" width="500"></center>'
  1221. $boy = $pakter+', a porn actor'
  1222. sexpartkno = 1
  1223. gs 'cum_manage'
  1224. $boy = $pakter2+', a porn actor'
  1225. sexpartkno = 1
  1226. gs 'cum_manage'
  1227. $boy = $pakter3+', a porn actor'
  1228. sexpartkno = 1
  1229. gs 'cum_manage'
  1230. $boy = $pakter4+', a porn actor'
  1231. sexpartkno = 1
  1232. gs 'cum_manage'
  1233. if horny < 70 or exhibi < 4:
  1234. 'You pull your legs up to your chest and smile at the guys, inviting them to come and cum in you, and in moments one of them steps up to you, pushing his dick in your pussy and groaning as he pumps his considerable amount of sperm in your vagina. As soon as he steps aside, an another guy replaces him, and after a few pumps you get your second helping of seed. Soon the third and fourth guys also cum in you, and you carefully open your pussylips with your fingers for the camera to show your sperm-full vagina.'
  1235. '<center><img src="images/_nuki/porn/pornwalk1.gif" height="200"><img src="images/_nuki/porn/pornwalk2.gif" height="200"><img src="images/_nuki/porn/pornwalk3.gif" height="200"></center>'
  1236. 'The scene ends with you pulling up your panties and skirt, and step out the door with the four guys'' load still inside you.'
  1237. horny += 15
  1238. else
  1239. 'You pull your legs up to your chest and smile at the guys, inviting them to come and cum in you, and in moments one of them steps up to you, pushing his dick in your pussy and groaning as he pumps his considerable amount of sperm in your vagina.'
  1240. '<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
  1241. 'Since you are already on edge, this pushes you over and you came around his dick, milking it even more. The director seems extremely pleased with this, as the cameraman captured it all from about a meter distance. As soon as he steps aside, an another guy replaces him, and after a few pumps you get your second helping of seed, while you are still in the afterthroes of your first orgasm. Soon the third and fourth guys also cum in you, and you carefully open your pussylips with your fingers for the camera to show your sperm-full vagina.'
  1242. '<center><img src="images/_nuki/porn/pornwalk1.gif" height="200"><img src="images/_nuki/porn/pornwalk2.gif" height="200"><img src="images/_nuki/porn/pornwalk3.gif" height="200"></center>'
  1243. 'The scene ends with you pulling up your panties and skirt, and step out the door with the four guys'' load still inside you.'
  1244. horny = 0
  1245. orgasm += 1
  1246. end
  1247. gs 'stat'
  1248. act 'Shower':
  1249. cla
  1250. *clr
  1251. minut += 5
  1252. sweat = -3
  1253. horny += 1
  1254. mop = 1
  1255. dynamic $showerdin
  1256. '<center><img src="images/pics/dush.jpg"></center>'
  1257. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  1258. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  1259. end
  1260. end
  1261. end
  1262. end
  1263. elseif pfilm = 12:
  1264. pfType = 0
  1265. cla
  1266. *clr
  1267. minut += 30
  1268. gang += 1
  1269. gs 'stat'
  1270. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  1271. 'Actors <<$pakter>>, <<$pakter2>>, <<$pakter3>> and <<$pakter4>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'
  1272. act 'Warmup':
  1273. cla
  1274. *clr
  1275. minut += 20
  1276. hj += 4
  1277. bj += 4
  1278. horny += 20
  1279. gs 'stat'
  1280. '<center><img src="images/_nuki/porn/warmupgang.gif" width="500"></center>'
  1281. 'The actors gather around you, and you soon suck one guy while giving a handjob for an another one. The two other guys get creative, one of them sucking your tits, while the other licking your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
  1282. act 'Fuck them':
  1283. cla
  1284. *clr
  1285. hj += 4
  1286. bj += 4
  1287. anal += 4
  1288. horny += 20
  1289. minut += 20
  1290. gs 'stat'
  1291. '<center><img src="images/_nuki/porn/threesomePM<<rand(0,5)>>.gif" width="500"></center>'
  1292. 'The guys starts to fuck your ass, one after the other, but never cumming. All the while you keep them ready with your hands and mouth.'
  1293. act 'Ass creampie':
  1294. cla
  1295. *clr
  1296. minut += 5
  1297. $boy = $pakter+', a porn actor'
  1298. sexpartkno = 1
  1299. spafinloc = 3
  1300. gs 'cum_manage'
  1301. $boy = $pakter2+', a porn actor'
  1302. sexpartkno = 1
  1303. spafinloc = 3
  1304. gs 'cum_manage'
  1305. $boy = $pakter3+', a porn actor'
  1306. sexpartkno = 1
  1307. spafinloc = 3
  1308. gs 'cum_manage'
  1309. $boy = $pakter4+', a porn actor'
  1310. sexpartkno = 1
  1311. spafinloc = 3
  1312. gs 'cum_manage'
  1313. '<center><img src="images/_nuki/porn/porncp<<rand(1,4)>>.gif" width="500"></center>'
  1314. if horny < 70 or exhibi < 4:
  1315. 'You lower your head on the pillows while pushing your ass in the air, giving the guys easy access. One of them immediately starts to fuck your ass, then stops, and pushing his dick in deep he pumps his considerable amount of sperm in your colon. As soon as he steps aside, another guy replaces him, then the third and fourth guys also cum in your ass.'
  1316. '<center><img src="images/_nuki/porn/pornwalk1.gif" height="200"><img src="images/_nuki/porn/pornwalk2.gif" height="200"><img src="images/_nuki/porn/pornwalk3.gif" height="200"></center>'
  1317. 'The scene ends with you pulling up your panties and skirt, and step out the door with the four guys'' load still inside you.'
  1318. horny += 15
  1319. else
  1320. 'You lower your head on the pillows while pushing your ass in the air, giving the guys easy access. One of them immediately starts to fuck your ass, then stops, and pushing his dick in deep he pumps his considerable amount of sperm in your colon.'
  1321. '<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
  1322. 'Since you are already on edge, this pushes you over and you came around his dick, milking it even more. The director seems extremely pleased with this, as the cameraman captured it all from about a meter distance. As soon as he steps aside, another guy replaces him, then the third and fourth guys also cum in your ass.'
  1323. '<center><img src="images/_nuki/porn/pornwalk1.gif" height="200"><img src="images/_nuki/porn/pornwalk2.gif" height="200"><img src="images/_nuki/porn/pornwalk3.gif" height="200"></center>'
  1324. 'The scene ends with you pulling up your panties and skirt, and step out the door with the four guys'' load still inside you.'
  1325. horny = 0
  1326. orgasm += 1
  1327. end
  1328. gs 'stat'
  1329. act 'Shower':
  1330. cla
  1331. *clr
  1332. minut += 5
  1333. sweat = -3
  1334. horny += 1
  1335. mop = 1
  1336. dynamic $showerdin
  1337. '<center><img src="images/pics/dush.jpg"></center>'
  1338. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  1339. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  1340. end
  1341. end
  1342. end
  1343. end
  1344. elseif pfilm = 13:
  1345. pfType = 1
  1346. cla
  1347. *clr
  1348. minut += 30
  1349. gang += 1
  1350. gs 'stat'
  1351. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  1352. 'Actors <<$pakter>>, <<$pakter2>>, <<$pakter3>> and <<$pakter4>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'
  1353. act 'Kneel in front of them':
  1354. cla
  1355. *clr
  1356. minut += 20
  1357. bj += 2
  1358. hj += 2
  1359. horny += 10
  1360. gs 'stat'
  1361. '<center><img src="images/_nuki/porn/warmupgang.gif" width="500"></center>'
  1362. 'You kneel in front of the guys and start to suck <<$paktor>> and <<$paktor2>> in turns, while giving a handjob to <<$paktor3>> and <<$paktor4>>. Pretty soon they are all hard and ready, and the director nods to you.'
  1363. act 'Let them fuck you':
  1364. cla
  1365. *clr
  1366. sex += 2
  1367. horny += 30
  1368. minut += 30
  1369. $boy = $pakter+', a porn actor'
  1370. sexpartkno = 1
  1371. gs 'cum_manage'
  1372. $boy = $pakter2+', a porn actor'
  1373. sexpartkno = 1
  1374. gs 'cum_manage'
  1375. '<center><img src="images/_nuki/porn/doublevag<<rand(1,4)>>.gif" width="500"></center>'
  1376. if horny < 70 or exhibi < 4:
  1377. '<<$paktor>> lies down on the floor, and you sit in his dick, spearing yourself on it in the process. <<$paktor2>> steps behind you and pushes his hard dick inside of your already occupied vagina, and the two guys start to fuck you in tandem. When the director signals, the two guys starts to fuck you more forcefully, and thanks to their timing, they came inside of you at the same time.'
  1378. '<center><img src="images/_nuki/porn/porgasmfake.gif" width="400"></center>'
  1379. 'You fake an orgasm for the camera while you wait for them to empty their sack in you.'
  1380. else
  1381. orgasm += 1
  1382. horny = 0
  1383. '<<$paktor>> lies down on the floor, and you sit in his dick, spearing yourself on it in the process. <<$paktor2>> steps behind you and pushes his hard dick inside of your already occupied vagina, and the two guys start to fuck you in tandem. When the director signals, the two guys starts to fuck you more forcefully, and thanks to their timing, they came inside of you at the same time.'
  1384. '<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
  1385. 'You also came around them, crying out in pleasure as you contract around them in your vagina while they empty their sack in you.'
  1386. end
  1387. gs 'stat'
  1388. act 'They fuck your ass':
  1389. cla
  1390. *clr
  1391. anal += 2
  1392. horny += 30
  1393. minut += 30
  1394. $boy = $pakter3+', a porn actor'
  1395. sexpartkno = 1
  1396. spafinloc = 3
  1397. gs 'cum_manage'
  1398. $boy = $pakter4+', a porn actor'
  1399. sexpartkno = 1
  1400. spafinloc = 3
  1401. gs 'cum_manage'
  1402. gs 'stat'
  1403. '<center><img src="images/_nuki/porn/doublean<<rand(1,4)>>.gif" width="500"></center>'
  1404. if horny < 70 or exhibi < 4:
  1405. 'While still dripping the sperm of the previous two guys from your pussy, <<$paktor3>> and <<$paktor4>> switches places with <<$paktor>> and <<$paktor2>>, but they just dip their dick in your slick pussy, then pushes their dick in your anus. At first the place is pretty tight, but soon start to build up a good rithm. They also cum in you, this time in your ass.'
  1406. '<center><img src="images/_nuki/porn/porgasmfake.gif" width="400"></center>'
  1407. 'You fake an another orgasm for the camera while you wait for them to finish in your bowel.'
  1408. else
  1409. orgasm += 1
  1410. horny = 0
  1411. 'While still dripping the sperm of the previous two guys from your pussy, <<$paktor3>> and <<$paktor4>> switches places with <<$paktor>> and <<$paktor2>>, but they just dip their dick in your slick pussy, then pushes their dick in your anus. At first the place is pretty tight, but soon start to build up a good rithm. They also cum in you, this time in your ass.'
  1412. '<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
  1413. 'You came around them, visibly orgasming as you contract around them, while they finish in your bowel.'
  1414. end
  1415. act 'Shower':
  1416. cla
  1417. *clr
  1418. minut += 5
  1419. sweat = -3
  1420. horny += 1
  1421. mop = 1
  1422. dynamic $showerdin
  1423. '<center><img src="images/pics/dush.jpg"></center>'
  1424. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  1425. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  1426. end
  1427. end
  1428. end
  1429. end
  1430. elseif pfilm = 14:
  1431. pfType = 1
  1432. cla
  1433. *clr
  1434. minut += 60
  1435. gang += 1
  1436. guy += 50
  1437. gs 'stat'
  1438. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  1439. 'On the scene there are fifty guys standing around, and you believe this many actor would cost a fortune. The only luck the studio have is that these guys are all your fans, so they came for just the chance to fuck you. They are all nervously talking, and watching your previous works on monitors all around the huge hall.'
  1440. '<center><img src="images/_nuki/porn/touching.gif" width="500"></center>'
  1441. 'You lie down on the stage, and let them touch you to get them into the mood.'
  1442. act 'Undress and lie on the bed':
  1443. cla
  1444. *clr
  1445. bj50 = rand(0,10)
  1446. hj50 = rand(0,10)
  1447. lip50 = rand(0,10)
  1448. anal50 = rand(0,10)
  1449. bukk50 = rand(0,10)
  1450. sex50 = 50 - bj50 - hj50 - lip50 - anal50 - bukk50
  1451. sex += 50
  1452. sexpartkno = 0
  1453. pfcounter = 0
  1454. :gbblow
  1455. if bj50 > 0:
  1456. pfcounter += 1
  1457. $boy = 'porn fan #<<pfcounter>>'
  1458. cumprecheck = 1
  1459. gs 'cum_manage'
  1460. spafinloc = 12
  1461. gs 'cum_manage'
  1462. bj50 -= 1
  1463. bj += 1
  1464. swallow += 1
  1465. end
  1466. if bj50 > 0: jump 'gbblow'
  1467. :gbhand
  1468. if hj50 > 0:
  1469. pfcounter += 1
  1470. $boy = 'porn fan #<<pfcounter>>'
  1471. cumprecheck = 1
  1472. gs 'cum_manage'
  1473. spafinloc = 13
  1474. gs 'cum_manage'
  1475. hj50 -= 1
  1476. hj += 1
  1477. end
  1478. if hj50 > 0: jump 'gbhand'
  1479. :gbface
  1480. if lip50 > 0:
  1481. pfcounter += 1
  1482. $boy = 'porn fan #<<pfcounter>>'
  1483. cumprecheck = 1
  1484. gs 'cum_manage'
  1485. if rand(0,1)=0:
  1486. spafinloc = 11
  1487. else
  1488. spafinloc = 16
  1489. end
  1490. gs 'cum_manage'
  1491. lip50 -= 1
  1492. facial += 1
  1493. end
  1494. if lip50 > 0: jump 'gbface'
  1495. :gbass
  1496. if anal50 > 0:
  1497. pfcounter += 1
  1498. $boy = 'porn fan #<<pfcounter>>'
  1499. spafinloc = 3
  1500. gs 'cum_manage'
  1501. anal50 -= 1
  1502. anal += 1
  1503. end
  1504. if anal50 > 0: jump 'gbass'
  1505. :bukk50
  1506. if bukk50 > 0:
  1507. pfcounter += 1
  1508. $boy = 'porn fan #<<pfcounter>>'
  1509. cumprecheck = 1
  1510. gs 'cum_manage'
  1511. bukkloc = rand(0,6)
  1512. if bukkloc = 0:
  1513. spafinloc = 1
  1514. elseif bukkloc = 1:
  1515. spafinloc = 4
  1516. elseif bukkloc = 2:
  1517. spafinloc = 8
  1518. elseif bukkloc = 3:
  1519. spafinloc = 9
  1520. elseif bukkloc = 4:
  1521. spafinloc = 10
  1522. elseif bukkloc = 5:
  1523. spafinloc = 14
  1524. else
  1525. spafinloc = 15
  1526. end
  1527. gs 'cum_manage'
  1528. bukk50 -= 1
  1529. end
  1530. if bukk50 > 0: jump 'gbface'
  1531. :gbsex
  1532. if sex50 > 0:
  1533. pfcounter += 1
  1534. $boy = 'porn fan #<<pfcounter>>'
  1535. gs 'cum_manage'
  1536. sex50 -= 1
  1537. end
  1538. if sex50 > 0: jump 'gbsex'
  1539. minut += 360
  1540. gangOrg = 0
  1541. if horny < 70 or exhibi < 4:gangOrg = rand(1,5) & orgazm += gangOrg & horny = rand(0,50)
  1542. if gangOrg = 1:
  1543. $gangorg = ' and you still managed to have an orgasm.'
  1544. elseif gangOrg > 0:
  1545. $gangorg = ' and you still managed to orgasm <<gangOrg>> times.'
  1546. else
  1547. $gangorg = '.'
  1548. end
  1549. gs 'stat'
  1550. '<center><img src="images/_nuki/porn/fuckfifty<<rand(0,12)>>.gif" width="500"></center>'
  1551. 'Your fans gather around you, and starts to fuck you with great entusiasm, but little technique. Most of them cum almost immediately when they are in your body, but since they are many, it doesn''t hurt the shoot, even heightens the quality<<$gangorg>> It still takes about six hours of constant fucking to finish with all of the guys.'
  1552. act 'Shower':
  1553. cla
  1554. *clr
  1555. minut += 5
  1556. sweat = -3
  1557. horny += 1
  1558. mop = 1
  1559. dynamic $showerdin
  1560. '<center><img src="images/pics/dush.jpg"></center>'
  1561. 'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'
  1562. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  1563. end
  1564. end
  1565. end
  1566. end
  1567. end
  1568. end
  1569. end
  1570. end
  1571. exit
  1572. end
  1573. if pfilm > 0 and hour > 12:
  1574. pfilmday = daystart
  1575. '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!'
  1576. 'The whole shoot was a write off, just because of you, slut!'
  1577. 'I''ll give you one chance, come tomorrow and work for free, or we''re done!'
  1578. act 'Fuck him. Who needs this idiot':
  1579. pfilmNO = 1
  1580. pfilm = 0
  1581. gt 'pornstudio', 'start'
  1582. end
  1583. act 'Fine, I will do it':
  1584. pfilmNOPAY = 1
  1585. gt 'pornstudio', 'start'
  1586. end
  1587. exit
  1588. end
  1589. if firstkasting = 0:
  1590. '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?'
  1591. act 'Yes':
  1592. cla
  1593. minut += 5
  1594. gs 'stat'
  1595. 'You confirm your desire to act in a porn movie. The boss nods, "All right. First we''ll need to do a casting."'
  1596. '"Take off your clothes and let me see your body."'
  1597. act 'Make excuses and leave':gt 'pornstudio', 'start'
  1598. 'You confirm your desire to act in a porn movie. The boss nods, "Let`s see your papers, are you 18 or older?"'
  1599. if age >= 18:
  1600. '"Yes I am." You answer, handing him your passport.'
  1601. '"All right. First we''ll need to do a casting. Take off your clothes and let me see your body."'
  1602. elseif fakepassport = 1:
  1603. '"Yes I am." You answer, handing him your fake passport.'
  1604. 'You see him frown as he checks your passport with suspicion.'
  1605. '"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."'
  1606. else
  1607. '"Nearly..." You plead.'
  1608. '"Right. Then here`s my card, be sure to come back when you are old enough.'
  1609. fakepassport = 2
  1610. exit
  1611. end
  1612. act 'Undress':
  1613. cla
  1614. minut += 5
  1615. gs 'stat'
  1616. '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."'
  1617. act 'Grab your clothes and run out':gt 'pornstudio', 'start'
  1618. act 'Lie down on the sofa and spread your legs':
  1619. cla
  1620. minut += 5
  1621. gs 'stat'
  1622. '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.'
  1623. act 'Kneel':
  1624. cla
  1625. minut += 5
  1626. gs 'stat'
  1627. '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."'
  1628. act 'Open your mouth and stick out your tongue':
  1629. cla
  1630. minut += 5
  1631. gs 'stat'
  1632. 'You have open your mouth and stuck out your tongue. The boss says, "Not bad, now suck my thumb."'
  1633. act 'Suck his thumb':
  1634. cla
  1635. minut += 5
  1636. gs 'stat'
  1637. '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.'
  1638. '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.'
  1639. '"You can call me Peter. You are going to need a pornstar name.'
  1640. act 'Choose your pornstar name':
  1641. cla
  1642. firstkasting = 1
  1643. $pfname = input ("What will be your pornstar name?")
  1644. if $pfname <= 0:$pfname = '<<$name>> BimboStar'
  1645. '<<$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.'
  1646. 'You''re all registered, we only shoot about one film a month, remember to take care of your health.'
  1647. ''
  1648. 'Come see me when you''re ready to work.'
  1649. act '.....':gt 'pornstudio', 'start'
  1650. end
  1651. end
  1652. end
  1653. end
  1654. end
  1655. end
  1656. end
  1657. elseif film = 0 and pfilm = 0:
  1658. 'So, you''re the new girl, and we as luck would have it, we are looking for a brand new girl. It''s called ''Girls jerk guys 36''.'
  1659. 'Guess what? You have to jerk off a guy, in this one he will finish on you tits. It pays 2,000 <b>₽</b>.'
  1660. act 'Agree':
  1661. cla
  1662. pfilm = 1
  1663. pfilmday = daystart
  1664. 'Cool, we shoot tomorrow. Get here between 10 and 11, do not be late.'
  1665. act 'Leave':gt 'pornstudio', 'start'
  1666. end
  1667. act 'I don''t think I''m ready':gt 'pornstudio', 'start'
  1668. elseif film > 0:
  1669. if daystart > pffilmday and pfilm = 0:
  1670. 'Come on <<$pfname>>. Let''s see what I can offer for you.'
  1671. if film < 5:
  1672. fmulti = 100
  1673. elseif film < 10:
  1674. fmulti = 120
  1675. elseif film < 15:
  1676. fmulti = 140
  1677. elseif film < 25:
  1678. fmulti = 160
  1679. elseif film < 50:
  1680. fmulti = 180
  1681. elseif film >= 50:
  1682. fmulti = 200
  1683. end
  1684. if rand(0,2) ! 0:
  1685. pf = 1
  1686. dynamic $pornfilmdesc
  1687. act 'Jerk a guy, until he cums on your chest (<<pcash * fmulti>>₽)':
  1688. cla
  1689. pfilm = 1
  1690. pfilmday = daystart
  1691. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1692. act 'Leave':gt 'pornstudio', 'start'
  1693. end
  1694. end
  1695. if rand(0,2) ! 0:
  1696. pf = 2
  1697. dynamic $pornfilmdesc
  1698. act 'Blowjob, finish with a facial (<<pcash * fmulti>>₽)':
  1699. cla
  1700. pfilm = 2
  1701. pfilmday = daystart
  1702. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1703. act 'Leave':gt 'pornstudio', 'start'
  1704. end
  1705. end
  1706. if rand(0,2) ! 0:
  1707. pf = 3
  1708. dynamic $pornfilmdesc
  1709. act 'Classic, first blowjob, then sex, finish with a facial (<<pcash * fmulti>>₽)':
  1710. cla
  1711. pfilm = 3
  1712. pfilmday = daystart
  1713. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1714. act 'Leave':gt 'pornstudio', 'start'
  1715. end
  1716. end
  1717. if rand(0,2) ! 0:
  1718. pf = 4
  1719. dynamic $pornfilmdesc
  1720. act 'Classic with anal, blowjob, sex, anal and facial finish (<<pcash * fmulti>>₽)':
  1721. cla
  1722. pfilm = 4
  1723. pfilmday = daystart
  1724. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1725. act 'Leave':gt 'pornstudio', 'start'
  1726. end
  1727. end
  1728. if rand(0,2) ! 0:
  1729. pf = 5
  1730. dynamic $pornfilmdesc
  1731. act 'Threesome, no dp, finish in ass and facial (<<pcash * fmulti>>₽)':
  1732. cla
  1733. pfilm = 5
  1734. pfilmday = daystart
  1735. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1736. act 'Leave':gt 'pornstudio', 'start'
  1737. end
  1738. end
  1739. if rand(0,2) ! 0:
  1740. pf = 6
  1741. dynamic $pornfilmdesc
  1742. act 'Threesome with dp, double facial (<<pcash * fmulti>>₽)':
  1743. cla
  1744. pfilm = 6
  1745. pfilmday = daystart
  1746. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1747. act 'Leave':gt 'pornstudio', 'start'
  1748. end
  1749. end
  1750. if rand(0,2) ! 0:
  1751. pf = 7
  1752. dynamic $pornfilmdesc
  1753. act 'A simple sex scene, with blowjob and creampie (<<pcash * fmulti>>₽)':
  1754. cla
  1755. pfilm = 7
  1756. pfilmday = daystart
  1757. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1758. act 'Leave':gt 'pornstudio', 'start'
  1759. end
  1760. end
  1761. if rand(0,2) ! 0:
  1762. pf = 8
  1763. dynamic $pornfilmdesc
  1764. act 'Threesome with dp, creampie in ass and pussy (<<pcash * fmulti>>₽)':
  1765. cla
  1766. pfilm = 8
  1767. pfilmday = daystart
  1768. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1769. act 'Leave':gt 'pornstudio', 'start'
  1770. end
  1771. end
  1772. if rand(0,2) ! 0:
  1773. pf = 9
  1774. dynamic $pornfilmdesc
  1775. act 'Threesome without anal sex, pussy-mouth fuck, with creampie and swallowing. (<<pcash * fmulti>>₽)':
  1776. cla
  1777. pfilm = 9
  1778. pfilmday = daystart
  1779. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1780. act 'Leave':gt 'pornstudio', 'start'
  1781. end
  1782. end
  1783. if rand(0,2) ! 0:
  1784. pf = 10
  1785. dynamic $pornfilmdesc
  1786. act 'Group sex with four guys, cumming on pussylips (<<pcash * fmulti>>₽)':
  1787. cla
  1788. pfilm = 10
  1789. pfilmday = daystart
  1790. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1791. act 'Leave':gt 'pornstudio', 'start'
  1792. end
  1793. end
  1794. if rand(0,2) ! 0:
  1795. pf = 11
  1796. dynamic $pornfilmdesc
  1797. act 'Group sex with four guys, cum inside pussy (<<pcash * fmulti>>₽)':
  1798. cla
  1799. pfilm = 11
  1800. pfilmday = daystart
  1801. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1802. act 'Leave':gt 'pornstudio', 'start'
  1803. end
  1804. end
  1805. if rand(0,2) ! 0:
  1806. pf = 12
  1807. dynamic $pornfilmdesc
  1808. act 'Group sex with four guys, cum inside ass (<<pcash * fmulti>>₽)':
  1809. cla
  1810. pfilm = 12
  1811. pfilmday = daystart
  1812. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1813. act 'Leave':gt 'pornstudio', 'start'
  1814. end
  1815. end
  1816. if rand(0,2) ! 0:
  1817. pf = 13
  1818. dynamic $pornfilmdesc
  1819. act 'Group sex with four guys, double dp, cum inside ass and pussy. (<<pcash * fmulti>>₽)':
  1820. cla
  1821. pfilm = 13
  1822. pfilmday = daystart
  1823. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1824. act 'Leave':gt 'pornstudio', 'start'
  1825. end
  1826. end
  1827. if film > 14 and rand(0,2) ! 0:
  1828. pf = 14
  1829. dynamic $pornfilmdesc
  1830. act 'A classic gangbang, with fifty guys (<<pcash * fmulti>>₽)':
  1831. cla
  1832. pfilm = 14
  1833. pfilmday = daystart
  1834. 'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'
  1835. act 'Leave':gt 'pornstudio', 'start'
  1836. end
  1837. end
  1838. act 'Leave and come back another day':
  1839. pffilmday = daystart + 1
  1840. gt 'pornstudio', 'start'
  1841. end
  1842. else
  1843. if pffilmday - daystart > 0:
  1844. 'Sorry <<$pfname>>, there is no work for you now. Come back in <<pffilmday-daystart>> days.'
  1845. elseif pffilmday - daystart = 0:
  1846. 'Sorry <<$pfname>>, there is no work for you now. Come back tomorrow.'
  1847. end
  1848. 'Peter is on the phone, he covers the receiver, "I''m busy right now, come back later."'
  1849. act 'Leave':gt 'pornstudio', 'start'
  1850. end
  1851. end
  1852. act 'Leave':gt 'pornstudio', 'start'
  1853. end
  1854. if $ARGS[0] = 'postvideo':
  1855. cls
  1856. minut += 30
  1857. pf = pfilm
  1858. dynamic $pornfilmdesc
  1859. if film < 5:
  1860. fmulti = 100
  1861. elseif film < 10:
  1862. fmulti = 120
  1863. elseif film < 15:
  1864. fmulti = 140
  1865. elseif film < 25:
  1866. fmulti = 160
  1867. elseif film < 50:
  1868. fmulti = 180
  1869. elseif film >= 50:
  1870. fmulti = 200
  1871. end
  1872. if pfilmNOPAY = 0:
  1873. pfcash = pcash * fmulti
  1874. money += pfcash
  1875. 'Peter counts <<pfcash>> <b>₽</b> out for your film and wishes good luck.'
  1876. else
  1877. pfilmNOPAY = 0
  1878. pfcash = 0
  1879. 'You have fulfilled your obligation and the made the film for free.'
  1880. end
  1881. film += 1
  1882. pornfilmYear[film] = year
  1883. pornfilmMonth[film] = month
  1884. pornfilmDay[film] = day
  1885. pornfilmType[film] = pf
  1886. pornfilmCash[film] = pfcash
  1887. pornfilmActAge[film] = age
  1888. pornfilmAppAge[film] = vidage
  1889. if pfType = 1 and tabletki <= 0 and mesec <= 0 and knowpreg = 0: pornDanger[film] = 1
  1890. if pfactor = 1:
  1891. $pornfilmActor[film] = $pakter+' and '+$pfname
  1892. elseif pfactor = 2:
  1893. $pornfilmActor[film] = $pakter+', '+$pakter2+' and '+$pfname
  1894. elseif pfactor = 4:
  1895. $pornfilmActor[film] = $pakter+', '+$pakter2+', '+$pakter3+', '+$pakter4+' and '+$pfname
  1896. elseif pfactor = 50:
  1897. $pornfilmActor[film] = 'Fifty fans of <<$pfname>>, and of course <<$pfname>> herself.'
  1898. end
  1899. pfilm = 0
  1900. pfcash = 0
  1901. if film < 10:
  1902. filmkoef = 10
  1903. elseif film < 25:
  1904. filmkoef = 5
  1905. else
  1906. filmkoef = 0
  1907. end
  1908. pffilmday = daystart + (rand (10,20) + filmkoef)
  1909. pfilmday = 0
  1910. gs 'stat'
  1911. 'I think we will have a job for you in no less than <<pffilmday-daystart>> day(s).'
  1912. act 'Leave':gt 'pornstudio', 'start'
  1913. end
  1914. if $ARGS[0] = '1':
  1915. $metka = $ARGS[0]
  1916. $loc = $CURLOC
  1917. minut = minut + 5
  1918. clr
  1919. gs'stat'
  1920. '<center><img src="images/studia/Pierre_1.jpg"></center>'
  1921. 'You`ve come to the studio, eyes looking for someone-anything, Who can come up with a question.'
  1922. 'To you I approached a young man, introduced by Peter, you are greeted and met.'
  1923. act 'To state the purpose of your visit':
  1924. cla
  1925. *clr
  1926. minut = minut+60
  1927. '<center><img src="images/studia/Pierre_2.jpg"></center>'
  1928. '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.'
  1929. 'I`ll tell you, here and how, but under one condition - you have to undress.'
  1930. act 'Undress':
  1931. cla
  1932. *clr
  1933. '<center><img src="images/studia/casting_3.jpg"></center>'
  1934. 'First held casting actresses - as I have said, if you are terrible - You can not hope, comes only when you have a beautiful appearance.'
  1935. act '...':
  1936. cla
  1937. *clr
  1938. '<center><img src="images/studia/model_0.jpg"></center>'
  1939. 'Then the girl chosen for the lead role.'
  1940. 'Here you have to be the most beautiful.'
  1941. act '...':
  1942. cla
  1943. *clr
  1944. '<center><img src="images/studia/Film_0.jpg"></center>'
  1945. 'Well, then she shot - interesting and exciting processes'
  1946. 'And the output we obtain...'
  1947. act '...':
  1948. cla
  1949. *clr
  1950. '<center><img src="images/studia/dvd-disс.jpg"></center>'
  1951. 'So on what I make money.'
  1952. act 'All clear, and how and where it is all sold? Can, I want to see for yourself...':
  1953. cla
  1954. *clr
  1955. '<center><img src="images/studia/Pierre_2.jpg"></center>'
  1956. '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.'
  1957. act 'And what-problems with the law?':
  1958. cla
  1959. *clr
  1960. '<center><img src="images/studia/ment_0.jpg"></center>'
  1961. '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.'
  1962. act 'Well, sort of understood everything':
  1963. cla
  1964. *clr
  1965. pornstudio = 3
  1966. '<center><img src="images/studia/Pierre_2.jpg"></center>'
  1967. 'Good for, girl, walk and not take away from me more time'
  1968. gt'pornstudio','start'
  1969. end
  1970. end
  1971. end
  1972. end
  1973. end
  1974. end
  1975. end
  1976. end
  1977. end
  1978. if $ARGS[0] = '2':
  1979. $metka = $ARGS[0]
  1980. $loc = $CURLOC
  1981. clr
  1982. ! WD: Fix Uninitialised ~ 'carrf' to 'carrar'
  1983. carrar = RAND(40, 100)
  1984. gs 'stat'
  1985. '<center><img src="images/studia/casting_<<rand(1,6)>>.jpg"></center>'
  1986. 'You spent eight hours possing in a variety of sexy underwears, for the casting director.'
  1987. minut = minut+120
  1988. gs 'stat'
  1989. minut = minut+120
  1990. gs 'stat'
  1991. minut = minut+120
  1992. gs 'stat'
  1993. minut = minut+120
  1994. gs 'stat'
  1995. if vnesh < carrar:
  1996. 'You don''t have what it takes, sorry'
  1997. elseif vnesh >= carrar:
  1998. actr = 1
  1999. 'You get the Role'
  2000. end
  2001. act 'Finish':
  2002. gt 'pornstudio','start'
  2003. end
  2004. end
  2005. if $ARGS[0] = '3':
  2006. $metka = $ARGS[0]
  2007. $loc = $CURLOC
  2008. clr
  2009. actr = 0
  2010. gs 'stat'
  2011. gt 'bdsm'
  2012. end
  2013. --- pornstudio ---------------------------------