pornhist.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354
  1. # pornhist
  2. !! Short description of made movies, without details
  3. if $ARGS[0] = 'short':
  4. i = 1
  5. $pfilmhistory = ''
  6. :pornhistloop
  7. dynamic $pornfilmdesc, pornfilmType[i]
  8. if pornfilmMonth[i] >= 10 and pornfilmDay[i] >= 10:
  9. $pornfilmDate[i] = '<<pornfilmYear[i]>>-<<pornfilmMonth[i]>>-<<pornfilmDay[i]>>'
  10. elseif pornfilmMonth[i] >= 10 and pornfilmDay[i] < 10:
  11. $pornfilmDate[i] = '<<pornfilmYear[i]>>-<<pornfilmMonth[i]>>-0<<pornfilmDay[i]>>'
  12. elseif pornfilmMonth[i] < 10 and pornfilmDay[i] >= 10:
  13. $pornfilmDate[i] = '<<pornfilmYear[i]>>-0<<pornfilmMonth[i]>>-<<pornfilmDay[i]>>'
  14. else
  15. $pornfilmDate[i] = '<<pornfilmYear[i]>>-0<<pornfilmMonth[i]>>-0<<pornfilmDay[i]>>'
  16. end
  17. if $porntitle[i] = '':
  18. $pfilmhistory += '● <b><<i>>. Movie</b><br><font size=2></font><br>'
  19. else
  20. if i = 1:
  21. $pfilmhistory += '● <b>'+$porntitle[i]+'<<$pfname>></b><br><font size=2>'+$pfilmtext+'</font><br>'
  22. else
  23. $pfilmhistory += '● <b>'+$porntitle[i]+'</b><br><font size=2>'+$pfilmtext+'</font><br>'
  24. end
  25. end
  26. if i < film: i += 1 & jump 'pornhistloop'
  27. end
  28. !! Detailed description of movies, only available after selecting the "Filmography" link
  29. if $ARGS[0] = 'pdetail':
  30. *clr & cla
  31. '<center><h1>Filmography of <font color="magenta"><<$pfname>></font></h1></center>'
  32. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  33. '<td cellspacing="0" cellpadding="0" valign="top">'
  34. i = 1
  35. killvar 'firstvariable'
  36. killvar 'firstvariable2'
  37. :pornhistloop2
  38. dynamic $pornfilmdesc, pornfilmType[i]
  39. if $porntitle[i] = '':
  40. if firstvariable = 0:firstvariable = 1 & fvvalue = i
  41. '<b><a href="exec:$porntitle[fvvalue] = input(''<font color=#FF0000>WARNING!</font> No matter where you clicked, it will name the <b>first</b> unnamed movie! This action can be done only once!'') & gs ''pornhist'', ''pdetail''"><<i>>. Movie</a></b>'
  42. else
  43. if i = 1:
  44. '<b><font color="brown"><<$porntitle[i]>><<$pfname>></font></b>'
  45. else
  46. '<b><font color="brown"><<$porntitle[i]>></font></b>'
  47. end
  48. end
  49. if daystart - porndaystart[i] = 0:
  50. ' <b>Production date:</b> <font size=2><<$pornfilmDate[i]>> (Today)</font>'
  51. elseif daystart - porndaystart[i] = 1:
  52. ' <b>Production date:</b> <font size=2><<$pornfilmDate[i]>> (Yesterday)</font>'
  53. else
  54. ' <b>Production date:</b> <font size=2><<$pornfilmDate[i]>> (<<daystart - porndaystart[i]>> days ago)</font>'
  55. end
  56. ' <b>Actress age:</b> <font size=2><<pornfilmActAge[i]>></font> <font size=2>(Appears: <<pornfilmAppAge[i]>>)</font>'
  57. if $pornfilmActor[i] = 'Fifty fans of':
  58. ' <b>Actors:</b> <font size=2><<$pornfilmActor[i]>> <<$pfname>> and <<$pfname>> herself</font>'
  59. else
  60. ' <b>Actors:</b> <font size=2><<$pornfilmActor[i]>> and <<$pfname>></font>'
  61. end
  62. ' <b>Income:</b> <font size=2><<pornfilmCash[i]>>₽</font>'
  63. if pornfilmacting[i] < 15:
  64. ' <b>Acting:</b> <font size=2>Your acting was as fake as a bad boobjob. Did you got paid for this?</font>'
  65. elseif pornfilmacting[i] < 30:
  66. ' <b>Acting:</b> <font size=2>You were acting quite fake, but it was passable.</font>'
  67. elseif pornfilmacting[i] < 45:
  68. ' <b>Acting:</b> <font size=2>You probably could have done better, but at least you were not totally unconvincing.</font>'
  69. elseif pornfilmacting[i] < 60:
  70. ' <b>Acting:</b> <font size=2>You were actually acting, even if it wasn''t entirely convincing.</font>'
  71. elseif pornfilmacting[i] < 75:
  72. ' <b>Acting:</b> <font size=2>You were acting really well.</font>'
  73. elseif pornfilmacting[i] < 90:
  74. ' <b>Acting:</b> <font size=2>As a professional actress, everybody believed your every gesture and sentence.</font>'
  75. else
  76. ' <b>Acting:</b> <font size=2>Your performance was phenomenal. You may actually win some awards with this one.</font>'
  77. end
  78. if pornfilmvnesh[film] >= 200:
  79. ' <b>Look:</b> <font size=2>Amazingly beautiful.</font>'
  80. elseif pornfilmvnesh[film] >= 120:
  81. ' <b>Look:</b> <font size=2>Beautiful.</font>'
  82. elseif pornfilmvnesh[film] >= 60:
  83. ' <b>Look:</b> <font size=2>Attractive.</font>'
  84. else
  85. ' <b>Look:</b> <font size=2>Unnoticeable.</font>'
  86. end
  87. ' <b>Description:</b> <font size=2><<$pfilmtext>></font>'
  88. if $pornfilmstory[i] = '':
  89. if firstvariable2 = 0:firstvariable2 = 1 & fvvalue2 = i
  90. ' <b>Story:</b> <font size=2><a href="exec:$pornfilmstory[fvvalue2] = input(''<font color=#FF0000>WARNING!</font> No matter where you clicked, you will enter the story of the <b>first</b> movie which missing it! This action can be done only once!'') & gs ''pornhist'', ''pdetail''">Missing story</a></font>'
  91. else
  92. ' <b>Story:</b> <font color=#1B4532 size=2><<$pornfilmstory[i]>></font>'
  93. end
  94. ' <b>Tags: <font color=#541717 size=2><<$pfilmtags>></font></b>'
  95. if pornDanger[i] = 1 and pfType = 1:' <font color="red" size=2><b>You were unprotected and fertile during the shoot.</b></font>'
  96. killvar '$pfilmtags'
  97. if i < film:
  98. *p '<font color="sienna"><hr></font>'
  99. i += 1
  100. jump 'pornhistloop2'
  101. end
  102. act 'Return to Reputation': killvar 'pornfilmdesc' & killvar 'porntag' & gt 'obj_din', 'reputation'
  103. '</td></tr></table></center>'
  104. end
  105. !! Dynamic of selectable porn movies, called from:
  106. !! pornhist: 'short', 'pdetail'
  107. !! pornschedule: 'pornmiss'
  108. !! pornstudio: 'options', 'medical', 'postvideo'
  109. $pornfilmdesc = {
  110. film_type = ARGS[0]
  111. killvar '$pstory'
  112. $porndesc[1] = 'Handjob'
  113. $porndesc[2] = 'Blowjob'
  114. $porndesc[3] = 'Vaginal sex with facial'
  115. $porndesc[4] = 'Vaginal and anal sex with facial'
  116. $porndesc[5] = 'Threesome with anal creampie and facial'
  117. $porndesc[6] = 'Threesome with double penetration, facial and swallowing'
  118. $porndesc[7] = 'Vaginal sex with creampie'
  119. $porndesc[8] = 'Double penetration with vaginal creampies'
  120. $porndesc[9] = 'Spitroast with two guys with creampie and swallowing'
  121. $porndesc[10] = 'Four guy gangbang with vaginal sex and cumshots'
  122. $porndesc[11] = 'Four guy gangbang with vaginal sex and creampies'
  123. $porndesc[12] = 'Four guy gangbang with anal sex and anal creampies'
  124. $porndesc[13] = 'Two double penetration with four guys, vaginal and anal creampies'
  125. $porndesc[14] = 'Gangbang with 50 guys'
  126. $porndesc[15] = 'Anal sex with anal creampie'
  127. $porndesc[16] = 'Anal sex with cumshot'
  128. $porndesc[17] = 'Lesbian sex with double dildo'
  129. $porndesc[18] = 'Lesbian sex with strapon'
  130. $porndesc[19] = 'Primary role in MFF threesome'
  131. $porndesc[20] = 'Secondary role in MFF threesome'
  132. if film_type = 1:
  133. pfType = 0
  134. pcash = 20
  135. pfactor = 1
  136. actbonus = 1
  137. $tags = 'handjob, cumshot'
  138. $pfilmtext = 'You jerked off a guy and he came on your tits.'
  139. elseif film_type = 2:
  140. pfType = 0
  141. pcash = 30
  142. pfactor = 1
  143. actbonus = 1
  144. $tags = 'blowjob, facial'
  145. $pfilmtext = 'You gave a guy a blowjob and got a facial.'
  146. elseif film_type = 3:
  147. pfType = 0
  148. pcash = 50
  149. pfactor = 1
  150. actbonus = rand(1,2)
  151. $tags = 'blowjob, vaginal, facial'
  152. $pfilmtext = 'You gave a guy a blowjob and he fucked before giving you a facial.'
  153. elseif film_type = 4:
  154. pfType = 0
  155. pcash = 60
  156. pfactor = 1
  157. actbonus = rand(1,2)
  158. $tags = 'blowjob, facial, vaginal, anal'
  159. $pfilmtext = 'You a guy a blowjob and he fucked your pussy and ass before giving you a facial.'
  160. elseif film_type = 5:
  161. pfType = 0
  162. pcash = 70
  163. pfactor = 2
  164. actbonus = rand(1,3)
  165. $tags = 'facial, vaginal, anal, blowjob, creampie'
  166. $pfilmtext = 'A guy fucked your pussy and ass and came in your ass while you sucked off an another guy who gave you a facial.'
  167. elseif film_type = 6:
  168. pfType = 0
  169. pcash = 90
  170. pfactor = 2
  171. actbonus = rand(1,3)
  172. $tags = 'DP, vaginal, anal, blowjob, facial, swallowing'
  173. $pfilmtext = 'A guy fucked your pussy and ass while you sucked off another guy. They then double penetrated you before cumming on your face. You swallowed their loads.'
  174. elseif film_type = 7:
  175. pfType = 1
  176. pcash = 80
  177. pfactor = 1
  178. actbonus = rand(1,2)
  179. $tags = 'vaginal, creampie'
  180. $pfilmtext = 'You gave a guy a blowjob before he fucked you and gave you a creampie.'
  181. elseif film_type = 8:
  182. pfType = 1
  183. pcash = 100
  184. pfactor = 2
  185. actbonus = rand(1,2)
  186. $tags = 'DP, vaginal, anal, creampie'
  187. $pfilmtext = 'Two guys fucked you in double penetration before giving you a double creampie.'
  188. elseif film_type = 9:
  189. pfType = 1
  190. pcash = 90
  191. pfactor = 2
  192. actbonus = rand(1,3)
  193. $tags = 'blowjob, vaginal, swallowing, creampie'
  194. $pfilmtext = 'Two guys fucked your pussy and mouth. One gave you a creampie and the other came in your mouth and you swallowed.'
  195. elseif film_type = 10:
  196. pfType = 1
  197. pcash = 120
  198. pfactor = 4
  199. actbonus = rand(2,3)
  200. $tags = 'vaginal, cumshot'
  201. $pfilmtext = 'Four guys fucked your pussy and they all ejaculated on your body and face.'
  202. elseif film_type = 11:
  203. pfType = 1
  204. pcash = 150
  205. pfactor = 4
  206. actbonus = rand(2,3)
  207. $tags = 'vaginal, creampie'
  208. $pfilmtext = 'Four guys fucked your pussy, giving you four creampies.'
  209. elseif film_type = 12:
  210. pfType = 0
  211. pcash = 150
  212. pfactor = 4
  213. actbonus = rand(2,3)
  214. $tags = 'anal, creampie'
  215. $pfilmtext = 'Four guys fucked your ass, giving you four anal creampies.'
  216. elseif film_type = 13:
  217. pfType = 1
  218. pcash = 150
  219. pfactor = 4
  220. actbonus = rand(2,3)
  221. $tags = 'DP, vaginal, anal, creampie'
  222. $pfilmtext = 'Four guys fucked you in double penetration in pairs. You got two double creampies.'
  223. elseif film_type = 14:
  224. pfType = 1
  225. pcash = 300
  226. pfactor = 50
  227. actbonus = rand(1,2)
  228. $tags = 'vaginal, anal, blowjob, cumshot, facial, swallowing'
  229. $pfilmtext = 'Fifty of your fans fucked you however they could. Almost all of them came in your pussy.'
  230. $pstory = 'You called out to your fans on the internet, giving them an opportunity to fuck you however they like.'
  231. elseif film_type = 15:
  232. pfType = 0
  233. pcash = 50
  234. pfactor = 1
  235. actbonus = rand(1,2)
  236. $tags = 'blowjob, anal, creampie'
  237. $pfilmtext = 'You gave a guy a blowjob before he fucked your ass and gave you an anal creampie.'
  238. elseif film_type = 16:
  239. pfType = 0
  240. pcash = 50
  241. pfactor = 1
  242. actbonus = rand(1,2)
  243. $tags = 'blowjob, anal, cumshot'
  244. $pfilmtext = 'You gave a guy a blowjob and he fucked your ass. He came over your ass.'
  245. elseif film_type = 17:
  246. pfType = 0
  247. pcash = 50
  248. pfactress = 1
  249. actbonus = rand(1,2)
  250. $tags = 'lesbian, tribbing, double dildo'
  251. $pfilmtext = 'You had sex with a girl using a double dildo.'
  252. elseif film_type = 18:
  253. pfType = 0
  254. pcash = 50
  255. pfactress = 1
  256. actbonus = rand(1,2)
  257. $tags = 'lesbian, strapon, vaginal, anal'
  258. $pfilmtext = 'You had sex with a girl using a strapon.'
  259. elseif film_type = 19:
  260. pfType = 0
  261. pcash = 100
  262. pfactor = 1
  263. pfactress = 1
  264. actbonus = rand(2,3)
  265. $tags = 'threesome, mff, blowjob, anal, creampie, cumshare'
  266. $pfilmtext = 'You took part in an MFF threesome, sucking a guy off before he fucked your ass while the girl licked your pussy. You got an anal creampie and shared it with the girl.'
  267. elseif film_type = 20:
  268. pfType = 0
  269. pcash = 100
  270. pfactor = 1
  271. pfactress = 1
  272. actbonus = rand(2,3)
  273. $tags = 'threesome, mff, blowjob, anal, creampie, cumshare, cuni'
  274. $pfilmtext = 'You took part in an MFF threesome, sucking him off before he fucked her ass while you licked her pussy. She shared her anal creampie with you.'
  275. end
  276. dynamic $porntag
  277. }
  278. $porntag = {
  279. if pornfilmAppAge[i] < 20:
  280. $pfilmtags = 'teen'
  281. elseif pornfilmAppAge[i] >= 40:
  282. $pfilmtags = 'mature'
  283. else
  284. $pfilmtags = ''
  285. end
  286. if pornfilmpreg[i] = 1:
  287. if $pfilmtags <> '':
  288. $pfilmtags+=', pregnant'
  289. else
  290. $pfilmtags = 'pregnant'
  291. end
  292. end
  293. if pfactor = 0 and pfactress > 0:
  294. if $pfilmtags <> '':
  295. $pfilmtags += ', lesbian'
  296. else
  297. $pfilmtags = 'lesbian'
  298. end
  299. end
  300. if pfactor > 2 and pfactress = 0:
  301. if $pfilmtags <> '':
  302. $pfilmtags += ', gangbang'
  303. else
  304. $pfilmtags = 'gangbang'
  305. end
  306. elseif pfactor > 2 and pfactress > 1:
  307. if $pfilmtags <> '':
  308. $pfilmtags += ', orgy'
  309. else
  310. $pfilmtags = 'orgy'
  311. end
  312. elseif pfactor = 2 and pfactress = 0:
  313. if $pfilmtags <> '':
  314. $pfilmtags += ', threesome'
  315. else
  316. $pfilmtags = 'threesome'
  317. end
  318. elseif pfactor = 1 and pfactress = 1:
  319. if $pfilmtags <> '':
  320. $pfilmtags += ', threesome'
  321. else
  322. $pfilmtags = 'threesome'
  323. end
  324. elseif pfactor = 0 and pfactress = 2:
  325. if $pfilmtags <> '':
  326. $pfilmtags += ', threesome'
  327. else
  328. $pfilmtags = 'threesome'
  329. end
  330. end
  331. if pfType = 1:
  332. if $pfilmtags <> '':
  333. $pfilmtags += ', creampie'
  334. else
  335. $pfilmtags = 'creampie'
  336. end
  337. end
  338. if $pfilmtags <> '':
  339. $pfilmtags += ', '+$tags
  340. else
  341. $pfilmtags = $tags
  342. end
  343. }
  344. --- pornhist ---------------------------------