:: pornstudio
<<set $here = 'pornstudio'>>
<<set $ARGS = $location_var[$here]>>
<!-- !!2021/07/17-->
<<set $location_type = 'public_indoors'>>
<<if $location_var[$here][0] == 'start'>>
	<<set $loc_arg = 'start'>>
	<<set $loc = 'pornstudio'>>
	<<set $menu_loc = 'pornstudio'>>
	<<set $menu_arg = 'start'>>
	<<set $menu_off = 0>>
	<<gs 'pornhist' 'short'>>
	<<set $time.minutes += 5>>
	<<image "locations/city/redlight/studio_porn/studia_0.jpg">>
	<<act 'Leave'>>
		<<gt 'city_redlight' 'start'>>
	<</act>>
	<<if $time.hour < 10 or $time.hour > 22>>
		The porn studio is currently closed. It is open between 10:00 and 22:00.
		$exit
	<</if>>
	You enter the studio and are greeted by a busy scene of actors, actresses and other studio employees going about their business or chatting to each other. It looks like the manager is in his office.
	<<act 'Go to the manager'>>
		<<gt 'pornstudio' 'manager'>>
	<</act>>
	<<act 'Visit the manager`s PA'>>
		<<gt 'pornstudio' 'pa'>>
	<</act>>
	<<if getvar("$bomzQW") == 1 and $time.weekday == 4 and getvar("$workDisk") == 0>>
		<<act 'Arrive for work'>>
	<<gt 'pornstudio' 'delivery'>>
