412_pornstudio 33 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004
  1. # pornstudio
  2. <<<<<<< 412_pornstudio
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 412_pornstudio
  7. $metka = $ARGS[0]
  8. $loc = $CURLOC
  9. cla
  10. *clr
  11. <<<<<<< 412_pornstudio
  12. gs 'stat'
  13. set minut += 5
  14. '<center><img src="images\studia\studiа_0.jpg"></center>'
  15. act 'Leave': gt 'down'
  16. if hour >= 9 and hour <= 22:
  17. 'Manager´s office opened.'
  18. act 'Go to the manager': gt 'pornstudio','man'
  19. act 'Visit the Assistant queries manager': gt 'pornstudio','pomman'
  20. if bomzQW = 1 and week = 4 and workDisk = 0: act 'Arrive at the expense of': dynamic $workbomzdi
  21. if workDisk = 1 and week = 5:
  22. act 'Take a drive':
  23. cls
  24. minut += 5
  25. gs 'stat'
  26. workDisk = 2
  27. 'You are given a disk, and specify whether you remember all the instructions. You nod your head and head to the exit with the disc. Moving away from the studio near you heard someone else came out of a nearby building and headed for you. "Avoid deserted places, maybe blow over" you had hoped, and went on.'
  28. act 'Leave': gt 'down'
  29. end
  30. end
  31. if workDisk = 3 and week = 5:
  32. act 'Give the envelope':
  33. cls
  34. minut += 5
  35. workDisk = 4
  36. gs 'stat'
  37. if konvert = 0:
  38. 'Starting kopatsya in things you struck terror. No envelope. You all again ransacked, but no envelope.'
  39. '-WHAT! But how could this happen! You know, in what you got dibs?!'
  40. 'You stand and you can not squeeze out a single word. Sounds like your situation is really deplorable.'
  41. 'Manager grabs the phone and explains the situation to the other party. After listening to a couple of minutes, he hung up.'
  42. 'So-so - he said - 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 leave, but more than an actress you work with us you can not.'
  43. 'Otherwise, the consequences will be grim.'
  44. workDolg = 200000
  45. workDolgDay = 7
  46. else
  47. konvert = 0
  48. money += 5000
  49. 'You gave the envelope to the manager and he gave you 5,000 rubles'
  50. end
  51. act 'Leave': gt 'down'
  52. end
  53. end
  54. if workDolg > 0 and money >= workDolg:
  55. act 'To repay the debt':
  56. cls
  57. minut += 5
  58. gs 'stat'
  59. workDisk = 0
  60. money -= workDolg
  61. workDolg = 0
  62. 'You gave the money owed to the studio.'
  63. act 'Leave': gt 'down'
  64. end
  65. end
  66. if pfilmNO = 1 and pfilmNoVenera = 1 and Venera = 0:
  67. act 'Show help about sexually transmitted diseases cured':
  68. cls
  69. minut += 5
  70. pfilmNoVenera = 0
  71. pfilmNO = 0
  72. gs 'stat'
  73. 'You gave a certificate of sexually transmitted diseases cured and you promised to consider your reinstatement as a porn actress.'
  74. act 'Leave': gt 'down'
  75. end
  76. end
  77. else
  78. 'Porn studio closed'
  79. end
  80. =======
  81. gs'stat'
  82. set minut = minut + 5
  83. '<center><img src="studiand/studia_0.jpg" ></center>'
  84. act 'Get_Away':gt'down'
  85. if hour>=9 and hour<=22:
  86. 'Manager`s office opened.'
  87. act 'Go to the manager':gt'pornstudio','man'
  88. act 'Go to the Assistant queries manager':gt'pornstudio','pomman'
  89. if bomzQW=1 and week=4 and workDisk=0:act 'Go to the expense of work':dynamic $workbomzdi
  90. if workDisk=1 and week=5:
  91. act 'take a drive':
  92. cls
  93. minut+=5
  94. gs'stat'
  95. workDisk=2
  96. 'You are given a drive, and clarify, Do you remember all the instructions. You nod your head and head with the disc to the output. Moving away from the studio near you heard, as someone-something else came out of a nearby building and headed for you. "Avoid deserted places, maybe blow" hope you, and went on.'
  97. act 'Get_Away':gt'down'
  98. end
  99. end
  100. if 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. 'Starting kopatsya in things you struck terror. no envelope. You once again scoured all, but no envelope.'
  108. '-WHAT!!! But how could this happen!!! you understand, in which you have got dibs?!!
  109. You stand and you can not squeeze out a word. It_seems, your situation is really deplorable.
  110. Manager grabs the phone and explains the situation to the other party. After listening to a few minutes, He put the phone down.
  111. -so so - he began - his superiors in a good mood, so I have good news. Do you have a week. Until next Friday night you should bring to the studio 200 000. If you bring - we part, but more than an actress you we will not be able to work.
  112. -Otherwise.'
  113. workDolg=200000
  114. workDolgDay=7
  115. else
  116. konvert=0
  117. money+=5000
  118. 'You gave the envelope to the manager and he gave you 5000 rubles'
  119. end
  120. act 'Get_Away':gt'down'
  121. end
  122. end
  123. if workDolg>0 and money>=workDolg:
  124. act 'to repay a debt':
  125. cls
  126. minut+=5
  127. gs'stat'
  128. workDisk=0
  129. money-=workDolg
  130. workDolg=0
  131. 'You gave money owed ​​to the studio.'
  132. act 'Get_Away':gt'down'
  133. end
  134. end
  135. if pfilmNO=1 and pfilmNoVenera=1 and Venera=0:
  136. act 'Display help about sexually transmitted diseases cured':
  137. cls
  138. minut+=5
  139. pfilmNoVenera=0
  140. pfilmNO=0
  141. gs'stat'
  142. 'You are given a certificate of sexually transmitted diseases are cured and you promised to consider your reinstatement as a porn actress.'
  143. act 'Get_Away':gt'down'
  144. end
  145. end
  146. else
  147. 'Porn studio closed'
  148. end
  149. >>>>>>> 412_pornstudio
  150. end
  151. <<<<<<< 412_pornstudio
  152. if $ARGS[0] = 'pomman':
  153. =======
  154. if $ARGS[0]='pomman':
  155. >>>>>>> 412_pornstudio
  156. $metka = $ARGS[0]
  157. $loc = $CURLOC
  158. cla
  159. *clr
  160. <<<<<<< 412_pornstudio
  161. gs 'stat'
  162. set minut += 5
  163. =======
  164. gs'stat'
  165. set minut = minut + 5
  166. >>>>>>> 412_pornstudio
  167. 'Young guy knocks on the computer keys in a small office.'
  168. <<<<<<< 412_pornstudio
  169. '"How can I help you?".'
  170. if pfilmSTOP = 0: act 'What rating views from my video?': gt 'pornstudio','myvid'
  171. act 'Leave': gt 'pornstudio','start'
  172. =======
  173. '"How can I help you ?."'
  174. if pfilmSTOP = 0:act 'What rating display at my video ?':gt'pornstudio','myvid'
  175. act 'Get_Away':gt'pornstudio','start'
  176. >>>>>>> 412_pornstudio
  177. end
  178. <<<<<<< 412_pornstudio
  179. if $ARGS[0] = 'myvid':
  180. =======
  181. if $ARGS[0]='myvid':
  182. >>>>>>> 412_pornstudio
  183. $metka = $ARGS[0]
  184. $loc = $CURLOC
  185. <<<<<<< 412_pornstudio
  186. gs 'stat'
  187. set minut += 5
  188. if film = 0: '"You have no videos."'
  189. if film > 0:
  190. '"Do you <<film>> videos. Their rating is still very low, quite simply, they are almost nobody is looking."'
  191. '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."'
  192. act 'Rasprosov more': gt 'pornstudio','myvid2'
  193. end
  194. act 'Leave': gt 'pornstudio','start'
  195. =======
  196. gs'stat'
  197. set minut = minut + 5
  198. if film=0:'"You have no videos."'
  199. if film>0:
  200. '"you have <<film>> video. Their rating is still very low, simply put, they almost nobody looks."'
  201. 'Man whispering "By the way if you suddenly want, can contribute to their removal from the network - if you go down to the price."'
  202. act 'rasprosit more':gt'pornstudio','myvid2'
  203. end
  204. act 'Get_Away':gt'pornstudio','start'
  205. >>>>>>> 412_pornstudio
  206. end
  207. <<<<<<< 412_pornstudio
  208. if $ARGS[0] = 'myvid2':
  209. =======
  210. if $ARGS[0]='myvid2':
  211. >>>>>>> 412_pornstudio
  212. $metka = $ARGS[0]
  213. $loc = $CURLOC
  214. <<<<<<< 412_pornstudio
  215. gs 'stat'
  216. set minut += 5
  217. set films_stop_payment = film * 40000
  218. '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.'
  219. if money >= films_stop_payment: act 'Agree': gt 'pornstudio','myvid3'
  220. act 'Leave': gt 'pornstudio','start'
  221. =======
  222. gs'stat'
  223. set minut = minut + 5
  224. set films_stop_payment = film * 40000
  225. 'So long as the video display little, we are not very interested in them, and I can remove them. But will have to pay all the costs of the studio, order 40000 per. The total amount will be <<films_stop_payment>>. moreover, website-hoster does not like such models, so the more you will not get a job with us.'
  226. if money >= films_stop_payment:act 'agree':gt'pornstudio','myvid3'
  227. act 'Get_Away':gt'pornstudio','start'
  228. >>>>>>> 412_pornstudio
  229. end
  230. <<<<<<< 412_pornstudio
  231. if $ARGS[0] = 'myvid3':
  232. =======
  233. if $ARGS[0]='myvid3':
  234. >>>>>>> 412_pornstudio
  235. $metka = $ARGS[0]
  236. $loc = $CURLOC
  237. <<<<<<< 412_pornstudio
  238. gs 'stat'
  239. set minut += 5
  240. set money -= films_stop_payment
  241. set pfilmSTOP = 1
  242. $pfilmstory_new = 'In the porn industry you know the name' + $pfname + '. You starred in porn' + film + ' times. Shooting ceased all video seized.'
  243. set film = 0
  244. 'So, your video removed. Have a nice day.'
  245. act 'Leave': gt 'pornstudio','start'
  246. =======
  247. gs'stat'
  248. set minut = minut + 5
  249. set money = money - films_stop_payment
  250. set pfilmSTOP = 1
  251. $pfilmstory_new = 'In the porn industry you know the name of ' + $pfname + '. You starred in porn ' + film + ' time. Shootings were discontinued, All videos seized.'
  252. set film = 0
  253. 'And_So, your video removed. all the best.'
  254. act 'Get_Away':gt'pornstudio','start'
  255. >>>>>>> 412_pornstudio
  256. end
  257. <<<<<<< 412_pornstudio
  258. if $ARGS[0] = 'man':
  259. =======
  260. if $ARGS[0]='man':
  261. >>>>>>> 412_pornstudio
  262. $metka = $ARGS[0]
  263. $loc = $CURLOC
  264. cla
  265. *clr
  266. <<<<<<< 412_pornstudio
  267. gs 'stat'
  268. set minut += 5
  269. '<center><img src="images\studia\studiа_0.jpg"></center>'
  270. 'Boss porn studio met you welcome and gestured you sit on the couch.'
  271. if pfilmNO = 1:
  272. 'You´re blacklisted, you no decent studio will not have affairs, goodbye.'
  273. act 'Leave': gt 'pornstudio','start'
  274. exit
  275. end
  276. if pfilmSTOP = 1:
  277. 'You yourself decided to end all business with us.'
  278. act 'Leave': gt 'pornstudio','start'
  279. exit
  280. end
  281. if pfilmday = daystart and pfilm > 0:
  282. 'Do not distract me from my work. Like I said, tomorrow shooting.'
  283. act 'Leave': gt 'pornstudio','start'
  284. exit
  285. end
  286. if pfilmday >= daystart + 2 and pfilmNOPAY = 0:
  287. pfilmNO = 1
  288. '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.'
  289. act 'Leave': gt 'pornstudio','start'
  290. exit
  291. end
  292. if pfilm > 0 and hour = 10:
  293. pfilmday = day
  294. 'Come on honey inspection.'
  295. act 'Go for medical check-up': gt 'pf','doc'
  296. exit
  297. elseif pfilm > 0 and hour = 11:
  298. pfilmday = day
  299. 'Do not be late, my patience is not eternal, strictly tells you Peter. Vividly honey inspection.'
  300. act 'Go for medical check-up': gt 'pf','doc'
  301. exit
  302. elseif pfilm > 0 and hour = 12:
  303. pfilmday = day
  304. 'What the dick? There´s only one waiting for you. Hurry honey inspection.'
  305. act 'Go for medical check-up': gt 'pf','doc'
  306. exit
  307. elseif pfilm > 0 and hour > 12:
  308. pfilmday = day
  309. '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.'
  310. 'Either you come tomorrow and work for free, or get out and I know you do not want.'
  311. act 'Himself worked for free moron':
  312. pfilmNO = 1
  313. pfilm = 0
  314. gt 'pornstudio','start'
  315. end
  316. act 'Well, in return for free.':
  317. pfilmNOPAY = 1
  318. gt 'pornstudio','start'
  319. end
  320. !else
  321. !'Peter said on the phone, he covers up the phone for a second. "Listen, while not up to you, how come some other time."'
  322. !act 'Leave': gt 'pornstudio','start'
  323. exit
  324. end
  325. =======
  326. gs'stat'
  327. set minut = minut + 5
  328. '<center><img src="studiand/studia_0.jpg" ></center>'
  329. 'Boss porn studio met you warmly and gestured for you to sit down on the sofa.'
  330. if pfilmNO=1:
  331. 'You`re in the black list, with you no decent studio Affairs will not have, adieu.'
  332. act 'Get_Away':gt'pornstudio','start'
  333. exit
  334. end
  335. if pfilmSTOP = 1:
  336. 'You yourself decided to complete all the work with us.'
  337. act 'Get_Away':gt'pornstudio','start'
  338. exit
  339. end
  340. if pfilmday=daystart and pfilm>0:
  341. 'Do not distract me from my work. I told, tomorrow shooting.'
  342. act 'Get_Away':gt'pornstudio','start'
  343. exit
  344. end
  345. if pfilmday>=daystart+2:
  346. pfilmNO=1
  347. 'You did not come to shooting. tore them. I paid a lot of dough assistants, actors, operators, plus rent studio, and you took it and threw me. No, with you I do not want to work and am submitting your name to blacklist.'
  348. act 'Get_Away':gt'pornstudio','start'
  349. exit
  350. end
  351. if pfilm>0 and hour=10:
  352. pfilmday=day
  353. 'Go to medical examination.'
  354. act 'Go for medical check-up':gt'pf','doc'
  355. exit
  356. elseif pfilm>0 and hour=11:
  357. pfilmday=day
  358. 'Do not be late, my patience is not eternal, Strictly speaking you Peter. Vividly honey inspection.'
  359. act 'Go for medical check-up':gt'pf','doc'
  360. exit
  361. elseif pfilm>0 and hour=12:
  362. pfilmday=day
  363. 'what dick? There is only one waiting for you. Hurry honey inspection.'
  364. act 'Go for medical check-up':gt'pf','doc'
  365. exit
  366. elseif pfilm>0 and hour>12:
  367. pfilmday=day
  368. 'I told you not to be late? said. Get out of here, I`m out for you a lot of money lost. paid actors, assistants, operator, doctor, and because of you slut, all shooting broke down.'
  369. 'Or come back tomorrow and work for free, or get out and I know you do not want.'
  370. act 'Himself to work for free moron':
  371. pfilmNO=1
  372. pfilm=0
  373. gt'pornstudio','start'
  374. end
  375. act 'Fair_Enough, in return for free.':
  376. pfilmNOPAY=1
  377. gt'pornstudio','start'
  378. end
  379. !else
  380. !'Peter speaks on the phone, it covers a second tube. "Listen, while not up to you, Come as some other time."'
  381. !act 'Get_Away':gt'pornstudio','start'
  382. exit
  383. end
  384. >>>>>>> 412_pornstudio
  385. <<<<<<< 412_pornstudio
  386. if film = 0 and firstkasting = 0:
  387. '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?'
  388. act 'I changed my mind': gt 'pornstudio','start'
  389. act 'Yes':
  390. cla
  391. set minut += 5
  392. gs 'stat'
  393. 'You have confirmed their desire to play in a porn movie. Boss nodded. All right. First you need to spend casting.'
  394. 'Razdentes, me see your body.'
  395. act 'I changed my mind': gt 'pornstudio','start'
  396. act 'Unclothed':
  397. cla
  398. minut += 5
  399. gs 'stat'
  400. '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."'
  401. act 'I changed my mind': gt 'pornstudio','start'
  402. act 'Lie down on the sofa and spread her legs':
  403. cla
  404. minut += 5
  405. gs 'stat'
  406. '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.'
  407. act 'To kneel':
  408. cla
  409. minut += 5
  410. gs 'stat'
  411. '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."'
  412. act 'Open mouth stick um language':
  413. cla
  414. minut += 5
  415. gs 'stat'
  416. '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.'
  417. act 'Thumb sucking':
  418. cla
  419. minut += 5
  420. gs 'stat'
  421. '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.'
  422. '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.'
  423. '(Boss) - I can call Peter. Firstly you need a nickname for filming.'
  424. act 'Called alias':
  425. cla
  426. firstkasting = 1
  427. $pfname = input ("What will be your alias?")
  428. if $pfname <= 0:$pfname = '<<$name>> Huesoskina'
  429. '<<$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.'
  430. 'We shoot films not so often. About once a month.'
  431. ''
  432. 'We´ll see. That we need.'
  433. act '.....': gt 'pornstudio','man'
  434. end
  435. end
  436. end
  437. end
  438. end
  439. end
  440. end
  441. elseif film = 0 and firstkasting = 1 and pfilm = 0:
  442. '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.'
  443. act 'Agree':
  444. cla
  445. pfilm = 1
  446. pfilmday = daystart
  447. 'Thus, the survey will be tomorrow. Come to 10:00. Do not be late.'
  448. act 'Leave': gt 'pornstudio','start'
  449. end
  450. act 'I changed my mind': gt 'pornstudio','start'
  451. elseif film > 0:
  452. if daystart > pffilmday and pfilm = 0:
  453. 'Come on <<$pfname>>. So, let´s see what I can pick up for you.'
  454. frand = RAND(1,6)
  455. !frand = 6
  456. if frand = 1: 'Job handles need podorochit guy and he pulls on his chest. 2000.'
  457. if frand = 2: 'Do blowjob guy, ending in the mouth and face. 3 thousand.'
  458. if frand = 3: 'Classical, first blowjob, then sex with the end in the mouth and face. 5000.'
  459. if frand = 4: 'Tough classic, first blowjob, then sex, then anal and ending up in the mouth and face. 6000.'
  460. if frand = 5: 'Group sex with two guys in all holes, but without double penetration. 7000.'
  461. if frand = 6: 'Threesome with two guys with double penetration. 9000.'
  462. act 'Perhaps wait for more suitable suggestions':
  463. pffilmday = daystart + 1
  464. gt 'pornstudio','start'
  465. end
  466. act 'Agree':
  467. cla
  468. pfilm = frand
  469. pfilmday = daystart
  470. 'Thus, the survey will be tomorrow. Come to 10:00. Do not be late.'
  471. act 'Leave': gt 'pornstudio','start'
  472. end
  473. else
  474. if pffilmday-daystart > 0:
  475. $talkpsno = 'Come back <<pffilmday-daystart>>days'
  476. 'Sorry <<$pfname>>, now there is no work for you. <<$talkpsno>>.'
  477. end
  478. if pffilmday-daystart = 0:
  479. $talkpsno = 'Come back tomorrow'
  480. 'Sorry <<$pfname>>, now there is no work for you. <<$talkpsno>>.'
  481. end
  482. act 'Leave': gt 'pornstudio','start'
  483. end
  484. =======
  485. if film=0 and firstkasting=0:
  486. 'You sat down on the sofa and asked the boss. I see you for the first time we have. Want to rent a porno movie?'
  487. act 'I changed my mind':gt'pornstudio','start'
  488. act 'Yes_I_Am':
  489. cla
  490. set minut = minut + 5
  491. gs'stat'
  492. 'You have confirmed their desire to play in a porn movie. boss nodded. Ok. First you need to hold the casting.'
  493. 'Razdentes, I will search your body.'
  494. act 'I changed my mind':gt'pornstudio','start'
  495. act 'unclothed':
  496. cla
  497. minut+=5
  498. gs'stat'
  499. 'You undressed in front of the boss, He rose from his chair and walked looking at you. "Lie down on the couch and push the legs."'
  500. act 'I changed my mind':gt'pornstudio','start'
  501. act 'Lie down on the couch and spread her legs':
  502. cla
  503. minut+=5
  504. gs'stat'
  505. 'You lay down on the couch and spread his legs. Boss took fotoaparat and took a few pictures, explaining that this Portfolio. After that.'
  506. act 'Kneel':
  507. cla
  508. minut+=5
  509. gs'stat'
  510. 'You get up off the couch and knelt down in front of the boss. He took a few more photos. "Now open your mouth and tongue Vysun, as if you now face will finish."'
  511. act 'Open your mouth stick his tongue IT':
  512. cla
  513. minut+=5
  514. gs'stat'
  515. 'You have opened my mouth and stuck out her tongue. Boss again sfotkal you. "Not_Bad, Now suck my finger" He put you in the mouth with his thick finger as sordelka.'
  516. act 'thumb sucking':
  517. cla
  518. minut+=5
  519. gs'stat'
  520. 'You started to suck his finger trying to look as much as possible sexier. Boss touched your breasts with the other hand while you were busy with his finger.'
  521. 'He pulled his finger out of your mouth, curtly you, "dress." and sat down at the table. You quickly got dressed and sat on the couch.'
  522. '(boss) - I can call Peter. First you need a nickname for filming.'
  523. act 'called alias':
  524. cla
  525. firstkasting=1
  526. $pfname = input ("What is your nickname will be in porn movies?")
  527. if $pfname<=0:$pfname='light Huesoskina'
  528. '<<$pfname>>, huh, fair_enough, will_go. now listen, composition pornoaktera men have permanent, The shooting took place in front of all the medical examination. You. If you find any sign of a sexually transmitted disease, then dosvidaniya forever. This point is clear? Take care of your health. I`m not going to jeopardize his actors.'
  529. 'Movies we shoot less frequently. Approximately once per month.'
  530. ''
  531. 'now let`s see. What we need.'
  532. act '.....':gt'pornstudio','man'
  533. end
  534. end
  535. end
  536. end
  537. end
  538. end
  539. end
  540. elseif film=0 and firstkasting=1 and pfilm=0:
  541. 'so_Much, you`re a girl new, and we just have an order for a brand new girl. In the genre handdzhob. You`ll have a guy masturbate, and it would end on your chest. All this for 3 thousands.'
  542. act 'agree':
  543. cla
  544. pfilm=1
  545. pfilmday=daystart
  546. 'And_So, Shooting will be tomorrow. Come to 10 hours. Do not be late.'
  547. act 'Get_Away':gt'pornstudio','start'
  548. end
  549. act 'I changed my mind':gt'pornstudio','start'
  550. elseif film>0:
  551. if daystart>pffilmday and pfilm = 0:
  552. 'Come <<$pfname>>. so_Much, let`s see what I can pick up for you.'
  553. frand=RAND(1,6)
  554. !frand=6
  555. if frand=1:'work handles, need podorochit guy and he goes down on his chest. 2 thousands.'
  556. if frand=2:'Make the guy a blowjob, with the end in the mouth and face. 3 thousand.'
  557. if frand=3:'classic, first blowjob, then sex with the end in the mouth and face. 5 thousand.'
  558. if frand=4:'tough classics, first blowjob, then sex, then anal and ending in the mouth and face. 6 thousand.'
  559. if frand=5:'Group sex with two guys, in all holes, but without double penetration. 7 thousand.'
  560. if frand=6:'Group sex with two guys, with double penetration. 9 thousand.'
  561. act 'Perhaps wait for more suitable suggestions':
  562. pffilmday=daystart+1
  563. gt'pornstudio','start'
  564. end
  565. act 'agree':
  566. cla
  567. pfilm=frand
  568. pfilmday=daystart
  569. 'And_So, Shooting will be tomorrow. Come to 10 hours. Do not be late.'
  570. act 'Get_Away':gt'pornstudio','start'
  571. end
  572. else
  573. if pffilmday-daystart>0:
  574. $talkpsno='Come back <<pffilmday-daystart>> days'
  575. 'Sorry <<$pfname>>, Now there is not a job for you. <<$talkpsno>>.'
  576. end
  577. if pffilmday-daystart=0:
  578. $talkpsno='Come tomorrow'
  579. 'Sorry <<$pfname>>, Now there is not a job for you. <<$talkpsno>>.'
  580. end
  581. act 'Get_Away':gt'pornstudio','start'
  582. end
  583. >>>>>>> 412_pornstudio
  584. end
  585. <<<<<<< 412_pornstudio
  586. 'Peter said on the phone, he covers up the phone for a second. "Listen, while not up to you, how come some other time."'
  587. act 'Leave': gt 'pornstudio','start'
  588. !'if week < 6 and pornstudio > 1 and pfilmA = 0 and pfilmB = 0:
  589. set porand = RAND(1,3)
  590. if porand < 3:
  591. '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.'
  592. act 'Agree':
  593. Set pfilm = 1
  594. gt 'film','film'
  595. end
  596. end
  597. if porand = 3:
  598. '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.'
  599. act 'Agree':
  600. Set pfilm = 2
  601. gt 'film','film2'
  602. end
  603. end
  604. end
  605. if week < 6 and hour >= 10 and pfilmA > 0:
  606. 'You are not yet fully appeared in the film and you have to continue.'
  607. act 'Go to the set':
  608. Set pfilm = 1
  609. gt 'film','film'
  610. end
  611. end
  612. if week < 6 and hour >= 10 and pfilmB > 0:
  613. 'You are not yet fully appeared in the film and you have to continue.'
  614. act 'Go to the set':
  615. Set pfilm = 2
  616. gt 'film','film2'
  617. end
  618. end
  619. if actr = 1 and pfilmA = 0 and pfilmB = 0:
  620. 'Now you have nothing to do in the studio, come Sunday'
  621. end
  622. if week = 6 and actr = 0:
  623. act 'Try your luck at kastinge for starring': gt 'pornstudio','2'
  624. end
  625. if week = 7 and actr = 1:
  626. act 'Go to the shooting': gt 'pornstudio','3'
  627. end
  628. if week < 6 and hour >= 22:
  629. act 'Go home': gt 'down'
  630. end'
  631. =======
  632. 'Peter speaks on the phone, it covers a second tube. "Listen, while not up to you, Come as some other time."'
  633. act 'Get_Away':gt'pornstudio','start'
  634. !'if week < 6 and pornstudio>1 and pfilmA=0 and pfilmB=0:
  635. set porand = RAND (1,3)
  636. if porand <3:
  637. 'Who needs an actress, do blowjob. 1000 h. filming will take 5 hours. Not necessarily immediately removed. Can come and shoot for an hour.'
  638. act 'agree':
  639. Set pfilm = 1
  640. gt 'the_film','the_film'
  641. end
  642. end
  643. if porand = 3:
  644. 'Who needs an actress for the film, anal, classic, Deepthroating. 3000 h. filming will take 10 hours. Not necessarily immediately removed. Can come and shoot for an hour.'
  645. act 'agree':
  646. Set pfilm = 2
  647. gt 'the_film','the_film2'
  648. end
  649. end
  650. end
  651. if week < 6 and hour>=10 and pfilmA>0:
  652. 'You may not end up starring in the film and you have to continue.'
  653. act 'Go to the set':
  654. Set pfilm = 1
  655. gt 'the_film','the_film'
  656. end
  657. end
  658. if week < 6 and hour>=10 and pfilmB>0:
  659. 'You may not end up starring in the film and you have to continue.'
  660. act 'Go to the set':
  661. Set pfilm = 2
  662. gt 'the_film','the_film2'
  663. end
  664. end
  665. if actr=1 and pfilmA=0 and pfilmB=0:
  666. 'Now you have nothing to do in the studio, Come Sunday'
  667. end
  668. if week=6 and actr=0:
  669. act 'Try your luck at castinge for the title role':gt'pornstudio','2'
  670. end
  671. if week=7 and actr=1:
  672. act 'Go to the shooting':gt'pornstudio','3'
  673. end
  674. if week < 6 and hour >= 22:
  675. act 'go home':gt 'down'
  676. end'
  677. >>>>>>> 412_pornstudio
  678. end
  679. <<<<<<< 412_pornstudio
  680. if $ARGS[0] = '1':
  681. =======
  682. if $ARGS[0]='1':
  683. >>>>>>> 412_pornstudio
  684. $metka = $ARGS[0]
  685. $loc = $CURLOC
  686. <<<<<<< 412_pornstudio
  687. set minut += 5
  688. clr
  689. gs 'stat'
  690. '<center><img src="images\studia\Pierre_1.jpg"></center>'
  691. 'You came to the studio, looking for someone to look, who to approach to the issue.'
  692. 'To you approached by a young man who introduced Peter, you are greeted and met.'
  693. act 'Set out the purpose of your visit':
  694. cla
  695. *clr
  696. minut = minut + 60
  697. '<center><img src="images\studia\Pierre_2.jpg"></center>'
  698. '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.'
  699. 'I´ll tell you that here and how, but under one condition - you have to undress.'
  700. act 'Undress':
  701. cla
  702. *clr
  703. '<center><img src="images\studia\casting_3.jpg"></center>'
  704. '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.'
  705. act '......':
  706. cla
  707. *clr
  708. '<center><img src="images\studia\model_0.jpg"></center>'
  709. 'Then she selected for the lead role.'
  710. 'Here you have to be the most beautiful.'
  711. act '......':
  712. cla
  713. *clr
  714. '<center><img src="images\studia\Film_0.jpg"></center>'
  715. 'Well then filming itself - an interesting and exciting process'
  716. 'And the output we get ....'
  717. act '......':
  718. cla
  719. *clr
  720. '<center><img src="images\studia\dvd-disс.jpg"></center>'
  721. 'Then on what I make money.'
  722. act 'Everything is clear, but how and where everything is for sale? Maybe I want to see for yourself ..':
  723. cla
  724. *clr
  725. '<center><img src="images\studia\Pierre_2.jpg"></center>'
  726. '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.'
  727. act 'And any problems with the law?':
  728. cla
  729. *clr
  730. '<center><img src="images\studia\ment_0.jpg"></center>'
  731. '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.'
  732. act 'Well like all realized':
  733. cla
  734. *clr
  735. '<center><img src="images\studia\Pierre_2.jpg"></center>'
  736. 'Boy, girl, enjoy yourself and do not take away I have more time'
  737. pornstudio = 3
  738. gt 'pornstudio','start'
  739. end
  740. end
  741. end
  742. end
  743. end
  744. end
  745. end
  746. end
  747. =======
  748. set minut = minut + 5
  749. clr
  750. gs'stat'
  751. '<center><img src="studiand/Pierre_1.jpg" ></center>'
  752. 'You`ve come to the studio, looking for someone to look-some, Who can come up with a question.
  753. To you approached the young man, Peter introduced himself, you are greeted and met.'
  754. act 'To state the purpose of your visit':
  755. cla
  756. *clr
  757. minut=minut+60
  758. '<center><img src="studiand/Pierre_2.jpg" ></center>'
  759. 'Peter smiled and said, that the new actresses are always welcome, just terrible, of course, business do not take. The first couple will have to pass auditions, if you like the public - you can not pass them.'
  760. 'I `ll tell you, here and as, but under one condition - you need to undress.'
  761. act 'undress':
  762. cla
  763. *clr
  764. '<center><img src="studiand/casting_3.jpg" ></center>'
  765. 'First there is a casting actresses - as I have said, if you are terrible - can not hope, comes only when you have a beautiful appearance.'
  766. act '......':
  767. cla
  768. *clr
  769. '<center><img src="studiand/model_0.jpg" ></center>'
  770. 'Then the girl chosen for the lead role.'
  771. 'Here you have to be the most beautiful.'
  772. act '......':
  773. cla
  774. *clr
  775. '<center><img src="studiand/Film_0.jpg" ></center>'
  776. 'Well then she sС‘mka - processes interesting and exciting'
  777. 'And the output we obtain ....'
  778. act '......':
  779. cla
  780. *clr
  781. '<center><img src="studiand/dvd-diswith.jpg" ></center>'
  782. 'Then on what I make money.'
  783. act 'all clear, and how and where it is all sold? can, I want to look at yourself..':
  784. cla
  785. *clr
  786. '<center><img src="studiand/Pierre_2.jpg" ></center>'
  787. '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 about selling at the University. If we have helped with this one - b good profits increased, entitlements to dividends assistant, of course.'
  788. act 'And what-problems with the law?':
  789. cla
  790. *clr
  791. '<center><img src="studiand/ment_0.jpg" ></center>'
  792. '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 force, and yet - I told you everything, weekends have to try.'
  793. act 'Well':
  794. cla
  795. *clr
  796. '<center><img src="studiand/Pierre_2.jpg" ></center>'
  797. 'Good_For_You, girl, enjoy yourself and do not deprive me more time'
  798. pornstudio=3
  799. gt'pornstudio','start'
  800. end
  801. end
  802. end
  803. end
  804. end
  805. end
  806. end
  807. end
  808. >>>>>>> 412_pornstudio
  809. end
  810. <<<<<<< 412_pornstudio
  811. if $ARGS[0] = '2':
  812. =======
  813. if $ARGS[0]='2':
  814. >>>>>>> 412_pornstudio
  815. $metka = $ARGS[0]
  816. $loc = $CURLOC
  817. clr
  818. <<<<<<< 412_pornstudio
  819. gs 'stat'
  820. set carraf = rand(10,250)
  821. castingrand = RAND(1,6)
  822. if castingrand = 1: '<center><img src="images\studia\casting_1.jpg"></center>'
  823. if castingrand = 2: '<center><img src="images\studia\casting_2.jpg"></center>'
  824. if castingrand = 3: '<center><img src="images\studia\casting_3.jpg"></center>'
  825. if castingrand = 4: '<center><img src="images\studia\casting_4.jpg"></center>'
  826. if castingrand = 5: '<center><img src="images\studia\casting_5.jpg"></center>'
  827. if castingrand = 6: '<center><img src="images\studia\casting_6.jpg"></center>'
  828. 'You spent eight o´clock in the casting producer was undressing in front and taking a variety of poses.'
  829. minut = minut + 120
  830. gs 'stat'
  831. minut = minut + 120
  832. gs 'stat'
  833. minut = minut + 120
  834. gs 'stat'
  835. minut = minut + 120
  836. gs 'stat'
  837. if vnesh < carrar:
  838. 'You have not taken the role, very sorry'
  839. end
  840. if vnesh >= carrar:
  841. 'Your role'
  842. actr = 1
  843. end
  844. act 'Finish':
  845. gt 'pornstudio','start'
  846. end
  847. =======
  848. gs'stat'
  849. set carraf=rand(10,250)
  850. castingrand=RAND(1,6)
  851. if castingrand=1: '<center><img src="studiand/casting_1.jpg" ></center>'
  852. if castingrand=2: '<center><img src="studiand/casting_2.jpg" ></center>'
  853. if castingrand=3: '<center><img src="studiand/casting_3.jpg" ></center>'
  854. if castingrand=4: '<center><img src="studiand/casting_4.jpg" ></center>'
  855. if castingrand=5: '<center><img src="studiand/casting_5.jpg" ></center>'
  856. if castingrand=6: '<center><img src="studiand/casting_6.jpg" ></center>'
  857. 'You spent eight o`clock on the casting undressing in front by producer and taking various poses.'
  858. minut=minut+120
  859. gs'stat'
  860. minut=minut+120
  861. gs'stat'
  862. minut=minut+120
  863. gs'stat'
  864. minut=minut+120
  865. gs'stat'
  866. if vnesh<carrar:
  867. 'You have not taken on the role of, too bad'
  868. end
  869. if vnesh>=carrar:
  870. 'your role'
  871. actr = 1
  872. end
  873. act 'End_Up':
  874. gt'pornstudio','start'
  875. end
  876. >>>>>>> 412_pornstudio
  877. end
  878. <<<<<<< 412_pornstudio
  879. if $ARGS[0] = '3':
  880. =======
  881. if $ARGS[0]='3':
  882. >>>>>>> 412_pornstudio
  883. $metka = $ARGS[0]
  884. $loc = $CURLOC
  885. clr
  886. <<<<<<< 412_pornstudio
  887. gs 'stat'
  888. actr = 0
  889. gt 'bdsm'
  890. =======
  891. gs'stat'
  892. actr=0
  893. gt'bdsm'
  894. >>>>>>> 412_pornstudio
  895. end
  896. --- pornstudio ---------------------------------