# pornhist !! Short description of made movies, without details if $ARGS[0] = 'short': i = 1 $pfilmhistory = '' :pornhistloop dynamic $pornfilmdesc, pornfilmType[i] if pornfilmMonth[i] >= 10 and pornfilmDay[i] >= 10: $pornfilmDate[i] = '<>-<>-<>' elseif pornfilmMonth[i] >= 10 and pornfilmDay[i] < 10: $pornfilmDate[i] = '<>-<>-0<>' elseif pornfilmMonth[i] < 10 and pornfilmDay[i] >= 10: $pornfilmDate[i] = '<>-0<>-<>' else $pornfilmDate[i] = '<>-0<>-0<>' end if $porntitle[i] = '': $pfilmhistory += '● <>. Movie
'+$pfilmtext+'
' else if i = 1: $pfilmhistory += '● '+$porntitle[i]+'<<$pfname>>
'+$pfilmtext+'
' else $pfilmhistory += '● '+$porntitle[i]+'
'+$pfilmtext+'
' end end if i < film: i += 1 & jump 'pornhistloop' end !! Detailed description of movies, only available after selecting the "Filmography" link if $ARGS[0] = 'pdetail': clr i = 1 killvar 'firstvariable' killvar 'firstvariable2' :pornhistloop2 dynamic $pornfilmdesc, pornfilmType[i] if $porntitle[i] = '': if firstvariable = 0:firstvariable = 1 & fvvalue = i pl '<>. Movie' else if i = 1: pl '<<$porntitle[i]>><<$pfname>>' else pl '<<$porntitle[i]>>' end end if daystart - porndaystart[i] = 0: pl ' Production date: <<$pornfilmDate[i]>> (Today)' elseif daystart - porndaystart[i] = 1: pl ' Production date: <<$pornfilmDate[i]>> (Yesterday)' else pl ' Production date: <<$pornfilmDate[i]>> (<> days ago)' end pl ' Actress age: <> (Appears: <>)' if $pornfilmActor[i] = 'Fifty fans of': pl ' Actors: <<$pornfilmActor[i]>> <<$pfname>> and <<$pfname>> herself' else pl ' Actors: <<$pornfilmActor[i]>> and <<$pfname>>' end pl ' Income: <>₽' if pornfilmacting[i] < 15: pl ' Acting: You were so obviously fake as a bad boobjob. Have you got paid for this?' elseif pornfilmacting[i] < 30: pl ' Acting: You were acting quite fake, but it were passable.' elseif pornfilmacting[i] < 45: pl ' Acting: You probably could have done better, but at least you were not totally unconvincing.' elseif pornfilmacting[i] < 60: pl ' Acting: You were actually acting, even if not totally convincingly.' elseif pornfilmacting[i] < 75: pl ' Acting: You were acting really well.' elseif pornfilmacting[i] < 90: pl ' Acting: As a professional actress, everybody believed your every gesture and sentence.' else pl ' Acting: Your performance was phenomenal. You may actually win some award with this one.' end if pornfilmvnesh[film] >= 200: pl ' Look: Amazingly beautiful.' elseif pornfilmvnesh[film] >= 120: pl ' Look: Beautiful.' elseif pornfilmvnesh[film] >= 60: pl ' Look: Attractive.' else pl ' Look: Unnoticeable.' end pl ' Description: <<$pfilmtext>>' if $pornfilmstory[i] = '': if firstvariable2 = 0:firstvariable2 = 1 & fvvalue2 = i pl ' Story: Missing story' else pl ' Story: <<$pornfilmstory[i]>>' end pl ' Tags: <<$pfilmtags>>' if pornDanger[i] = 1 and pfType = 1:pl ' You were unprotected and fertile during the shoot.' killvar '$pfilmtags' if i < film: p '
' i += 1 jump 'pornhistloop2' end pl '
Return
' end !! Dynamic of selectable porn movies, called from: !! pornhist: 'short', 'pdetail' !! pornschedule: 'pornmiss' !! pornstudio: 'options', 'medical', 'postvideo' $pornfilmdesc = { film_type = ARGS[0] killvar '$pstory' $porndesc[1] = 'Handjob' $porndesc[2] = 'Blowjob' $porndesc[3] = 'Straight sex with facial' $porndesc[4] = 'Straight and anal sex with facial' $porndesc[5] = 'Threesome with anal creampie and facial' $porndesc[6] = 'Threesome with double penetration, facial and swallowing' $porndesc[7] = 'Straight sex with creampie' $porndesc[8] = 'Double penetration with vaginal creampies' $porndesc[9] = 'Spitroast with two guys with creampie and swallowing' $porndesc[10] = 'Four guy gangbang with vaginal sex and cumshots' $porndesc[11] = 'Four guy gangbang with vaginal sex and creampies' $porndesc[12] = 'Four guy gangbang with anal sex and anal creampies' $porndesc[13] = 'Two double penetration with four guys, vaginal and anal creampies' $porndesc[14] = 'Gangbang with 50 guys' if film_type = 1: pfType = 0 pcash = 20 pfactor = 1 actbonus = 1 $tags = 'handjob' $pfilmtext = 'You jerked off a guy and he came on your tits.' elseif film_type = 2: pfType = 0 pcash = 30 pfactor = 1 actbonus = 1 $tags = 'blowjob' $pfilmtext = 'You blew a guy and got a facial.' elseif film_type = 3: pfType = 0 pcash = 50 pfactor = 1 actbonus = rand(1,2) $tags = 'blowjob, vaginal, facial' $pfilmtext = 'You blew and fucked a guy, then got a facial.' elseif film_type = 4: pfType = 0 pcash = 60 pfactor = 1 actbonus = rand(1,2) $tags = 'blowjob, facial, vaginal, anal' $pfilmtext = 'You blew and fucked a guy in pussy and ass, then got a facial.' elseif film_type = 5: pfType = 0 pcash = 70 pfactor = 2 actbonus = rand(1,3) $tags = 'facial, vaginal, anal, blowjob' $pfilmtext = 'A guy fucked your ass and pussy, getting an anal creampie while you sucked off an another guy, getting facial.' elseif film_type = 6: pfType = 0 pcash = 90 pfactor = 2 actbonus = rand(1,3) $tags = 'DP, vaginal, anal, blowjob, facial, swallowing' $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.' elseif film_type = 7: pfType = 1 pcash = 80 pfactor = 1 actbonus = rand(1,2) $tags = 'vaginal' $pfilmtext = 'You blew and fucked a guy, getting a creampie.' elseif film_type = 8: pfType = 1 pcash = 100 pfactor = 2 actbonus = rand(1,2) $tags = 'DP, vaginal, anal' $pfilmtext = 'Two guys fucked you in double penetration, getting a double creampie.' elseif film_type = 9: pfType = 1 pcash = 90 pfactor = 2 actbonus = rand(1,3) $tags = 'blowjob, vaginal, swallowing' $pfilmtext = 'Two guys fucked your pussy and mouth, getting a creampie and swallowing cum.' elseif film_type = 10: pfType = 1 pcash = 120 pfactor = 4 actbonus = rand(2,3) $tags = 'vaginal, cumshot' $pfilmtext = 'Four guys fucked your pussy and they all cum on your mons.' elseif film_type = 11: pfType = 1 pcash = 150 pfactor = 4 actbonus = rand(2,3) $tags = 'vaginal' $pfilmtext = 'Four guys fucked your pussy, getting four creampie.' elseif film_type = 12: pfType = 0 pcash = 150 pfactor = 4 actbonus = rand(2,3) $tags = 'anal' $pfilmtext = 'Four guys fucked your ass, getting four ass creampie.' elseif film_type = 13: pfType = 1 pcash = 150 pfactor = 4 actbonus = rand(2,3) $tags = 'DP, vaginal, anal' $pfilmtext = 'Four guys fucked you in double penetration in pairs. You got two double creampie.' elseif film_type = 14: pfType = 1 pcash = 300 pfactor = 50 actbonus = rand(1,2) $tags = 'vaginal, anal, blowjob, cumshot, facial, swallowing' $pfilmtext = 'Fifty of your fans fucked you however they could. Most everyone came in your pussy.' $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.' end dynamic $porntag } $porntag = { if pornfilmAppAge[i] < 20: $pfilmtags = 'teen' elseif pornfilmAppAge[i] >= 40: $pfilmtags = 'mature' else $pfilmtags = '' end if pornfilmpreg[i] = 1: if $pfilmtags <> '': $pfilmtags+=', pregnant' else $pfilmtags = 'pregnant' end end if pfactor > 2: if $pfilmtags <> '': $pfilmtags += ', gangbang' else $pfilmtags = 'gangbang' end elseif pfactor = 2: if $pfilmtags <> '': $pfilmtags += ', threesome' else $pfilmtags = 'threesome' end end if pfType = 1: if $pfilmtags <> '': $pfilmtags += ', creampie' else $pfilmtags = 'creampie' end end if $pfilmtags <> '': $pfilmtags += ', '+$tags else $pfilmtags = $tags end } --- pornhist ---------------------------------