# pornhist
i = 1
$pfilmhistory = ''
:pornhistloop
	pf = pornfilmType[i]
	dynamic $pornfilmdesc
!	if $porntitle[i] = '':lastvariable += 1 & $pornt[i] = '<a href="exec:$porntitle[lastvariable] = input(''WARNING! No matter where you clicked, it will rename the last unnamed movie!'')"><<i>>. Movie</a>'
	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 $porntitle[i] = '':
		$pfilmhistory += '● <b><<i>>. Movie</b><br><font size=2>'+$pfilmtext+'</font><br>'
	else
		$pfilmhistory += '● <b>'+$porntitle[i]+'</b><br><font size=2>'+$pfilmtext+'</font><br>'
	end
if i < film: i += 1 & jump 'pornhistloop'

if $ARGS[0] = 'pdetail':
	clr
	i = 1
	killvar 'firstvariable'
	killvar 'firstvariable2'
	:pornhistloop2
		dynamic $pornfilmdesc
		if $porntitle[i] = '':
			if firstvariable = 0:firstvariable = 1 & fvvalue = i
			pl '<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!'')"><<i>>. Movie</a></b>'
		else
			pl '<b><font color="brown"><<$porntitle[i]>></font></b>'
		end
		pl ' <b>Production date:</b> <font size=2><<$pornfilmDate[i]>></font>'
		pl ' <b>Actress age:</b> <font size=2><<pornfilmActAge[i]>></font>  <font size=2>(Appears: <<pornfilmAppAge[i]>>)</font>'
		pl ' <b>Actors:</b> <font size=2><<$pornfilmActor[i]>></font>'
		pl ' <b>Income:</b> <font size=2><<pornfilmCash[i]>>₽</font>'
		if pornfilmacting[i] < 15:
			pl ' <b>Acting:</b> <font size=2>You were so obviously fake as a bad boobjob. Have you got paid for this?</font>'
		elseif pornfilmacting[i] < 30:
			pl ' <b>Acting:</b> <font size=2>You were acting quite fake, but it were passable.</font>'
		elseif pornfilmacting[i] < 45:
			pl ' <b>Acting:</b> <font size=2>You probably could have done better, but at least you were not totally unconvincing.</font>'
		elseif pornfilmacting[i] < 60:
			pl ' <b>Acting:</b> <font size=2>You were actually acting, even if not totally convincingly.</font>'
		elseif pornfilmacting[i] < 75:
			pl ' <b>Acting:</b> <font size=2>You were acting really well.</font>'
		elseif pornfilmacting[i] < 90:
			pl ' <b>Acting:</b> <font size=2>As a professional actress, everybody believed your every gesture and sentence.</font>'
		else
			pl ' <b>Acting:</b> <font size=2>Your performance was phenomenal. You may actually win some award with this one.</font>'
		end
		if pornfilmvnesh[film] >= 200:
			pl ' <b>Look:</b> <font size=2>Amazingly beautiful.</font>'
		elseif pornfilmvnesh[film] >= 120:
			pl ' <b>Look:</b> <font size=2>Beautiful.</font>'
		elseif pornfilmvnesh[film] >= 60:
			pl ' <b>Look:</b> <font size=2>Attractive.</font>'
		else
			pl ' <b>Look:</b> <font size=2>Unnoticeable.</font>'
		end
		pl ' <b>Description:</b> <font size=2><<$pfilmtext>></font>'
		if $pornfilmstory[i] = '':
			if firstvariable2 = 0:firstvariable2 = 1 & fvvalue2 = i
			pl ' <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!'')">Missing story</a></font>'
		else
			pl ' <b>Story:</b> <font color=#1B4532 size=2><<$pornfilmstory[i]>></font>'
		end
		pl ' <b>Tags: <font color=#541717 size=2><<$pfilmtags>></font></b>'
		if pornDanger[i] = 1 and pfType = 1:pl ' <font color="red" size=2><b>You were unprotected and fertile during the shoot.</b></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 can shoot an another movie tomorrow.</b></i></font>'
		end
	end
	pl '<a href="exec:dynamic $objstatistika & killvar ''pdetail'' & killvar ''pornfilmdesc'' & killvar ''porntag''"><br>Return</a>'
end

$pornfilmdesc = {
	killvar '$pstory'
	if pornfilmType[i] = 1:
		pfType = 0
		pcash = 20
		pfactor = 1
		actbonus = 1
		$tags = 'handjob'
		$pfilmtext = 'You jerked off a guy and he came on your tits.'
	elseif pornfilmType[i] = 2:
		pfType = 0
		pcash = 30
		pfactor = 1
		actbonus = 1
		$tags = 'blowjob'
		$pfilmtext = 'You blew a guy and got a facial.'
	elseif pornfilmType[i] = 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 pornfilmType[i] = 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 pornfilmType[i] = 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 pornfilmType[i] = 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 pornfilmType[i] = 7:
		pfType = 1
		pcash = 80
		pfactor = 1
		actbonus = rand(1,2)
		$tags = 'vaginal'
		$pfilmtext = 'You blew and fucked a guy, getting a creampie.'
	elseif pornfilmType[i] = 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 pornfilmType[i] = 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 pornfilmType[i] = 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 pornfilmType[i] = 11:
		pfType = 1
		pcash = 150
		pfactor = 4
		actbonus = rand(2,3)
		$tags = 'vaginal'
		$pfilmtext = 'Four guys fucked your pussy, getting four creampie.'
	elseif pornfilmType[i] = 12:
		pfType = 0
		pcash = 150
		pfactor = 4
		actbonus = rand(2,3)
		$tags = 'anal'
		$pfilmtext = 'Four guys fucked your ass, getting four ass creampie.'
	elseif pornfilmType[i] = 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 pornfilmType[i] = 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'
	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 ---------------------------------

