pornstudio 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538
  1. # pornstudio
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. cla
  6. *clr
  7. gs 'stat'
  8. set minut += 5
  9. '<center><img src="images/studia/studiа_0.jpg"></center>'
  10. act 'Leave':gt 'down'
  11. if hour >= 9 and hour <= 22:
  12. 'The Manager´s office opened.'
  13. act 'Go to the manager':gt 'pornstudio', 'man'
  14. act 'Visit the manager assistant':gt 'pornstudio', 'pomman'
  15. if bomzQW = 1 and week = 4 and workDisk = 0:act 'Arrive for work':dynamic $workbomzdi
  16. if workDisk = 1 and week = 5:
  17. act 'Take the disk':
  18. cls
  19. minut += 5
  20. gs 'stat'
  21. workDisk = 2
  22. '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.'
  23. act 'Leave':gt 'down'
  24. end
  25. end
  26. if workDisk = 3 and week = 5:
  27. act 'Give the envelope':
  28. cls
  29. minut += 5
  30. workDisk = 4
  31. gs 'stat'
  32. if konvert = 0:
  33. 'Starting to dig in your things you are struckd in terror. No envelope. You search everything again, but you didn''t find the envelope.'
  34. '-WHAT!! But how could you let this happen! You know in what you have gotten into?!'
  35. 'You stand there not squeezing out a single word. Sounds like your situation is really deplorable.'
  36. 'The Manager grabs the phone explaining the situation to the other party. After listening to a couple of minutes, he hung up.'
  37. '<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>'
  38. '<font color="#0D42C0">Otherwise, there will be consequences.</font>'
  39. workDolg = 200000
  40. workDolgDay = 7
  41. else
  42. konvert = 0
  43. money += 5000
  44. 'You gave the envelope to the manager and he gave you 5, 000 rubles'
  45. end
  46. act 'Leave':gt 'down'
  47. end
  48. end
  49. if workDolg > 0 and money >= workDolg:
  50. act 'Repay your debt':
  51. cls
  52. minut += 5
  53. gs 'stat'
  54. workDisk = 0
  55. money -= workDolg
  56. workDolg = 0
  57. 'You gave the money that you owed to the studio.'
  58. act 'Leave':gt 'down'
  59. end
  60. end
  61. if pfilmNO = 1 and pfilmNoVenera = 1 and Venera = 0:
  62. act 'Show the certificate about STD''s cured':
  63. cls
  64. minut += 5
  65. pfilmNoVenera = 0
  66. pfilmNO = 0
  67. gs 'stat'
  68. 'You gave a certificate that your sexually transmitted diseases is cured.They promised to consider your reinstatement as a porn actress.'
  69. act 'Leave':gt 'down'
  70. end
  71. end
  72. else
  73. 'The Porn studio is closed'
  74. end
  75. end
  76. if $ARGS[0] = 'pomman':
  77. $metka = $ARGS[0]
  78. $loc = $CURLOC
  79. cla
  80. *clr
  81. gs 'stat'
  82. set minut += 5
  83. 'There is a young guy tapping on the computer keys in a small office.'
  84. '<font color="#0D42C0"> "How can I help you?".</font> '
  85. if pfilmSTOP = 0:
  86. act 'What''s the rating on my videos?': gt 'pornstudio', 'myvid'
  87. end
  88. act 'Leave':gt 'pornstudio', 'start'
  89. end
  90. if $ARGS[0] = 'myvid':
  91. $metka = $ARGS[0]
  92. $loc = $CURLOC
  93. gs 'stat'
  94. set minut += 5
  95. if film = 0:'"You have no videos."'
  96. if film > 0:
  97. '"Do you <<film>> videos. Their rating is still very low, quite simply, they are almost nobody is looking."'
  98. '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."'
  99. act 'Rasprosov more':gt 'pornstudio', 'myvid2'
  100. end
  101. act 'Leave':gt 'pornstudio', 'start'
  102. end
  103. if $ARGS[0] = 'myvid2':
  104. $metka = $ARGS[0]
  105. $loc = $CURLOC
  106. gs 'stat'
  107. set minut += 5
  108. set films_stop_payment = film * 40000
  109. '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.'
  110. if money >= films_stop_payment:act 'Agree':gt 'pornstudio', 'myvid3'
  111. act 'Leave':gt 'pornstudio', 'start'
  112. end
  113. if $ARGS[0] = 'myvid3':
  114. $metka = $ARGS[0]
  115. $loc = $CURLOC
  116. gs 'stat'
  117. set minut += 5
  118. set money -= films_stop_payment
  119. set pfilmSTOP = 1
  120. $pfilmstory_new = 'In the porn industry you''re knows as <<$pfname>>. You starred in <<film>> porn films. Shooting ceased all video seized.'
  121. set film = 0
  122. 'So, your video removed. Have a nice day.'
  123. act 'Leave':gt 'pornstudio', 'start'
  124. end
  125. if $ARGS[0] = 'man':
  126. $metka = $ARGS[0]
  127. $loc = $CURLOC
  128. cla
  129. *clr
  130. gs 'stat'
  131. set minut += 5
  132. '<center><img src="images/studia/studiа_0.jpg"></center>'
  133. 'Boss porn studio met you welcome and gestured you sit on the couch.'
  134. if pfilmNO = 1:
  135. 'You´re blacklisted, you no decent studio will not have affairs, goodbye.'
  136. act 'Leave':gt 'pornstudio', 'start'
  137. exit
  138. end
  139. if pfilmSTOP = 1:
  140. 'I''m sorry I thought you were retired...'
  141. act 'Leave':gt 'pornstudio', 'start'
  142. exit
  143. end
  144. if pfilmday = daystart and pfilm > 0:
  145. 'Do not distract me from my work. Like I said, tomorrow shooting.'
  146. act 'Leave':gt 'pornstudio', 'start'
  147. exit
  148. end
  149. if pfilmday >= daystart + 2:
  150. pfilmNO = 1
  151. '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.'
  152. act 'Leave':gt 'pornstudio', 'start'
  153. exit
  154. end
  155. if pfilm > 0 and hour = 10:
  156. pfilmday = day
  157. 'Come on honey inspection.'
  158. act 'Go for medical check-up':gt 'pf', 'doc'
  159. exit
  160. elseif pfilm > 0 and hour = 11:
  161. pfilmday = day
  162. 'Do not be late, my patience is not eternal, strictly tells you Peter. Vividly honey inspection.'
  163. act 'Go for medical check-up':gt 'pf', 'doc'
  164. exit
  165. elseif pfilm > 0 and hour = 12:
  166. pfilmday = day
  167. 'What the dick? There´s only one waiting for you. Hurry honey inspection.'
  168. act 'Go for medical check-up':gt 'pf', 'doc'
  169. exit
  170. elseif pfilm > 0 and hour > 12:
  171. pfilmday = day
  172. '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.'
  173. 'Either you come tomorrow and work for free, or get out and I know you do not want.'
  174. act 'Himself worked for free moron':
  175. pfilmNO = 1
  176. pfilm = 0
  177. gt 'pornstudio', 'start'
  178. end
  179. act 'Well, in return for free.':
  180. pfilmNOPAY = 1
  181. gt 'pornstudio', 'start'
  182. end
  183. !!else
  184. !!'Peter said on the phone, he covers up the phone for a second. "Listen, while not up to you, how come some other time."'
  185. !!act 'Leave':gt 'pornstudio', 'start'
  186. exit
  187. end
  188. if film = 0 and firstkasting = 0:
  189. '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?'
  190. act 'I changed my mind':gt 'pornstudio', 'start'
  191. act 'Yes':
  192. cla
  193. set minut += 5
  194. gs 'stat'
  195. 'You have confirmed their desire to play in a porn movie. Boss nodded. All right. First you need to spend casting.'
  196. 'Razdentes, me see your body.'
  197. act 'I changed my mind':gt 'pornstudio', 'start'
  198. act 'Unclothed':
  199. cla
  200. minut += 5
  201. gs 'stat'
  202. '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."'
  203. act 'I changed my mind':gt 'pornstudio', 'start'
  204. act 'Lie down on the sofa and spread her legs ':
  205. cla
  206. minut += 5
  207. gs 'stat'
  208. '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.'
  209. act 'To kneel':
  210. cla
  211. minut += 5
  212. gs 'stat'
  213. '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."'
  214. act 'Open mouth stick um language':
  215. cla
  216. minut += 5
  217. gs 'stat'
  218. '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.'
  219. act 'Thumb sucking':
  220. cla
  221. minut += 5
  222. gs 'stat'
  223. '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.'
  224. '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.'
  225. '(Boss) - I can call Peter. Firstly you need a nickname for filming.'
  226. act 'Called alias':
  227. cla
  228. firstkasting = 1
  229. $pfname = input ("What will be your alias?")
  230. if $pfname <= 0:$pfname = '<<$name>> Huesoskina'
  231. '<<$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.'
  232. 'We shoot films not so often. About once a month.'
  233. ''
  234. 'We´ll see. That we need.'
  235. act '.....':gt 'pornstudio', 'man'
  236. end
  237. end
  238. end
  239. end
  240. end
  241. end
  242. end
  243. elseif film = 0 and firstkasting = 1 and pfilm = 0:
  244. '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 3000.'
  245. act 'Agree':
  246. cla
  247. pfilm = 1
  248. pfilmday = daystart
  249. 'Thus, the survey will be tomorrow. Come to 10:00. Do not be late.'
  250. act 'Leave':gt 'pornstudio', 'start'
  251. end
  252. act 'I changed my mind':gt 'pornstudio', 'start'
  253. elseif film > 0:
  254. if daystart > pffilmday and pfilm = 0:
  255. 'Come on <<$pfname>>. So, let´s see what I can pick up for you.'
  256. frand = rand(1, 6)
  257. !!frand = 6
  258. if frand = 1:'Job handles need podorochit guy and he pulls on his chest. 2000.'
  259. if frand = 2:'Do blowjob guy, ending in the mouth and face. 3 thousand.'
  260. if frand = 3:'Classical, first blowjob, then sex with the end in the mouth and face. 5000.'
  261. if frand = 4:'Tough classic, first blowjob, then sex, then anal and ending up in the mouth and face. 6000.'
  262. if frand = 5:'Group sex with two guys in all holes, but without double penetration. 7000.'
  263. if frand = 6:'Threesome with two guys with double penetration. 9000.'
  264. act 'Perhaps wait for more suitable suggestions':
  265. pffilmday = daystart + 1
  266. gt 'pornstudio', 'start'
  267. end
  268. act 'Agree':
  269. cla
  270. pfilm = frand
  271. pfilmday = daystart
  272. 'Thus, the survey will be tomorrow. Come to 10:00. Do not be late.'
  273. act 'Leave':gt 'pornstudio', 'start'
  274. end
  275. else
  276. if pffilmday-daystart > 0:
  277. $talkpsno = 'Come back <<pffilmday-daystart>>days'
  278. 'Sorry <<$pfname>>, now there is no work for you. <<$talkpsno>>.'
  279. end
  280. if pffilmday-daystart = 0:
  281. $talkpsno = 'Come back tomorrow'
  282. 'Sorry <<$pfname>>, now there is no work for you. <<$talkpsno>>.'
  283. end
  284. act 'Leave':gt 'pornstudio', 'start'
  285. end
  286. end
  287. 'Peter said on the phone, he covers up the phone for a second. "Listen, while not up to you, how come some other time."'
  288. act 'Leave':gt 'pornstudio', 'start'
  289. !'if week < 6 and pornstudio > 1 and pfilmA = 0 and pfilmB = 0:
  290. set porand = rand(1, 3)
  291. if porand < 3:
  292. 'Who needs an actress doing a blowjob. 1000 per hour. Filming will take 5 hours. Not necessarily immediately removed. Can come and shoot for an hour.'
  293. act 'Agree':
  294. Set pfilm = 1
  295. gt 'the_film', 'film'
  296. end
  297. end
  298. if porand = 3:
  299. 'Who needs an actress for the film, anal, classic, deep blowjob. 3000 per hour. Filming will take 10:00. Not necessarily immediately removed. Can come and shoot for an hour.'
  300. act 'Agree':
  301. Set pfilm = 2
  302. gt 'the_film', 'film2'
  303. end
  304. end
  305. end
  306. if week < 6 and hour >= 10 and pfilmA > 0:
  307. 'You are not yet fully appeared in the film and you have to continue.'
  308. act 'Go to the set':
  309. Set pfilm = 1
  310. gt 'the_film', 'film'
  311. end
  312. end
  313. if week < 6 and hour >= 10 and pfilmB > 0:
  314. 'You are not yet fully appeared in the film and you have to continue.'
  315. act 'Go to the set':
  316. Set pfilm = 2
  317. gt 'the_film', 'film2'
  318. end
  319. end
  320. if actr = 1 and pfilmA = 0 and pfilmB = 0:'Now you have nothing to do in the studio, come Sunday'
  321. if week = 6 and actr = 0:
  322. act 'Try your luck at kastinge for starring':gt 'pornstudio', '2'
  323. end
  324. if week = 7 and actr = 1:
  325. act 'Go to the shooting':gt 'pornstudio', '3'
  326. end
  327. if week < 6 and hour >= 22:
  328. act 'Go home':gt 'down'
  329. end '!
  330. end
  331. if $ARGS[0] = '1':
  332. $metka = $ARGS[0]
  333. $loc = $CURLOC
  334. set minut += 5
  335. clr
  336. gs 'stat'
  337. '<center><img src="images/studia/Pierre_1.jpg"></center>'
  338. 'You came to the studio, looking for someone to look, who to approach to the issue.'
  339. 'To you approached by a young man who introduced Peter, you are greeted and met.'
  340. act 'Set out the purpose of your visit':
  341. cla
  342. *clr
  343. minut = minut + 60
  344. '<center><img src="images/studia/Pierre_2.jpg"></center>'
  345. 'Peter smiled and said that the new actresses are always welcome, just terrible, of course, in the business do not take. On the first couple of auditions will take place, if you like the public - you can not take them.'
  346. 'I´ll tell you that here and how, but under one condition - you have to undress.'
  347. act 'Undress':
  348. cla
  349. *clr
  350. '<center><img src="images/studia/casting_3.jpg"></center>'
  351. 'First there is a casting actresses - as I said, if you are terrible - you can not hope only comes when you have a beautiful appearance.'
  352. act '......':
  353. cla
  354. *clr
  355. '<center><img src="images/studia/model_0.jpg"></center>'
  356. 'Then she selected for the lead role.'
  357. 'Here you have to be the most beautiful.'
  358. act '......':
  359. cla
  360. *clr
  361. '<center><img src="images/studia/Film_0.jpg"></center>'
  362. 'Well then filming itself - an interesting and exciting process'
  363. 'And the output we get ....'
  364. act '......':
  365. cla
  366. *clr
  367. '<center><img src="images/studia/dvd-disс.jpg"></center>'
  368. 'Then on what I make money.'
  369. act 'Everything is clear, but how and where everything is for sale? Maybe I want to see for yourself ..':
  370. cla
  371. *clr
  372. '<center><img src="images/studia/Pierre_2.jpg"></center>'
  373. 'The sauna is in a residential area we have one man .. And in a sex shop, how could you understand there garters. Now here are thinking about selling in the university. If we have this who helped - increased profits used well, with dividend entitlements assistant, of course.'
  374. act 'And any problems with the law?':
  375. cla
  376. *clr
  377. '<center><img src="images/studia/ment_0.jpg"></center>'
  378. 'Specifically for you - yet. We´ve got their contracts with the cops, maybe in the future you will be able to help us to keep them in power, but for now - I told you all have to try on the weekend.'
  379. act 'Well like all realized':
  380. cla
  381. *clr
  382. '<center><img src="images/studia/Pierre_2.jpg"></center>'
  383. 'Boy, girl, enjoy yourself and do not take away I have more time'
  384. pornstudio = 3
  385. gt 'pornstudio', 'start'
  386. end
  387. end
  388. end
  389. end
  390. end
  391. end
  392. end
  393. end
  394. end
  395. if $ARGS[0] = '2':
  396. $metka = $ARGS[0]
  397. $loc = $CURLOC
  398. clr
  399. gs 'stat'
  400. set carraf = rand(10, 250)
  401. castingrand = rand(1, 6)
  402. if castingrand = 1:'<center><img src="images/studia/casting_1.jpg"></center>'
  403. if castingrand = 2:'<center><img src="images/studia/casting_2.jpg"></center>'
  404. if castingrand = 3:'<center><img src="images/studia/casting_3.jpg"></center>'
  405. if castingrand = 4:'<center><img src="images/studia/casting_4.jpg"></center>'
  406. if castingrand = 5:'<center><img src="images/studia/casting_5.jpg"></center>'
  407. if castingrand = 6:'<center><img src="images/studia/casting_6.jpg"></center>'
  408. 'You spent eight o´clock in the casting producer was undressing in front and taking a variety of poses.'
  409. minut = minut + 120
  410. gs 'stat'
  411. minut = minut + 120
  412. gs 'stat'
  413. minut = minut + 120
  414. gs 'stat'
  415. minut = minut + 120
  416. gs 'stat'
  417. if vnesh < carrar:
  418. 'You have not taken the role, very sorry'
  419. end
  420. if vnesh >= carrar:
  421. 'Your role'
  422. actr = 1
  423. end
  424. act 'Finish':
  425. gt 'pornstudio', 'start'
  426. end
  427. end
  428. if $ARGS[0] = '3':
  429. $metka = $ARGS[0]
  430. $loc = $CURLOC
  431. clr
  432. gs 'stat'
  433. actr = 0
  434. gt 'bdsm'
  435. end
  436. --- pornstudio ---------------------------------