<</act>>

	<</if>>
	<<if getvar("$workDolg") > 0 and $finances.cash >= $workDolg>>
		<<actCLA 'Repay your debt'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 5>>
			<<set $workDisk = 0>>
			<<set $finances.cash -= $workDolg>>
			<<set $workDolg = 0>>
			<<set $menu_off = 1>>
			You give the money that you owe to the studio.
			<<act 'Leave'>>
				<<gt 'pornstudio' 'start'>>
			<</act>>
		<</actCLA>>
	<<elseif getvar("$workDolg") == 0>>
		<<if getvar("$workDisk") == 1 and $time.weekday == 5>>
			<<actCLA 'Take the disk'>>
				<<set $menu_off = 1>>
				<<set $time.minutes += 5>>
				<<set $workDisk = 2>>
				You're given a thumb drive and asked if you remember all the instructions. You quietly nod and leave.
				As you leave the studio, you hear someone exit a nearby building and start following you, but you reassure yourself and carry on.
				<<act 'Leave'>>
					<<gt 'city_redlight' 'start'>>
				<</act>>
			<</actCLA>>
		<<elseif getvar("$workDisk") == 3 and $time.weekday == 5>>
			<<actCLA 'Hand over the envelope'>>
				<<set $menu_off = 1>>
				<<set $time.minutes += 5>>
				<<set $workDisk = 4>>
				<<if getvar("$konvert") == 0>>
					<<set $workDolg = 200000>>
					<<set $workDolgDay = 7>>
					Digging through your things, you start to panic. No envelope. You search again, but to your despair, you can't find it. You stand there, unable to speak.
					The manager grabs his phone and makes a call. You can't hear exactly what he's saying because your heart is beating so loud, but he soon hangs up.
					<p>"You're very lucky the boss is in a good mood. He's given you one week to recover his losses, so you have until next Friday evening to bring me 200,000 <b>₽</b>. Do this and we're done, you'll never work for us again. Fail, and bad things will happen to you..." he says with a stern look on his face.</p>
				<<else>>
					<<set $konvert = 0>>
					<<set $finances.cash += 5000>>
					<p>You give the envelope to the manager and he gives you 5,000 <b>₽</b>.</p>
				<</if>>
				<<act 'Leave'>>
					<<gt 'city_redlight' 'start'>>
				<</act>>
			<</actCLA>>
		<</if>>
	<</if>>
	<<if getvar("$pfilmNO") == 1 and getvar("$pfilmNoVenera") == 1 and getvar("$Venera") == 0>>
		<<actCLA 'Show your medical certificate'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 5>>
			<<set $pfilmNoVenera = 0>>
			<<set $pfilmNO = 0>>
			You hand over your medical certificate showing that you're STD free and they promise to consider your reinstatement.
			<<act 'Leave'>>
				<<gt 'pornstudio' 'start'>>
			<</act>>
		<</actCLA>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'pa'>>
	<<set $time.minutes += 5>>
	<<set $menu_loc = 'pornstudio'>>
	<<set $menu_arg = 'pa'>>
	<<set $menu_off = 0>>
	Inside the small office is a young man sitting at a computer, tapping away at the keyboard.
	<<if getvar("$film") == 0>>
		<p>"Who are you? This office is for staff only."</p>
	<<else>>
		<p>"Hi there, what can I do for you?"</p>
		<<if getvar("$pfilmNO") == 0>>
			<<actCLA 'Change your porn name'>>
				<<set $menu_off = 1>>
				<p>"Is it possible for me to change my stage name?" you ask.</p>
				<p>"Of course! Just give me a minute to register it in the database. So, what would you like to be called?" he replies.</p>
				<<actCLA '"I want to be called..."'>>
					<<set $pfname = input("Enter the name you want to be known as.")>>
					<<if $pfname == ''>>
						<<set $pfname = 'Lotta Cox'>>

					<</if>>
					<<gt 'pornstudio' 'pa'>>
				<</actCLA>>
				<<act 'Nothing'>>
					<<gt 'pornstudio' 'pa'>>
				<</act>>
			<</actCLA>>
		<</if>>
		<<if getvar("$pfilmSTOP") == 0>>
			<<actCLA 'What`s the rating of my videos?'>>
				<<set $time.minutes += 5>>
				<<set $menu_off = 1>>
				"You've made <<film>> films."
				<<if getvar("$porn_fame") < 10>>
					"Nobody knows your name. You're one of hundreds of amateur actresses whose fims are sold really cheap."
				<<elseif getvar("$porn_fame") < 20>>
					"You're still unknown and are unlikely to be recognized. Your own films are still sold cheap."
				<<elseif getvar("$porn_fame") < 40>>
					"You're mentioned here and there, but still mostly get minor roles. Your name is slowly emerging and you have your own fanbase."
				<<elseif getvar("$porn_fame") < 60>>
					"You get the occasional back cover appearance and your films are getting more popular, which means more fans and more money."
				<<elseif getvar("$porn_fame") < 80>>
					"You're a known porn actress who appears on the front cover. Your films are sold at a decent price, and in big numbers."
				<<else>>
					"You're a very well known porn actress and your films are sold at a premium. You're likely to recieve offers to work with renowned studios and producers."
				<</if>>
				<<if getvar("$porn_fame") >= 20>>
					<<setinit $ftypecount[0] = $pornvag>> <<set $ftypecount[0] = 'vaginal'>>
					<<setinit $ftypecount[1] = $pornanal>> <<set $ftypecount[1] = 'anal'>>
					<<setinit $ftypecount[2] = $porngasm>> <<set $ftypecount[15] = 'orgasm'>>
					<<setinit $ftypecount[3] = $porngang>> <<set $ftypecount[3] = 'group sex'>>
					<<setinit $ftypecount[4] = $porncream>> <<set $ftypecount[4] = 'creampie'>>
					<<setinit $ftypecount[5] = $pornhole>> <<set $ftypecount[5] = 'gloryhole'>>
					<<setinit $ftypecount[6] = $pornbdsm>> <<set $ftypecount[6] = 'bdsm'>>
					<<setinit $ftypecount[7] = $pornlesbo>> <<set $ftypecount[7] = 'lesbian'>>
					<<setinit $ftypecount[8] = $pornpreg>> <<set $ftypecount[8] = 'pregnant'>>
					<<setinit $ftypecount[9] = $pornexhib>> <<set $ftypecount[9] = 'public'>>
					<<setinit $ftypecount[10] = $pornmast>> <<set $ftypecount[10] = 'masturbation'>>
					<<setinit $ftypecount[11] = $pornbukk>> <<set $ftypecount[11] = 'cumshot'>>
					<<setinit $ftypecount[12] = $pornbj>> <<set $ftypecount[12] = 'blowjob'>>
					<<setinit $ftypecount[13] = $pornhj>> <<set $ftypecount[13] = 'handjob'>>
					<<setinit $ftypecount[14] = $pornswall>> <<set $ftypecount[14] = 'cum swallowing'>>
					<<set $k = 1>>
					<<warn 'JUMP MARKER ENCOUNTERED: :repeating'>>
					<<set $c = 14>>
					<<warn 'JUMP MARKER ENCOUNTERED: :ftypecount'>>
					<<set $current = $ftypecount[$c]>>
					<<set $current = $ftypecount[$c]>>
					<<set $c -= 1>>
					<<if $current > $ftypecount[$c]>>
						<<setinit $ftypecount[$c + 1] = $ftypecount[$c]>>
						<<setinit $ftypecount[$c + 1] = $ftypecount[$c]>>
						<<setinit $ftypecount[$c] = $current>>
						<<setinit $ftypecount[$c] = $current>>
					<</if>>
					<<if $c >= $k>>
						<<warn 'JUMP COMMAND ENCOUNTERED: jump ftypecount'>>

					<</if>>
					<<set $k += 1>>
					<<if getvar("$k") < 14>>
						<<warn 'JUMP COMMAND ENCOUNTERED: jump repeating'>>

					<</if>>
					<<if $ftypecount[1] == $ftypecount[0]>>
						<<if $ftypecount[0] == $ftypecount[2]>>
							<p>You're known for your $ftypecount[0], $ftypecount[1] and $ftypecount[2] scenes.</p>
						<<else>>
							<p>You're known for your $ftypecount[0] and $ftypecount[1] scenes.</p>
						<</if>>
					<<else>>
						<p>You're known for your $ftypecount[0] scenes.</p>
					<</if>>
				<</if>>
				<<if getvar("$film") < 10 and getvar("$porn_fame") < 10>>
					<p>"By the way, if you wanted, I could completely remove them from our systems - for the right price of course..." the guy whispers.</p>
					<<actCLA 'Tell me more'>>
						<<set $time.minutes += 5>>
						<<set $films_stop_payment = $film * 40000>>
						<p>"Seeing as you're not well known, it's unlikely anyone would notice. However, to remove them you'd have to cover the loss of the studio's profits- 40,000 <b>₽</b> per film. That's a total of films_stop_payment <b>₽</b>."</p>
						<p>"Also, it would piss off your co-stars and director, and likely end your porn career. You should also know that there's no guarantee there's no other copies out there, so think carefully."</p>
						<<if $finances.cash >= $films_stop_payment>>
							<<actCLA 'Remove them'>>
								<<set $time.minutes += 5>>
								<<set $finances.cash -= $films_stop_payment>>
								<<set $pfilmSTOP = 1>>
								<<set $pfilmday to null>>
								<<set $pornplan to null>>
								<<set $porntaken to null>>
								<<set $pornstack to null>>
								<<set $prodcosttrue to null>>
								<<set $prodcost to null>>
								<<set $film = 0>>
								"We never met. Have a nice day, and don't come back."
								<<act 'Leave'>>
									<<gt 'pornstudio' 'start'>>
								<</act>>
							<</actCLA>>
						<</if>>
						<<act 'Not interested'>>
							<<gt 'pornstudio' 'start'>>
						<</act>>
					<</actCLA>>
					<<act 'Leave'>>
						<<gt 'pornstudio' 'start'>>
					<</act>>
				<</if>>
				<<act 'Leave'>>
					<<gt 'pornstudio' 'start'>>
				<</act>>
			<</actCLA>>
		<</if>>
		<<act 'Leave'>>
			<<gt 'pornstudio' 'start'>>
		<</act>>
	<</if>>
	<<act 'Leave'>>
		<<gt 'pornstudio' 'start'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'delivery'>>
	<<set $time.minutes += 15>>
	<<set $menu_off = 1>>
	"We made inquiries about you, and everything seems in order. In short, we give you a thumb drive and you deliver it to the sauna. They give you an envelope and you bring it to us. Immediately."
	<p>"Upon delivery of the envolope, you get 5000 <b>₽</b>. Deliveries are available every Friday, after the studio has opened. If you agree, then visit any Friday, and choose a safe mode of transport."</p>
	<<actCLA 'Disagree'>>
		<<set $bomzQW = -1>> <<gt 'city_redlight' 'start'>>
	<</actCLA>>
	<<actCLA 'Agree'>>
		<<set $time.minutes += 15>>
		"We'll take you this one time. In the future, you'll have to make your own way because Fridays are getting risky for us. We need to introduce you to our colleagues."
		<<actCLA 'Let`s go'>>
			<<set $workDisk = 1>>
			<<set $time.minutes += 15>>
			You climb into a car by the entrance and are driven to the sauna.
			<<if getvar("$saunasex") == 1>>
				You recall going to this sauna. You had some pretty energetic sex here.
			<<elseif getvar("$sauna") > 0>>
				Oh, it's the sauna near your home.
			<<else>>
				This sauna is located near your home. You find it strange that you didn''t notice it before.
			<</if>>
			You're introduced to the local managers and it's explained to you who you need to deliver to. You're also reminded that it's necessary to return the envelope the same day you receive it.
			"Don't forget to use secure transport. We'll see you on Fridays. <i>Don't</i> fuck up."
			<<actCLA 'Leave'>>
				<<set $bomzQW = 2>> <<gt 'city_residential'>>
			<</actCLA>>
		<</actCLA>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'shower'>>
	<<set $location_type = 'bathroom'>>
	<<set $loc = 'pornstudio'>>
	<<set $loc_arg = 'bathroom'>>
	<<set $locM = 'pornstudio'>>
	<<set $locM_arg = 'bathroom'>>
	<<set $menu_loc = 'pornstudio'>>
	<<set $menu_arg = 'bathroom'>>
	<<set $menu_off = 1>>
	<<set $time.minutes += 5>>
	<<set $pc.horny += 1>>
	<<set $pc.pcs_makeup = 1>>
	<<gs 'cleanBody'>>
	<<video "shared/home/bathroom/dush.mp4">>
	<<set $cumspclnt = 20>>
	<<gs 'cum_cleanup'>>
	You enter the cubicle, turn the water on and thoroughly wash yourself.
	<<if $pc.deodorant_on == 1>>
		<<gs 'sweat' 'remove_deo'>> 

	<</if>>
	<<act 'Look in the mirror'>>
		<<gt 'mirror' 'start'>>
	<</act>>
	<<act 'Go and see Dimitri'>>
		<<gt 'pornstudio' 'postvideo'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'bathroom'>>
	<<set $time.minutes += 1>>
	<<set $menu_off = 1>>
	<<image "locations/city/citycenter/photo/shower.jpg">>
	You can freshen up in the mirror or go and see Dimitri about being paid.
	<<act 'Look in the mirror'>>
		<<gt 'mirror' 'start'>>
	<</act>>
	<<act 'Go and see Dimitri'>>
		<<gt 'pornstudio' 'postvideo'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'manager'>>
	<<set $time.minutes += 5>>
	<<set $menu_off = 1>>
	<<image "locations/city/redlight/studio_porn/studia_0.jpg">>
	You walk into the manager''s office and find Dimitri at his desk.
	<<if getvar("$firstkasting") == 0>>
		<<gt 'pornstudio' 'first'>>

	<</if>>
	<<if getvar("$pc.pregchem") >= 2688 and getvar("$pc.pregtalkpornstudio") == 0>>
		<<gt 'pornstudio' 'pregreact'>>

	<</if>>
	<<if getvar("$pfilmNoVenera") == 1>>
		<!-- !! Banned from shooting porn due to STD-->
		<p>"Why are you here? You're banned from filming until you get that STD sorted. Show me a medical certificate saying you're clean and you can come back to work."</p>
	<<elseif getvar("$pfilmNO") == 1>>
		<!-- !! Banned from shooting porn-->
		<p>"Why are you here? You're blacklisted and will never work in porn again."</p>
	<<elseif getvar("$pfilmSTOP") == 1>>
		<!-- !! No longer shooting porn-->
		<p>"I'm sorry, I thought you had retired?"</p>
	<<elseif (($pfilmday[0] > 0 and $time.hour > 12) or getvar("$pornmiss") == 1) and getvar("$prodcosttrue") <= 20000 and getvar("$missedshoot") == 0>>
		<!-- !! You missed your shooting time, but you have a chance to work it off-->
		<<set $missedshoot = 1>>
		<<set $pornmiss = 0>>
		Dimitri looks agitated as he storms towards you, ready to chew you out.
		<p>"Where the fuck were you?! I paid the actors and director to sit around on their asses waiting for you! The whole shoot was a bust!"</p>
		He manages to cool off a little with the venting of his frustration, and after a deep breath, he continues more calmly.
		<<if $pfilmday[1] == 0>>
			<<set $missday = rand(0,3)>>
			<<setinit $porntaken['1,' + $missday] = 0>>
			<<actCLA 'Jump in tomorrow'>>
				<<set $prodcost = 0>>
				<<set $pfilmNOPAY = 1>>
				<<setinit $porntaken['1,' + $missday] = 2>>
				<<setinit $pfilmday[1] = $pornplan['1,' + $missday]>>
				<<set $pornstack += 1>>
				<<set $freefilm = 1>>
				<<gt 'pornstudio' 'start'>>
			<</actCLA>>
			<p>"I'll give you a chance to make it right. Another actress has gotten sick and cancelled her shoot. If you jump in for her, your debt is cancelled. And no, I don't remember what she was going to shoot. This day has been anything but easy due to you! You can also work it off, but that will take longer, or just pay it back if you have the money."</p>
		<<else>>
			"You know what, you can work it off, but it will take you a while. You could also just pay it off if you have the money."
		<</if>>
		<<actCLA 'Accept your debt'>>
			<<set $prodcosttrue += $prodcost>> <<gt 'pornstudio' 'start'>>
		<</actCLA>>
		<<gs 'willpower' 'misc' 'self'>>
		<<if $will_cost <= $pc.willpower>>
			<<actCLA 'I quit! (will_cost Willpower)'>>
				<<gs 'willpower' 'pay' 'self'>>
				<p>"Fuck this shit, I quit!" you yell before storming out of his office.</p>
				<<set $pfilmNO = 1>>
				<<set $prodcosttrue to null>>
				<<set $pfilmday to null>>
				<<set $pornplan to null>>
				<<set $porntaken to null>>
				<<set $pornnow to null>>
				<<gt 'pornstudio' 'start'>>
			<</actCLA>>
		<<else>>
			<<actCLA `'I quit! ('+$will_cost+')'`>><font color=red><br/>You don`t have enough willpower to use this action.</font><</actCLA>>
		<</if>>
		$exit
	<<elseif getvar("$prodcosttrue") > 20000 and getvar("$prodcost") > 0>>
		<!-- !! You really fucked up and are banned from shooting porn-->
		<<set $pfilmNO = 1>>
		<<set $prodcosttrue to null>>
		<<set $pfilmday to null>>
		<<set $pornplan to null>>
		<<set $porntaken to null>>
		<<set $pornnow to null>>
		<p>"You didn't come to the shoot! You fucked me over once again when you already owed me a lot of money! You took the second chance I gave you and threw it back in my face! I don't want to work with you anymore, so get out! You're blacklisted!"</p>
	<<elseif $pfilmday[0] > 0 and $time.hour >= 10 and $time.hour <= 12>>
		<!-- !! You have a porn shoot and are on time-->
		<<set $pornnow = 1>>
		<<if $time.hour == 10>>
			"You're just in time for your inspection. Off you go now," he says with a smile.

		<</if>>
		<<if $time.hour == 11>>
			<p>"You're late. My patience is not eternal," he says strictly. "Get going to your inspection, quickly!"</p>

		<</if>>
		<<if $time.hour == 12>>
			<p>"What the hell? Everyone's waiting for you! Hurry up and get inspected! Now!"</p>

		<</if>>
		<<actCLA 'Go for medical check-up'>>
			<<gt 'pornstudio' 'medical' $pfilmday[0]>>
		<</actCLA>>
		$exit
	<<elseif getvar("$film") == 0 and getvar("$pornstack") == 0>>
		<!-- !! Your first movie offer-->
		<<if getvar("$firstoffer") == 0>>
			<<set $firstoffer = 1>>
			<<if $pc.tits >= 4>>
				<p>"So you're the new girl, huh? As luck would have it, we're looking for someone fresh for our next shoot. It's called 'Girls Jerk Guys #36'. For 500 <b>₽</b>, you would jerk a guy off and have him cum on your tits. However, in your case, you'll be using those puppies instead. Titfucking is a market we want to break into," he says while looking at your well endowed chest.</p>
				"You should also know that this particular shoot is booked with Egor, one of our more... experienced actors. He's rather... proud of being in this line of work."
		<<else>>
				<p>"So you're the new girl, huh? As luck would have it, we're looking for someone fresh for our next shoot. It's called 'Girls Jerk Guys #36'. For 500 <b>₽</b>, you jerk a guy off and have him cum on your tits."</p>
				"You should also know that this particular shoot is booked with Egor, one of our more... experienced actors. He's rather... proud of being in this line of work."
			<</if>>
		<<else>>
			<<if $pc.tits >= 4>>
				<p>"Hello. Since you're new, all I can offer you is an introductory movie called 'Girls Jerk Guys #36'. For 500 <b>₽</b>, you would jerk a guy off and have him cum on your tits. However, in your case, you'll be using those puppies instead. Titfucking is a market we want to break into," he says while looking at your well endowed chest.</p>
				"You should also know that this particular shoot is booked with Egor, one of our more... experienced actors. He's rather... proud of being in this line of work."
			<<else>>
				<p>"Hello. Since you're new, all I can offer you is an introductory movie called 'Girls Jerk Guys #36'. For 500 <b>₽</b>, you jerk a guy off and have him cum on your tits."</p>
				"You should also know that this particular shoot is booked with Egor, one of our more... experienced actors. He's rather... proud of being in this line of work."
			<</if>>
		<</if>>
		<<actCLA 'Agree' undefined `{willpower:['exhib','self']}`>>
				
				<<set $pornstack += 1>>
				<<setinit $pfilmday[1] = 1>>
				"Cool. We shoot tomorrow, so be here between 10:00 and 11:00. Please don't be late."
				<<act 'Leave'>>
					<<gt 'pornstudio' 'start'>>
				<</act>>
			<</actCLA>>
		
		<<actCLA 'I don't think I'm ready'>>
			<<gt 'pornstudio' 'start'>>
		<</actCLA>>
		$exit
	<<elseif getvar("$film") > 0>>
		<<gs 'pornstudio' 'options'>>
	<<else>>
		<p>Dimitri looks up from his paperwork and greets you. "Hello. Can I help you with something?"</p>
	<</if>>
	<<if getvar("$porndebt") > 0>>
		<<actCLA 'Ask about your debt'>>
			
		<</actCLA>>
	<</if>>
	<<act 'Leave'>>
		<<gt 'pornstudio' 'start'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'options'>>
	"Let''s see what I have on offer for you."
	<<if getvar("$film") < 5>>
		<<set $fmulti = 100>>
	<<elseif getvar("$film") < 10>>
		<<set $fmulti = 120>>
	<<elseif getvar("$film") < 15>>
		<<set $fmulti = 140>>
	<<elseif getvar("$film") < 25>>
		<<set $fmulti = 160>>
	<<elseif getvar("$film") < 50>>
		<<set $fmulti = 180>>
	<<elseif getvar("$film") >= 50>>
		<<set $fmulti = 200>>
	<</if>>
	<<actCLA 'Filter by date'>>
		<<selection>>
	<</actCLA>>
	<!-- !{	act 'Filter by tag':
	dynamic $displaytag
	end
	} -->
	<<actCLA 'Filter by participants'>>
		<<displaynum>>
	<</actCLA>>
	<<actCLA 'Porn production schedule'>>
		<<contracting>>
	<</actCLA>>
	<<if getvar("$pornstack") > 1 or (getvar("$freefilm") == 0 and getvar("$pornstack") > 0)>>
		<<actCLA 'Cancel a contract'>>
			<<canceling>>
		<</actCLA>>
	<</if>>
	<<actCLA 'Leave'>>
		<<set $ppnum to null>>
		<<set $displaynum to null>>
		<<set $displaytext to null>>
		<<set $displayimage to null>>
		<<set $pp1 to null>>
		<<set $pp2 to null>>
		<<set $pp3 to null>>
		<<set $pp4 to null>>
		<<set $pp5 to null>>
		<<set $displaytag to null>>
		<<set $flag_tag to null>>
		<<set $selection to null>>
		<<set $datefilter to null>>
		<<set $selected to null>>
		<<set $option to null>>
		<<set $tagfilter to null>>
		<<set $contracting to null>>
		<<set $pcount to null>>
		<<set $time.weekdaydayfilter to null>>
		<<set $time.weekdayendfilter to null>>
		<<gt 'pornstudio' 'start'>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'first'>>
	<<set $menu_off = 1>>
	<<image "locations/city/redlight/studio_porn/casting/casting0.jpg">>
	<p>You sit down on the sofa and greet the manager. "I see it's your first time with us. So, you want to be a porn star?"</p>
	<<if $pc.pcs_inhib < 40 and (money <= 500 and $finances.bank <= 500 and setup.func('homes_properties', 'get_accessible_property_count') == 0) or (getvar("$pc.narkoman") == 1 or getvar("$SLomka") > 0)>>
		While you don't feel confident enough showing off your body, you're desperate for money, and are willing to do anything to earn it.
		<<act 'Continue'>>
			<<gt 'pornstudio' 'yes'>>
		<</act>>
	<<elseif $pc.pcs_inhib < 40>>
		You don't feel confident enough to start a career in porn. You should gain some confidence showing off your body first.
		<<act 'Leave'>>
			<<gt 'pornstudio' 'start'>>
		<</act>>
	<<else>>
		<<act 'Continue'>>
			<<gt 'pornstudio' 'yes'>>
		<</act>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'yes'>>
	<<set $menu_off = 1>>
		<<set $time.minutes += 5>>
	<<image "locations/city/redlight/studio_porn/casting/casting0.jpg">>
		<p>You confirm your enthusiasm to be in porn and he nods. "Let's see your papers. You are 18 or older, yes?"</p>
	<<if getvar("$pc.age") >= 18 and getvar("$pc.age") < 20>>
		"Yes I am," you answer while handing him your passport.
		<p>He looks it over with a smirk. "A teen, huh? Perfect. You need to do a casting first, so take off your clothes."</p>
	<<elseif getvar("$pc.age") >= 20 and getvar("$pc.age") < 25>>
		"Yes I am," you answer while handing him your passport.
		He looks it over and nods. "Looks good, but you need to do a casting first. Take off your clothes."
	<<elseif getvar("$pc.age") >= 25>>
		"Yes I am," you answer while handing him your passport.
		<p>He looks it over and frowns. "You're a bit old to start doing porn, no?"</p>
		<p>"What do you mean?" you ask with a frown.</p>
		"Most of our girls started when they were 18. The oldest was 20," he replies. "We can work with you, but you need to do a casting first. Take off your clothes."
		<<elseif getvar("$fakepassport") == 1>>
		"Yes I am," you answer while handing him your fake passport.
		You see him frown as he checks your passport with suspicion. "You need to do a casting first. Take off your clothes."
		<<else>>
			"Nearly..." you plead.
		"Right... Come back when you're old enough, kid."
			<<set $fakepassport = 2>>
			<<act 'Leave'>>
				<<gt 'pornstudio' 'start'>>
			<</act>>
			$exit
		<</if>>
		<<act 'Make excuses and leave'>>
			<<gt 'pornstudio' 'start'>>
		<</act>>
		<<actCLA 'Undress' undefined `{willpower:['exhib','self']}`>>
				
				<<set $time.minutes += 5>>
				<<image "locations/city/redlight/studio_porn/casting/casting1.jpg">>
			You undress as he gets up from his chair and walks towards you with a camera. "Lie down on the couch and spread your legs."
				<<act 'Grab your clothes and run out'>>
					<<gt 'pornstudio' 'start'>>
				<</act>>
				<<actCLA 'Lie down'>>
					<<set $time.minutes += 5>>
					<<image "locations/city/redlight/studio_porn/casting/casting2.jpg">>
				You lie down on the sofa and spread your legs as he takes a few pictures, explaining that they're for your portfolio.
				<<if $pc.tits >= 4>>
					<p>"Are these puppies real?" he asks while fondling one of your large breasts in his hand with an approving grin. "These things bouncing around as you get fucked will certainly draw in the views."</p>
					<<if getvar("$pc.age") < 20>>
						"A big tit teen like you is who studios dream of signing on. Those puppies are going to make you <i>very</i> popular, and not just with the viewers."

					<</if>>
				<<elseif $pc.tits < 2>>
					He notices your clear lack of sizeable breasts. "No worries. Small tits are just as popular in porn as big ones."
				<<else>>
					"Nice tits. Always good to give the viewers something to look at," he smiles while fondling one of your breasts in his hand.
				<</if>>
				<<if $pc.pubesLength <= 3>>
					He runs his hand over your smooth crotch. "Clean shaven. Good. Make sure it stays smooth. Stubble looks ugly on camera."
				<<elseif $pc.pubesLength <= 10>>
					He shakes his head while running his hand over your crotch. "You either need to grow this out into a neat bush or shave it. Stubble looks ugly on camera."
				<<elseif $pc.pubesLength <= 15>>
					"You can shave this off or grow it out a little. Some of our viewers like girls having some hair down there, others like it smooth."
				<<elseif $pc.pubesLength <= 25>>
					"Cute bush. They're popular with some of our viewers, just keep it neat and clean. We don't want a jungle on camera."
				<<else>>
					He shakes his head while looking at your mound of pubic hair. "You're going to have to trim this down or shave it off. We can't have that covering up the goods on camera. Viewers want to see your pussy, not a mound of untrimmed hair."
				<</if>>
				<<if $pc.pcs_butt > 12>>
					"Turn around," he orders and you get on all fours and show him your bubble butt. "Nice," he says while squeezing it in his hand and taking some pictures. "I highly recommend doing anal if you have an ass like this."
					<<if $pc.tits >= 4 and getvar("$pc.age") < 20>>
						"A teen with big tits and a nice bubble butt. You really are the perfect little porn star in the making," he says with a grin.
					<<elseif $pc.tits >= 4>>
						<p>"Big tits and a bubble butt? You really are the complete package," he says with a grin.</p>
					<</if>>
				<</if>>
				"Okay, get on your knees for me," he orders.
				<<if $pc.tits >= 4>>
					<<actCLA 'Kneel'>>
						<<set $time.minutes += 2>>
						<<arouse 'titjob' -2 `['exhibitionism']`>>
						<<arouse 'bj' -2 `['exhibitionism']`>>
						<<video "locations/city/redlight/studio_porn/sex/titfuck.mp4">>
						He takes a seat on the sofa and you kneel in front of him as he pulls out his sizeable cock. You admire it for a few seconds before wrapping your large breasts around it and giving him a titfuck as you suck on the tip.
						He smiles down at you as he takes more pictures. "You know how to appeal to an audience, girl. Now suck it."
						<<actCLA 'Suck his dick'>>
							<<set $time.minutes += 2>>
							<<arouse 'bj' -2 `['exhibitionism']`>>
							<<image "locations/city/redlight/studio_porn/casting/casting4.jpg">>
							You take his shaft into your mouth and start sucking it as he takes more pictures.
							"That''s it. Take it deeper," he says as you look up at him. "And play with your tits as well. Show off the goods."
							You squeeze your breasts together as you take his cock deeper and keep sucking.
							<<actCLA 'Finish him'>>
								<<set $time.minutes += 2>>
								<<arouse 'bj' -2 `['deepthroat','exhibitionism']`>>
								
								<<image "locations/city/redlight/studio_porn/casting/casting5.jpg">>
								<p>You continue taking his dick as deep into your throat as you can while trying to look as sexy as possible. Meanwhile, he fondles one of your breasts with his free hand. "These tits are something else!" '+iif(age < 20,'He pinches your nipple, causing you to moan onto his cock. "And on a cute little teen no less!"','He pinches your nipple, causing you to moan onto his cock.')+</p>
								After a few minutes, he pulls his dick out of your mouth and you quickly jerk him off, a thick load of cum soon covering your face. He takes a few more pictures of you before returning to his desk and offering you some wipes. You quickly clean yourself, get dressed and sit down.
								"You can call me Dimitri. You're going to need a stage name."
								<<actCLA 'Choose your name'>>
									<<set $firstkasting = 1>>
									<<set $pfname = input ("What will your porn name be? (Leave blank for <<$pc.name_nick>> Starr)")>>
									<<if getvar("$pfname") <= 0>>
										<<set $pfname = '$pc.name_nick Starr'>>

									<</if>>
									"There we go, you're now registered. We shoot about four films a day, so you can choose what you to be in. Anal or gangbang, it's your choice, just remember to take care of your health. If you get sick or something, just cancel the shoot. You can do this up to the day of the shooting."
									<p>A stern look then appears on his face. "Before shooting starts, you have to pass a mandatory medical examination. If we find any sign of a sexually transmitted disease, you're out, no exceptions. Understood?"</p>
									You nod and he smiles. "Excellent. Come see me when you want a contract. And welcome to the world of pornography."
									<<act 'Continue'>>
										<<gt 'pornstudio' 'start'>>
									<</act>>
								<</actCLA>>
							<</actCLA>>
						<</actCLA>>
					<</actCLA>>
				<<else>>
					<<actCLA 'Kneel'>>
						<<set $time.minutes += 2>>
						<<arouse 'bj' -2 `['exhibitionism']`>>
						
						<<image "locations/city/redlight/studio_porn/casting/casting3.jpg">>
						You get up from the sofa and kneel in front of him as he pulls out his sizeable cock. You admire it for a few seconds before slowly sucking on the tip as he takes more pictures.
						"Good girl. Now suck it."
						<<actCLA 'Suck his dick'>>
							<<set $time.minutes += 2>>
							<<arouse 'bj' -2 `['exhibitionism']`>>
							<<image "locations/city/redlight/studio_porn/casting/casting4.jpg">>
							You take his shaft into your mouth and start sucking it as he takes more pictures.
							"That''s it. Take it deeper," he says as you look up at him.
							<<actCLA 'Finish him'>>
								<<set $time.minutes += 2>>
								<<arouse 'bj' -2 `['deepthroat','exhibitionism']`>>
								
								<<image "locations/city/redlight/studio_porn/casting/casting5.jpg">>
								You take his dick deep into your throat while trying to look as sexy as possible as he reaches down and pinches your nipple, causing you to moan onto his cock.
								After a few minutes, he pulls his dick out of your mouth and you quickly jerk him off, a thick load of cum soon covering your face. He takes a few more pictures of you before returning to his desk and offering you some wipes. You quickly clean yourself, get dressed and sit down.
								"You can call me Dimitri. You're going to need a stage name."
								<<actCLA 'Choose your name'>>
									<<set $firstkasting = 1>>
									<<set $pfname = input ("What will your porn name be? (Leave blank for <<$pc.name_nick>> Starr)")>>
									<<if getvar("$pfname") <= 0>>
										<<set $pfname = '$pc.name_nick Starr'>>

									<</if>>
									"There we go, you're now registered. We shoot about four films a day, so you can choose what you to be in. Anal or gangbang, it's your choice, just remember to take care of your health. If you get sick or something, just cancel the shoot. You can do this up to the day of the shooting."
									<p>A stern look then appears on his face. "Before shooting starts, you have to pass a mandatory medical examination. If we find any sign of a sexually transmitted disease, you're out, no exceptions. Understood?"</p>
									You nod and he smiles. "Excellent. Come see me when you want a contract. And welcome to the world of pornography."
									<<act 'Continue'>>
										<<gt 'pornstudio' 'start'>>
									<</act>>
								<</actCLA>>
							<</actCLA>>
						<</actCLA>>
					<</actCLA>>
				<</if>>
				<</actCLA>>
			<</actCLA>>
		
<</if>>
<<if $location_var[$here][0] == 'medical'>>
	<<set $menu_off = 1>>
	<<image "locations/city/redlight/studio_porn/exam.jpg">>
	<<set $time.minutes += 5>>
	You enter the office where the doctor is waiting. He quickly snaps on a pair of rubber gloves and tells you to undress.
	You remove your clothes and sit on the gynecological chair before the doctor starts the check up. After a thorough inspection, he takes a blood sample.
	"It will be about half an hour before the tests are finished. They will tell us if you have caught something."
	<<actCLA 'Wait'>>
		<<set $time.minutes += 30>>
		...
		...
		<<if getvar("$venera") > 0>>
			<<set $pfilmNO = 1>>
			<<set $pfilmNoVenera = 1>>
			<<set $prodcosttrue to null>>
			<<set $pfilmday to null>>
			<<set $pornplan to null>>
			<<set $porntaken to null>>
			<<set $pornnow to null>>
			"Your analysis shows you have an STD," the doctor tells you as he calls Dimitri to the office.
			Once he arrives, Dimitri looks at the test results. "Sorry, but as long as you have an STD, you can't make films."
			<<act 'Leave'>>
				<<gt 'pornstudio' 'start'>>
			<</act>>
		<<else>>
			"Very good, you're clean. You can go to the dressing room."
			<<actCLA 'Go to the dressing room'>>
				<<set $pf = $larg(1)>>
				<<pornfilmdesc  pf>>
				<<gs 'pornfilm' 'pornactor'>>
				<<gs 'pornfilm' 'pornactress'>>
				<center><img width=700 src="images/locations/city/redlight/studio_porn/makeup.jpg"></center>
				<<set $time.minutes += 30>>
				<<set $cumspclnt = 20>>
				<<gs 'cum_cleanup'>>
				<<set $pc.pcs_sweat = 0>>
				<<set $pc.pcs_hairbsh = 1>>
				<<set $pc.pcs_makeup = 4>>
				<<set $pc.pcs_lipbalm += 8>>
				<<set $pc.pcs_breath = 1>>
				An older woman is waiting for you in the dressing room.
				<p>You take a thorough shower before getting an enema. You then get your hair and make-up done.</p>
				<<if $pc.pubesLength <= 10>>
					<<set $pc.pubesLength = 0>>
					Your stubble is shaved off and you're left with a perfectly smooth pussy.
				<</if>>
				<<if $pc.pubesLength > 25>>
					<<set $pc.pubesLength = 16>>
					Your bush is trimmed down into a neat patch of hair atop your pussy.
				<</if>>
				<<act 'Go to the set'>>
					<<gt 'pornfilm' 'pf'>>
				<</act>>
			<</actCLA>>
		<</if>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'postvideo'>>
	<<set $menu_off = 1>>
	<<set $time.minutes += 30>>
	<<set $pf = $pfilmday[0]>>
	<<setinit $pfilmday[0] = 0>>
	<<set $pornstack -= 1>>
	<<set $pornnow = 0>>
	<<if getvar("$film") < 5>>
		<<set $fmulti = 25>>
	<<elseif getvar("$film") < 10>>
		<<set $fmulti = 30>>
	<<elseif getvar("$film") < 15>>
		<<set $fmulti = 35>>
	<<elseif getvar("$film") < 25>>
		<<set $fmulti = 40>>
	<<elseif getvar("$film") < 50>>
		<<set $fmulti = 45>>
	<<elseif getvar("$film") >= 50>>
		<<set $fmulti = 50>>
	<</if>>
	<<set $film += 1>>
	<<if getvar("$film") == 1>>
		<<setinit $porntitle[$film] = 'Girls Jerk Guys #36 - $pfname'>>
		<<if $pc.tits >= 4>>
			<<setinit $pornfilmstory[$film] = '$pfname's debut into the world of porn. Watch as she gives silver fox Egor Kluyev a titfuck and ends up with his cum all over her big '+iif(age < 20,'teen',')+' tits.'>>
		<<else>>
			<<setinit $pornfilmstory[$film] = '$pfname's debut into the world of porn. Watch as she jerks silver fox Egor Kluyev off and ends up with his cum all over her '+iif(age < 20,'teen',')+' tits.'>>
		<</if>>
	<<else>>
		<<if $pstory == '' and getvar("$editpornname") == 1>>
			<<setinit $pornfilmstory[$film] = input('You can enter the story for the film. This action can only be done once, but you can choose to do it later! (Just hit Enter / Esc when blank)<br>Tags of the current movie: <font color=#541717 size=2><<$pfilmtags>></font>')>>
		<<else>>
			<<setinit $pornfilmstory[$film] = $pstory>>
		<</if>>
		<<if getvar("$editpornname") == 1>>
			<<setinit $porntitle[$film] = input("Enter the name of the film. <i>This action can only be done once, but you can choose to do it later! (Just hit Enter / Esc when blank)</i>")>>
		<</if>>
	<</if>>
	<<if getvar("$pfilmNOPAY") == 0>>
		<<set $pfcash = $pcash * $fmulti>>
		<<set $finances.cash += $pfcash>>
		<p>Dimitri counts pfcash <b>₽</b> out for your film and wishes you good luck.</p>
	<<else>>
		<<set $pfilmNOPAY = 0>>
		<<set $pfcash = 0>>
		You have fulfilled your obligation and made the film for free.
	<</if>>
	<<setinit $pornfilmYear[$film] = $time.year>>
	<<setinit $pornfilmMonth[$film] = $time.month>>
	<<setinit $pornfilmDay[$film] = $time.day>>
	<<setinit $porndaystart[$film] = $time.daystart>>
	<<setinit $pornfilmType[$film] = $pf>>
	<<setinit $pornfilmCash[$film] = $pfcash>>
	<<setinit $pornfilmActAge[$film] = $pc.age>>
	<<setinit $pornfilmAppAge[$film] = $pc.visualAge>>
	<<setinit $pornfilmpregchem[$film] = $pc.pregchem>>
	<<setinit $pornfilmacting[$film] = $acting + $orgasmbonus + $pc.skillLevel("intelligence") / 10>>
	<<pornfilmdesc  pf>>
	<<set $orgasmbonus to null>>
	<<if getvar("$pornfilmacting["+$film+"]") >= 90>>
		<<set $porn_fame += 3>>
	<<elseif getvar("$pornfilmacting["+$film+"]") >= 75>>
		<<set $porn_fame += 2>>
	<<elseif getvar("$pornfilmacting["+$film+"]") >= 60>>
		<<set $porn_fame += 1>>
	<</if>>
	<<if $pc.hotcat >= 9>>
		<<set $porn_fame += 3>>
	<<elseif $pc.hotcat >= 7>>
		<<set $porn_fame += 2>>
	<<elseif $pc.hotcat >= 5>>
		<<set $porn_fame += 1>>
	<</if>>
	<<setinit $pornfilmvnesh[$film] = $pc.hotcat>>
	<<set $acting += $actbonus>>
	<<if getvar("$pfType") != 0>>
		<<set $unprotfilm = -1>>
		<<if getvar("$succubusflag") == 1>>
			<!-- !!May add a check to clear unprotfilm based on sucpcinfo (the PC knows Succubae are immune to STDs)-->
			<<if getvar("$pfcash") > 0>>
				<<set $tmp = '"I almost can't believe they paid me pfcash<b>₽</b> for such a wonderful meal!"'>>
			<<else>>
				<<set $tmp = '"And they think I`m doing this for free. If only they knew they were paying me in another way..."'>>
			<</if>>
			<p>$tmp you think to yourself as you smirk in satisfaction.</p>
		<<elseif $pc.knowpreg == 0 and $pc.thinkpreg == 0 and getvar("$pillcon2") < 1000>>
			<<setinit $pornDanger[$film] = 1>>
			<!-- !!Left "ppreg" pending its eventual use-->
			<<if getvar("$ppreg") == 0>>
				<<if getvar("$pfcash") > 0>>
					<<set $tmp = 'Was pfcash <b>₽</b> worth the risk of getting impregnated by a seedy porn actor you'll probably never see again?'>>
				<<else>>
					<<set $tmp = 'You didn`t even get paid to risk pregnancy! You`ll likely never see the guy again.'>>
				<</if>>
				<p>With a growing sense of horror, you realize that you aren't on the shot and have no idea when you last took a birth control pill. $tmp</p>
			<<else>>
				<!-- !{If she has birth control and deliberately isn''t using it, obviously she wants to get pregnant or just doesn''t care.} -->
				<<if getvar("$pfcash") > 0>>
					<<set $tmp = 'Either way, pfcash <b>₽</b> will definitely help make a better life for you and your baby if you do end up pregnant.'>>
				<<else>>
					<<set $tmp = 'The fact that you weren`t even paid to take this risk excites you more than you`d like to admit.'>>
				<</if>>
				From the moment you stepped onto the set, you kept thinking about how you were completely unprotected during this shoot. You aren''t sure if you're afraid of the consequences or excited by them.
				<<set $pc.horny += 10>>
			<</if>>
		<</if>>
		<<set $tmp to null>>
	<</if>>
	<<if getvar("$pfactor") == 50>>
		<<setinit $pornfilmActor[$film] = 'Fifty fans of'>>
	<<else>>
		<!-- !!		dynamic $pornactor-->
		<<setinit $pornfilmActor[$film] = ''>>
		<<set $pact = $pfactor>>
		<<warn 'JUMP MARKER ENCOUNTERED: :pornactortext'>>
		<<if getvar("$pact") > 1>>
			<<setinit $pornfilmActor[$film] += $pactor[$pact] + ', '>>
		<<else>>
			<<setinit $pornfilmActor[$film] += $pactor[$pact]>>
		<</if>>
		<<set $pact -= 1>>
		<<if getvar("$pact") > 0>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump pornactortext'>>

		<</if>>
	<</if>>
	<<if getvar("$film") < 10>>
		<<set $filmkoef = 10>>
	<<elseif getvar("$film") < 25>>
		<<set $filmkoef = 5>>
	<<else>>
		<<set $filmkoef = 0>>
	<</if>>
	<<set $pfcash = 0>>
	<<act 'Leave'>>
		<<gt 'pornstudio' 'start'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == '1'>>
	<<set $loc_arg = $location_var[$here][0]>>
	<<set $loc = 'pornstudio'>>
	<<set $time.minutes = $time.minutes + 5>>
	<<set $menu_off = 1>>
	<<image "locations/city/redlight/studio_porn/pierre_1.jpg">>
	You've come to the studio, looking for someone, anything that you think can help you.
	You approach a man, who introduces himself as Dimitri.
	<<actCLA 'State the purpose of your visit'>>
		<<set $time.minutes += 60>>
		<<image "locations/city/redlight/studio_porn/pierre_2.jpg">>
		Dimitri smiles. "New actresses are always welcome, but if they're terrible, the studio won''t take them. The auditions are made public, so remember that if you ever consider it."
		<p>"I'll tell you everything else under one condition - you have to undress."</p>
		<<actCLA 'Undress'>>
			<<image "locations/city/redlight/studio_porn/casting_3.jpg">>
			You strip out of your clothes. Once you're nude, Dimitri smiles and starts his tour.
			"We start with the casting auditions. As I said, if you're terrible, then you have no hope. This can be overlooked if you have an attractive appearance, however."
			<<actCLA 'Continue'>>
				<<image "locations/city/redlight/studio_porn/model_0.jpg">>
				"Then a girl is chosen for the lead role. Only the most attractive of girls are chosen."
				<<actCLA 'Continue'>>
					<<image "locations/city/redlight/studio_porn/film_0.jpg">>
					"Then she shoots the scenes, an interesting and exciting process that can take hours. The films we shoot...
					<<actCLA 'Continue'>>
						<<image 'locations/city/redlight/studio_porn/dvd-disx.jpg'>>
						He pulls a DVD off the top of a nearby stack. "Are how we make money."
						<<actCLA 'How and where is it all sold?'>>
							<<image "locations/city/redlight/studio_porn/pierre_2.jpg">>
							"We mostly sell it digitally on our premium websites, but we have guys at the sauna in the residential area and in the sex shop for those who want to buy physical copies.
							We're thinking of moving in on the university as well, and not just to sell our films. We want to shoot on campus. There''s a huge market for female college students and we want a slice."
							<<actCLA 'Is that legal?'>>
								<<image "locations/city/redlight/studio_porn/ment_0.jpg">>
								<p>"It doesn't matter since we bribe the cops. Maybe in the future you'll be able to help us with that? In the meantime, I've told you everything you need to know."</p>
								<<actCLA 'I understand'>>
									<<set $pornstudio = 3>>
									<<image "locations/city/redlight/studio_porn/pierre_2.jpg">>
									"Good girl. Now leave and stop wasting my time."
									<<gt 'pornstudio' 'start'>>
								<</actCLA>>
							<</actCLA>>
						<</actCLA>>
					<</actCLA>>
				<</actCLA>>
			<</actCLA>>
		<</actCLA>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == '2'>>
	<<set $loc_arg = $location_var[$here][0]>>
	<<set $loc = 'pornstudio'>>
	<<set $menu_off = 1>>
	<!-- ! WD: Fix Uninitialised ~ 'carrf' to 'carrar'-->
	<<set $carrar = RAND(40, 100)>>
	<<image 'locations/city/redlight/studio_porn/casting_#.jpg' 1 6>>
	You spend eight hours posing in a variety of sexy underwear for the casting director.
	<<set $time.minutes += 120>>
	<<set $time.minutes += 120>>
	<<set $time.minutes += 120>>
	<<set $time.minutes += 120>>
	<<if $pc.pcs_apprnc < $carrar>>
		"You don't have what it takes. Sorry."
	<<elseif $pc.pcs_apprnc >= $carrar>>
		<<set $actr = 1>>
		You get the role.
	<</if>>
	<<act 'Finish'>>
		<<gt 'pornstudio' 'start'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == '3'>>
	<<set $loc_arg = $location_var[$here][0]>>
	<<set $loc = 'pornstudio'>>
	<<set $actr = 0>>
	<<gt 'bdsm'>>
