pornstudio 36 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060
  1. # pornstudio
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. cla
  6. *clr
  7. minut += 5
  8. gs 'stat'
  9. ! WD: Correct Image path ~ "images/studia/studiа_0.jpg" Cyrillic characters
  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.'
  14. exit
  15. end
  16. 'Manager''s office opened.'
  17. act 'Go to the manager':gt 'pornstudio', 'manager'
  18. act 'Visit the manager assistant':
  19. cla
  20. *clr
  21. minut += 5
  22. gs 'stat'
  23. 'There is a young guy tapping on the computer keys in a small office.'
  24. '<font color="#0D42C0"> "How can I help you?"</font>'
  25. if pfilmSTOP = 0:
  26. act 'What''s the rating on my videos?':
  27. cla
  28. minut += 5
  29. gs 'stat'
  30. if film = 0:
  31. '"You have no videos."'
  32. else
  33. '"Do you <<film>> videos. Their rating is still very low, quite simply, they are almost nobody is looking."'
  34. 'The guy whispers "By the way if you suddenly want to, I can contribute to their removal from the network - if you go down to the price."'
  35. act 'Tell me more':
  36. cla
  37. minut += 5
  38. films_stop_payment = film * 40000
  39. gs 'stat'
  40. 'So long as little video views, we are not very interested in them, and I can remove them. But will have to pay all the costs of the studio, about 40, 000 each. A total amount of <<films_stop_payment>>. In addition, site-hoster does not love these models, so that the more you do not get a job with us.'
  41. if money >= films_stop_payment:
  42. act 'Agree':
  43. minut += 5
  44. money -= films_stop_payment
  45. pfilmSTOP = 1
  46. film = 0
  47. gs 'stat'
  48. 'So, your video removed. Have a nice day.'
  49. act 'Leave':gt 'pornstudio', 'start'
  50. end
  51. end
  52. act 'Leave':gt 'pornstudio', 'start'
  53. end
  54. end
  55. act 'Leave':gt 'pornstudio', 'start'
  56. end
  57. end
  58. act 'Leave':gt 'pornstudio', 'start'
  59. end
  60. if bomzQW = 1 and week = 4 and workDisk = 0:
  61. act 'Arrive for work':
  62. cls
  63. minut += 15
  64. gs 'stat'
  65. 'We made inquiries about you, and have decided that you come to us. The essence is this:We give you a couple of drives, and deliver them to you in the sauna, where you are given an envelope, you bring it to us immediately. Upon return now 5000. Shuttling need every Friday after opening the studio. If you agree, then passes on Friday unacceptable, choose safe mode of transport.'
  66. act 'No, I do not fit (to leave)':bomzQW = -1 & gt 'down'
  67. act 'Agree to work':
  68. cls
  69. minut += 15
  70. gs 'stat'
  71. 'Today, it will take you to our people. In the future, will get themselves because Fridays control us increase, but watch out for each lonely girl coming from us - too costly for them.'
  72. act 'Well, show':
  73. cls
  74. workDisk = 1
  75. minut += 15
  76. gs 'stat'
  77. 'You slipped into a jeep standing at the entrance, and you have brought to the sauna.'
  78. if saunasex = 1:
  79. 'You recall how you were brought into the sauna, but then you were so excited that they could not remember anything sensible.'
  80. elseif sauna > 0:
  81. 'A sauna, you recall it, it close to your home.'
  82. else
  83. 'This sauna is located near your home, it is strange that you did not notice it before.'
  84. end
  85. 'You went to the sauna, you have presented to local managers. Lucidly explained to you who need to deliver, and that it is necessary to return the envelope on the same day when you gave him. Do not forget to remind about the use of secure transport. On this with you goodbye until tomorrow.'
  86. act 'Leave':bomzQW = 2 & gt 'street'
  87. end
  88. end
  89. end
  90. end
  91. if workDisk = 1 and week = 5:
  92. act 'Take the disk':
  93. cls
  94. minut += 5
  95. workDisk = 2
  96. gs 'stat'
  97. 'You are given a disk, and specify whether you remember all the instructions. You nod with your head and goes for the exit with the disc. Moving away from the studio near you heard someone else came out of a nearby building and head for you. <font color="magenta"> "Avoid deserted places, maybe this will blow over"</font> you had hoped, and went on.'
  98. act 'Leave':gt 'down'
  99. end
  100. elseif workDisk = 3 and week = 5:
  101. act 'Give the envelope':
  102. cls
  103. minut += 5
  104. workDisk = 4
  105. gs 'stat'
  106. if konvert = 0:
  107. workDolg = 200000
  108. workDolgDay = 7
  109. 'Starting to dig in your things you are struckd in terror. No envelope. You search everything again, but you didn''t find the envelope.'
  110. '-WHAT!! But how could you let this happen! You know in what you have gotten into?!'
  111. 'You stand there not squeezing out a single word. Sounds like your situation is really deplorable.'
  112. 'The Manager grabs the phone explaining the situation to the other party. After listening to a couple of minutes, he hung up.'
  113. '<font color="#0D42C0"> So-so</font> - he said - <font color="#0D42C0"> his boss was in a good mood, so I have good news. You have a week. Until next Friday evening you shall bring into the studio 200000. If you bring - we separate. You can not work as an actress with us anymore.</font>'
  114. '<font color="#0D42C0">Otherwise, there will be consequences.</font>'
  115. else
  116. konvert = 0
  117. money += 5000
  118. 'You gave the envelope to the manager and he gave you 5,000 rubles.'
  119. end
  120. act 'Leave':gt 'down'
  121. end
  122. end
  123. if workDolg > 0 and money >= workDolg:
  124. act 'Repay your debt':
  125. cls
  126. minut += 5
  127. workDisk = 0
  128. money -= workDolg
  129. workDolg = 0
  130. gs 'stat'
  131. 'You gave the money that you owed to the studio.'
  132. act 'Leave':gt 'pornstudio', 'start'
  133. end
  134. end
  135. if pfilmNO = 1 and pfilmNoVenera = 1 and Venera = 0:
  136. act 'Show the certificate about STD''s cured':
  137. cls
  138. minut += 5
  139. pfilmNoVenera = 0
  140. pfilmNO = 0
  141. gs 'stat'
  142. 'You gave a certificate that your sexually transmitted diseases is cured. They promised to consider your reinstatement as a porn actress.'
  143. act 'Leave':gt 'pornstudio', 'start'
  144. end
  145. end
  146. end
  147. if $ARGS[0] = 'manager':
  148. cla
  149. *clr
  150. minut += 5
  151. gs 'stat'
  152. ! WD: Correct Image path ~ "images/studia/studiа_0.jpg" Cyrillic characters
  153. '<center><img src="images/studia/studia_0.jpg"></center>'
  154. 'Boss porn studio met you welcome and gestured you sit on the couch.'
  155. if pfilmNO = 1:
  156. 'You''re blacklisted, you no decent studio will not have affairs, goodbye.'
  157. act 'Leave':gt 'pornstudio', 'start'
  158. exit
  159. end
  160. if pfilmSTOP = 1:
  161. 'I''m sorry I thought you were retired...'
  162. act 'Leave':gt 'pornstudio', 'start'
  163. exit
  164. end
  165. if pfilmday = daystart and pfilm > 0:
  166. 'Do not distract me from my work. Like I said, tomorrow shooting.'
  167. act 'Leave':gt 'pornstudio', 'start'
  168. exit
  169. end
  170. if pfilmday >= daystart + 2:
  171. pfilmNO = 1
  172. 'You did not come to the shooting. Plucked them. I paid a lot of dough assistants, actors, cameramen, plus rental studio, and you took it and threw me. No, with you I do not want to work and am submitting your name in the blacklist.'
  173. act 'Leave':gt 'pornstudio', 'start'
  174. exit
  175. end
  176. if pfilm > 0 and hour >= 10 and hour <= 12:
  177. if hour = 10:'Come on honey inspection.'
  178. if hour = 11:'Do not be late, my patience is not eternal, strictly tells you Peter. Vividly honey inspection.'
  179. if hour = 12:'What the dick? There''s only one waiting for you. Hurry honey inspection.'
  180. pfilmday = daystart
  181. act 'Go for medical check-up':
  182. cla
  183. *clr
  184. minut += 5
  185. gs 'stat'
  186. 'You went into the office where the doctor was waiting in a white robe. He quickly pulled on rubber gloves and briefly told you undress.'
  187. 'You removed the clothes and sat in the high gynecological chair legs apart. The doctor came up to you and started inspection. After inspection, he took a syringe and took you out of the vein blood samples.'
  188. 'Now after half an hour and will be ready tests, if you have at least something, they will show.'
  189. act 'Wait':
  190. cla
  191. *clr
  192. minut += 30
  193. gs 'stat'
  194. if venera > 0:
  195. pfilmNO = 1
  196. pfilmNoVenera = 1
  197. 'Your analysis showed a sexually transmitted disease. doctor told you and called Peter. Peter looked at the piece of paper with analyzes.'
  198. 'Well, as long as you have an STD you can''t make films.'
  199. act 'Leave':gt 'pornstudio', 'start'
  200. else
  201. 'Well Well, you''re clean. Go into the dressing room'
  202. act 'Go to the dressing room':
  203. cla
  204. *clr
  205. minut += 30
  206. hapri = 1
  207. mop = 4
  208. gs 'stat'
  209. 'In the dressing room waiting for you already lean and withered as roach woman.'
  210. if pfilm > 3:'The first cases you put a powerful enema.'
  211. 'You put in front of the mirror, brushed and laid makeup.'
  212. !!if the scene with anal, then enema.
  213. act 'Go to the set':
  214. if pfilm = 1:
  215. cla
  216. *clr
  217. minut += 30
  218. gs 'stat'
  219. akrand = rand(1, 5)
  220. if akrand = 1:$pakter = 'Alexei'
  221. if akrand = 2:$pakter = 'Sergey'
  222. if akrand = 3:$pakter = 'George'
  223. if akrand = 4:$pakter = 'Ignat'
  224. if akrand = 5:$pakter = 'Simeon'
  225. if akrand = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  226. if akrand = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  227. if akrand = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  228. if akrand = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  229. if akrand = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  230. 'On the site already bustling assistants installing lighting, so that there were no shadows.'
  231. 'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
  232. act 'Removed':
  233. cla
  234. *clr
  235. minut += 30
  236. hj += 1
  237. gs 'stat'
  238. '<center><img src="images/studia/hj.gif"></center>'
  239. '<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in his hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
  240. act 'Masturbate on chest':
  241. cla
  242. *clr
  243. minut += 5
  244. '<center><img src="images/studia/hjcumontits.gif"></center>'
  245. '<<$pakter>> began to finish your chest, and you continued to jerk his cock squeezing his hot cum on himself.'
  246. act 'Walk in shower':
  247. cla
  248. *clr
  249. minut += 5
  250. sweat = -3
  251. horny += 1
  252. mop = 1
  253. cumpussy = 0
  254. cumbelly = 0
  255. cumass = 0
  256. cumanus =0
  257. cumlip = 0
  258. cumface = 0
  259. '<center><img src="images/pics/dush.jpg"></center>'
  260. 'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
  261. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  262. end
  263. end
  264. end
  265. elseif pfilm = 2:
  266. cla
  267. *clr
  268. minut += 30
  269. gs 'stat'
  270. akrand = rand(1, 5)
  271. if akrand = 1:$pakter = 'Alexei'
  272. if akrand = 2:$pakter = 'Sergey'
  273. if akrand = 3:$pakter = 'George'
  274. if akrand = 4:$pakter = 'Ignat'
  275. if akrand = 5:$pakter = 'Simeon'
  276. if akrand = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  277. if akrand = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  278. if akrand = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  279. if akrand = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  280. if akrand = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  281. 'On the site already bustling assistants installing lighting, so that there were no shadows.'
  282. 'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
  283. act 'Removed':
  284. cla
  285. *clr
  286. minut += 30
  287. hj += 1
  288. gs 'stat'
  289. '<center><img src="images/studia/hj.gif"></center>'
  290. '<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in his hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
  291. act 'Take by mouth':
  292. cla
  293. *clr
  294. bj += 1
  295. minut += 5
  296. '<center><img src="images/studia/bj.gif"></center>'
  297. '<<$pakter>> sat on the bed and you have settled down between his legs taking his cock in her mouth and began to suck the head.'
  298. act 'Suck':
  299. cla
  300. *clr
  301. minut += 5
  302. '<center><img src="images/studia/deep.gif"></center>'
  303. '<<$pakter>> began to fuck you in the mouth by driving his cock down your throat every move.'
  304. 'Finally he took a member of you. It is time to remove ejaculation.'
  305. act 'Sit on your knees and open your mouth':
  306. cla
  307. *clr
  308. minut += 5
  309. cumlip += 1
  310. facial += 1
  311. gs 'stat'
  312. '<center><img src="images/studia/cum.gif"></center>'
  313. '<<$pakter>> finished in your mouth, whipping a hot stream of sperm you by language and once in the throat.'
  314. act 'Clean the mouth from his cock sperm':
  315. cla
  316. *clr
  317. minut += 5
  318. cumface += 1
  319. swallow += 1
  320. gs 'stat'
  321. '<center><img src="images/studia/bj2.gif"></center>'
  322. 'You began to gently clean his cock swallowing sperm from her dedication and looking into his eyes.'
  323. act 'Walk in shower':
  324. cla
  325. *clr
  326. minut += 5
  327. sweat = -3
  328. horny += 1
  329. mop = 1
  330. cumpussy = 0
  331. cumbelly = 0
  332. cumass = 0
  333. cumanus =0
  334. cumlip = 0
  335. cumface = 0
  336. '<center><img src="images/pics/dush.jpg"></center>'
  337. 'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
  338. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  339. end
  340. end
  341. end
  342. end
  343. end
  344. end
  345. elseif pfilm = 3:
  346. cla
  347. *clr
  348. minut += 30
  349. gs 'stat'
  350. akrand = rand(1, 5)
  351. if akrand = 1:$pakter = 'Alexei'
  352. if akrand = 2:$pakter = 'Sergey'
  353. if akrand = 3:$pakter = 'George'
  354. if akrand = 4:$pakter = 'Ignat'
  355. if akrand = 5:$pakter = 'Simeon'
  356. if akrand = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  357. if akrand = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  358. if akrand = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  359. if akrand = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  360. if akrand = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  361. 'On the site already bustling assistants installing lighting, so that there were no shadows.'
  362. 'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
  363. act 'Removed':
  364. cla
  365. *clr
  366. minut += 30
  367. hj += 1
  368. gs 'stat'
  369. '<center><img src="images/studia/hj.gif"></center>'
  370. '<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in his hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
  371. act 'Take by mouth':
  372. cla
  373. *clr
  374. bj += 1
  375. minut += 5
  376. '<center><img src="images/studia/bj.gif"></center>'
  377. '<<$pakter>> sat on the bed and you have settled down between his legs taking his cock in her mouth and began to suck the head.'
  378. act 'Suck':
  379. cla
  380. *clr
  381. minut += 5
  382. '<center><img src="images/studia/deep.gif"></center>'
  383. '<<$pakter>> began to fuck you in the mouth by driving his cock down your throat every move.'
  384. act 'Stand up doggy style':
  385. cla
  386. *clr
  387. sex += 1
  388. vagina += 1
  389. minut += 15
  390. '<center><img src="images/studia/sex.gif"></center>'
  391. 'You got up on all fours and <<$pakter>> you drove his dick in pussy on the most balls. He began to fuck you hard-hitting all case you on the behind and if it did not hold hands tenaciously your buttocks, then you would definitely have fallen after the first blow.'
  392. act 'Sit on your knees and open your mouth':
  393. cla
  394. *clr
  395. minut += 5
  396. cumlip += 1
  397. facial += 1
  398. gs 'stat'
  399. '<center><img src="images/studia/cum.gif"></center>'
  400. '<<$pakter>> finished in your mouth, whipping a hot stream of sperm you by language and once in the throat.'
  401. act 'Clean the mouth from his cock sperm':
  402. cla
  403. *clr
  404. minut += 5
  405. cumface += 1
  406. swallow += 1
  407. gs 'stat'
  408. '<center><img src="images/studia/bj2.gif"></center>'
  409. 'You began to gently clean his cock swallowing sperm from her dedication and looking into his eyes.'
  410. act 'Walk in shower':
  411. cla
  412. *clr
  413. minut += 5
  414. sweat = -3
  415. horny += 1
  416. mop = 1
  417. cumpussy = 0
  418. cumbelly = 0
  419. cumass = 0
  420. cumanus =0
  421. cumlip = 0
  422. cumface = 0
  423. '<center><img src="images/pics/dush.jpg"></center>'
  424. 'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
  425. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  426. end
  427. end
  428. end
  429. end
  430. end
  431. end
  432. end
  433. elseif pfilm = 4:
  434. cla
  435. *clr
  436. minut += 30
  437. gs 'stat'
  438. akrand = rand(1, 5)
  439. if akrand = 1:$pakter = 'Alexei'
  440. if akrand = 2:$pakter = 'Sergey'
  441. if akrand = 3:$pakter = 'George'
  442. if akrand = 4:$pakter = 'Ignat'
  443. if akrand = 5:$pakter = 'Simeon'
  444. if akrand = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  445. if akrand = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  446. if akrand = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  447. if akrand = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  448. if akrand = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  449. 'On the site already bustling assistants installing lighting, so that there were no shadows.'
  450. 'On one side stands the actor <<$pakter>> and examining pornozhurnal Fingering member.'
  451. act 'Removed':
  452. cla
  453. *clr
  454. minut += 30
  455. hj += 1
  456. gs 'stat'
  457. '<center><img src="images/studia/hj.gif"></center>'
  458. '<<$pakter>> lay on the bed and put his penis. You lay down beside him and took his penis in his hand. Smeared his chest and a member of the actor, you started it nadrachivat eldu.'
  459. act 'Take by mouth':
  460. cla
  461. *clr
  462. bj += 1
  463. minut += 5
  464. '<center><img src="images/studia/bj.gif"></center>'
  465. '<<$pakter>> sat on the bed and you have settled down between his legs taking his cock in her mouth and began to suck the head.'
  466. act 'Suck':
  467. cla
  468. *clr
  469. minut += 5
  470. '<center><img src="images/studia/deep.gif"></center>'
  471. '<<$pakter>> began to fuck you in the mouth by driving his cock down your throat every move.'
  472. act 'Stand up doggy style':
  473. cla
  474. *clr
  475. sex += 1
  476. vagina += 1
  477. minut += 5
  478. '<center><img src="images/studia/sex.gif"></center>'
  479. 'You got up on all fours and <<$pakter>> you drove his dick in pussy on the most balls. He began to fuck you hard-hitting all case you on the behind and if it did not hold hands tenaciously your buttocks, then you would definitely have fallen after the first blow.'
  480. 'Finally the actor pulled out of you cock and you feel like it touches you in the anus.'
  481. act 'Relax the anus':
  482. cla
  483. *clr
  484. anal += 1
  485. anus += 1
  486. minut += 5
  487. '<center><img src="images/studia/sex.gif"></center>'
  488. 'You tried as best they could relax the anus that would painlessly Hollow member. <<$pakter>> gradually came into your ass and began to peck your ass like a steam hammer.'
  489. act 'Sit on your knees and open your mouth':
  490. cla
  491. *clr
  492. minut += 5
  493. cumlip += 1
  494. facial += 1
  495. gs 'stat'
  496. '<center><img src="images/studia/cum.gif"></center>'
  497. '<<$pakter>> finished in your mouth, whipping a hot stream of sperm you by language and once in the throat.'
  498. act 'Clean the mouth from his cock sperm':
  499. cla
  500. *clr
  501. minut += 5
  502. cumface += 1
  503. swallow += 1
  504. gs 'stat'
  505. '<center><img src="images/studia/bj2.gif"></center>'
  506. 'You began to gently clean his cock swallowing sperm from her dedication and looking into his eyes.'
  507. act 'Go to the shower':
  508. cla
  509. *clr
  510. minut += 5
  511. sweat = -3
  512. horny += 1
  513. mop = 1
  514. cumpussy = 0
  515. cumbelly = 0
  516. cumass = 0
  517. cumanus =0
  518. cumlip = 0
  519. cumface = 0
  520. '<center><img src="images/pics/dush.jpg"></center>'
  521. 'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
  522. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  523. end
  524. end
  525. end
  526. end
  527. end
  528. end
  529. end
  530. end
  531. elseif pfilm = 5:
  532. cla
  533. *clr
  534. minut += 30
  535. gang += 1
  536. gs 'stat'
  537. akrand = rand(1, 5)
  538. if akrand = 1:$pakter = 'Alexei'
  539. if akrand = 2:$pakter = 'Sergey'
  540. if akrand = 3:$pakter = 'George'
  541. if akrand = 4:$pakter = 'Ignat'
  542. if akrand = 5:$pakter = 'Simeon'
  543. if akrand = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  544. if akrand = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  545. if akrand = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  546. if akrand = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  547. if akrand = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  548. akrand2 = rand(1, 4)
  549. if akrand2 >= akrand:akrand2 += 1
  550. if akrand2 = 1:$pakter2 = 'Alexei'
  551. if akrand2 = 2:$pakter2 = 'Sergey'
  552. if akrand2 = 3:$pakter2 = 'George'
  553. if akrand2 = 4:$pakter2 = 'Ignat'
  554. if akrand2 = 5:$pakter2 = 'Simeon'
  555. if akrand2 = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  556. if akrand2 = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  557. if akrand2 = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  558. if akrand2 = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  559. if akrand2 = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  560. 'On the site already bustling assistants installing lighting, so that there were no shadows.'
  561. 'Actors <<$pakter>> and <<$pakter2>> peppers before play dirty magazines that would lead them to a state of combat readiness.'
  562. act 'Removed':
  563. cla
  564. *clr
  565. minut += 10
  566. bj += 2
  567. gs 'stat'
  568. '<center><img src="images/studia/tbj.gif"></center>'
  569. 'Cast members got started and you bash them in the face.'
  570. act 'Suck':
  571. cla
  572. *clr
  573. minut += 15
  574. gs 'stat'
  575. '<center><img src="images/studia/tbj2.gif"></center>'
  576. 'You started to suck both members trying to deprive no one attention, caressing them with his tongue, lips and sucked.'
  577. act 'Fuck':
  578. cla
  579. *clr
  580. minut += 15
  581. sex += 1
  582. vagina += 1
  583. gs 'stat'
  584. '<center><img src="images/studia/three.gif"></center>'
  585. 'You got up on all fours and <<$pakter>> you drove his dick in pussy until you have aspirated <<$pakter2>>.'
  586. act 'Anal':
  587. cla
  588. *clr
  589. minut += 15
  590. anal += 1
  591. anus += 1
  592. gs 'stat'
  593. '<center><img src="images/studia/threea.gif"></center>'
  594. '<<$pakter>> drove a screw you in the ass until you have aspirated <<$pakter2>>.'
  595. act 'Cum on face':
  596. cla
  597. *clr
  598. minut += 5
  599. cumface += 1
  600. facial += 1
  601. gs 'stat'
  602. '<center><img src="images/studia/tcum.gif"></center>'
  603. '<<$pakter2>> finished in your mouth, whipping a hot stream of sperm you by language and once in the throat.'
  604. act 'Go to the shower':
  605. cla
  606. *clr
  607. minut += 5
  608. sweat = -3
  609. horny += 1
  610. mop = 1
  611. cumpussy = 0
  612. cumbelly = 0
  613. cumass = 0
  614. cumanus =0
  615. cumlip = 0
  616. cumface = 0
  617. '<center><img src="images/pics/dush.jpg"></center>'
  618. 'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
  619. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  620. end
  621. end
  622. end
  623. end
  624. end
  625. end
  626. else
  627. cla
  628. *clr
  629. minut += 30
  630. gang += 1
  631. gs 'stat'
  632. akrand = rand(1, 5)
  633. if akrand = 1:$pakter = 'Alexei'
  634. if akrand = 2:$pakter = 'Sergey'
  635. if akrand = 3:$pakter = 'George'
  636. if akrand = 4:$pakter = 'Ignat'
  637. if akrand = 5:$pakter = 'Simeon'
  638. if akrand = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  639. if akrand = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  640. if akrand = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  641. if akrand = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  642. if akrand = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  643. akrand2 = rand(1, 4)
  644. if akrand2 >= akrand:akrand2 += 1
  645. if akrand2 = 1:$pakter2 = 'Alexei'
  646. if akrand2 = 2:$pakter2 = 'Sergey'
  647. if akrand2 = 3:$pakter2 = 'George'
  648. if akrand2 = 4:$pakter2 = 'Ignat'
  649. if akrand2 = 5:$pakter2 = 'Simeon'
  650. if akrand2 = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
  651. if akrand2 = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
  652. if akrand2 = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
  653. if akrand2 = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
  654. if akrand2 = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
  655. 'On the site already bustling assistants installing lighting, so that there were no shadows.'
  656. 'Actors <<$pakter>> and <<$pakter2>> peppers before play dirty magazines that would lead them to a state of combat readiness.'
  657. act 'Removed':
  658. cla
  659. *clr
  660. minut += 10
  661. bj += 2
  662. gs 'stat'
  663. '<center><img src="images/studia/tbj.gif"></center>'
  664. 'Cast members got started and you bash them in the face.'
  665. act 'Suck':
  666. cla
  667. *clr
  668. minut += 15
  669. gs 'stat'
  670. '<center><img src="images/studia/tbj2.gif"></center>'
  671. 'You started to suck both members trying to deprive no one attention, caressing them with his tongue, lips and sucked.'
  672. act 'Fuck':
  673. cla
  674. *clr
  675. minut += 15
  676. sex += 1
  677. vagina += 1
  678. gs 'stat'
  679. '<center><img src="images/studia/three.gif"></center>'
  680. 'You got up on all fours and <<$pakter>> you drove his dick in pussy until you have aspirated <<$pakter2>>.'
  681. act 'Anal':
  682. cla
  683. *clr
  684. minut += 15
  685. anal += 1
  686. anus += 1
  687. gs 'stat'
  688. '<center><img src="images/studia/threea.gif"></center>'
  689. '<<$pakter>> drove a screw you in the ass until you have aspirated <<$pakter2>>.'
  690. act 'Double Penetration':
  691. cla
  692. *clr
  693. minut += 15
  694. anus += 1
  695. vagina += 1
  696. gs 'stat'
  697. '<center><img src="images/studia/three2.gif"></center>'
  698. '<<$pakter>> lay down and you sat down on his cock pussy <<$pakter2>> came from behind and you feel his penis penetrates your anus. You guys started to peck holes in two, hard dicks rubbing against each other through the thin stenochku in your body.'
  699. act 'Cum on face':
  700. cla
  701. *clr
  702. minut += 5
  703. cumface += 1
  704. facial += 1
  705. gs 'stat'
  706. '<center><img src="images/studia/tcum.gif"></center>'
  707. '<<$pakter2>> finished in your mouth, whipping a hot stream of sperm you by language and once in the throat.'
  708. act 'Walk in shower':
  709. cla
  710. *clr
  711. minut += 5
  712. sweat = -3
  713. horny += 1
  714. mop = 1
  715. cumpussy = 0
  716. cumbelly = 0
  717. cumass = 0
  718. cumanus =0
  719. cumlip = 0
  720. cumface = 0
  721. '<center><img src="images/pics/dush.jpg"></center>'
  722. 'Logged-in shower cubicle and turned on the shower. Lathered body and washed off in the shower by removing all traces of semen from his body.'
  723. act 'Go to Peter':gt 'pornstudio', 'postvideo'
  724. end
  725. end
  726. end
  727. end
  728. end
  729. end
  730. end
  731. end
  732. end
  733. end
  734. end
  735. end
  736. end
  737. exit
  738. end
  739. if pfilm > 0 and hour > 12:
  740. pfilmday = daystart
  741. 'I told you not to be late? Said. Get out of here, I''m out for you a lot of money lost. Actors paid assistants, operator, doctor, and because of you slut, shooting all failed.'
  742. 'Either you come tomorrow and work for free, or get out and I know you do not want.'
  743. act 'Himself worked for free moron':
  744. pfilmNO = 1
  745. pfilm = 0
  746. gt 'pornstudio', 'start'
  747. end
  748. act 'Well, in return for free':
  749. pfilmNOPAY = 1
  750. gt 'pornstudio', 'start'
  751. end
  752. exit
  753. end
  754. if firstkasting = 0:
  755. 'You sat down on the sofa and asked the boss. I see you for the first time with us. Want to rent a porno movie?'
  756. act 'I changed my mind':gt 'pornstudio', 'start'
  757. act 'Yes':
  758. cla
  759. minut += 5
  760. gs 'stat'
  761. 'You have confirmed their desire to play in a porn movie. Boss nodded. All right. First you need to spend casting.'
  762. 'Take off your clothes, let me see your body.'
  763. act 'I changed my mind':gt 'pornstudio', 'start'
  764. act 'Unclothed':
  765. cla
  766. minut += 5
  767. gs 'stat'
  768. 'You undressed in front of the boss, he got up from his chair and walked eyeing you. "Lie down on the couch and spread your legs."'
  769. act 'I changed my mind':gt 'pornstudio', 'start'
  770. act 'Lie down on the sofa and spread her legs ':
  771. cla
  772. minut += 5
  773. gs 'stat'
  774. 'You lay down on the couch and pushed her feet. Boss took fotoaparat and took a few pictures, explaining that it is for the portfolio. After that, the boss asked you to kneel.'
  775. act 'To kneel':
  776. cla
  777. minut += 5
  778. gs 'stat'
  779. 'You got up from the couch and knelt in front of the boss. He took a few more pictures. "Now open your mouth and stick your tongue as if you now face will finish."'
  780. act 'Open mouth stick um language':
  781. cla
  782. minut += 5
  783. gs 'stat'
  784. 'You have opened my mouth and stuck out her tongue. Boss again sfotkal you. "Not bad, now suck my thumb" He put in your mouth as his thick finger sordelka.'
  785. act 'Thumb sucking':
  786. cla
  787. minut += 5
  788. gs 'stat'
  789. 'You started to suck his thumb trying to look sexier as possible. Boss touched your breast with the other hand while you were busy with his finger.'
  790. 'He pulled his finger out of your mouth, you said curtly, "get dressed." and sat down at the table. You quickly got dressed and sat on the couch.'
  791. '(Boss) - I can call Peter. Firstly you need a nickname for filming.'
  792. act 'Called alias':
  793. cla
  794. firstkasting = 1
  795. $pfname = input ("What will be your alias?")
  796. if $pfname <= 0:$pfname = '<<$name>> Huesoskina'
  797. '<<$pfname>>, um, okay, go. Now listen, the composition of pornographic men have a permanent, all before shooting pass medical examination. You''ll also pass a medical examination. If you find any sign of a sexually transmitted disease, then dosvidaniya forever. This point is clear? Take care of health. I''m not going to jeopardize his actors.'
  798. 'We shoot films not so often. About once a month.'
  799. ''
  800. 'We''ll see. That we need.'
  801. act '.....':gt 'pornstudio', 'man'
  802. end
  803. end
  804. end
  805. end
  806. end
  807. end
  808. end
  809. elseif film = 0 and pfilm = 0:
  810. 'So, you''re new girl, and we just have an order for a brand new girl. In the genre handdzhob. You''ll have to masturbate guy, and he would finish your chest. All this for 3,000.'
  811. act 'Agree':
  812. cla
  813. pfilm = 1
  814. pfilmday = daystart
  815. 'Thus, the survey will be tomorrow. Come to 10:00. Do not be late.'
  816. act 'Leave':gt 'pornstudio', 'start'
  817. end
  818. act 'I changed my mind':gt 'pornstudio', 'start'
  819. elseif film > 0:
  820. if daystart > pffilmday and pfilm = 0:
  821. 'Come on <<$pfname>>. So, let''s see what I can pick up for you.'
  822. frand = rand(1, 6)
  823. if frand = 1:'Job handles need podorochit guy and he pulls on his chest. 2000.'
  824. if frand = 2:'Do blowjob guy, ending in the mouth and face. 3 thousand.'
  825. if frand = 3:'Classical, first blowjob, then sex with the end in the mouth and face. 5000.'
  826. if frand = 4:'Tough classic, first blowjob, then sex, then anal and ending up in the mouth and face. 6000.'
  827. if frand = 5:'Group sex with two guys in all holes, but without double penetration. 7000.'
  828. if frand = 6:'Threesome with two guys with double penetration. 9000.'
  829. act 'Perhaps wait for more suitable suggestions':
  830. pffilmday = daystart + 1
  831. gt 'pornstudio', 'start'
  832. end
  833. act 'Agree':
  834. cla
  835. pfilm = frand
  836. pfilmday = daystart
  837. 'Thus, the survey will be tomorrow. Come to 10:00. Do not be late.'
  838. act 'Leave':gt 'pornstudio', 'start'
  839. end
  840. else
  841. if pffilmday - daystart > 0:
  842. 'Sorry <<$pfname>>, now there is no work for you. Come back <<pffilmday-daystart>> days.'
  843. elseif pffilmday - daystart = 0:
  844. 'Sorry <<$pfname>>, now there is no work for you. Come back tomorrow.'
  845. end
  846. act 'Leave':gt 'pornstudio', 'start'
  847. end
  848. end
  849. 'Peter said on the phone, he covers up the phone for a second. "Listen, while not up to you, how come some other time."'
  850. act 'Leave':gt 'pornstudio', 'start'
  851. end
  852. if $ARGS[0] = 'postvideo':
  853. cla
  854. *clr
  855. minut += 30
  856. film += 1
  857. gs 'stat'
  858. if pfilm = 1:pfcash = 2000 & $filmtext = ' where you snimalilis as otdrachivali guy and he descended on your boobs.'
  859. if pfilm = 2:pfcash = 3000 & $filmtext = ' where you snimalilis aspirated as a member of the guy and he goes down you in the mouth and face.'
  860. if pfilm = 3:pfcash = 5000 & $filmtext = ' where you snimalilis aspirated as a member of the guy, then he fucked you and cum in your mouth.'
  861. if pfilm = 4:pfcash = 6000 & $filmtext = ' where you snimalilis aspirated as a member of the guy, then he fucked you in the pussy and ass and pulled you into his mouth.'
  862. if pfilm = 5:pfcash = 7000 & $filmtext = ' where you snimalilis as you in all holes hollows two men.'
  863. if pfilm = 6:pfcash = 9000 & $filmtext = ' where you snimalilis as you hammering in all holes two men and even double penetration.'
  864. $pfilmhistory += film + ') shot on '+year+'.'+$month+'.'+day+':'+$filmtext+'<br>'
  865. if pfilmNOPAY = 0:
  866. money += pfcash
  867. 'Peter you counted <<pfcash>> per shot in the film and wished good luck.'
  868. else
  869. pfilmNOPAY = 0
  870. 'You have fulfilled his sentence and the film was made for free.'
  871. end
  872. pfilm = 0
  873. if film < 10:filmkoef = 2
  874. if film >= 10 and film < 20:filmkoef = 5
  875. if film >= 20:filmkoef = 10
  876. pffilmday = daystart+(film + filmkoef)
  877. pfilmday = 0
  878. 'I think we will have a job for you no earlier than one <<pffilmday-daystart>>day.'
  879. act 'Leave':gt 'pornstudio', 'start'
  880. end
  881. if $ARGS[0] = '2':
  882. $metka = $ARGS[0]
  883. $loc = $CURLOC
  884. clr
  885. ! WD: Fix Uninitialised ~ 'carrf' to 'carrar'
  886. carrar = RAND(10, 25)
  887. gs 'stat'
  888. '<center><img src="images/studia/casting_<<rand(1,6)>>.jpg"></center>'
  889. 'You spent eight hours undressing in front of the casting director, and taking various poses.'
  890. minut = minut+120
  891. gs 'stat'
  892. minut = minut+120
  893. gs 'stat'
  894. minut = minut+120
  895. gs 'stat'
  896. minut = minut+120
  897. gs 'stat'
  898. if vnesh < carrar:
  899. 'You do not have to be the, too bad'
  900. elseif vnesh >= carrar:
  901. actr = 1
  902. 'You got the Role'
  903. end
  904. act 'Finish':
  905. gt 'pornstudio','start'
  906. end
  907. end
  908. if $ARGS[0] = '3':
  909. $metka = $ARGS[0]
  910. $loc = $CURLOC
  911. clr
  912. actr = 0
  913. gs 'stat'
  914. gt 'bdsm'
  915. end
  916. --- pornstudio ---------------------------------