1
0

pornfilm.qsrc 67 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731
  1. # pornfilm
  2. menu_off = 1
  3. if $ARGS[0] = 'pornactor':
  4. if pfactor ! 50:
  5. num = pfactor
  6. :actorloop
  7. akrand = rand(1,10)
  8. if akrand = 1:
  9. $pakter[num] = 'Alexei Steel'
  10. $pakternick[num] = 'Alexei'
  11. $pakterID[num] = 'A193'
  12. elseif akrand = 2:
  13. $pakter[num] = 'Sergei Stone'
  14. $pakternick[num] = 'Seryozha'
  15. $pakterID[num] = 'A194'
  16. elseif akrand = 3:
  17. $pakter[num] = 'George Drake'
  18. $pakternick[num] = 'Egori'
  19. $pakterID[num] = 'A195'
  20. elseif akrand = 4:
  21. $pakter[num] = 'Jason Black'
  22. $pakternick[num] = 'Ignat'
  23. $pakterID[num] = 'A196'
  24. elseif akrand = 5:
  25. $pakter[num] = 'Simon Lee'
  26. $pakter[num] = 'Syoma'
  27. $pakterID[num] = 'A197'
  28. elseif akrand = 6:
  29. $pakter[num] = 'Alec Thorn'
  30. $pakter[num] = 'Vasya'
  31. $pakterID[num] = 'A198'
  32. elseif akrand = 7:
  33. $pakter[num] = 'Bob Stone'
  34. $pakter[num] = 'Borya'
  35. $pakterID[num] = 'A199'
  36. elseif akrand = 8:
  37. $pakter[num] = 'Daniel Scott'
  38. $pakter[num] = 'Danek'
  39. $pakterID[num] = 'A200'
  40. elseif akrand = 9:
  41. $pakter[num] = 'Peter Hunt'
  42. $pakter[num] = 'Pepik'
  43. $pakterID[num] = 'A201'
  44. elseif akrand = 10:
  45. $pakter[num] = 'John Hook'
  46. $pakter[num] = 'Alusha'
  47. $pakterID[num] = 'A202'
  48. end
  49. if num < pfactor:
  50. num2 = pfactor
  51. :actorloop2
  52. if $pakter[num] = $pakter[num2]:jump 'actorloop'
  53. num2 -= 1
  54. if num2 > num:jump 'actorloop2'
  55. end
  56. if aksex[akrand] = 0:aksex[akrand] = 1 & guy += 1
  57. num -= 1
  58. if num > 0:jump 'actorloop'
  59. end
  60. end
  61. if $ARGS[0] = '1':
  62. if rand(0,1) = 0: pornhj += 1
  63. pornbukk += 1
  64. pfType = 0
  65. *clr & cla
  66. gs 'fame', 'city', 'porn', 10
  67. minut += 30
  68. gs 'stat'
  69. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  70. 'To the side stands the actor <<$pakter[1]>>, stroking his member.'
  71. act 'Undress and start':
  72. *clr & cla
  73. gs 'stat'
  74. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/hj.mp4"></video></center>'
  75. '<<$pakter[1]>> lies on the bed. You lie down beside him and take his penis in your hand. You begin to stroke his penis.'
  76. gs 'arousal', 'hj', 30, 'exhibitionism'
  77. gs 'stat'
  78. act 'Masturbate him':
  79. *clr & cla
  80. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/hjcumontits.mp4"></video></center>'
  81. '<<$pakter[1]>> begins to caress your chest, and you continues to jerk his cock squirting his hot cum on you.'
  82. gs 'boyStat', $pakterID[1]
  83. sexpartkno = 1
  84. spafinloc = 15
  85. gs 'cum_manage'
  86. gs 'arousal', 'hj', 5, 'exhibitionism'
  87. gs 'arousal', 'end'
  88. gs 'stat'
  89. if shampoo > 0:
  90. act 'Take a shower': gt 'pornstudio', 'shower'
  91. else
  92. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  93. end
  94. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  95. end
  96. end
  97. end
  98. if $ARGS[0] = '2':
  99. if rand(0,2) = 0: pornhj += 1
  100. if rand(0,1) = 0: pornbj += 1
  101. pornswall += 1
  102. if rand(0,2) = 0: pornbukk += 1
  103. pfType = 0
  104. *clr & cla
  105. gs 'fame', 'city', 'porn', 12
  106. minut += 30
  107. gs 'stat'
  108. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  109. 'To the side stands the actor <<$pakter[1]>>, stroking his member.'
  110. act 'Undress and start':
  111. *clr & cla
  112. gs 'stat'
  113. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/hj.mp4"></video></center>'
  114. '<<$pakter[1]>> lay on the bed. You lie down beside him and take his penis in your hand. You begin to stroke his penis.'
  115. gs 'arousal', 'hj', 30, 'exhibitionism'
  116. gs 'stat'
  117. act 'Suck it':
  118. *clr & cla
  119. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/bj.mp4"></video></center>'
  120. '<<$pakter[1]>> sits on the bed. You settle down between his legs, take his cock in your mouth and begin sucking the head of his penis.'
  121. gs 'arousal', 'bj', 5, 'exhibitionism'
  122. gs 'stat'
  123. act 'Keep sucking':
  124. *clr & cla
  125. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/deep.mp4"></video></center>'
  126. '<<$pakter[1]>> begins to fuck your mouth, driving his cock down your throat with every thrust.'
  127. 'Finally he takes his cock out. You wipe the saliva from your mouth.'
  128. gs 'arousal', 'bj', 5, 'exhibitionism'
  129. gs 'stat'
  130. act 'Open your mouth':
  131. *clr & cla
  132. minut += 5
  133. facial += 1
  134. gs 'stat'
  135. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cum.mp4"></video></center>'
  136. '<<$pakter[1]>> shoots hot streams of sperm into your mouth and down your throat.'
  137. gs 'boyStat', $pakterID[1]
  138. sexpartkno = 1
  139. spafinloc = 12
  140. sexvolume = 36
  141. cumnostd = 1
  142. gs 'cum_manage'
  143. spafinloc = 11
  144. sexvolume = 4
  145. gs 'cum_manage'
  146. act 'Clean his cock':
  147. *clr & cla
  148. minut += 5
  149. swallow += 1
  150. gs 'stat'
  151. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/bj2.mp4"></video></center>'
  152. 'You keep your eyes fixed on his, as you gently lick every last drop of sperm from his cock.'
  153. gs 'arousal', 'end'
  154. gs 'stat'
  155. if shampoo > 0:
  156. act 'Take a shower': gt 'pornstudio', 'shower'
  157. else
  158. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  159. end
  160. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  161. end
  162. end
  163. end
  164. end
  165. end
  166. end
  167. if $ARGS[0] = '3':
  168. if rand(0,2) = 0: pornhj += 1
  169. if rand(0,2) = 0: pornbj += 1
  170. pornvag += 1
  171. pornswall += 1
  172. pfType = 0
  173. *clr & cla
  174. gs 'fame', 'city', 'porn', 16
  175. minut += 30
  176. gs 'stat'
  177. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  178. 'To the side stands the actor <<$pakter[1]>>, stroking his inviting member.'
  179. act 'Undress and start':
  180. *clr & cla
  181. gs 'stat'
  182. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/hj.mp4"></video></center>'
  183. '<<$pakter[1]>> lies on the bed. You lie down beside him and take his penis in your hand. You begin to pleasure him.'
  184. gs 'arousal', 'hj', 30, 'exhibitionism'
  185. gs 'stat'
  186. act 'Blow him':
  187. *clr & cla
  188. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/bj.mp4"></video></center>'
  189. '<<$pakter[1]>> sits on the edge of the bed. You kneel down between his legs, and passionately suck the head of his penis like it''s the most delicious lollipop.'
  190. gs 'arousal', 'bj', 5, 'exhibitionism'
  191. gs 'stat'
  192. act 'Suck more':
  193. *clr & cla
  194. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/deep.mp4"></video></center>'
  195. '<<$pakter[1]>> begins to fuck your mouth deeply, occasionally withdrawing completely to allow you to catch your breath, before returning more vigorously.'
  196. gs 'arousal', 'bj', 5, 'exhibitionism', 'deepthroat'
  197. gs 'stat'
  198. act 'Doggy style':
  199. *clr & cla
  200. pcs_vag += 1
  201. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/sex.mp4"></video></center>'
  202. 'You turn around and get on all fours, <<$pakter[1]>> guides his dick deep into your pussy. He begins to fuck you from behind, hard.'
  203. gs 'boyStat', $pakterID[1]
  204. sexpartkno = 1
  205. cumprecheck = 1
  206. cumnostd = 1
  207. gs 'cum_manage'
  208. gs 'arousal', 'vaginal', 15, 'exhibitionism'
  209. gs 'stat'
  210. act 'Kneel down and open your mouth':
  211. *clr & cla
  212. minut += 5
  213. spafinloc = 12
  214. sexvolume = 36
  215. cumnostd = 1
  216. gs 'cum_manage'
  217. spafinloc = 11
  218. sexvolume = 4
  219. gs 'cum_manage'
  220. facial += 1
  221. gs 'stat'
  222. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cum.mp4"></video></center>'
  223. '<<$pakter[1]>> holds his cock to your open mouth and fills it with sperm.'
  224. act 'Clean his cock with your mouth':
  225. *clr & cla
  226. minut += 5
  227. swallow += 1
  228. gs 'stat'
  229. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/bj2.mp4"></video></center>'
  230. 'Looking it to his eyes adoringly, you meticulously lick all the cum off his dick.'
  231. gs 'arousal', 'end'
  232. gs 'stat'
  233. if shampoo > 0:
  234. act 'Take a shower': gt 'pornstudio', 'shower'
  235. else
  236. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  237. end
  238. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  239. end
  240. end
  241. end
  242. end
  243. end
  244. end
  245. end
  246. if $ARGS[0] = '4':
  247. if rand(0,2) = 0: pornhj += 1
  248. if rand(0,1) = 0: pornbj += 1
  249. if rand(0,1) = 0: pornvag += 1
  250. if rand(0,1) = 0: pornanal += 1
  251. if rand(0,1) = 0: pornbukk += 1
  252. if rand(0,1) = 0: pornswall += 1
  253. pfType = 0
  254. *clr & cla
  255. gs 'fame', 'city', 'porn', 20
  256. minut += 30
  257. gs 'stat'
  258. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  259. 'To the side stands the actor <<$pakter[1]>>, stroking his impressive member.'
  260. act 'Undress and start':
  261. *clr & cla
  262. gs 'stat'
  263. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/hj.mp4"></video></center>'
  264. '<<$pakter[1]>> lies on the bed. You lie down beside him, place your hand on his penis and begin to stroke it.'
  265. gs 'arousal', 'hj', 30, 'exhibitionism'
  266. gs 'stat'
  267. act 'Blow him':
  268. *clr & cla
  269. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/bj.mp4"></video></center>'
  270. '<<$pakter[1]>> sits up. You have crouch down on the floor, he swings his legs over and you suddenly have his cock right in front of your face.'
  271. 'After admiring the impressive sight, you remember you''re being filmed and begin sucking the head of his penis.'
  272. gs 'arousal', 'bj', 5, 'exhibitionism'
  273. gs 'stat'
  274. act 'Suck further':
  275. *clr & cla
  276. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/deep.mp4"></video></center>'
  277. '<<$pakter[1]>> relaxes as you take control with your mouth trying to take the full length of his cock down your throat.'
  278. gs 'arousal', 'bj', 5, 'exhibitionism', 'deepthroat'
  279. gs 'stat'
  280. act 'Doggy style':
  281. *clr & cla
  282. pcs_vag += 1
  283. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/sex.mp4"></video></center>'
  284. 'You turn around and get on all fours, <<$pakter[1]>> guides his dick deep into your pussy. He begins to fuck you from behind, hard.'
  285. 'Just as you''re really getting into it, <<$pakter[1]>> pulls his cock out. You feel him pressing against your anus.'
  286. gs 'boyStat', $pakterID[1]
  287. sexpartkno = 1
  288. cumprecheck = 1
  289. cumnostd = 1
  290. gs 'cum_manage'
  291. gs 'arousal', 'vaginal', 5, 'exhibitionism'
  292. gs 'stat'
  293. act 'Anal':
  294. *clr & cla
  295. pcs_ass += 1
  296. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/sex.mp4"></video></center>'
  297. 'You try as best you can to relax your anus. Suddenly <<$pakter[1]>> pushes into your ass and goes at it like a jack-hammer.'
  298. gs 'arousal', 'anal', 5, 'exhibitionism'
  299. gs 'stat'
  300. act 'Kneel down and open your mouth':
  301. *clr & cla
  302. minut += 5
  303. facial += 1
  304. gs 'stat'
  305. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cum.mp4"></video></center>'
  306. '<<$pakter[1]>> brings his cock to your mouth, and feeds you the contents of his balls.'
  307. spafinloc = 12
  308. sexvolume = 36
  309. cumnostd = 1
  310. gs 'cum_manage'
  311. spafinloc = 11
  312. sexvolume = 4
  313. gs 'cum_manage'
  314. act 'Clean his cock with your mouth':
  315. *clr & cla
  316. minut += 5
  317. swallow += 1
  318. gs 'stat'
  319. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/bj2.mp4"></video></center>'
  320. 'You keep look deep into his eyes, then lick and kiss his sperm covered cock until it''s thoughly cleaned.'
  321. gs 'arousal', 'end'
  322. gs 'stat'
  323. if shampoo > 0:
  324. act 'Take a shower': gt 'pornstudio', 'shower'
  325. else
  326. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  327. end
  328. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  329. end
  330. end
  331. end
  332. end
  333. end
  334. end
  335. end
  336. end
  337. if $ARGS[0] = '5':
  338. if rand(0,2) = 0: pornhj += 1
  339. if rand(0,1) = 0: pornbj += 1
  340. if rand(0,1) = 0: pornvag += 1
  341. if rand(0,1) = 0: pornanal += 1
  342. if rand(0,1) = 0: pornbukk += 1
  343. if rand(0,1) = 0: pornswall += 1
  344. porngang += 1
  345. pfType = 0
  346. *clr & cla
  347. gs 'fame', 'city', 'porn', 25
  348. minut += 30
  349. gang += 1
  350. gs 'stat'
  351. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  352. 'Actors <<$pakter[1]>> and <<$pakter[2]>>, are watching porn on a monitor, getting their cocks ready for you...'
  353. act 'Undress and kneel':
  354. *clr & cla
  355. gs 'stat'
  356. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/tbj.mp4"></video></center>'
  357. '<<$pakter[1]>> and <<$pakter[2]>> slap their fully errect cocks against your face.'
  358. gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
  359. gs 'stat'
  360. act 'Suck them':
  361. *clr & cla
  362. pornbj += 1
  363. gs 'stat'
  364. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/tbj2.mp4"></video></center>'
  365. 'You start by sucking both members trying to please them both. Then, using your tongue, you draw circles under <<$pakter[1]>>s gland, making him moan.'
  366. 'Then you push your lips tightly against <<$pakter[2]>>s head, until your mouth is forced open, the look in his eyes tells you he''s ready'
  367. gs 'arousal', 'bj', 15, 'exhibitionism'
  368. gs 'stat'
  369. act 'Fuck':
  370. *clr & cla
  371. pcs_vag += 1
  372. pornvag += 1
  373. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/three.mp4"></video></center>'
  374. 'You bend over and <<$pakter[1]>> drives his dick into your pussy while you suck <<$pakter[2]>>.'
  375. gs 'boyStat', $pakterID[1]
  376. sexpartkno = 1
  377. cumprecheck = 1
  378. cumnostd = 1
  379. gs 'cum_manage'
  380. gs 'stat'
  381. gs 'arousal', 'bj', -15, 'exhibitionism'
  382. gs 'arousal', 'vaginal', 15, 'exhibitionism'
  383. gs 'stat'
  384. act 'Anal':
  385. *clr & cla
  386. pcs_ass += 1
  387. pornanal += 1
  388. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/threea.mp4"></video></center>'
  389. '<<$pakter[1]>> takes his cock out of your pussy, and plunges it into your ass. The change and the extra tightness quickly overwelms him.'
  390. 'He shoots his load into your ass, all the while you keep sucking <<$pakter[2]>>.'
  391. spafinloc = 3
  392. cumnostd = 1
  393. gs 'cum_manage'
  394. gs 'stat'
  395. gs 'arousal', 'bj', -15, 'exhibitionism'
  396. gs 'arousal', 'anal', 15, 'exhibitionism'
  397. gs 'stat'
  398. act 'Cum on face':
  399. *clr & cla
  400. minut += 5
  401. facial += 1
  402. pornswall += 1
  403. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/tcum.mp4"></video></center>'
  404. 'You move around to clean up <<$pakter[1]>>, when <<$pakter[2]>> grabs your head and feeds you his cum saying the most depraved things as it slowly trickles down your throat.'
  405. gs 'boyStat', $pakterID[2]
  406. sexpartkno = 1
  407. spafinloc = 12
  408. cumnostd = 1
  409. gs 'cum_manage'
  410. gs 'stat'
  411. gs 'arousal', 'end'
  412. gs 'stat'
  413. if shampoo > 0:
  414. act 'Take a shower': gt 'pornstudio', 'shower'
  415. else
  416. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  417. end
  418. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  419. end
  420. end
  421. end
  422. end
  423. end
  424. end
  425. if $ARGS[0] = '6':
  426. pornbj += 1
  427. pornvag += 1
  428. pornanal += 1
  429. if rand(0,1) = 0: pornbukk += 1
  430. pornswall += 1
  431. porngang += 1
  432. pfType = 0
  433. *clr & cla
  434. gs 'fame', 'city', 'porn', 25
  435. minut += 30
  436. gang += 1
  437. gs 'stat'
  438. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  439. 'Actors <<$pakter[1]>> and <<$pakter[2]>>, are watching porn on a monitor, getting their cocks ready for you...'
  440. act 'Undress and start':
  441. *clr & cla
  442. gs 'stat'
  443. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/tbj.mp4"></video></center>'
  444. '<<$pakter[1]>> and <<$pakter[2]>> bash their fully errect cocks into your face.'
  445. gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
  446. gs 'stat'
  447. act 'Suck':
  448. *clr & cla
  449. gs 'stat'
  450. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/tbj2.mp4"></video></center>'
  451. 'You started to suck both members trying to please them both, it feels so good, all this cock and it''s all for you.'
  452. gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
  453. gs 'stat'
  454. act 'Fuck':
  455. *clr & cla
  456. pcs_vag += 1
  457. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/three.mp4"></video></center>'
  458. 'You got on all fours and <<$pakter[1]>> fucks you like a dog while you suck <<$pakter[2]>>.'
  459. gs 'boyStat', $pakterID[1]
  460. sexpartkno = 1
  461. cumprecheck = 1
  462. cumnostd = 1
  463. gs 'cum_manage'
  464. gs 'stat'
  465. gs 'arousal', 'bj', -15, 'exhibitionism', 'group'
  466. gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
  467. gs 'stat'
  468. act 'Anal':
  469. *clr & cla
  470. pcs_ass += 1
  471. gs 'stat'
  472. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/threea.mp4"></video></center>'
  473. '<<$pakter[1]>> switches it up and sticks his cock into your ass while you keep sucking <<$pakter[2]>>.'
  474. gs 'arousal', 'bj', -15, 'exhibitionism', 'group'
  475. gs 'arousal', 'anal', 15, 'exhibitionism', 'group'
  476. gs 'stat'
  477. act 'Double Penetration':
  478. *clr & cla
  479. pcs_ass += 1
  480. pcs_vag += 1
  481. gs 'stat'
  482. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/three2.mp4"></video></center>'
  483. '<<$pakter[1]>> takes his dick out of your ass and lies down. Knowing <<$pakter[1]>> wants more, you straddle his cock.'
  484. 'You feel how his cock fill your pussy while <<$pakter[2]>> cames up from behind you and pushes his penis into your ass.'
  485. 'The guys find a rhythm and grind away at your holes, you moan loudly.'
  486. gs 'arousal', 'anal', -15, 'exhibitionism', 'group'
  487. gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
  488. gs 'stat'
  489. act 'Finish in mouth':
  490. *clr & cla
  491. minut += 5
  492. facial += 1
  493. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/tcum.mp4"></video></center>'
  494. 'The guys tell you they''re close and disengage. You grab the cock of <<$pakter[1]>> and began to suck.'
  495. 'Suddenly your head gets turned around and <<$pakter[2]>> shoots his load on your face and in your mouth, <<$pakter[1]>> following him close behind.'
  496. spafinloc = 12
  497. sexvolume = 6
  498. cumnostd = 1
  499. gs 'cum_manage'
  500. spafinloc = 11
  501. sexvolume = 2
  502. gs 'cum_manage'
  503. gs 'boyStat', $pakterID[2]
  504. spafinloc = 12
  505. sexvolume = 6
  506. cumnostd = 1
  507. gs 'cum_manage'
  508. spafinloc = 11
  509. sexvolume = 2
  510. gs 'cum_manage'
  511. gs 'stat'
  512. gs 'arousal', 'end'
  513. gs 'stat'
  514. if shampoo > 0:
  515. act 'Take a shower': gt 'pornstudio', 'shower'
  516. else
  517. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  518. end
  519. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  520. end
  521. end
  522. end
  523. end
  524. end
  525. end
  526. end
  527. if $ARGS[0] = '7':
  528. if rand(0,1) = 0: pornbj += 1
  529. pornvag += 1
  530. if rand(0,2) = 0: porngang += 1
  531. porncream += 1
  532. pfType = 1
  533. *clr & cla
  534. gs 'fame', 'city', 'porn', 20
  535. minut += 30
  536. $orgasm_or = 'no'
  537. gs 'stat'
  538. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  539. 'To the side stands the actor <<$pakter[1]>>, stroking his member.'
  540. act 'Undress and start':
  541. *clr & cla
  542. pornbj += 1
  543. gs 'stat'
  544. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/bj.mp4"></video></center>'
  545. '<<$pakter[1]>> sits before a TV. You walk up to him while disrobing and kneel between his legs, taking his cock in your mouth and begin sucking the head of his penis.'
  546. gs 'arousal', 'bj', 30, 'exhibitionism'
  547. gs 'stat'
  548. act 'Keep sucking':
  549. *clr & cla
  550. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/deep.mp4"></video></center>'
  551. '<<$pakter[1]>> begins to fuck your mouth, driving his cock down your throat with every thrust.'
  552. 'Finally he takes his cock out. You wipe the saliva from your mouth.'
  553. gs 'arousal', 'bj', 15, 'exhibitionism'
  554. gs 'stat'
  555. act 'Lay down on the couch':
  556. *clr & cla
  557. gs 'stat'
  558. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/fuck<<rand(1,2)>>.mp4"></video></center>'
  559. '<<$pakter[1]>> grabs your hips and throw you on the couch and starts to fuck you.'
  560. gs 'arousal', 'vaginal', 15, 'exhibitionism'
  561. gs 'stat'
  562. if orgasm_buildup => 200 - pcs_inhib:
  563. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
  564. if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
  565. act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
  566. cla
  567. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
  568. sexpartkno = 1
  569. orgasmbonus += 10
  570. porngasm += 1
  571. cumnostd = 1
  572. gs 'boyStat', $pakterID[1]
  573. gs 'cum_manage'
  574. gs 'stat'
  575. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  576. 'Finally you feel <<$pakter[1]>> cumming inside of you, which starts your own orgasm. You keep your eyes fixed on his, as he pumps a huge amount of sperm in you.'
  577. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porncp<<rand(1,4)>>.mp4" width="400"></video></center>'
  578. 'He finally climbs off of you, but you stay on the couch while the cameraman comes forward to film your pussy as it slowly starts to leak the actor''s seed. After a few minutes the director nods his head, and you get up.'
  579. $orgasm_or = 'yes'
  580. gs 'arousal', 'vaginal', 5, 'exhibitionism'
  581. gs 'arousal', 'end'
  582. gs 'stat'
  583. if shampoo > 0:
  584. act 'Take a shower': gt 'pornstudio', 'shower'
  585. else
  586. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  587. end
  588. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  589. end
  590. else
  591. act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  592. end
  593. end
  594. if orgasm_buildup < 300 - pcs_inhib:
  595. act 'Fake orgasm':
  596. cla
  597. sexpartkno = 1
  598. cumnostd = 1
  599. gs 'boyStat', $pakterID[1]
  600. gs 'cum_manage'
  601. gs 'stat'
  602. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasmfake.mp4" width="400"></video></center>'
  603. 'Finally you feel <<$pakter[1]>> cumming inside of you, so you fake a sreaming orgasm for the film. You keep your eyes fixed on his, as he pumps a huge amount of sperm in you.'
  604. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porncp<<rand(1,4)>>.mp4" width="400"></video></center>'
  605. 'He finally climbs off of you, but you stay on the couch while the cameraman comes forward to film your pussy as it slowly starts to leak the actor''s seed. After a few minutes the director nods his head, and you get up.'
  606. gs 'arousal', 'vaginal', 5, 'exhibitionism'
  607. gs 'arousal', 'end'
  608. gs 'stat'
  609. if shampoo > 0:
  610. act 'Take a shower': gt 'pornstudio', 'shower'
  611. else
  612. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  613. end
  614. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  615. end
  616. end
  617. end
  618. end
  619. end
  620. end
  621. if $ARGS[0] = '8':
  622. if rand(0,2) = 0: pornbj += 1
  623. pornvag += 1
  624. pornanal += 1
  625. porngang += 1
  626. porncream += 1
  627. pfType = 1
  628. *clr & cla
  629. gs 'fame', 'city', 'porn', 25
  630. minut += 30
  631. gang += 1
  632. porngang += 1
  633. $orgasm_or = 'no'
  634. gs 'stat'
  635. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  636. 'Actors <<$pakter[1]>> and <<$pakter[2]>>, are watching porn on a monitor, getting their cocks ready for you...'
  637. act 'Undress and kneel':
  638. *clr & cla
  639. gs 'stat'
  640. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/tbj.mp4"></video></center>'
  641. '<<$pakter[1]>> and <<$pakter[2]>> slap their fully errect cocks against your face.'
  642. gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
  643. gs 'stat'
  644. act 'Suck them':
  645. *clr & cla
  646. gs 'stat'
  647. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/tbj2.mp4"></video></center>'
  648. 'You start by sucking both members trying to please them both. Then, using your tongue, you draw circles under <<$pakter[1]>>''s gland, making him moan.'
  649. 'Then you push your lips tightly against <<$pakter[2]>>''s head, until your mouth is forced open, the look in his eyes tells you he''s ready'
  650. gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
  651. gs 'stat'
  652. act 'Fuck them':
  653. *clr & cla
  654. pcs_vag += 1
  655. pcs_ass += 1
  656. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/threesomedp<<rand(1,5)>>.mp4" width="500"></video></center>'
  657. if rand(0,1) = 0:
  658. gs 'boyStat', $pakterID[1]
  659. sexpartkno = 1
  660. cumnostd = 1
  661. gs 'cum_manage'
  662. gs 'boyStat', $pakterID[2]
  663. sexpartkno = 1
  664. spafinloc = 3
  665. cumnostd = 1
  666. gs 'cum_manage'
  667. '<<$pakter[1]>> lays on the bed and you climb above him, fitting his cock in your pussy, then wait until <<$pakter[2]>> pushes his member in your ass. He soon starts to fuck you enthusiastically, making you ride <<$pakter[1]>>''s dick. This continues for a while, but soon the director signals the guys that they should cum inside.'
  668. gs 'arousal', 'anal', -25, 'exhibitionism', 'group'
  669. gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
  670. gs 'stat'
  671. else
  672. gs 'boyStat', $pakterID[2]
  673. sexpartkno = 1
  674. cumnostd = 1
  675. gs 'cum_manage'
  676. gs 'boyStat', $pakterID[1]
  677. sexpartkno = 1
  678. spafinloc = 3
  679. cumnostd = 1
  680. gs 'cum_manage'
  681. '<<$pakter[2]>> lays on the bed and you climb above him, fitting his cock in your pussy, then wait until <<$pakter[1]>> pushes his member in your ass. He soon starts to fuck you enthusiastically, making you ride <<$pakter[2]>>''s dick. This continues for a while, but soon the director signals the guys that they should cum inside.'
  682. gs 'arousal', 'anal', -25, 'exhibitionism', 'group'
  683. gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
  684. gs 'stat'
  685. end
  686. 'The guys start to fuck you even faster as a reply, and pretty soon you feel them twitching inside of your body.'
  687. ''
  688. if orgasm_buildup => 200 - pcs_inhib:
  689. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
  690. if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
  691. act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
  692. cla
  693. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
  694. porngasm += 1
  695. orgasmbonus += 10
  696. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  697. 'You have a real orgasm while filming. You keep your eyes fixed on the guy below you as he pumps a huge amount of sperm in you. The guys finally finishing, so you lay down on the bed with your legs apart so the cameraman could take a few closeups of your pussy and ass as the actors'' seed is slowly starts to leak out of you. After a few minutes of this the director nods his head, and you get up.'
  698. $orgasm_or = 'yes'
  699. gs 'arousal', 'vaginal', 5, 'exhibitionism'
  700. gs 'arousal', 'end'
  701. gs 'stat'
  702. if shampoo > 0:
  703. act 'Take a shower': gt 'pornstudio', 'shower'
  704. else
  705. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  706. end
  707. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  708. end
  709. else
  710. act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  711. end
  712. end
  713. if orgasm_buildup < 300 - pcs_inhib:
  714. act 'Fake orgasm':
  715. cla
  716. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasmfake.mp4" width="400"></video></center>'
  717. 'You fake a sreaming orgasm for the film. You keep your eyes fixed on the guy below you as he pumps a huge amount of sperm in you. The guys finally finishing, so you lay down on the bed with your legs apart so the cameraman could take a few closeups of your pussy and ass as the actors'' seed is slowly starts to leak out of you. After a few minutes of this the director nods his head, and you get up.'
  718. gs 'arousal', 'vaginal', 5, 'exhibitionism'
  719. gs 'arousal', 'end'
  720. gs 'stat'
  721. if shampoo > 0:
  722. act 'Take a shower': gt 'pornstudio', 'shower'
  723. else
  724. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  725. end
  726. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  727. end
  728. end
  729. end
  730. end
  731. end
  732. end
  733. if $ARGS[0] = '9':
  734. if rand(0,2) = 0: pornbj += 1
  735. pornswall += 1
  736. pornvag += 1
  737. porngang += 1
  738. porncream += 1
  739. pfType = 1
  740. *clr & cla
  741. gs 'fame', 'city', 'porn', 25
  742. minut += 30
  743. gang += 1
  744. $orgasm_or = 'no'
  745. gs 'stat'
  746. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  747. 'Actors <<$pakter[1]>> and <<$pakter[2]>>, are watching porn on a monitor, getting their cocks ready for you...'
  748. act 'Undress and kneel':
  749. *clr & cla
  750. gs 'stat'
  751. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/tbj.mp4"></video></center>'
  752. '<<$pakter[1]>> and <<$pakter[2]>> slap their fully errect cocks against your face.'
  753. gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
  754. gs 'stat'
  755. act 'Suck them':
  756. *clr & cla
  757. gs 'stat'
  758. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/tbj2.mp4"></video></center>'
  759. 'You start by sucking both members trying to please them both. Then, using your tongue, you draw circles under <<$pakter[1]>>''s gland, making him moan.'
  760. 'Then you sucking <<$pakter[2]>>''s dick while he grabs your hair for leverage and facefuck you. After a while the director gestures for you to get to the next scene, so he releases you, and looking at <<$pakter[1]>> he urges you to push your ass out.'
  761. gs 'arousal', 'bj', 15, 'exhibitionism', 'group', 'rough', 'deepthroat'
  762. gs 'stat'
  763. act 'Fuck them':
  764. *clr & cla
  765. pornvag += 1
  766. pornswall += 1
  767. '<center><video autoplay loop src="images/shared/sex/group/threesomepm<<rand(1,12)>>.mp4" width="500"></video></center>'
  768. if rand(0,1) = 0:
  769. gs 'boyStat', $pakterID[1]
  770. sexpartkno = 1
  771. cumnostd = 1
  772. gs 'cum_manage'
  773. gs 'boyStat', $pakterID[2]
  774. sexpartkno = 1
  775. spafinloc = 12
  776. cumnostd = 1
  777. gs 'cum_manage'
  778. 'You get in position before <<$pakter[2]>> and starts to suck him, while <<$pakter[1]>> starts to fuck your pussy. He soon works on that part enthusiastically, making you swallow <<$pakter[2]>>''s dick. This continues for a while, but soon the director signals that the scene is good enough, and it is time for the finale.'
  779. gs 'arousal', 'bj', -25, 'exhibitionism', 'group'
  780. gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
  781. gs 'stat'
  782. else
  783. gs 'boyStat', $pakterID[2]
  784. sexpartkno = 1
  785. cumnostd = 1
  786. gs 'cum_manage'
  787. gs 'boyStat', $pakterID[1]
  788. sexpartkno = 1
  789. spafinloc = 3
  790. cumnostd = 1
  791. gs 'cum_manage'
  792. 'You get in position before <<$pakter[1]>> and starts to suck him, while <<$pakter[2]>> starts to fuck your pussy. He soon works on that part enthusiastically, making you swallow <<$pakter[1]>>''s dick. This continues for a while, but soon the director signals that the scene is good enough, and it is time for the finale.'
  793. gs 'arousal', 'bj', -25, 'exhibitionism', 'group'
  794. gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
  795. gs 'stat'
  796. end
  797. 'The guys immediately starts to fuck you even faster, clearly trying to cum as soon as possible, while still coordinating with each other, and since they are professional, you soon feel them twitching inside oy your body simultaneously, bathing your cunt in seed while your mouth quickly fills with sperm too.'
  798. ''
  799. if orgasm_buildup => 200 - pcs_inhib:
  800. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
  801. if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
  802. act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
  803. cla
  804. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
  805. orgasmbonus += 10
  806. porngasm += 1
  807. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  808. 'You have a real orgasm while filming. You keep your eyes fixed on the guy before you as he pumps a huge amount of sperm in your mouth. The guys finally finishing and your movie partners step away from the scene so the cameraman could take a few closeups of your sperm-full mouth and seed-dripping pussy. After a few seconds you swallow the sperm and get up.'
  809. $orgasm_or = 'yes'
  810. gs 'arousal', 'vaginal', 5, 'exhibitionism'
  811. gs 'arousal', 'end'
  812. gs 'stat'
  813. if shampoo > 0:
  814. act 'Take a shower': gt 'pornstudio', 'shower'
  815. else
  816. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  817. end
  818. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  819. end
  820. else
  821. act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  822. end
  823. end
  824. if orgasm_buildup < 300 - pcs_inhib:
  825. act 'Fake orgasm':
  826. cla
  827. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasmfake.mp4" width="400"></video></center>'
  828. 'You fake a sreaming orgasm for the film. You keep your eyes fixed on the guy before you as he pumps a huge amount of sperm in your mouth. The guys finally finishing and your movie partners step away from the scene so the cameraman could take a few closeups of your sperm-full mouth and seed-dripping pussy. After a few seconds you swallow the sperm and get up.'
  829. gs 'arousal', 'vaginal', 5, 'exhibitionism'
  830. gs 'arousal', 'end'
  831. gs 'stat'
  832. if shampoo > 0:
  833. act 'Take a shower': gt 'pornstudio', 'shower'
  834. else
  835. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  836. end
  837. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  838. end
  839. end
  840. end
  841. end
  842. end
  843. end
  844. if $ARGS[0] = '10':
  845. if rand(0,1) = 0: pornbj += 1
  846. pornvag += 2
  847. porngang += 2
  848. if rand(0,1) = 0: pornhj += 1
  849. pornbukk += 2
  850. pfType = 1
  851. *clr & cla
  852. gs 'fame', 'city', 'porn', 30
  853. minut += 30
  854. gang += 1
  855. $orgasm_or = 'no'
  856. gs 'stat'
  857. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  858. 'Actors <<$pakter[1]>>, <<$pakter[2]>>, <<$pakter[3]>> and <<$pakter[4]>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'
  859. act 'Warmup':
  860. *clr & cla
  861. gs 'stat'
  862. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/warmupgang.mp4" width="500"></video></center>'
  863. 'The actors gather around you, and you soon suck one guy while giving a handjob for an another one. The two other guys get creative, one of them sucking your tits, while the other licking your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
  864. gs 'arousal', 'bj', -20, 'exhibitionism', 'group'
  865. gs 'arousal', 'hj', 20, 'exhibitionism', 'group'
  866. gs 'stat'
  867. act 'Fuck them':
  868. *clr & cla
  869. gs 'stat'
  870. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/gangp<<rand(1,4)>>.mp4" width="500"></video></center>'
  871. 'The guys starts to fuck you, one after the other, but never cumming. All the while you keep them ready with your hands and mouth.'
  872. gs 'arousal', 'vaginal', 20, 'exhibitionism', 'group'
  873. gs 'stat'
  874. act 'Cream bath':
  875. killvar 'cuminside'
  876. *clr & cla
  877. 'The guys continue to fuck you, but this time with the purpose of cumming as quickly as possible.'
  878. gs 'stat'
  879. gs 'boyStat', $pakterID[1]
  880. sexpartkno = 1
  881. cumprecheck = 1
  882. cumnostd = 1
  883. gs 'cum_manage'
  884. if rand(0,5) > 0:
  885. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
  886. '<<$pakter[1]>> suddenly groans, pulling out in the last second coating your pussylips with his sperm.'
  887. else
  888. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
  889. '<<$pakter[1]>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your pussylips.'
  890. sexpartkno = 1
  891. cumnostd = 1
  892. gs 'cum_manage'
  893. cuminside = 1
  894. end
  895. spafinloc = 1
  896. sexpartkno = 1
  897. cumnostd = 1
  898. gs 'cum_manage'
  899. if orgasm_buildup >= 200 - pcs_inhib:
  900. orgasmbonus += 10
  901. pornorg = 1
  902. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  903. 'You have a real orgasm while filming. You keep your eyes fixed on the guy as he coats your writhing body with his seed.'
  904. $orgasm_or = 'yes'
  905. gs 'stat'
  906. end
  907. gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
  908. 'When he is done, he is replaced by <<$pakter[2]>>, who also fucks you.'
  909. gs 'stat'
  910. gs 'boyStat', $pakterID[2]
  911. sexpartkno = 1
  912. cumprecheck = 1
  913. cumnostd = 1
  914. gs 'cum_manage'
  915. if rand(0,5) > 0:
  916. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
  917. '<<$pakter[2]>> suddenly groans, pulling out in the last second coating your breasts with his sperm.'
  918. else
  919. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
  920. '<<$pakter[2]>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your breasts.'
  921. sexpartkno = 1
  922. cumnostd = 1
  923. gs 'cum_manage'
  924. cuminside = 1
  925. end
  926. spafinloc = 15
  927. sexpartkno = 1
  928. gs 'cum_manage'
  929. if orgasm_buildup >= 200 - pcs_inhib:
  930. orgasmbonus += 10
  931. pornorg = 1
  932. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  933. 'You have a real orgasm while filming. You keep your eyes fixed on the guy as he coats your writhing body with his seed.'
  934. $orgasm_or = 'yes'
  935. gs 'stat'
  936. end
  937. gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
  938. 'When he is done, he is replaced by <<$pakter[3]>>, who also fucks you.'
  939. gs 'stat'
  940. gs 'boyStat', $pakterID[3]
  941. sexpartkno = 1
  942. cumprecheck = 1
  943. cumnostd = 1
  944. gs 'cum_manage'
  945. if rand(0,5) > 0:
  946. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
  947. '<<$pakter[3]>> suddenly groans, pulling out in the last second coating your face and hair with his sperm.'
  948. else
  949. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
  950. '<<$pakter[3]>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your face and hair with his sperm.'
  951. sexpartkno = 1
  952. cumnostd = 1
  953. gs 'cum_manage'
  954. cuminside = 1
  955. end
  956. spafinloc = 11
  957. sexpartkno = 1
  958. gs 'cum_manage'
  959. spafinloc = 16
  960. sexpartkno = 1
  961. gs 'cum_manage'
  962. if orgasm_buildup >= 200 - pcs_inhib:
  963. orgasmbonus += 10
  964. pornorg = 1
  965. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  966. 'You have a real orgasm while filming. You keep your eyes fixed on the guy as he coats your writhing body with his seed.'
  967. $orgasm_or = 'yes'
  968. end
  969. gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
  970. 'When he is done, he is replaced by <<$pakter[4]>>, who also fucks you.'
  971. gs 'stat'
  972. gs 'boyStat', $pakterID[4]
  973. sexpartkno = 1
  974. cumprecheck = 1
  975. cumnostd = 1
  976. gs 'cum_manage'
  977. if rand(0,5) > 0:
  978. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
  979. '<<$pakter[4]>> suddenly groans, pulling out in the last second coating your belly with his sperm.'
  980. else
  981. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/citycenter/studio/sex/cumbath<<rand(1,9)>>.mp4" width="500"></video></center>'
  982. '<<$pakter[4]>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your belly with his sperm.'
  983. sexpartkno = 1
  984. cumnostd = 1
  985. gs 'cum_manage'
  986. cuminside = 1
  987. end
  988. sexpartkno = 1
  989. spafinloc = 14
  990. gs 'cum_manage'
  991. if orgasm_buildup >= 200 - pcs_inhib:
  992. orgasmbonus += 10
  993. pornorg = 1
  994. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  995. 'You have a real orgasm while filming. You keep your eyes fixed on the guy as he coats your writhing body with his seed.'
  996. $orgasm_or = 'yes'
  997. end
  998. gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
  999. if cuminside = 1: porncream += 1 & killvar 'cuminside'
  1000. if pornorg = 1: porngasm += 1 & killvar 'pornorg'
  1001. gs 'stat'
  1002. gs 'arousal', 'end'
  1003. gs 'stat'
  1004. if shampoo > 0:
  1005. act 'Take a shower': gt 'pornstudio', 'shower'
  1006. else
  1007. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  1008. end
  1009. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  1010. end
  1011. end
  1012. end
  1013. end
  1014. if $ARGS[0] = '11':
  1015. if rand(0,1) = 0:pornbj += 1
  1016. if rand(0,1) = 0:pornhj += 1
  1017. pornvag += 2
  1018. porngang += 2
  1019. porncream += 2
  1020. pfType = 1
  1021. *clr & cla
  1022. gs 'fame', 'city', 'porn', 30
  1023. minut += 30
  1024. gang += 1
  1025. $orgasm_or = 'no'
  1026. gs 'stat'
  1027. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  1028. 'Actors <<$pakter[1]>>, <<$pakter[2]>>, <<$pakter[3]>> and <<$pakter[4]>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'
  1029. act 'Warmup':
  1030. *clr & cla
  1031. gs 'stat'
  1032. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/warmupgang.mp4" width="500"></video></center>'
  1033. 'The actors gather around you, and you soon suck one guy while giving a handjob for an another one. The two other guys get creative, one of them sucking your tits, while the other licking your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
  1034. gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
  1035. gs 'arousal', 'cuni', 20, 'exhibitionism', 'group'
  1036. gs 'stat'
  1037. act 'Fuck them':
  1038. *clr & cla
  1039. gs 'boyStat', $pakterID[1]
  1040. sexpartkno = 1
  1041. cumprecheck = 1
  1042. cumnostd = 1
  1043. gs 'cum_manage'
  1044. gs 'boyStat', $pakterID[2]
  1045. sexpartkno = 1
  1046. cumprecheck = 1
  1047. cumnostd = 1
  1048. gs 'cum_manage'
  1049. gs 'boyStat', $pakterID[3]
  1050. sexpartkno = 1
  1051. cumprecheck = 1
  1052. cumnostd = 1
  1053. gs 'cum_manage'
  1054. gs 'boyStat', $pakterID[4]
  1055. sexpartkno = 1
  1056. cumprecheck = 1
  1057. cumnostd = 1
  1058. gs 'cum_manage'
  1059. gs 'stat'
  1060. '<center><video autoplay loop src="images/shared/sex/group/threesomepm<<rand(1,12)>>.mp4" width="500"></video></center>'
  1061. 'The guys starts to fuck you, one after the other, but never cumming. All the while you keep them ready with your hands and mouth.'
  1062. gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
  1063. gs 'arousal', 'bj', -20, 'exhibitionism', 'group'
  1064. gs 'arousal', 'vaginal', 20, 'exhibitionism', 'group'
  1065. gs 'stat'
  1066. act 'Creampie':
  1067. *clr & cla
  1068. minut += 5
  1069. porncream += 1
  1070. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porncp<<rand(1,4)>>.mp4" width="500"></video></center>'
  1071. gs 'boyStat', $pakterID[1]
  1072. sexpartkno = 1
  1073. cumnostd = 1
  1074. gs 'cum_manage'
  1075. gs 'boyStat', $pakterID[2]
  1076. sexpartkno = 1
  1077. cumnostd = 1
  1078. gs 'cum_manage'
  1079. gs 'boyStat', $pakterID[3]
  1080. sexpartkno = 1
  1081. cumnostd = 1
  1082. gs 'cum_manage'
  1083. gs 'boyStat', $pakterID[4]
  1084. sexpartkno = 1
  1085. cumnostd = 1
  1086. gs 'cum_manage'
  1087. gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
  1088. if orgasm_buildup => 200 - pcs_inhib:
  1089. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
  1090. if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
  1091. act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
  1092. cla
  1093. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
  1094. 'You pull your legs up to your chest and smile at the guys, inviting them to come and cum in you, and in moments one of them steps up to you, pushing his dick in your pussy and groaning as he pumps his considerable amount of sperm in your vagina.'
  1095. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  1096. 'Since you are already on edge, this pushes you over and you came around his dick, milking it even more. The director seems extremely pleased with this, as the cameraman captured it all from about a meter distance. As soon as he steps aside, an another guy replaces him, and after a few pumps you get your second helping of seed, while you are still in the afterthroes of your first orgasm. Soon the third and fourth guys also cum in you, and you carefully open your pussylips with your fingers for the camera to show your sperm-full vagina.'
  1097. orgasmbonus += 10
  1098. porngasm += 1
  1099. $orgasm_or = 'yes'
  1100. gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
  1101. gs 'arousal', 'end'
  1102. gs 'stat'
  1103. act 'Finish':
  1104. *clr & cla
  1105. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/pornwalk'+rand(1,3)+'.mp4" height="200">'
  1106. 'The scene ends with you putting on your dress, and stepping out the door, with the four guy''s load still inside you.'
  1107. if shampoo > 0:
  1108. act 'Take a shower': gt 'pornstudio', 'shower'
  1109. else
  1110. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  1111. end
  1112. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  1113. end
  1114. end
  1115. else
  1116. act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1117. end
  1118. end
  1119. if orgasm_buildup < 300 - pcs_inhib:
  1120. act 'Fake orgasm':
  1121. cla
  1122. 'You pull your legs up to your chest and smile at the guys, inviting them to come and cum in you, and in moments one of them steps up to you, pushing his dick in your pussy and groaning as he pumps his considerable amount of sperm in your vagina. As soon as he steps aside, an another guy replaces him, and after a few pumps you get your second helping of seed. Soon the third and fourth guys also cum in you, and you carefully open your pussylips with your fingers for the camera to show your sperm-full vagina.'
  1123. gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
  1124. gs 'arousal', 'end'
  1125. gs 'stat'
  1126. act 'Finish':
  1127. *clr & cla
  1128. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/pornwalk'+rand(1,3)+'.mp4" height="200">'
  1129. 'The scene ends with you putting on your dress, and stepping out the door, with the four guy''s load still inside you.'
  1130. if shampoo > 0:
  1131. act 'Take a shower': gt 'pornstudio', 'shower'
  1132. else
  1133. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  1134. end
  1135. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  1136. end
  1137. end
  1138. end
  1139. end
  1140. end
  1141. end
  1142. end
  1143. if $ARGS[0] = '12':
  1144. if rand(0,1) = 0: pornbj += 1
  1145. if rand(0,1) = 0: pornhj += 1
  1146. pornanal += 2
  1147. porngang += 2
  1148. porncream += 2
  1149. pfType = 0
  1150. *clr & cla
  1151. gs 'fame', 'city', 'porn', 30
  1152. minut += 30
  1153. gang += 1
  1154. $orgasm_or = 'no'
  1155. gs 'stat'
  1156. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  1157. 'Actors <<$pakter[1]>>, <<$pakter[2]>>, <<$pakter[3]>> and <<$pakter[4]>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'
  1158. act 'Warmup':
  1159. *clr & cla
  1160. gs 'stat'
  1161. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/warmupgang.mp4" width="500"></video></center>'
  1162. 'The actors gather around you, and you soon suck one guy while giving a handjob for an another one. The two other guys get creative, one of them sucking your tits, while the other licking your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
  1163. gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
  1164. gs 'arousal', 'cuni', 20, 'exhibitionism', 'group'
  1165. gs 'stat'
  1166. act 'Fuck them':
  1167. *clr & cla
  1168. gs 'stat'
  1169. '<center><video autoplay loop src="images/shared/sex/group/threesomepm<<rand(0,5)>>.mp4" width="500"></video></center>'
  1170. 'The guys starts to fuck your ass, one after the other, but never cumming. All the while you keep them ready with your hands and mouth.'
  1171. gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
  1172. gs 'arousal', 'bj', -20, 'exhibitionism', 'group'
  1173. gs 'arousal', 'anal', 20, 'exhibitionism', 'group'
  1174. gs 'stat'
  1175. act 'Ass creampie':
  1176. *clr & cla
  1177. minut += 5
  1178. gs 'boyStat', $pakterID[1]
  1179. sexpartkno = 1
  1180. spafinloc = 3
  1181. cumnostd = 1
  1182. gs 'cum_manage'
  1183. gs 'boyStat', $pakterID[2]
  1184. sexpartkno = 1
  1185. spafinloc = 3
  1186. gs 'cum_manage'
  1187. gs 'boyStat', $pakterID[3]
  1188. sexpartkno = 1
  1189. spafinloc = 3
  1190. cumnostd = 1
  1191. gs 'cum_manage'
  1192. gs 'boyStat', $pakterID[4]
  1193. sexpartkno = 1
  1194. spafinloc = 3
  1195. cumnostd = 1
  1196. gs 'cum_manage'
  1197. '<center><video autoplay loop src="/images/shared/sex/cum/analcreampie/cumanal<<rand(1,2)>>.mp4" width="500"></video></center>'
  1198. gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
  1199. if orgasm_buildup => 200 - pcs_inhib:
  1200. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
  1201. if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
  1202. act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
  1203. cla
  1204. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
  1205. 'You lower your head on the pillows while pushing your ass in the air, giving the guys easy access. One of them immediately starts to fuck your ass, then stops, and pushing his dick in deep he pumps his considerable amount of sperm in your colon.'
  1206. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  1207. 'Since you are already on edge, this pushes you over and you came around his dick, milking it even more. The director seems extremely pleased with this, as the cameraman captured it all from about a meter distance. As soon as he steps aside, another guy replaces him, then the third and fourth guys also cum in your ass.'
  1208. orgasmbonus += 10
  1209. porngasm += 1
  1210. $orgasm_or = 'yes'
  1211. gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
  1212. gs 'arousal', 'end'
  1213. gs 'stat'
  1214. act 'Finish':
  1215. *clr & cla
  1216. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/pornwalk'+rand(1,3)+'.mp4" height="200">'
  1217. 'The scene ends with you putting on your dress, and stepping out the door, with the four guy''s load still inside you.'
  1218. if shampoo > 0:
  1219. act 'Take a shower': gt 'pornstudio', 'shower'
  1220. else
  1221. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  1222. end
  1223. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  1224. end
  1225. end
  1226. else
  1227. act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1228. end
  1229. end
  1230. if orgasm_buildup < 300 - pcs_inhib:
  1231. act 'Fake orgasm':
  1232. cla
  1233. 'You lower your head on the pillows while pushing your ass in the air, giving the guys easy access. One of them immediately starts to fuck your ass, then stops, and pushing his dick in deep he pumps his considerable amount of sperm in your colon. As soon as he steps aside, another guy replaces him, then the third and fourth guys also cum in your ass.'
  1234. gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
  1235. gs 'arousal', 'end'
  1236. gs 'stat'
  1237. act 'Finish':
  1238. *clr & cla
  1239. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/pornwalk'+rand(1,3)+'.mp4" height="200">'
  1240. 'The scene ends with you putting on your dress, and stepping out the door, with the four guy''s load still inside you.'
  1241. if shampoo > 0:
  1242. act 'Take a shower': gt 'pornstudio', 'shower'
  1243. else
  1244. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  1245. end
  1246. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  1247. end
  1248. end
  1249. end
  1250. end
  1251. end
  1252. end
  1253. end
  1254. if $ARGS[0] = '13':
  1255. if rand(0,1) = 0:pornbj += 1
  1256. if rand(0,1) = 0:pornhj += 1
  1257. pornvag += 1
  1258. pornanal += 1
  1259. porngang += 2
  1260. porncream += 2
  1261. pfType = 1
  1262. *clr & cla
  1263. gs 'fame', 'city', 'porn', 30
  1264. minut += 30
  1265. gang += 1
  1266. $orgasm_or = 'no'
  1267. gs 'stat'
  1268. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  1269. 'Actors <<$pakter[1]>>, <<$pakter[2]>>, <<$pakter[3]>> and <<$pakter[4]>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'
  1270. act 'Kneel in front of them':
  1271. *clr & cla
  1272. gs 'stat'
  1273. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/warmupgang.mp4" width="500"></video></center>'
  1274. 'You kneel in front of the guys and start to suck <<$paktor>> and <<$paktor2>> in turns, while giving a handjob to <<$paktor3>> and <<$paktor4>>. Pretty soon they are all hard and ready, and the director nods to you.'
  1275. gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
  1276. gs 'arousal', 'bj', 20, 'exhibitionism', 'group'
  1277. gs 'stat'
  1278. act 'Let them fuck you':
  1279. *clr & cla
  1280. gs 'boyStat', $pakterID[1]
  1281. sexpartkno = 1
  1282. cumnostd = 1
  1283. gs 'cum_manage'
  1284. gs 'boyStat', $pakterID[2]
  1285. sexpartkno = 1
  1286. cumnostd = 1
  1287. gs 'cum_manage'
  1288. gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
  1289. '<center><video autoplay loop src="images/shared/sex/group/doublevag<<rand(1,4)>>.mp4" width="500"></video></center>'
  1290. if orgasm_buildup < 200 - pcs_inhib:
  1291. '<<$paktor>> lies down on the floor, and you sit in his dick, spearing yourself on it in the process. <<$paktor2>> steps behind you and pushes his hard dick inside of your already occupied vagina, and the two guys start to fuck you in tandem. When the director signals, the two guys starts to fuck you more forcefully, and thanks to their timing, they came inside of you at the same time.'
  1292. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasmfake.mp4" width="400"></video></center>'
  1293. 'You fake an orgasm for the camera while you wait for them to empty their sack in you.'
  1294. gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
  1295. gs 'stat'
  1296. else
  1297. orgasmbonus += 10
  1298. porngasm += 1
  1299. '<<$paktor>> lies down on the floor, and you sit in his dick, spearing yourself on it in the process. <<$paktor2>> steps behind you and pushes his hard dick inside of your already occupied vagina, and the two guys start to fuck you in tandem. When the director signals, the two guys starts to fuck you more forcefully, and thanks to their timing, they came inside of you at the same time.'
  1300. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  1301. 'You also came around them, crying out in pleasure as you contract around them in your vagina while they empty their sack in you.'
  1302. $orgasm_or = 'yes'
  1303. gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
  1304. gs 'stat'
  1305. end
  1306. $orgasm_or = 'no'
  1307. gs 'stat'
  1308. act 'They fuck your ass':
  1309. *clr & cla
  1310. gs 'boyStat', $pakterID[3]
  1311. sexpartkno = 1
  1312. spafinloc = 3
  1313. cumnostd = 1
  1314. gs 'cum_manage'
  1315. gs 'boyStat', $pakterID[4]
  1316. sexpartkno = 1
  1317. spafinloc = 3
  1318. cumnostd = 1
  1319. gs 'cum_manage'
  1320. gs 'arousal', 'anal', 25, 'exhibitionism', 'group'
  1321. gs 'stat'
  1322. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/doublean<<rand(1,4)>>.mp4" width="500"></video></center>'
  1323. if orgasm_buildup => 200 - pcs_inhib:
  1324. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
  1325. if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
  1326. act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
  1327. cla
  1328. if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
  1329. orgasmbonus += 10
  1330. porngasm += 1
  1331. 'While still dripping the sperm of the previous two guys from your pussy, <<$paktor3>> and <<$paktor4>> switches places with <<$paktor>> and <<$paktor2>>, but they just dip their dick in your slick pussy, then pushes their dick in your anus. At first the place is pretty tight, but soon start to build up a good rithm. They also cum in you, this time in your ass.'
  1332. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasm.mp4" width="400"></video></center>'
  1333. 'You came around them, visibly orgasming as you contract around them, while they finish in your bowels.'
  1334. $orgasm_or = 'yes'
  1335. gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
  1336. gs 'arousal', 'end'
  1337. gs 'stat'
  1338. if shampoo > 0:
  1339. act 'Take a shower': gt 'pornstudio', 'shower'
  1340. else
  1341. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  1342. end
  1343. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  1344. end
  1345. else
  1346. act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1347. end
  1348. end
  1349. if orgasm_buildup < 300 - pcs_inhib:
  1350. act 'Fake orgasm':
  1351. cla
  1352. 'While still dripping the sperm of the previous two guys from your pussy, <<$paktor3>> and <<$paktor4>> switches places with <<$paktor>> and <<$paktor2>>, but they just dip their dick in your slick pussy, then pushes their dick in your anus. At first the place is pretty tight, but soon start to build up a good rithm. They also cum in you, this time in your ass.'
  1353. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/porgasmfake.mp4" width="400"></video></center>'
  1354. 'You fake an another orgasm for the camera while you wait for them to finish in your bowels.'
  1355. gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
  1356. gs 'arousal', 'end'
  1357. gs 'stat'
  1358. if shampoo > 0:
  1359. act 'Take a shower': gt 'pornstudio', 'shower'
  1360. else
  1361. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  1362. end
  1363. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  1364. end
  1365. end
  1366. end
  1367. end
  1368. end
  1369. end
  1370. if $ARGS[0] = '14':
  1371. porngang += 5
  1372. pornexhib += 5
  1373. pfType = 1
  1374. *clr & cla
  1375. gs 'fame', 'city', 'porn', 40
  1376. gang += 1
  1377. guy += 50
  1378. $orgasm_or = 'no'
  1379. gs 'stat'
  1380. 'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
  1381. 'On the scene there are fifty guys standing around, and you believe this many actor would cost a fortune. The only luck the studio have is that these guys are all your fans, so they came for just the chance to fuck you. They are all nervously talking, and watching your previous works on monitors all around the huge hall.'
  1382. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/touching.mp4" width="500"></video></center>'
  1383. 'You lie down on the stage, and let them touch you to get them into the mood.'
  1384. gs 'arousal', 'foreplay', 60, 'gangbang', 'exhibitionism'
  1385. gs 'stat'
  1386. act 'Undress and lie on the bed':
  1387. *clr & cla
  1388. bj50 = rand(0,8)
  1389. hj50 = rand(0,8)
  1390. lip50 = rand(0,8)
  1391. anal50 = rand(0,8)
  1392. bukk50 = rand(0,8)
  1393. sex50 = 50 - bj50 - hj50 - lip50 - anal50 - bukk50
  1394. stat['vaginal'] += 50-anal50
  1395. if bj50 > 5:pornbj += 1
  1396. if hj50 > 5:
  1397. pornhj += 1 & pornbukk += 1
  1398. elseif hj50 > 5:
  1399. pornhj += 1
  1400. end
  1401. if lip50 > 5:pornbj += 1 & pornswall += 1
  1402. if anal50 > 5:pornanal += 1
  1403. if bukk50 > 5:pornbukk += 1
  1404. if sex50 > 45:
  1405. pornvag += 5
  1406. porncream += 5
  1407. elseif sex50 > 35:
  1408. pornvag += 4
  1409. porncream += 4
  1410. elseif sex50 > 25:
  1411. pornvag += 3
  1412. porncream += 3
  1413. elseif sex50 > 15:
  1414. pornvag += 2
  1415. porncream += 2
  1416. elseif sex50 > 5:
  1417. pornvag += 1
  1418. porncream += 1
  1419. end
  1420. sexpartkno = 0
  1421. pfcounter = 0
  1422. :gbblow
  1423. if bj50 > 0:
  1424. gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
  1425. gs 'boyStat', $npclastgenerated
  1426. pfcounter += 1
  1427. cumprecheck = 1
  1428. cumnostd = 1
  1429. gs 'cum_manage'
  1430. spafinloc = 12
  1431. cumnostd = 1
  1432. gs 'cum_manage'
  1433. bj50 -= 1
  1434. stat['bj'] += 1
  1435. swallow += 1
  1436. end
  1437. if bj50 > 0: jump 'gbblow'
  1438. :gbhand
  1439. if hj50 > 0:
  1440. gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
  1441. gs 'boyStat', $npclastgenerated
  1442. pfcounter += 1
  1443. cumprecheck = 1
  1444. cumnostd = 1
  1445. gs 'cum_manage'
  1446. spafinloc = 13
  1447. gs 'cum_manage'
  1448. hj50 -= 1
  1449. stat['hj'] += 1
  1450. end
  1451. if hj50 > 0: jump 'gbhand'
  1452. :gbface
  1453. if lip50 > 0:
  1454. gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
  1455. gs 'boyStat', $npclastgenerated
  1456. pfcounter += 1
  1457. cumprecheck = 1
  1458. cumnostd = 1
  1459. gs 'cum_manage'
  1460. if rand(0,1)=0:
  1461. spafinloc = 11
  1462. else
  1463. spafinloc = 16
  1464. end
  1465. gs 'cum_manage'
  1466. lip50 -= 1
  1467. facial += 1
  1468. end
  1469. if lip50 > 0: jump 'gbface'
  1470. :gbass
  1471. if anal50 > 0:
  1472. gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
  1473. gs 'boyStat', $npclastgenerated
  1474. pfcounter += 1
  1475. spafinloc = 3
  1476. cumnostd = 1
  1477. gs 'cum_manage'
  1478. anal50 -= 1
  1479. stat['anal'] += 1
  1480. end
  1481. if anal50 > 0: jump 'gbass'
  1482. :gbbukk
  1483. if bukk50 > 0:
  1484. gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
  1485. gs 'boyStat', $npclastgenerated
  1486. pfcounter += 1
  1487. cumprecheck = 1
  1488. cumnostd = 1
  1489. gs 'cum_manage'
  1490. bukkloc = rand(0,6)
  1491. if bukkloc = 0:
  1492. spafinloc = 1
  1493. elseif bukkloc = 1:
  1494. spafinloc = 4
  1495. elseif bukkloc = 2:
  1496. spafinloc = 8
  1497. elseif bukkloc = 3:
  1498. spafinloc = 9
  1499. elseif bukkloc = 4:
  1500. spafinloc = 10
  1501. elseif bukkloc = 5:
  1502. spafinloc = 14
  1503. else
  1504. spafinloc = 15
  1505. end
  1506. cumnostd = 1
  1507. gs 'cum_manage'
  1508. bukk50 -= 1
  1509. end
  1510. if bukk50 > 0: jump 'gbbukk'
  1511. :gbsex
  1512. if sex50 > 0:
  1513. gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
  1514. gs 'boyStat', $npclastgenerated
  1515. pfcounter += 1
  1516. cumnostd = 1
  1517. gs 'cum_manage'
  1518. sex50 -= 1
  1519. end
  1520. if sex50 > 0: jump 'gbsex'
  1521. gangOrg = 0
  1522. !if pcs_horny > 70 and pcs_inhib > 80:gangOrg = rand(1,5) & orgazm += gangOrg & pcs_horny = rand(0,50)
  1523. !if gangOrg = 1:
  1524. ! $gangorg = ' and you still managed to have an orgasm.'
  1525. ! $orgasm_or = 'yes'
  1526. !elseif gangOrg > 0:
  1527. ! $gangorg = ' and you still managed to orgasm <<gangOrg>> times.'
  1528. ! $orgasm_or = 'yes'
  1529. !else
  1530. ! $gangorg = '.'
  1531. !end
  1532. !orgasmbonus += gangOrg*10
  1533. !porngasm += gangOrg
  1534. gs 'stat'
  1535. '<center><video autoplay loop src="images/locations/city/citycenter/studio/sex/fuckfifty<<rand(0,12)>>.mp4" width="500"></video></center>'
  1536. 'Your fans gather around you, and starts to fuck you with great entusiasm, but little technique. Most of them cum almost immediately when they are in your body, but since they are many, it doesn''t hurt the shoot, even heightens the quality<<$gangorg>> It still takes about six hours of constant fucking to finish with all of the guys.'
  1537. ! Going to try to simulate orgasms and count them along the way. Had to adjust the arousal calls to not result in constant orgasming. Sicaa
  1538. :gangbang_orgasm_loop
  1539. gangbang_loop_counter += 1
  1540. ! 5 rounds of 72min to get the same 5 max possible orgasms as before
  1541. minut += 72
  1542. gs 'arousal', 'vaginal', -10, 'gangbang', 'exhibitionism'
  1543. $orgasm_or = 'no'
  1544. ! Made Sveta''s inhibitions the deciding factor for orgasming in a gangbang
  1545. ! After testing this came out roughly as: 25 = 0-2, 50 = 1-3, 75 = 2-4, 100 = 3-5
  1546. if orgasm_buildup >= 400 - (3*pcs_inhib):
  1547. gangOrg += 1
  1548. $orgasm_txt = ''
  1549. $orgasm_or = 'custom'
  1550. end
  1551. if gangbang_loop_counter < 5: jump 'gangbang_orgasm_loop'
  1552. killvar 'gangbang_loop_counter'
  1553. killvar '$orgasm_or'
  1554. if gangOrg > 0: 'During the shoot you managed to ' + iif(gangOrg = 1, 'have one orgasm.', 'orgasm <<gangOrg>> times.')
  1555. orgasmbonus += gangOrg*10
  1556. porngasm += gangOrg
  1557. !gs 'arousal', 'vaginal', 360, 'gangbang', 'exhibitionism'
  1558. gs 'arousal', 'end'
  1559. gs 'stat'
  1560. if shampoo > 0:
  1561. act 'Take a shower': gt 'pornstudio', 'shower'
  1562. else
  1563. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  1564. end
  1565. act 'Don''t bother to clean up': gt 'pornstudio', 'postvideo'
  1566. end
  1567. end
  1568. --- pornfilm ---------------------------------