<</if>>
<<if $location_var[$here][0] == 'pregreact'>>
	"Wow. I'm surprised you still want to do the shoot considering how far along you are. The good news is, we've been looking into appealing to people with different fetishes, so this is the perfect opportunity to start marketing to pregnancy fetishists. However, this is also going to change the shoots you can do."
	<p>"You see, this is more of a niche thing and not something we can really use for wide appeal. You can still work, but only on specific pregnancy shoots, so you might not get the same amount of work you got before. Don't worry; if we can find a way to make money off of you, we definitely will," Dimitri says with a smile.</p>
	<<actCLA 'Continue'>>
		<<set $pc.pregtalkpornstudio = 1>> <<gt 'pornstudio' 'manager'>>
	<</actCLA>>
<</if>>
:: selection_macro[widget]
<<widget 'selection'>>
	 	<<image "locations/city/redlight/studio_porn/studia_0.jpg">>
	<font color="grey">The selected days will not be displayed</font><br>
	<<set $m1 = $time.month>>
	<<set $d1 = $time.day + 1>>
	<<if $time.monthsend[$m1] < $d1>>
	<<setn $m1 += 1>> <<set $d1 = 1>>

<</if>>
	<<if getvar("$m1") > 12>>
	<<set $m1 = 1>>

<</if>>
	<<set $w2 = $time.weekday + 1>>
	<<if getvar("$w2") > 7>>
	<<set $w2 = 1>>

