1
0

pornhist.qsrc 9.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278
  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>You were so obviously fake as a bad boobjob. Have 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 were 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 not totally convincingly.</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 award 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] = 'Straight sex with facial'
  115. $porndesc[4] = 'Straight 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] = 'Straight 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. if film_type = 1:
  127. pfType = 0
  128. pcash = 20
  129. pfactor = 1
  130. actbonus = 1
  131. $tags = 'handjob'
  132. $pfilmtext = 'You jerked off a guy and he came on your tits.'
  133. elseif film_type = 2:
  134. pfType = 0
  135. pcash = 30
  136. pfactor = 1
  137. actbonus = 1
  138. $tags = 'blowjob'
  139. $pfilmtext = 'You blew a guy and got a facial.'
  140. elseif film_type = 3:
  141. pfType = 0
  142. pcash = 50
  143. pfactor = 1
  144. actbonus = rand(1,2)
  145. $tags = 'blowjob, vaginal, facial'
  146. $pfilmtext = 'You blew and fucked a guy, then got a facial.'
  147. elseif film_type = 4:
  148. pfType = 0
  149. pcash = 60
  150. pfactor = 1
  151. actbonus = rand(1,2)
  152. $tags = 'blowjob, facial, vaginal, anal'
  153. $pfilmtext = 'You blew and fucked a guy in pussy and ass, then got a facial.'
  154. elseif film_type = 5:
  155. pfType = 0
  156. pcash = 70
  157. pfactor = 2
  158. actbonus = rand(1,3)
  159. $tags = 'facial, vaginal, anal, blowjob'
  160. $pfilmtext = 'A guy fucked your ass and pussy, getting an anal creampie while you sucked off an another guy, getting facial.'
  161. elseif film_type = 6:
  162. pfType = 0
  163. pcash = 90
  164. pfactor = 2
  165. actbonus = rand(1,3)
  166. $tags = 'DP, vaginal, anal, blowjob, facial, swallowing'
  167. $pfilmtext = 'A guy fucked your ass and pussy while you sucked off his friend, getting double penetrated and in the end getting a facial and swallowing a load.'
  168. elseif film_type = 7:
  169. pfType = 1
  170. pcash = 80
  171. pfactor = 1
  172. actbonus = rand(1,2)
  173. $tags = 'vaginal'
  174. $pfilmtext = 'You blew and fucked a guy, getting a creampie.'
  175. elseif film_type = 8:
  176. pfType = 1
  177. pcash = 100
  178. pfactor = 2
  179. actbonus = rand(1,2)
  180. $tags = 'DP, vaginal, anal'
  181. $pfilmtext = 'Two guys fucked you in double penetration, getting a double creampie.'
  182. elseif film_type = 9:
  183. pfType = 1
  184. pcash = 90
  185. pfactor = 2
  186. actbonus = rand(1,3)
  187. $tags = 'blowjob, vaginal, swallowing'
  188. $pfilmtext = 'Two guys fucked your pussy and mouth, getting a creampie and swallowing cum.'
  189. elseif film_type = 10:
  190. pfType = 1
  191. pcash = 120
  192. pfactor = 4
  193. actbonus = rand(2,3)
  194. $tags = 'vaginal, cumshot'
  195. $pfilmtext = 'Four guys fucked your pussy and they all cum on your mons.'
  196. elseif film_type = 11:
  197. pfType = 1
  198. pcash = 150
  199. pfactor = 4
  200. actbonus = rand(2,3)
  201. $tags = 'vaginal'
  202. $pfilmtext = 'Four guys fucked your pussy, getting four creampie.'
  203. elseif film_type = 12:
  204. pfType = 0
  205. pcash = 150
  206. pfactor = 4
  207. actbonus = rand(2,3)
  208. $tags = 'anal'
  209. $pfilmtext = 'Four guys fucked your ass, getting four ass creampie.'
  210. elseif film_type = 13:
  211. pfType = 1
  212. pcash = 150
  213. pfactor = 4
  214. actbonus = rand(2,3)
  215. $tags = 'DP, vaginal, anal'
  216. $pfilmtext = 'Four guys fucked you in double penetration in pairs. You got two double creampie.'
  217. elseif film_type = 14:
  218. pfType = 1
  219. pcash = 300
  220. pfactor = 50
  221. actbonus = rand(1,2)
  222. $tags = 'vaginal, anal, blowjob, cumshot, facial, swallowing'
  223. $pfilmtext = 'Fifty of your fans fucked you however they could. Most everyone came in your pussy.'
  224. $pstory = 'You called out to your fans on the internet that they have an opportunity to fuck you and cum in or on you free of charge. Of course they flocked to you.'
  225. end
  226. dynamic $porntag
  227. }
  228. $porntag = {
  229. if pornfilmAppAge[i] < 20:
  230. $pfilmtags = 'teen'
  231. elseif pornfilmAppAge[i] >= 40:
  232. $pfilmtags = 'mature'
  233. else
  234. $pfilmtags = ''
  235. end
  236. if pornfilmpreg[i] = 1:
  237. if $pfilmtags <> '':
  238. $pfilmtags+=', pregnant'
  239. else
  240. $pfilmtags = 'pregnant'
  241. end
  242. end
  243. if pfactor > 2:
  244. if $pfilmtags <> '':
  245. $pfilmtags += ', gangbang'
  246. else
  247. $pfilmtags = 'gangbang'
  248. end
  249. elseif pfactor = 2:
  250. if $pfilmtags <> '':
  251. $pfilmtags += ', threesome'
  252. else
  253. $pfilmtags = 'threesome'
  254. end
  255. end
  256. if pfType = 1:
  257. if $pfilmtags <> '':
  258. $pfilmtags += ', creampie'
  259. else
  260. $pfilmtags = 'creampie'
  261. end
  262. end
  263. if $pfilmtags <> '':
  264. $pfilmtags += ', '+$tags
  265. else
  266. $pfilmtags = $tags
  267. end
  268. }
  269. --- pornhist ---------------------------------