1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 |
- # pornhist
- i = 1
- $pfilmhistory = ''
- :pornhistloop
- pf = pornfilmType[i]
- dynamic $pornfilmdesc
- $pornDanger = ''
- if pornfilmMonth[i] >= 10 and pornfilmDay[i] >= 10:$pornfilmDate[i] = '<<pornfilmYear[i]>>-<<pornfilmMonth[i]>>-<<pornfilmDay[i]>>'
- elseif pornfilmMonth[i] >= 10 and pornfilmDay[i] < 10:$pornfilmDate[i] = '<<pornfilmYear[i]>>-<<pornfilmMonth[i]>>-0<<pornfilmDay[i]>>'
- elseif pornfilmMonth[i] < 10 and pornfilmDay[i] >= 10:$pornfilmDate[i] = '<<pornfilmYear[i]>>-0<<pornfilmMonth[i]>>-<<pornfilmDay[i]>>'
- else $pornfilmDate[i] = '<<pornfilmYear[i]>>-0<<pornfilmMonth[i]>>-0<<pornfilmDay[i]>>'
- end
- if pornDanger[i] = 1 and pfType = 1:$pornDanger = '<br><font color="red">You were unprotected and fertile during the shoot.</font>'
- $pfilmhistory += '● <b>'+$pornfilmDate[i]+'</b>: '+$pfilmtext+$pornDanger+'<br> <i><font size="2">Starred at '+pornfilmActAge[i]+', for '+pornfilmCash[i]+'₽</font></i><br>'
- if i < film: i += 1 & jump 'pornhistloop'
- $pdetail = {
- clr
- i = 1
- :pornhistloop2
- pf = pornfilmType[i]
- dynamic $pornfilmdesc
- pl '<b><font color="brown"><<i>>. Movie</font></b>'
- pl ' <b>Production date:</b> <<$pornfilmDate[i]>>'
- pl ' <b>Actress age:</b> <<pornfilmActAge[i]>>'
- pl ' <b>Looks like:</b> <<pornfilmAppAge[i]>>'
- pl ' <b>Actors:</b> <<$pornfilmActor[i]>>'
- pl ' <b>Income:</b> <<pornfilmCash[i]>>₽'
- pl ' <b>Description:</b> <<$pfilmtext>>'
- if pornDanger[i] = 1 and pfType = 1:pl ' <font color="red">You were unprotected and fertile during the shoot.</font>'
- if i < film:
- p '<font color="sienna"><hr></font>'
- i += 1
- jump 'pornhistloop2'
- end
- if pfilmSTOP = 0:
- if pffilmday > daystart:
- pl '<br><font color=#639453><i><b>You cannot shoot an another movie for <<pffilmday-daystart>> days.</b></i></font>'
- elseif pffilmday = daystart:
- pl '<br><font color=#639453><i><b>You cannot shoot an another movie for 1 day.</b></i></font>'
- end
- end
- pl '<a href="exec:dynamic $objstatistika"><br>Return</a>'
- }
- $pornfilmdesc = {
- if pf = 1:pfType = 0 & pcash = 20 & pfactor = 1 & $pfilmtext = 'You jerked off a guy and he came on your tits.'
- if pf = 2:pfType = 0 & pcash = 30 & pfactor = 1 & $pfilmtext = 'You blew a guy and got a facial.'
- if pf = 3:pfType = 0 & pcash = 50 & pfactor = 1 & $pfilmtext = 'You blew and fucked a guy, then got a facial.'
- if pf = 4:pfType = 0 & pcash = 60 & pfactor = 1 & $pfilmtext = 'You blew and fucked a guy in pussy and ass, then got a facial.'
- if pf = 5:pfType = 0 & pcash = 70 & pfactor = 2 & $pfilmtext = 'Two guys fucked your ass and pussy, getting an anal creampie and a facial.'
- if pf = 6:pfType = 0 & pcash = 90 & pfactor = 2 & $pfilmtext = 'Two guys fucked you in double penetration, getting a facial and swallowing cum.'
- if pf = 7:pfType = 1 & pcash = 80 & pfactor = 1 & $pfilmtext = 'You blew and fucked a guy, getting a creampie. <b><font color="red" size="1">*cp</font></b>'
- if pf = 8:pfType = 1 & pcash = 100 & pfactor = 2 & $pfilmtext = 'Two guys fucked you in double penetration, getting a double creampie. <b><font color="red" size="1">*cp</font></b>'
- if pf = 9:pfType = 1 & pcash = 90 & pfactor = 2 & $pfilmtext = 'Two guys fucked your pussy and mouth, getting a creampie and swallowing cum. <b><font color="red" size="1">*cp</font></b>'
- if pf = 10:pfType = 1 & pcash = 120 & pfactor = 4 & $pfilmtext = 'Four guys fucked your pussy and they all cum on your mons. <b><font color="red" size="1">*cp</font></b>'
- if pf = 11:pfType = 1 & pcash = 150 & pfactor = 4 & $pfilmtext = 'Four guys fucked your pussy, getting four creampie. <b><font color="red" size="1">*cp</font></b>'
- if pf = 12:pfType = 0 & pcash = 150 & pfactor = 4 & $pfilmtext = 'Four guys fucked your ass, getting four ass creampie.'
- if pf = 13:pfType = 1 & pcash = 150 & pfactor = 4 & $pfilmtext = 'Four guys fucked you in double penetration in pairs. You got two double creampie. <b><font color="red" size="1">*cp</font></b>'
- if pf = 14:pfType = 1 & pcash = 300 & pfactor = 50 & $pfilmtext = 'Fifty of your fans fucked you however they could. Most everyone came in your pussy. <b><font color="red" size="1">*cp</font></b>'
- }
- --- pornhist ---------------------------------
|