<</if>>
	<<set $p1 = 1>>
	<<set $w1 = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :monthloop'>>
	<!-- FAILED TO CONVERT
	*p '<Table border=0 cellpadding=1><TR><TH colspan=7><b><i><font size=6 color="brown"><<$time.monthName[m1]>></font></i></b></TH></TR>'
-----
	<<set  * ERROR: FAILED TO CONVERT LITERAL: """p '<Table border""" = ERROR: FAILED TO CONVERT LITERAL: """0 cellpadding=1><TR><TH colspan=7><b><i><font size=6 color="brown">$time.monthName[$m1]<""" / ERROR: FAILED TO CONVERT LITERAL: """font><""" / ERROR: FAILED TO CONVERT LITERAL: """i><""" / ERROR: FAILED TO CONVERT LITERAL: """b><""" / ERROR: FAILED TO CONVERT LITERAL: """TH><""" / ERROR: FAILED TO CONVERT LITERAL: """TR>'""">>

-->
<<warn "CONVERSION ERROR 8f10efbf73d6ec08ed6c116cc056eae5">>
	<!-- FAILED TO CONVERT
	*p '<TR align="center"><TH>   Monday    </TH><TH>   Tuesday   </TH><TH>Wednesday</TH><TH>  Thursday   </TH><TH>     Friday     </TH><TH>  Saturday   </TH><TH>    Sunday    </TH></TR>'
-----
	<<set  * ERROR: FAILED TO CONVERT LITERAL: """p '<TR align""" = ERROR: FAILED TO CONVERT LITERAL: """"center"><TH>   Monday    <""" / ERROR: FAILED TO CONVERT LITERAL: """TH><TH>   Tuesday   <""" / ERROR: FAILED TO CONVERT LITERAL: """TH><TH>Wednesday<""" / ERROR: FAILED TO CONVERT LITERAL: """TH><TH>  Thursday   <""" / ERROR: FAILED TO CONVERT LITERAL: """TH><TH>     Friday     <""" / ERROR: FAILED TO CONVERT LITERAL: """TH><TH>  Saturday   <""" / ERROR: FAILED TO CONVERT LITERAL: """TH><TH>    Sunday    <""" / ERROR: FAILED TO CONVERT LITERAL: """TH><""" / ERROR: FAILED TO CONVERT LITERAL: """TR>'""">>

-->
<<warn "CONVERSION ERROR 7be5cfc446c1155f45201a785fe3adec">>
	<<warn 'JUMP MARKER ENCOUNTERED: :weekloop'>>
	<<setinit $selected[$p1] = $p1>>
	<!-- FAILED TO CONVERT
	if w1 = 1:*p '<TR>'
-----
	<<if getvar("$w1") == 1>>
	<!-- FAILED TO CONVERT
	*p '<TR>'
-----
	 * ERROR: FAILED TO CONVERT LITERAL: """p '<TR>'"""

-->
<<warn "CONVERSION ERROR a3e33c4967bdd89089d14929941cc4a3">>

<</if>>

-->
<<warn "CONVERSION ERROR 1190ae2208b6e2dc3e2c1dea5b702d63">>
	<!-- !! Making sure that the date and the day of the week are in the correct position-->
	<<if getvar("$w2") != 1>>
		<<if getvar("$w2") == 7>>
			<<set $w1 = 7>> 
		<<elseif getvar("$w2") == 6>>
			<<set $w1 = 6>> 
		<<elseif getvar("$w2") == 5>>
			<<set $w1 = 5>> 
		<<elseif getvar("$w2") == 4>>
			<<set $w1 = 4>> 
		<<elseif getvar("$w2") == 3>>
			<<set $w1 = 3>> 
		<<else>>
			<<set $w1 = 2>> 
		<</if>>
		<<set $w2 = 1>>
	<</if>>
	<!-- !! Selectable day display comes-->
	<<if getvar("$inversefilter") == 1>>
		<<if $datefilter[$selected[$p1]] == 1>>
			<<setinit $datefilter[$selected[$p1]] = 0>>
		<<else>>
			<<setinit $datefilter[$selected[$p1]] = 1>>
		<</if>>
	<</if>>
	<<if getvar("$m1") == 1 and getvar("$d1") >= 1 and getvar("$d1") <= 8>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 2 and getvar("$d1") == 23>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 3 and getvar("$d1") == 8>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 5 and (getvar("$d1") == 1 or getvar("$d1") == 2)>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 5 and getvar("$d1") == 9>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 6 and (getvar("$d1") == 12 or getvar("$d1") == 13)>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 11 and getvar("$d1") == 4>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$nh1") == 1>>
		<<set $option = '<font color="red"><del><b>d1<b></del></font>'>>
	<<elseif getvar("$pfilmday["+$p1+"]") > 0>>
		<<set $option = '<font color="green">d1</font>'>>
	<<elseif $datefilter[$selected[$p1]] == 1 or (getvar("$time.weekdaydayfilter") == 1 and getvar("$w1") < 6) or (getvar("$time.weekdayendfilter") == 1 and getvar("$w1") >= 6)>>
		<<set $option = '<font color="grey"><del>d1</del></font>'>>
	<<else>>
		<!-- FAILED TO CONVERT
		$option = '<a href="exec:datefilter[''<<selected[p1]>>''] = 1 & dynamic $selection"><font color="black"><<d1>></font></a>'
	-----
		<<set $option = ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:datefilter[''+$selected[$p1]+''] = 1""">> <<set ERROR: FAILED TO CONVERT LITERAL: """dynamic $selection"><font color""" = ERROR: FAILED TO CONVERT LITERAL: """"black"><<d1>><""" / ERROR: FAILED TO CONVERT LITERAL: """font><""" / ERROR: FAILED TO CONVERT LITERAL: """a>'""">>

	-->
	<<warn "CONVERSION ERROR 3ba08f3523efcbcf49e68470116ab06f">>
	<</if>>
	<<set $nh1 to null>>
	<!-- FAILED TO CONVERT
	*p '<TD align="center"><font size=5><<$option>></font></TD>'
-----
	<<set  * ERROR: FAILED TO CONVERT LITERAL: """p '<TD align""" = ERROR: FAILED TO CONVERT LITERAL: """"center"><font size=5>$option<""" / ERROR: FAILED TO CONVERT LITERAL: """font><""" / ERROR: FAILED TO CONVERT LITERAL: """TD>'""">>

-->
<<warn "CONVERSION ERROR 02043b8bb8c508365a69e7669a117aa5">>
	<!-- !! Preparing for next day-->
	<<set $d1 += 1>>
	<<set $p1 += 1>>
	<<set $w1 += 1>>
	<!-- !! We have to check the end of the month too-->
	<<if $time.monthsend[$m1] < $d1>>
		<!-- !! Oh-oh, this is the next month already-->
		<!-- FAILED TO CONVERT
		*p '</TR></TABLE><br>'
	-----
		 * ERROR: FAILED TO CONVERT LITERAL: """p '<""" / ERROR: FAILED TO CONVERT LITERAL: """TR><""" / ERROR: FAILED TO CONVERT LITERAL: """TABLE><br>'"""

	-->
	<<warn "CONVERSION ERROR 3ca012d596441275e78b5d32caae1264">>
		<<if getvar("$w1") == 8>>
		<<set $w1 = 1>>

	<</if>>
		<<set $w2 = $w1>>
		<<set $w1 = 1>>
		<<set $m1 += 1>>
		<<if getvar("$m1") > 12>>
		<<set $m1 = 1>>

	<</if>>
		<<set $d1 = 1>>
		<!-- !! Is it necessary to display the next month?-->
		<<if getvar("$p1") < 50>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump monthloop'>>

	<</if>>
	<<else>>
		<!-- !! The next day is still the same month-->
		<<if getvar("$p1") < 50>>
			<!-- !! The next day has to be displayed-->
			<<if getvar("$w1") == 8>>
			 <<set $w1 = 1>>

		<</if>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump weekloop'>>
		<<else>>
			<!-- !! The next day does not have to be displayed-->
			<!-- FAILED TO CONVERT
			*p '</TR></TABLE><br>'
		-----
			 * ERROR: FAILED TO CONVERT LITERAL: """p '<""" / ERROR: FAILED TO CONVERT LITERAL: """TR><""" / ERROR: FAILED TO CONVERT LITERAL: """TABLE><br>'"""

		-->
		<<warn "CONVERSION ERROR 3ca012d596441275e78b5d32caae1264">>
		<</if>>
	<</if>>
	<<set $inversefilter = 0>>
	<p></p>
	<<if getvar("$time.weekdaydayfilter") == 0>>
		<!-- FAILED TO CONVERT
		$time.weekdaydayfilter = '<a href="exec:weekdayfilter = 1 & dynamic $selection">Remove weekdays</a>'
	-----
		<<set $time.weekdaydayfilter = ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:weekdayfilter = 1""">> <<selection">Remove weekdays</a>'>>

	-->
	<<warn "CONVERSION ERROR 25fb55ded87cec169ddd6ce610852eb9">>
	<<else>>
		<!-- FAILED TO CONVERT
		$time.weekdaydayfilter = '<a href="exec:weekdayfilter = 0 & dynamic $selection">Restore weekdays</a>'
	-----
		<<set $time.weekdaydayfilter = ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:weekdayfilter = 0""">> <<selection">Restore weekdays</a>'>>

	-->
	<<warn "CONVERSION ERROR a9c05ff4f936aacc15c5721b8bcbd688">>
	<</if>>
	<<if getvar("$time.weekdayendfilter") == 0>>
		<!-- FAILED TO CONVERT
		$time.weekdayendfilter = '<a href="exec:weekendfilter = 1 & dynamic $selection">Remove weekends</a>'
	-----
		<<set $time.weekdayendfilter = ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:weekendfilter = 1""">> <<selection">Remove weekends</a>'>>

	-->
	<<warn "CONVERSION ERROR 2b97eaf08b517f4f442feb104cf17cea">>
	<<else>>
		<!-- FAILED TO CONVERT
		$time.weekdayendfilter = '<a href="exec:weekendfilter = 0 & dynamic $selection">Restore weekends</a>'
	-----
		<<set $time.weekdayendfilter = ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:weekendfilter = 0""">> <<selection">Restore weekends</a>'>>

	-->
	<<warn "CONVERSION ERROR 68c3075b6426a7ff3f2839b415dc3bc7">>
	<</if>>
	<!-- FAILED TO CONVERT
	*p '<<$time.weekdaydayfilter>>  <<$time.weekdayendfilter>>  <a href="exec:inversefilter = 1 & dynamic $selection">Inverse selection</a><br>'
-----
	<<set  * ERROR: FAILED TO CONVERT LITERAL: """p '$time.weekdaydayfilter  $time.weekdayendfilter  <a href""" = ERROR: FAILED TO CONVERT LITERAL: """"exec:inversefilter = 1""">> <<selection">Inverse selection</a><br>'>>

-->
<<warn "CONVERSION ERROR 2f2a9cc31b6a02970ed80a5e9678eaca">>
	<!-- FAILED TO CONVERT
	*p '<a href="exec:killvar ''datefilter'' & killvar ''selected'' & weekdayfilter = 0 & weekendfilter = 0 & dynamic $selection">Clear date filters</a>'
-----
	<<set  * ERROR: FAILED TO CONVERT LITERAL: """p '<a href""" = ERROR: FAILED TO CONVERT LITERAL: """"exec:killvar ''datefilter''""">>  <<set $time.weekdaydayfilter = 0>> <<set $time.weekdayendfilter = 0>> <<selection">Clear date filters</a>'>>

-->
<<warn "CONVERSION ERROR 9ad0656a433f7820d7b2fd7910299458">>
<</widget>>
:: displaytag_macro[widget]
<<widget 'displaytag'>>
	 	<<image "locations/city/redlight/studio_porn/studia_0.jpg">>
	<font color="grey">The selected tags will not be displayed</font><br><br>Currenty filtered tags: <font color="green"><<$tagfilter>></font>
	<<if $flag_tag[1] == 0>>
	<<link "heterosexual">><<set $tagfilter += 'hetero '>> <<setinit $flag_tag[1] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[2] == 0>>
	<<link "lesbian">><<set $tagfilter += 'lesbian '>> <<setinit $flag_tag[2] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[3] == 0>>
	<<link "threesome">><<set $tagfilter += 'threesome '>> <<setinit $flag_tag[3] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[4] == 0>>
	<<link "gangbang">><<set $tagfilter += 'gangbang '>> <<setinit $flag_tag[4] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[5] == 0>>
	<<link "facial">><<set $tagfilter += 'facial '>> <<setinit $flag_tag[5] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[6] == 0>>
	<<link "vaginal">><<set $tagfilter += 'vaginal '>> <<setinit $flag_tag[6] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[7] == 0>>
	<<link "anal">><<set $tagfilter += 'anal '>> <<setinit $flag_tag[7] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[8] == 0>>
	<<link "blowjob">><<set $tagfilter += 'blowjob '>> <<setinit $flag_tag[8] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[9] == 0>>
	<<link "handjob">><<set $tagfilter += 'handjob '>> <<setinit $flag_tag[9] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[10] == 0>>
	<<link "cumshot">><<set $tagfilter += 'cumshot '>> <<setinit $flag_tag[10] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[11] == 0>>
	<<link "swallowing">><<set $tagfilter += 'swallowing '>> <<setinit $flag_tag[11] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[12] == 0>>
	<<link "DP">><<set $tagfilter += 'DP '>> <<setinit $flag_tag[12] = 1>> <<displaytag>><</link>>

<</if>>
	<<if $flag_tag[13] == 0>>
	<<link "creampie">><<set $tagfilter += 'creampie '>> <<setinit $flag_tag[13] = 1>> <<displaytag>><</link>>

<</if>>
	<p></p>
	<<link "Clear date filters">>  <<displaytag>><</link>>
<</widget>>
:: displaynum_macro[widget]
<<widget 'displaynum'>>
	 	<<image "locations/city/redlight/studio_porn/studia_0.jpg">>
	<font color="grey">The movies above the selected number of partners will not be displayed</color><br>
	<<if getvar("$ppnum") == 1>>
		<<set $pp1 = '<b><font color="red" size=8>1</font></b>'>>
	<<else>>
		<!-- FAILED TO CONVERT
		$pp1 = '<a href="exec:ppnum = 1 & dynamic $displaynum"><font size=8 color="black">1</font></a>'
	-----
		<<set $pp1 = ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:ppnum = 1""">> <<set ERROR: FAILED TO CONVERT LITERAL: """dynamic $displaynum"><font size""" = ERROR: FAILED TO CONVERT LITERAL: """8 color="black">1<""" / ERROR: FAILED TO CONVERT LITERAL: """font><""" / ERROR: FAILED TO CONVERT LITERAL: """a>'""">>

	-->
	<<warn "CONVERSION ERROR 51a4b59f6b69d2ae153447ebf1ed9a67">>
	<</if>>
	<<if getvar("$ppnum") == 2>>
		<<set $pp2 = '<b><font color="red" size=8>2</font></b>'>>
	<<else>>
		<!-- FAILED TO CONVERT
		$pp2 = '<a href="exec:ppnum = 2 & dynamic $displaynum"><font size=8 color="black">2</font></a>'
	-----
		<<set $pp2 = ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:ppnum = 2""">> <<set ERROR: FAILED TO CONVERT LITERAL: """dynamic $displaynum"><font size""" = ERROR: FAILED TO CONVERT LITERAL: """8 color="black">2<""" / ERROR: FAILED TO CONVERT LITERAL: """font><""" / ERROR: FAILED TO CONVERT LITERAL: """a>'""">>

	-->
	<<warn "CONVERSION ERROR 08f5b8058b19920de0e392269ac23573">>
	<</if>>
	<<if getvar("$ppnum") == 3>>
		<<set $pp3 = '<b><font color="red" size=8>3</font></b>'>>
	<<else>>
		<!-- FAILED TO CONVERT
		$pp3 = '<a href="exec:ppnum = 3 & dynamic $displaynum"><font size=8 color="black">3</font></a>'
	-----
		<<set $pp3 = ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:ppnum = 3""">> <<set ERROR: FAILED TO CONVERT LITERAL: """dynamic $displaynum"><font size""" = ERROR: FAILED TO CONVERT LITERAL: """8 color="black">3<""" / ERROR: FAILED TO CONVERT LITERAL: """font><""" / ERROR: FAILED TO CONVERT LITERAL: """a>'""">>

	-->
	<<warn "CONVERSION ERROR 55ed10e6091d221ea5f485f75e736a9f">>
	<</if>>
	<<if getvar("$ppnum") == 4>>
		<<set $pp4 = '<b><font color="red" size=8>4</font></b>'>>
	<<else>>
		<!-- FAILED TO CONVERT
		$pp4 = '<a href="exec:ppnum = 4 & dynamic $displaynum"><font size=8 color="black">4</font></a>'
	-----
		<<set $pp4 = ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:ppnum = 4""">> <<set ERROR: FAILED TO CONVERT LITERAL: """dynamic $displaynum"><font size""" = ERROR: FAILED TO CONVERT LITERAL: """8 color="black">4<""" / ERROR: FAILED TO CONVERT LITERAL: """font><""" / ERROR: FAILED TO CONVERT LITERAL: """a>'""">>

	-->
	<<warn "CONVERSION ERROR ac6094644f9d99c0986066415b6baf47">>
	<</if>>
	<<if getvar("$ppnum") == 5>>
		<<set $pp5 = '<b><font color="red" size=8>5</font></b>'>>
	<<else>>
		<!-- FAILED TO CONVERT
		$pp5 = '<a href="exec:ppnum = 5 & dynamic $displaynum"><font size=8 color="black">5</font></a>'
	-----
		<<set $pp5 = ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:ppnum = 5""">> <<set ERROR: FAILED TO CONVERT LITERAL: """dynamic $displaynum"><font size""" = ERROR: FAILED TO CONVERT LITERAL: """8 color="black">5<""" / ERROR: FAILED TO CONVERT LITERAL: """font><""" / ERROR: FAILED TO CONVERT LITERAL: """a>'""">>

	-->
	<<warn "CONVERSION ERROR 44e2febb720d736c68b439b1b3f34003">>
	<</if>>
	<Table border=0 cellspacing=10><TR><TH><<$pp1>></TH><TH><<$pp2>></TH><TH><<$pp3>></TH><TH><<$pp4>></TH><TH><<$pp5>></TH></TR>
	<p></p>
	<<link "Clear participant limitations">> <<displaynum>><</link>>
<</widget>>
:: contracting_macro[widget]
<<widget 'contracting'>>
	 	<<image "locations/city/redlight/studio_porn/studia_0.jpg">>
	<p></p>
	<<set $d1 = $time.day>>
	<<set $w1 = $time.weekday>>
	<<set $m1 = $time.month>>
	<<set $counter = 1>>
	<<set $pornofday = ''>>
	<<warn 'JUMP MARKER ENCOUNTERED: :pornopt'>>
	<<set $nh1 to null>>
	<<setinit $pcount[$counter] = $counter>>
	<<set $w1 += 1>>
	<<if getvar("$w1") > 7>>
	<<set $w1 = 1>>

<</if>>
	<<set $d1 += 1>>
	<<if $time.monthsend[$m1] < $d1>>
	<<setn $m1 += 1>> <<set $d1 = 1>>

<</if>>
	<<if getvar("$m1") > 12>>
	<<set $m1 = 1>>

<</if>>
	<<if getvar("$m1") == 1 and getvar("$d1") >= 1 and getvar("$d1") <= 8>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 2 and getvar("$d1") == 23>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 3 and getvar("$d1") == 8>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 5 and (getvar("$d1") == 1 or getvar("$d1") == 2)>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 5 and getvar("$d1") == 9>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 6 and (getvar("$d1") == 12 or getvar("$d1") == 13)>>
	<<set $nh1 = 1>>

<</if>>
	<<if getvar("$m1") == 11 and getvar("$d1") == 4>>
	<<set $nh1 = 1>>

<</if>>
	<<if (getvar("$time.weekdaydayfilter") == 1 and getvar("$w1") >= 6) or (getvar("$time.weekdayendfilter") == 1 and getvar("$w1") < 6) or (getvar("$time.weekdaydayfilter") == 0 and getvar("$time.weekdayendfilter") == 0) or getvar("$nh1") == 1>>
		<<if $datefilter[$selected[$counter]] == 0>>
			<<if getvar("$nh1") == 1>>
				<<set $pornofday = '<i><b>National holiday, no shootings!</b></i><br>'>>
			<<else>>
				<<set $porns = 0>>
				<<warn 'JUMP MARKER ENCOUNTERED: :pornplanloop'>>
				<<pornfilmdesc  pornplan[$counter+' <<porns>>']>>
				<<if ($pfactor <= $ppnum) or getvar("$ppnum") == 0>>
					<!-- FAILED TO CONVERT
					if porntaken['<<counter>>,<<porns>>'] = 2:
				-----
					<<if ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR 0ce4e3c06d6097490c6005c7545cf865">>
						<<set $pornofday += '<font color="green"><b>$porndesc[$pornplan[''+$counter+','+$porns+'']]</b> - <i>Already contracted</i></font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif getvar("$pfilmday["+$counter+"]") > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR c2765b7d6efbbe257bb6df236527c4f9">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter - 1] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif $pfilmday[$counter - 1] > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR 7eda721c891991b5d79423f1e114fb99">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter - 2] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif $pfilmday[$counter - 2] > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR 2f89a02a32be7808b908e9bacd67f091">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter - 3] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif $pfilmday[$counter - 3] > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR 7ff63430c4e6f769bc311d89ca2bdcd3">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter - 4] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif $pfilmday[$counter - 4] > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR d407ea36fb4082913495de40a56dad40">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter - 5] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif $pfilmday[$counter - 5] > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR 48a90d314d0ac4cce23fa7097516d590">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter + 1] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif $pfilmday[$counter + 1] > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR fe490e102e6adda09012c43fc41eefda">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter + 2] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif $pfilmday[$counter + 2] > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR f73e65f2bbd9000cc0a99b61533735a3">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter + 3] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif $pfilmday[$counter + 3] > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR 2a9303e8d1d81abb35801303ed6951cd">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter + 4] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif $pfilmday[$counter + 4] > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR b18d4d21ff9495cf785a8a9bb720e65e">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif pfilmday[counter + 5] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
				-----
					<<elseif $pfilmday[$counter + 5] > 0 and ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR f89d8a806f287bac00436784d2bcaf37">>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<!-- FAILED TO CONVERT
					elseif porntaken['<<counter>>,<<porns>>'] = 1:
				-----
					<<elseif ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$counter"""""" +  ,  << $porns>>

				-->
				<<warn "CONVERSION ERROR a922c4d2eb4576cba22a972589473492">>
						<<set $pornofday += '<font color="red">$porndesc[$pornplan[''+$counter+','+$porns+'']] - <i>Taken by someone else</i></font><br>'>>
					<<elseif getvar("$pornstack") < 10>>
						<!-- FAILED TO CONVERT
						$pornofday += '<a href="exec:pornstack += 1 & porntaken[''<<counter>>,<<porns>>''] = 2 & pfilmday[<<pcount[counter]>>] = pornplan[''<<counter>>,<<porns>>''] & gs ''stat'' & dynamic $contracting"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></a><br>'
					-----
						<<set $pornofday += ERROR: FAILED TO CONVERT LITERAL: """'<a href="exec:pornstack""" + ERROR: FAILED TO CONVERT LITERAL: """= 1""">> <<setinit $porntaken[''+$counter+','+$porns+''] = 2>> <<set $pfilmday[$ERROR: FAILED TO CONVERT LITERAL: """<<pcount[$counter]>>"""] = $pornplan[''+$counter+','+$porns+'']>>  <<contracting"><<$porndesc[pornplan['''+$counter+' '+$porns+''']]>></a><br>'>>

					-->
					<<warn "CONVERSION ERROR cfd7860d00057f1ebb38211419f3ec8f">>
					<<else>>
						<<set $pornofday += '<font color="grey">$porndesc[$pornplan[''+$counter+','+$porns+'']]</font><br>'>>
					<</if>>
				<</if>>
				<<if getvar("$porns") < 3>>
				<<setn $porns += 1>> 

			<</if>>
			<</if>>
			<<if $pornofday != ''>>
				<p>$time.monthName[$m1] d1, $time.weekday_name[$w1]: </p>
				<<$pornofday>>
				<<set $pornofday = ''>>
			<</if>>
		<</if>>
	<</if>>
	<<if getvar("$counter") < 49>>
		<<set $counter += 1>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump pornopt'>>
	<</if>>
<</widget>>
:: canceling_macro[widget]
<<widget 'canceling'>>
	 	<<image "locations/city/redlight/studio_porn/studia_0.jpg">>
	<<set $d1 = $time.day>>
	<<set $w1 = $time.weekday>>
	<<set $m1 = $time.month>>
	<<set $i = 1>>
	<<warn 'JUMP MARKER ENCOUNTERED: :nopornopt'>>
	<<setinit $pcount[$i] = $i>>
	<<set $w1 += 1>>
	<<if getvar("$w1") > 7>>
	<<set $w1 = 1>>

<</if>>
	<<set $d1 += 1>>
	<<if $time.monthsend[$m1] < $d1>>
	<<setn $m1 += 1>> <<set $d1 = 1>>

<</if>>
	<<if (getvar("$pfilmday["+$i+"]") == 1 and getvar("$freefilm") == 0) or getvar("$pfilmday["+$i+"]") > 1>>
	<p>$time.monthName[$m1] d1, $time.weekday_name[$w1]: </p>

<</if>>
	<<set $porns = 0>>
	<<warn 'JUMP MARKER ENCOUNTERED: :nopornplanloop'>>
	<!-- FAILED TO CONVERT
	if porntaken['<<i>>,<<porns>>'] = 2: '<a href="exec:pornstack -= 1 & porntaken[''<<i>>,<<porns>>''] = 0 & pfilmday[<<pcount[i]>>] = 0 & gs ''stat'' & dynamic $canceling"><<$porndesc[pornplan[''<<i>>,<<porns>>'']]>></a>'
-----
	<<if ERROR: FAILED TO CONVERT LITERAL: """ERROR: FAILED TO CONVERT LITERAL: """porntaken[$i"""""" +  ,  << $porns>>
	<a href="exec:pornstack -= 1 & porntaken['''+$i+','+$porns+'''] = 0 & pfilmday[<<pcount[$i]>>] = 0 & gs ''stat'' & dynamic $canceling"><<$porndesc[pornplan['''+$i+','+$porns+''']]>></a>

<</if>>

-->
<<warn "CONVERSION ERROR 700d948dcb09756c42072860a4bc34c4">>
	<<if getvar("$porns") < 3>>
	<<setn $porns += 1>> 

<</if>>
	<<if getvar("$i") < 49>>
		<<set $i += 1>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump nopornopt'>>
	<</if>>
<</widget>>
