# pornstudio
if $ARGS[0] = 'start':
	CLOSE ALL
	$metka = $ARGS[0]
	$loc = $CURLOC
	gs 'pornhist'
	cls
	minut += 5
	gs 'stat'
	'<center><img src="images/studia/studia_0.jpg"></center>'

	act 'Leave':gt 'down'

	if hour < 10 or hour > 22:
		'The Porn studio is closed. Opening hours are between 10 and 22'
		exit
	end

	'Manager''s office open.'

	act 'Go to the manager':gt 'pornstudio', 'manager'

	act 'Visit the managers PA':
		cla
		*clr
		minut += 5
		gs 'stat'
		'There is a young guy tapping on the computer keyboard in a small office.'

		if film = 0:
		'"Who are you? This office is for staff only."'
		else
			'<font color="#0D42C0"> "Hi <<$pfname>>, what can I do for you?"</font>'
			if pfilmSTOP = 0:
				act 'What''s the rating of my videos?':
					cla
					minut += 5
					gs 'stat'

					'"You''ve made <<film>> films.'

					if film < 5:'Their rating is still very low, simply put, almost nobody is watching them."'
					if film >= 5 and film < 10:'You have a few views, but not much. Almost nobody knows who you are.'
					if film >= 10 and film < 15:'You have an emerging audience. You are more-less well-known by the hardcore fans.'
					if film >= 15 and film < 25:'Your videos can be found on most major porn sites, views peaking over the thousand mark.'
					if film >= 25 and film < 50:'You`re pretty well known in the porn industry. You already have your fans and admirers.'
					if film >= 50:'You are a Porn Star!'
					if film >= 15:
						if pornhj >= 15 and pornbj >= 15 and pornclassic >= 15 and pornall >= 15 and porngroup >= 15 and porngrouphard >= 15:
							You are know for your versatility, only a select few pornstars can match your range.
						elseif pornhj < 15 and pornbj < 15 and pornclassic < 15 and pornall < 15 and porngroup < 15 and porngrouphard < 15:
							'You are known as a versatile porn actress, you have not yet made a real impact in any particular area.'
						else
							$pornrange = 'You are known for'
							if pornhj >= 15: $pornrange += ', your handjobs'
							if pornbj >= 15: $pornrange += ', your cocksucking'
							if pornclassic >= 15: $pornrange += ', your fucking'
							if pornall >= 15: $pornrange += ', your anal sex'
							if porngroup >= 15: $pornrange += ', your groupsex'
							if porngrouphard >= 15: $pornrange += 'and your rough groupsex'
							$pornrange += '.'
							'<<$pornrange>>'
						end
					end
			
					if film < 10:

						'The guy whispers "By the way, if you wanted, I could completely remove them from the network - for a good price of course."'

						act 'Tell me more':
							cla
							minut += 5
							films_stop_payment = film * 40000
							gs 'stat'
							'Seeing as you''re not well known, it''s unlikely anyone would notice. However, to remove them you''d have to cover the studios potential future profits, 40,000 <b>₽</b> per film. That''s a total of <<films_stop_payment>> <b>₽</b>.'
							'Also, that would piss off your co-stars and our director. It would end your porn career.'

							if money >= films_stop_payment:
								act 'Agree':
									minut += 5
									money -= films_stop_payment
									pfilmSTOP = 1
									film = 0
									gs 'stat'
									'We never met. Have a nice day, and don''t come back'

									act 'Leave':gt 'pornstudio', 'start'
								end
							end

							act 'Not interested':gt 'pornstudio', 'start'
						end

						act 'Leave':gt 'pornstudio', 'start'
					end
					
					act 'Leave':gt 'pornstudio', 'start'
				end
			end

			act 'Leave':gt 'pornstudio', 'start'

		end

		act 'Leave':gt 'pornstudio', 'start'
	end

	if bomzQW = 1 and week = 4 and workDisk = 0:
		act 'Arrive for work':
			cls
			minut += 15
			gs 'stat'
			'We made inquiries about you, and everything seems in order. Essentially, we give you a thumb drive, you deliver it to the sauna, they give you an envelope and you bring it to us. Immediately.'
			'Upon delivery of envolope you get 5000 <b>₽</b>. Deliveries available every Friday, after the studio has opened. If you agree, then visit any Friday, choose a safe mode of transport.'

			act 'No, I don''t think it''s for me (leave)':bomzQW = -1 & gt 'down'

			act 'Agree to work':
				cls
				minut += 15
				gs 'stat'
				'Just this time, we will take you. In the future you''ll have to make your onwn way, because Fridays are getting risky for us, but we need to intruduce you to our colleagues.'

				act 'Let''s go':
					cls
					workDisk = 1
					minut += 15
					gs 'stat'
					'You slip into a jeep by the entrance, and your driven to the sauna.'

					if saunasex = 1:
						'You recall going to this sauna. You had some pretty energetic sex here.'
					elseif sauna > 0:
						'Oh, it''s the sauna near your home.'
					else
						'This sauna is located near your home, it is strange that you did not notice it before.'
					end

					'You go to the sauna, and you''re introduced to the local managers. it is explained to you who you need to deliver to, and reminded that it is necessary to return the envelope the same day you receive it.'
					'"Don''t forget to use secure transport. We''ll see you on Fridays and don''t fuck up."'

					act 'Leave':bomzQW = 2 & gt 'street'
				end
			end
		end
	end

	if workDolg > 0 and money >= workDolg:
		act 'Repay your debt':
			cls
			minut += 5
			workDisk = 0
			money -= workDolg
			workDolg = 0
			gs 'stat'
			'You give the money that you owe to the studio.'

			act 'Leave':gt 'pornstudio', 'start'
		end
	elseif workDolg = 0:
		if workDisk = 1 and week = 5:
			act 'Take the disk':
				cls
				minut += 5
				workDisk = 2
				gs 'stat'
				'You are given a thumb drive, and asked if you remember all the instructions. You nod your head and leave with the drive.'
				'Moving away from the studio near you hear someone else came out of a nearby building and follow for you.'
				'<font color="magenta"> "Avoid deserted places, maybe this will blow over"</font> you reassure yourself, and carry on.'

				act 'Leave':gt 'down'
			end
		elseif workDisk = 3 and week = 5:
			act 'Give the envelope':
				cls
				minut += 5
				workDisk = 4
				gs 'stat'

				if konvert = 0:
					workDolg = 200000
					workDolgDay = 7
					'Digging through your things you begin to panic. No envelope. You search everything again, but you don''t find the envelope.'
					'SHIT!! But how could you let this happen! What have you gotten into now?!'
					'You stand there unable to speak. Looks like you''re fucked.'
					'The Manager grabs his phone and makes a call. You can''t hear exactly what he is saying because your heart is beating so loud, he hangs up.'
					'"You are very lucky, the boss is in a good mood. So has given you one week to cover his losses."'
					'"You have until next Friday evening to bring me 200,000 <b>₽</b>. Do this and we''re done, you will never work for us anymore.'
					'<font color="#0D42C0">Fail, and bad things will happen to you.</font>'
				else
					konvert = 0
					money += 5000
					'You give the envelope to the manager and he gives you 5,000 <b>₽</b>.'
				end

				act 'Leave':gt 'down'
			end
		end
	end

	if pfilmNO = 1 and pfilmNoVenera = 1 and Venera = 0:
		act 'Show the certificate about STD''s cured':
			cls
			minut += 5
			pfilmNoVenera = 0
			pfilmNO = 0
			gs 'stat'
			'You hand over your medical certificate showing that you are STD free. They promise to consider your reinstatement as a porn actress.'

			act 'Leave':gt 'pornstudio', 'start'
		end
	end
end

if $ARGS[0] = 'manager':
	cla
	*clr
	minut += 5
	gs 'stat'
	'<center><img src="images/studia/studia_0.jpg"></center>'
	'The boss of the porn studio welcomes you and gestures for you to sit down on the couch.'

	if pfilmNO = 1:
		'You''re blacklisted, no decent porn studio will hire you, goodbye.'
		act 'Leave':gt 'pornstudio', 'start'
		exit
	end

	if pfilmSTOP = 1:
		'I''m sorry I thought you had retired...'
		act 'Leave':gt 'pornstudio', 'start'
		exit
	end

	if pfilmday = daystart and pfilm > 0:
		'Do not distract me from my work. Like I said, we shoot tomorrow.'
		act 'Leave':gt 'pornstudio', 'start'
		exit
	end

	if pfilmday >= daystart + 2:
		pfilmNO = 1
		'You did not come to the shoot. You fucked me. I paid a lot of money for assistants, actors, cameramen, plus studio rental, and you took it and threw it in my face.'
		'No, I do not want to work with you and moreover, you''re blacklisted.'
		act 'Leave':gt 'pornstudio', 'start'
		exit
	end

	if pfilm > 0 and hour >= 10 and hour <= 12:
		if hour = 10:'"Come on honey, inspection."'
		if hour = 11:'"You''re late, my patience is not eternal", Peter says, strictly. Quickly now, inspection.'
		if hour = 12:'What the hell? Everyone''s waiting for you. Hurry up honey, inspection. Now!.'

		pfilmday = daystart
		act 'Go for medical check-up':
			cla
			*clr
			minut += 5
			gs 'stat'
			'You go into the office where the doctor was waiting in a white robe. He quickly pulls on rubber gloves and tells you to undress.'
			'You removed the clothes and sit on the gynecological chair. The doctor comes up to you and starts the check up. After inspection, he takes a blood sample.'
			'After half an hour the tests are completed. If you have caught something, it''ll show in the blood tests.'

			act 'Wait':
				cla
				*clr
				minut += 30
				gs 'stat'

				if venera > 0:
					pfilmNO = 1
					pfilmNoVenera = 1
					'Your analysis showed an STD. The doctor tells you and calls Peter. Peter looks at the test results.'
					'Sorry, but as long as you have an STD you cannot make films.'
					act 'Leave':gt 'pornstudio', 'start'
				else
					'Very good, you are clean. Go to the dressing room'

					act 'Go to the dressing room':
						pf = pfilm
						dynamic $pornfilmdesc
						cla
						*clr
						minut += 30
						hapri = 1
						mop = 4
						gs 'stat'
						'In the dressing room a skinny whiter-haired woman is waiting for you.'

						if pfilm > 3:'First you are given a powerful enema.'

						'You put on some makeup and get your hair done.'
						!!if the scene with anal, then enema.

						act 'Go to the set':
							if pfactor ! 50:
								akrand = rand(1,10)
								if akrand = 1:$pakter = 'Alexei'
								if akrand = 2:$pakter = 'Sergey'
								if akrand = 3:$pakter = 'George'
								if akrand = 4:$pakter = 'Ignat'
								if akrand = 5:$pakter = 'Simeon'
								if akrand = 6:$pakter = 'Vasili'
								if akrand = 7:$pakter = 'Boris'
								if akrand = 8:$pakter = 'Danek'
								if akrand = 9:$pakter = 'Pyotr'
								if akrand = 10:$pakter = 'Oleg'
								if akrand = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
								if akrand = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
								if akrand = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
								if akrand = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
								if akrand = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
								if akrand = 6 and aksex6 = 0:aksex6 = 1 & guy += 1
								if akrand = 7 and aksex7 = 0:aksex7 = 1 & guy += 1
								if akrand = 8 and aksex8 = 0:aksex8 = 1 & guy += 1
								if akrand = 9 and aksex9 = 0:aksex9 = 1 & guy += 1
								if akrand = 10 and aksex10 = 0:aksex10 = 1 & guy += 1
								
								if pfactor > 1:
									akrand2 = rand(1, 9)
									if akrand2 = akrand:akrand2 += 1
									if akrand2 = 1:$pakter2 = 'Alexei'
									if akrand2 = 1:$pakter2 = 'Alexei'
									if akrand2 = 2:$pakter2 = 'Sergey'
									if akrand2 = 3:$pakter2 = 'George'
									if akrand2 = 4:$pakter2 = 'Ignat'
									if akrand2 = 5:$pakter2 = 'Simeon'
									if akrand2 = 6:$pakter2 = 'Vasili'
									if akrand2 = 7:$pakter2 = 'Boris'
									if akrand2 = 8:$pakter2 = 'Danek'
									if akrand2 = 9:$pakter2 = 'Pyotr'
									if akrand2 = 10:$pakter2 = 'Oleg'
									if akrand2 = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
									if akrand2 = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
									if akrand2 = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
									if akrand2 = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
									if akrand2 = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
									if akrand2 = 6 and aksex6 = 0:aksex6 = 1 & guy += 1
									if akrand2 = 7 and aksex7 = 0:aksex7 = 1 & guy += 1
									if akrand2 = 8 and aksex8 = 0:aksex8 = 1 & guy += 1
									if akrand2 = 9 and aksex9 = 0:aksex9 = 1 & guy += 1
									if akrand2 = 10 and aksex10 = 0:aksex10 = 1 & guy += 1
								end
								
								if pfactor > 2:
									akrand3 = rand(1, 8)
									if akrand3 = akrand or akrand3 = akrand2:akrand3 += 1
									if akrand3 = akrand or akrand3 = akrand2:akrand3 += 1
									if akrand3 = 1:$pakter3 = 'Alexei'
									if akrand3 = 2:$pakter3 = 'Sergey'
									if akrand3 = 3:$pakter3 = 'George'
									if akrand3 = 4:$pakter3 = 'Ignat'
									if akrand3 = 5:$pakter3 = 'Simeon'
									if akrand3 = 6:$pakter3 = 'Vasili'
									if akrand3 = 7:$pakter3 = 'Boris'
									if akrand3 = 8:$pakter3 = 'Danek'
									if akrand3 = 9:$pakter3 = 'Pyotr'
									if akrand3 = 10:$pakter3 = 'Oleg'
									if akrand3 = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
									if akrand3 = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
									if akrand3 = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
									if akrand3 = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
									if akrand3 = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
									if akrand3 = 6 and aksex6 = 0:aksex6 = 1 & guy += 1
									if akrand3 = 7 and aksex7 = 0:aksex7 = 1 & guy += 1
									if akrand3 = 8 and aksex8 = 0:aksex8 = 1 & guy += 1
									if akrand3 = 9 and aksex9 = 0:aksex9 = 1 & guy += 1
									if akrand3 = 10 and aksex10 = 0:aksex10 = 1 & guy += 1
								end
								
								if pfactor > 3:
									akrand4 = rand(1, 7)
									if akrand4 = akrand or akrand4 = akrand2 or akrand4 = akrand3:akrand4 += 1
									if akrand4 = akrand or akrand4 = akrand2 or akrand4 = akrand3:akrand4 += 1
									if akrand4 = akrand or akrand4 = akrand2 or akrand4 = akrand3:akrand4 += 1
									if akrand4 = 1:$pakter4 = 'Alexei'
									if akrand4 = 2:$pakter4 = 'Sergey'
									if akrand4 = 3:$pakter4 = 'George'
									if akrand4 = 4:$pakter4 = 'Ignat'
									if akrand4 = 5:$pakter4 = 'Simeon'
									if akrand4 = 6:$pakter4 = 'Vasili'
									if akrand4 = 7:$pakter4 = 'Boris'
									if akrand4 = 8:$pakter4 = 'Danek'
									if akrand4 = 9:$pakter4 = 'Pyotr'
									if akrand4 = 10:$pakter4 = 'Oleg'
									if akrand4 = 1 and aksex1 = 0:aksex1 = 1 & guy += 1
									if akrand4 = 2 and aksex2 = 0:aksex2 = 1 & guy += 1
									if akrand4 = 3 and aksex3 = 0:aksex3 = 1 & guy += 1
									if akrand4 = 4 and aksex4 = 0:aksex4 = 1 & guy += 1
									if akrand4 = 5 and aksex5 = 0:aksex5 = 1 & guy += 1
									if akrand4 = 6 and aksex6 = 0:aksex6 = 1 & guy += 1
									if akrand4 = 7 and aksex7 = 0:aksex7 = 1 & guy += 1
									if akrand4 = 8 and aksex8 = 0:aksex8 = 1 & guy += 1
									if akrand4 = 9 and aksex9 = 0:aksex9 = 1 & guy += 1
									if akrand4 = 10 and aksex10 = 0:aksex10 = 1 & guy += 1
								end
							end
							
							if pfilm = 1:
								pfType = 0
								cla
								*clr
								minut += 30
								gs 'stat'
								
								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'To the side stands the actor <<$pakter>>, stroking his member.'

								act 'Undress and start':
									cla
									*clr
									minut += 30
									hj += 1
									gs 'stat'
									'<center><img src="images/studia/hj.gif"></center>'
									'<<$pakter>> lies on the bed. You lie down beside him and take his penis in your hand. You begin to stroke his penis.'

									act 'Masturbate him':
										cla
										*clr
										minut += 5
										'<center><img src="images/studia/hjcumontits.gif"></center>'
										'<<$pakter>> begins to caress your chest, and you continues to jerk his cock squirting his hot cum on you.'
										$boy = $pakter
										sexpartkno = 1
										spafinloc = 15
										gs 'cum_manage'
										
										
										act 'Have a shower':
											cla
											*clr
											minut += 5
											sweat = -3
											horny += 1
											mop = 1
											dynamic $showerdin
											'<center><img src="images/pics/dush.jpg"></center>'
											'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

											act 'Go to Peter':gt 'pornstudio', 'postvideo'
										end
									end
								end
							elseif pfilm = 2:
								pfType = 0
								cla
								*clr
								minut += 30
								gs 'stat'

								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'To the side stands the actor <<$pakter>>, stroking his member.'

								act 'Undress and start':
									cla
									*clr
									minut += 30
									hj += 1
									gs 'stat'
									'<center><img src="images/studia/hj.gif"></center>'
									'<<$pakter>> lay on the bed. You lie down beside him and take his penis in your hand. You begin to stroke his penis.'

									act 'Suck it':
										cla
										*clr
										bj += 1
										minut += 5
										'<center><img src="images/studia/bj.gif"></center>'
										'<<$pakter>> sits on the bed. You settle down between his legs, take his cock in your mouth and begin sucking the head of his penis.'

										act 'Keep sucking':
											cla
											*clr
											minut += 5
											'<center><img src="images/studia/deep.gif"></center>'
											'<<$pakter>> begins to fuck your mouth, driving his cock down your throat with every thrust.'
											'Finally he takes his cock out. You wipe the saliva from your mouth.'

											act 'Open your mouth':
												cla
												*clr
												minut += 5
												facial += 1
												gs 'stat'
												'<center><img src="images/studia/cum.gif"></center>'
												'<<$pakter>> shoots hot streams of sperm into your mouth and down your throat.'
												$boy = $pakter
												sexpartkno = 1
												spafinloc = 12
												sexvolume = 36
												gs 'cum_manage'
												spafinloc = 11
												sexvolume = 4
												gs 'cum_manage'
												act 'Clean his cock':
													cla
													*clr
													minut += 5
													swallow += 1
													gs 'stat'
													'<center><img src="images/studia/bj2.gif"></center>'
													'You keep your eyes fixed on his, as you gently lick every last drop of sperm from his cock.'

													act 'Shower':
														cla
														*clr
														minut += 5
														sweat = -3
														horny += 1
														mop = 1
														dynamic $showerdin
														'<center><img src="images/pics/dush.jpg"></center>'
														'You enter the shower cubicle. Turned on the shower and gently wash all traces of semen from your body.'

														act 'Go to Peter':gt 'pornstudio', 'postvideo'
													end
												end
											end
										end
									end
								end
							elseif pfilm = 3:
								pfType = 0
								cla
								*clr
								minut += 30
								gs 'stat'

								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'To the side stands the actor <<$pakter>>, stroking his inviting member.'

								act 'Undress and start':
									cla
									*clr
									minut += 30
									hj += 1
									gs 'stat'
									'<center><img src="images/studia/hj.gif"></center>'
									'<<$pakter>> lies on the bed. You lie down beside him and take his penis in your hand. You begin to pleasure him.'

									act 'Blow him':
										cla
										*clr
										bj += 1
										minut += 5
										'<center><img src="images/studia/bj.gif"></center>'
										'<<$pakter>> sits on the edge of the bed. You kneel down between his legs, and passionately suck the head of his penis like it''s the most delicious lollipop.'

										act 'Suck more':
											cla
											*clr
											minut += 5
											'<center><img src="images/studia/deep.gif"></center>'
											'<<$pakter>> begins to fuck your mouth deeply, occasionally withdrawing completely to allow you to catch your breath, before returning more vigorously.'

											act 'Doggy style':
												cla
												*clr
												sex += 1
												vagina += 1
												minut += 15
												'<center><img src="images/studia/sex.gif"></center>'
												'You turn around and get on all fours, <<$pakter>> guides his dick deep into your pussy. He begins to fuck you from behind, hard.'
												$boy = $pakter
												sexpartkno = 1
												cumprecheck = 1
												gs 'cum_manage'
				
												act 'Kneel down and open your mouth':
													cla
													*clr
													minut += 5
													spafinloc = 12
													sexvolume = 36
													gs 'cum_manage'
													spafinloc = 11
													sexvolume = 4
													gs 'cum_manage'
													facial += 1
													gs 'stat'
													'<center><img src="images/studia/cum.gif"></center>'
													'<<$pakter>> holds his cock to your open mouth and fills it with sperm.'

													act 'Clean his cock with your mouth':
														cla
														*clr
														minut += 5
														swallow += 1
														gs 'stat'
														'<center><img src="images/studia/bj2.gif"></center>'
														'Looking it to his eyes adoringly, you meticulously lick all the cum off his dick.'

														act 'Shower':
															cla
															*clr
															minut += 5
															sweat = -3
															horny += 1
															mop = 1
															dynamic $showerdin
															'<center><img src="images/pics/dush.jpg"></center>'
															'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

															act 'Go to Peter':gt 'pornstudio', 'postvideo'
														end
													end
												end
											end
										end
									end
								end
							elseif pfilm = 4:
								pfType = 0
								cla
								*clr
								minut += 30
								gs 'stat'

								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'To the side stands the actor <<$pakter>>, stroking his impressive member.'

								act 'Undress and start':
									cla
									*clr
									minut += 30
									hj += 1
									gs 'stat'
									'<center><img src="images/studia/hj.gif"></center>'
									'<<$pakter>> lies on the bed. You lie down beside him, place your hand on his penis and begin to stroke it.'

									act 'Blow him':
										cla
										*clr
										bj += 1
										minut += 5
										'<center><img src="images/studia/bj.gif"></center>'
										'<<$pakter>> sits up. You have crouch down on the floor, he swings his legs over and you suddenly have his cock right in front of your face.'
										'After admiring the impressive sight, you remember you''re being filmed and begin sucking the head of his penis.'

										act 'Suck further':
											cla
											*clr
											minut += 5
											'<center><img src="images/studia/deep.gif"></center>'
											'<<$pakter>> relaxes as you take control with your mouth trying to take the full length of his cock down your throat.'

											act 'Doggy style':
												cla
												*clr
												sex += 1
												vagina += 1
												minut += 5
												'<center><img src="images/studia/sex.gif"></center>'
												'You turn around and get on all fours, <<$pakter>> guides his dick deep into your pussy. He begins to fuck you from behind, hard.'
												'Just as you''re really getting into it, <<$pakter>> pulls his cock out. You feel him pressing against your anus.'
												$boy = $pakter
												sexpartkno = 1
												cumprecheck = 1
												gs 'cum_manage'

												act 'Anal':
													cla
													*clr
													anal += 1
													anus += 1
													minut += 5
													'<center><img src="images/studia/sex.gif"></center>'
													'You try as best you can to relax your anus. Suddenly <<$pakter>> pushes into your ass and goes at t like a jack-hammer.'

													act 'Kneel down and open your mouth':
														cla
														*clr
														minut += 5
														facial += 1
														gs 'stat'
														'<center><img src="images/studia/cum.gif"></center>'
														'<<$pakter>> brings his cock to your mouth, and feeds you the contents of his balls.'
														spafinloc = 12
														sexvolume = 36
														gs 'cum_manage'
														spafinloc = 11
														sexvolume = 4
														gs 'cum_manage'
													
														act 'Clean his cock with your mouth':
															cla
															*clr
															minut += 5
															swallow += 1
															gs 'stat'
															'<center><img src="images/studia/bj2.gif"></center>'
															'You keep look deep into his eyes, then lick and kiss his sperm covered cock until it''s thoughly cleaned.'

															act 'Shower':
																cla
																*clr
																minut += 5
																sweat = -3
																horny += 1
																mop = 1
																dynamic $showerdin
																'<center><img src="images/pics/dush.jpg"></center>'
																'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

																act 'Go to Peter':gt 'pornstudio', 'postvideo'
															end
														end
													end
												end
											end
										end
									end
								end
							elseif pfilm = 5:
								pfType = 0
								cla
								*clr
								minut += 30
								gang += 1
								gs 'stat'

								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'Actors <<$pakter>> and <<$pakter2>>, are watching porn on a monitor, getting their cocks ready for you...'

								act 'Undress and kneel':
									cla
									*clr
									minut += 10
									bj += 2
									gs 'stat'
									'<center><img src="images/studia/tbj.gif"></center>'
									'<<$pakter>> and <<$pakter2>> slap their fully errect cocks against your face.'

									act 'Suck them':
										cla
										*clr
										minut += 15
										gs 'stat'
										'<center><img src="images/studia/tbj2.gif"></center>'
										'You start by sucking both members trying to please them both. Then, using your tounge, you draw circles under <<$pakter>>s gland, making him moan.'
										'Then you push your lips tightly against <<$pakter2>>s head, until your mouth is forced open, the look in his eyes tells you he''s ready'

										act 'Fuck':
											cla
											*clr
											minut += 15
											sex += 1
											vagina += 1
											gs 'stat'
											'<center><img src="images/studia/three.gif"></center>'
											'You bend over and <<$pakter>> drives his dick into your pussy while you suck <<$pakter2>>.'
											$boy = $pakter
											sexpartkno = 1
											cumprecheck = 1
											gs 'cum_manage'
												
											act 'Anal':
												cla
												*clr
												minut += 15
												anal += 1
												anus += 1
												gs 'stat'
												'<center><img src="images/studia/threea.gif"></center>'
												'<<$pakter>> takes his cock out of your pusssy, and plunges it into your ass. The change and the extra tightness quickly overwelms him.'
												'He shoots his load into your ass, all the while you keep sucking <<$pakter2>>.'
												spafinloc = 3
												gs 'cum_manage'
											
												act 'Cum on face':
													cla
													*clr
													minut += 5
													facial += 1
													gs 'stat'
													'<center><img src="images/studia/tcum.gif"></center>'
													'You move around to clean up <<$pakter>>, when <<$pakter2>> grabs your head and feeds you his cum saying the most depraved things as it slowly trickles down your throat.'
													$boy = $pakter2
													sexpartkno = 1
													spafinloc = 11
													gs 'cum_manage'

													act 'Shower':
														cla
														*clr
														minut += 5
														sweat = -3
														horny += 1
														mop = 1
														dynamic $showerdin
														'<center><img src="images/pics/dush.jpg"></center>'
														'You enter the shower cubicle. Turn on the shower and gently wash the cum from your face and ass.'

														act 'Go to Peter':gt 'pornstudio', 'postvideo'
													end
												end
											end
										end
									end
								end
							elseif pfilm = 6:
								pfType = 0
								cla
								*clr
								minut += 30
								gang += 1
								gs 'stat'

								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'Actors <<$pakter>> and <<$pakter2>>, are watching porn on a monitor, getting their cocks ready for you...'

								act 'Undress and start':
									cla
									*clr
									minut += 10
									bj += 2
									gs 'stat'
									'<center><img src="images/studia/tbj.gif"></center>'
									'<<$pakter>> and <<$pakter2>> bash their fully errect cocks into your face.'

									act 'Suck':
										cla
										*clr
										minut += 15
										gs 'stat'
										'<center><img src="images/studia/tbj2.gif"></center>'
										'You started to suck both members trying to please them both, it feels so good, all this cock and it''s all for you.'

										act 'Fuck':
											cla
											*clr
											minut += 15
											sex += 1
											vagina += 1
											gs 'stat'
											'<center><img src="images/studia/three.gif"></center>'
											'You got on all fours and <<$pakter>> fucks you like a dog while you suck <<$pakter2>>.'
											$boy = $pakter
											sexpartkno = 1
											cumprecheck = 1
											gs 'cum_manage'
												
											act 'Anal':
												cla
												*clr
												minut += 15
												anal += 1
												anus += 1
												gs 'stat'
												'<center><img src="images/studia/threea.gif"></center>'
												'<<$pakter>> switches it up and sticks his cock into your ass while you keep sucking <<$pakter2>>.'

												act 'Double Penetration':
													cla
													*clr
													minut += 15
													anus += 1
													vagina += 1
													gs 'stat'
													'<center><img src="images/studia/three2.gif"></center>'
													'<<$pakter>> takes his dick out of your ass and lies down. Knowing <<$pakter>> wants more, you straddle his cock.'
													'You feel how his cock fill your pussy while <<$pakter2>> cames up from behind you and pushes his penis into your ass.'
													'The guys find a rhythm and grind away at your holes, you moan loudly.'

													act 'Finish in mouth':
														cla
														*clr
														minut += 5
														facial += 1
														gs 'stat'
														'<center><img src="images/studia/tcum.gif"></center>'
														'The guys tell you they''re close and disengage. You grab the cock of <<$pakter>> and began to suck.'
														'Suddenly your head gets turned around and <<$pakter2>> shoots his load on your face and in your mouth.'
														$boy = $pakter2
														spafinloc = 12
														sexvolume = 36
														gs 'cum_manage'
														spafinloc = 11
														sexvolume = 4
														gs 'cum_manage'
														
														act 'Shower':
															cla
															*clr
															minut += 5
															sweat = -3
															horny += 1
															mop = 1
															dynamic $showerdin
															'<center><img src="images/pics/dush.jpg"></center>'
															'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

															act 'Go to Peter':gt 'pornstudio', 'postvideo'
														end
													end
												end
											end
										end
									end
								end
							elseif pfilm = 7:
								pfType = 1
								cla
								*clr
								minut += 30
								gang += 1
								gs 'stat'
								
								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'To the side stands the actor <<$pakter>>, stroking his member.'

								act 'Undress and start':
									cla
									*clr
									minut += 30
									bj += 1									
									gs 'stat'
									'<center><img src="images/studia/bj.gif"></center>'
									'<<$pakter>> sits before a TV. You walk up to him while disrobing and kneel between his legs, taking his cock in your mouth and begin sucking the head of his penis.'

									act 'Keep sucking':
										cla
										*clr
										minut += 15
										'<center><img src="images/studia/deep.gif"></center>'
										'<<$pakter>> begins to fuck your mouth, driving his cock down your throat with every thrust.'
										'Finally he takes his cock out. You wipe the saliva from your mouth.'

										act 'Lay down on the couch':
											cla
											*clr
											minut += 15
											sex += 1
											gs 'stat'
											'<center><img src="images/_nuki/porn/fuck<<rand(1,2)>>.gif" width="500"></center>'
											'<<$pakter>> grabs your hips and throw you on the couch and starts to fuck you.'

											if horny < 70 or exhibi < 4:
												act 'Fake orgasm':
													cla
													minut += 15
													horny += 15
													sexpartkno = 1
													$boy = $pakter+', a porn actor'
													gs 'cum_manage'
													gs 'stat'
													'<center><img src="images/_nuki/porn/porgasmfake.gif" width="400"></center>'
													'Finally you feel <<$pakter>> cumming inside of you, so you fake a sreaming orgasm for the film. You keep your eyes fixed on his, as he pumps a huge amount of sperm in you. He finally climbs off of you, but you stay on the couch while the cameraman comes forward to film your pussy as it slowly starts to leak the actor''s seed. After a few minutes the director nods his head, and you get up.'
													
													act 'Shower':
														cla
														*clr
														minut += 5
														sweat = -3
														horny += 1
														mop = 1
														dynamic $showerdin
														'<center><img src="images/pics/dush.jpg"></center>'
														'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

														act 'Go to Peter':gt 'pornstudio', 'postvideo'
													end
												end
											else									
												act 'Orgasm':
													cla
													minut += 15
													orgasm += 1
													horny = 0
													sexpartkno = 1
													$boy = $pakter+', a porn actor'
													gs 'cum_manage'
													gs 'stat'
													'<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
													'Finally you feel <<$pakter>> cumming inside of you, which starts your own orgasm. You keep your eyes fixed on his, as he pumps a huge amount of sperm in you. He finally climbs off of you, but you stay on the couch while the cameraman comes forward to film your pussy as it slowly starts to leak the actor''s seed. After a few minutes the director nods his head, and you get up.'
													
													act 'Shower':
														cla
														*clr
														minut += 5
														sweat = -3
														horny += 1
														mop = 1
														dynamic $showerdin
														'<center><img src="images/pics/dush.jpg"></center>'
														'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

														act 'Go to Peter':gt 'pornstudio', 'postvideo'
													end
												end
											end
										end
									end
								end
							elseif pfilm = 8:
								pfType = 1
								cla
								*clr
								minut += 30
								gang += 1
								gs 'stat'
								
								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'Actors <<$pakter>> and <<$pakter2>>, are watching porn on a monitor, getting their cocks ready for you...'

								act 'Undress and kneel':
									cla
									*clr
									minut += 10
									bj += 2
									gs 'stat'
									'<center><img src="images/studia/tbj.gif"></center>'
									'<<$pakter>> and <<$pakter2>> slap their fully errect cocks against your face.'

									act 'Suck them':
										cla
										*clr
										minut += 15
										gs 'stat'
										'<center><img src="images/studia/tbj2.gif"></center>'
										'You start by sucking both members trying to please them both. Then, using your tounge, you draw circles under <<$pakter>>''s gland, making him moan.'
										'Then you push your lips tightly against <<$pakter2>>''s head, until your mouth is forced open, the look in his eyes tells you he''s ready'

										act 'Fuck them':
											cla
											*clr
											minut += 25
											horny += 15
											sex += 1
											anal += 1
											vagina += 1
											anus += 1
											'<center><img src="images/_nuki/porn/threesomeDP<<rand(1,5)>>.gif" width="500"></center>'
											if rand(0,1) = 0:
												$boy = $pakter+', a porn actor'
												sexpartkno = 1
												gs 'cum_manage'
												$boy = $pakter2+', a porn actor'
												sexpartkno = 1
												spafinloc = 3
												gs 'cum_manage'
												'<<$pakter>> lays on the bed and you climb above him, fitting his cock in your pussy, then wait until <<$pakter2>> pushes his member in your ass. He soon starts to fuck you enthusiastically, making you ride <<$pakter>>''s dick. This continues for a while, but soon the director signals the guys that they should cum inside.'
											else
												$boy = $pakter2+', a porn actor'
												sexpartkno = 1
												gs 'cum_manage'
												$boy = $pakter+', a porn actor'
												sexpartkno = 1
												spafinloc = 3
												gs 'cum_manage'
												'<<$pakter2>> lays on the bed and you climb above him, fitting his cock in your pussy, then wait until <<$pakter>> pushes his member in your ass. He soon starts to fuck you enthusiastically, making you ride <<$pakter2>>''s dick. This continues for a while, but soon the director signals the guys that they should cum inside.'
											end
											'The guys starts to fuck you even faster as a reply, and pretty soon you feel them twitching inside oy your body.'
											''
											if horny < 70 or exhibi < 4:
												'<center><img src="images/_nuki/porn/porgasmfake.gif" width="400"></center>'
												'You fake a sreaming orgasm for the film. You keep your eyes fixed on the guy below you as he pumps a huge amount of sperm in you. The guys finally finishing, so you lay down on the bed with your legs apart so the cameraman could take a few closeups of your pussy and ass as thely slowly start to leak the actors'' seed. After a few minutes of this the director nods his head, and you get up.'
											else
												orgasm += 1
												horny = 0
												'<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
												'You have a real orgasm while filming. You keep your eyes fixed on the guy below you as he pumps a huge amount of sperm in you. The guys finally finishing, so you lay down on the bed with your legs apart so the cameraman could take a few closeups of your pussy and ass as thely slowly start to leak the actors'' seed. After a few minutes of this the director nods his head, and you get up.'
											end
											gs 'stat'
											act 'Shower':
												cla
												*clr
												minut += 5
												sweat = -3
												horny += 1
												mop = 1
												dynamic $showerdin
												'<center><img src="images/pics/dush.jpg"></center>'
												'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

												act 'Go to Peter':gt 'pornstudio', 'postvideo'
											end
										end
									end
								end
							elseif pfilm = 9:
								pfType = 1
								cla
								*clr
								minut += 30
								gang += 1
								gs 'stat'
								
								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'Actors <<$pakter>> and <<$pakter2>>, are watching porn on a monitor, getting their cocks ready for you...'

								act 'Undress and kneel':
									cla
									*clr
									minut += 10
									bj += 2
									gs 'stat'
									'<center><img src="images/studia/tbj.gif"></center>'
									'<<$pakter>> and <<$pakter2>> slap their fully errect cocks against your face.'

									act 'Suck them':
										cla
										*clr
										minut += 15
										gs 'stat'
										'<center><img src="images/studia/tbj2.gif"></center>'
										'You start by sucking both members trying to please them both. Then, using your tounge, you draw circles under <<$pakter>>''s gland, making him moan.'
										'Then you sucking <<$pakter2>>''s dick while he grabs your hair for leverage and facefuck you. After a while the director gestures for you to get to the next scene, so he releases you, and looking at <<$pakter>> he urges you to push your ass out.'

										act 'Fuck them':
											cla
											*clr
											minut += 25
											sex += 1
											horny += 15
											'<center><img src="images/_nuki/porn/threesomePM<<rand(1,12)>>.gif" width="500"></center>'
											
											if rand(0,1) = 0:
												$boy = $pakter+', a porn actor'
												sexpartkno = 1
												gs 'cum_manage'
												$boy = $pakter2+', a porn actor'
												sexpartkno = 1
												spafinloc = 12
												gs 'cum_manage'
												'You get in position before <<$pakter2>> and starts to suck him, while <<$pakter>> starts to fuck your pussy. He soon works on that part enthusiastically, making you swallow <<$pakter2>>''s dick. This continues for a while, but soon the director signals that the scene is good enough, and it is time for the finale.'
											else
												$boy = $pakter2+', a porn actor'
												sexpartkno = 1
												gs 'cum_manage'
												$boy = $pakter+', a porn actor'
												sexpartkno = 1
												spafinloc = 3
												gs 'cum_manage'
												'You get in position before <<$pakter>> and starts to suck him, while <<$pakter2>> starts to fuck your pussy. He soon works on that part enthusiastically, making you swallow <<$pakter>>''s dick. This continues for a while, but soon the director signals that the scene is good enough, and it is time for the finale.'
											end
											'The guys immediately starts to fuck you even faster, clearly trying to cum as soon as possible, while still coordinating with each other, and since they are professional, you soon feel them twitching inside oy your body simultaneously, bathing your cunt in seed while your mouth quickly fills with sperm too.'
											''
											if horny < 70 or exhibi < 4:
												'<center><img src="images/_nuki/porn/porgasmfake.gif" width="400"></center>'
												'You fake a sreaming orgasm for the film. You keep your eyes fixed on the guy before you as he pumps a huge amount of sperm in your mouth. The guys finally finishing and your movie partners step away from the scene so so the cameraman could take a few closeups of your sperm-full mouth and seed-dripping pussy. After a few seconds you swallow the sperm and get up.'
											else
												orgasm += 1
												horny = 0
												'<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
												'You have a real orgasm while filming. You keep your eyes fixed on the guy before you as he pumps a huge amount of sperm in your mouth. The guys finally finishing and your movie partners step away from the scene so so the cameraman could take a few closeups of your sperm-full mouth and seed-dripping pussy. After a few seconds you swallow the sperm and get up.'
											end
											gs 'stat'
											act 'Shower':
												cla
												*clr
												minut += 5
												sweat = -3
												horny += 1
												mop = 1
												dynamic $showerdin
												'<center><img src="images/pics/dush.jpg"></center>'
												'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

												act 'Go to Peter':gt 'pornstudio', 'postvideo'
											end
										end
									end
								end
							elseif pfilm = 10:
								pfType = 1
								cla
								*clr
								minut += 30
								gang += 1
								gs 'stat'
								
								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'Actors <<$pakter>>, <<$pakter2>>, <<$pakter3>> and <<$pakter4>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'

								act 'Warmup':
									cla
									*clr
									minut += 20
									hj += 4
									bj += 4
									horny += 20
									gs 'stat'
									
									'<center><img src="images/_nuki/porn/warmupgang.gif" width="500"></center>'
									'The actors gather around you, and you soon suck one guy while giving a handjob for an another one. The two other guys get creative, one of them sucking your tits, while the other licking your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'

									act 'Fuck them':
										cla
										*clr
										hj += 4
										bj += 4
										sex += 4
										horny += 20
										minut += 20
										gs 'stat'
										'<center><img src="images/_nuki/porn/gangp<<rand(1,4)>>.gif" width="500"></center>'
										'The guys starts to fuck you, one after the other, but never cumming. All the while you keep them ready with your hands and mouth.'

										act 'Cream bath':
											cla
											*clr
											minut += 5
											horny += 10
											'The guys continue to fuck you, but this time with the purpose of cumming as quickly as possible.'
											$boy = $pakter+', a porn actor'
											sexpartkno = 1
											cumprecheck = 1
											gs 'cum_manage'
											if rand(0,5) > 0:
												'<center><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
												'<<$pakter>> suddenly groans, pulling out in the last second coating your pussylips with his sperm.'
											else
												'<center><img src="images/_nuki/porn/cumbathM<<rand(1,2)>>.gif" width="500"><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
												'<<$pakter>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your pussylips.'
												sexpartkno = 1
												gs 'cum_manage'
											end
											spafinloc = 1
											sexpartkno = 1
											gs 'cum_manage'
											
											
											'When he is done, he is replaced by <<$pakter2>>, who also fucks you.'
											$boy = $pakter2+', a porn actor'
											sexpartkno = 1
											cumprecheck = 1
											gs 'cum_manage'
											if rand(0,5) > 0:
												'<center><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
												'<<$pakter2>> suddenly groans, pulling out in the last second coating your breasts with his sperm.'
											else
												'<center><img src="images/_nuki/porn/cumbathM<<rand(1,2)>>.gif" width="500"><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
												'<<$pakter2>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your breasts.'
												sexpartkno = 1
												gs 'cum_manage'
											end
											spafinloc = 15
											sexpartkno = 1
											gs 'cum_manage'
											
											
											'When he is done, he is replaced by <<$pakter3>>, who also fucks you.'
											$boy = $pakter3+', a porn actor'
											sexpartkno = 1
											cumprecheck = 1
											gs 'cum_manage'
											if rand(0,5) > 0:
												'<center><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
												'<<$pakter3>> suddenly groans, pulling out in the last second coating your face and hair with his sperm.'
											else
												'<center><img src="images/_nuki/porn/cumbathM<<rand(1,2)>>.gif" width="500"><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
												'<<$pakter3>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your face and hair with his sperm.'
												sexpartkno = 1
												gs 'cum_manage'
											end
											spafinloc = 11
											sexpartkno = 1
											gs 'cum_manage'
											spafinloc = 11
											sexpartkno = 1
											gs 'cum_manage'
											
											
											'When he is done, he is replaced by <<$pakter4>>, who also fucks you.'
											$boy = $pakter4+', a porn actor'
											sexpartkno = 1
											cumprecheck = 1
											gs 'cum_manage'
											if rand(0,5) > 0:
												'<center><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
												'<<$pakter4>> suddenly groans, pulling out in the last second coating your belly with his sperm.'
											else
												'<center><img src="images/_nuki/porn/cumbathM<<rand(1,2)>>.gif" width="500"><img src="images/_nuki/porn/cumbath<<rand(1,9)>>.gif" width="500"></center>'
												'<<$pakter4>> suddenly groans, pulling his dick out of your pussy but obviously messes up when his first shot of seed sprays straight into your open vagina, but he quickly corrects it, and the others coat your belly with his sperm.'
												sexpartkno = 1
												gs 'cum_manage'
											end
											sexpartkno = 1
											spafinloc = 14
											gs 'cum_manage'
											gs 'stat'

											act 'Shower':
												cla
												*clr
												minut += 5
												sweat = -3
												horny += 1
												mop = 1
												dynamic $showerdin
												'<center><img src="images/pics/dush.jpg"></center>'
												'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

												act 'Go to Peter':gt 'pornstudio', 'postvideo'
											end
										end
									end
								end
							elseif pfilm = 11:
								pfType = 1
								cla
								*clr
								minut += 30
								gang += 1
								gs 'stat'

								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'Actors <<$pakter>>, <<$pakter2>>, <<$pakter3>> and <<$pakter4>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'

								act 'Warmup':
									cla
									*clr
									minut += 20
									hj += 4
									bj += 4
									horny += 20
									gs 'stat'
									
									'<center><img src="images/_nuki/porn/warmupgang.gif" width="500"></center>'
									'The actors gather around you, and you soon suck one guy while giving a handjob for an another one. The two other guys get creative, one of them sucking your tits, while the other licking your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'

									act 'Fuck them':
										cla
										*clr
										hj += 4
										bj += 4
										sex += 4
										horny += 20
										minut += 20
										$boy = $pakter+', a porn actor'
										sexpartkno = 1
										cumprecheck = 1
										gs 'cum_manage'
										$boy = $pakter2+', a porn actor'
										sexpartkno = 1
										cumprecheck = 1
										gs 'cum_manage'
										$boy = $pakter3+', a porn actor'
										sexpartkno = 1
										cumprecheck = 1
										gs 'cum_manage'
										$boy = $pakter4+', a porn actor'
										sexpartkno = 1
										cumprecheck = 1
										gs 'cum_manage'
										gs 'stat'
										'<center><img src="images/_nuki/porn/threesomePM<<rand(1,12)>>.gif" width="500"></center>'
										'The guys starts to fuck you, one after the other, but never cumming. All the while you keep them ready with your hands and mouth.'

										act 'Creampie':
											cla
											*clr
											minut += 5
											cumpussy += 4
											'<center><img src="images/_nuki/porn/porncp<<rand(1,4)>>.gif" width="500"></center>'
											$boy = $pakter+', a porn actor'
											sexpartkno = 1
											gs 'cum_manage'
											$boy = $pakter2+', a porn actor'
											sexpartkno = 1
											gs 'cum_manage'
											$boy = $pakter3+', a porn actor'
											sexpartkno = 1
											gs 'cum_manage'
											$boy = $pakter4+', a porn actor'
											sexpartkno = 1
											gs 'cum_manage'
											
											if horny < 70 or exhibi < 4:
												'You pull your legs up to your chest and smile at the guys, inviting them to come and cum in you, and in moments one of them steps up to you, pushing his dick in your pussy and groaning as he pumps his considerable amount of sperm in your vagina. As soon as he steps aside, an another guy replaces him, and after a few pumps you get your second helping of seed. Soon the third and fourth guys also cum in you, and you carefully open your pussylips with your fingers for the camera to show your sperm-full vagina.'
												'<center><img src="images/_nuki/porn/pornwalk1.gif" height="200"><img src="images/_nuki/porn/pornwalk2.gif" height="200"><img src="images/_nuki/porn/pornwalk3.gif" height="200"></center>'
												'The scene ends with you pulling up your panties and skirt, and step out the door with the four guys'' load still inside you.'
												horny += 15
											else
												'You pull your legs up to your chest and smile at the guys, inviting them to come and cum in you, and in moments one of them steps up to you, pushing his dick in your pussy and groaning as he pumps his considerable amount of sperm in your vagina.'
												'<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
												'Since you are already on edge, this pushes you over and you came around his dick, milking it even more. The director seems extremely pleased with this, as the cameraman captured it all from about a meter distance. As soon as he steps aside, an another guy replaces him, and after a few pumps you get your second helping of seed, while you are still in the afterthroes of your first orgasm. Soon the third and fourth guys also cum in you, and you carefully open your pussylips with your fingers for the camera to show your sperm-full vagina.'
												'<center><img src="images/_nuki/porn/pornwalk1.gif" height="200"><img src="images/_nuki/porn/pornwalk2.gif" height="200"><img src="images/_nuki/porn/pornwalk3.gif" height="200"></center>'
												'The scene ends with you pulling up your panties and skirt, and step out the door with the four guys'' load still inside you.'
												horny = 0
												orgasm += 1
											end
											gs 'stat'

											act 'Shower':
												cla
												*clr
												minut += 5
												sweat = -3
												horny += 1
												mop = 1
												dynamic $showerdin
												'<center><img src="images/pics/dush.jpg"></center>'
												'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

												act 'Go to Peter':gt 'pornstudio', 'postvideo'
											end
										end
									end
								end
							elseif pfilm = 12:
								pfType = 0
								cla
								*clr
								minut += 30
								gang += 1
								gs 'stat'
								
								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'Actors <<$pakter>>, <<$pakter2>>, <<$pakter3>> and <<$pakter4>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'

								act 'Warmup':
									cla
									*clr
									minut += 20
									hj += 4
									bj += 4
									horny += 20
									gs 'stat'
									
									'<center><img src="images/_nuki/porn/warmupgang.gif" width="500"></center>'
									'The actors gather around you, and you soon suck one guy while giving a handjob for an another one. The two other guys get creative, one of them sucking your tits, while the other licking your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'

									act 'Fuck them':
										cla
										*clr
										hj += 4
										bj += 4
										anal += 4
										horny += 20
										minut += 20
										gs 'stat'
										'<center><img src="images/_nuki/porn/threesomePM<<rand(0,5)>>.gif" width="500"></center>'	
										'The guys starts to fuck your ass, one after the other, but never cumming. All the while you keep them ready with your hands and mouth.'

										act 'Ass creampie':
											cla
											*clr
											minut += 5
											$boy = $pakter+', a porn actor'
											sexpartkno = 1
											spafinloc = 3
											gs 'cum_manage'
											$boy = $pakter2+', a porn actor'
											sexpartkno = 1
											spafinloc = 3
											gs 'cum_manage'
											$boy = $pakter3+', a porn actor'
											sexpartkno = 1
											spafinloc = 3
											gs 'cum_manage'
											$boy = $pakter4+', a porn actor'
											sexpartkno = 1
											spafinloc = 3
											gs 'cum_manage'
											'<center><img src="images/_nuki/porn/porncp<<rand(1,4)>>.gif" width="500"></center>'
											if horny < 70 or exhibi < 4:
												'You lower your head on the pillows while pushing your ass in the air, giving the guys easy access. One of them immediately starts to fuck your ass, then stops, and pushing his dick in deep he pumps his considerable amount of sperm in your colon. As soon as he steps aside, another guy replaces him, then the third and fourth guys also cum in your ass.'
												'<center><img src="images/_nuki/porn/pornwalk1.gif" height="200"><img src="images/_nuki/porn/pornwalk2.gif" height="200"><img src="images/_nuki/porn/pornwalk3.gif" height="200"></center>'
												'The scene ends with you pulling up your panties and skirt, and step out the door with the four guys'' load still inside you.'
												horny += 15
											else
												'You lower your head on the pillows while pushing your ass in the air, giving the guys easy access. One of them immediately starts to fuck your ass, then stops, and pushing his dick in deep he pumps his considerable amount of sperm in your colon.'
												'<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
												'Since you are already on edge, this pushes you over and you came around his dick, milking it even more. The director seems extremely pleased with this, as the cameraman captured it all from about a meter distance. As soon as he steps aside, another guy replaces him, then the third and fourth guys also cum in your ass.'
												'<center><img src="images/_nuki/porn/pornwalk1.gif" height="200"><img src="images/_nuki/porn/pornwalk2.gif" height="200"><img src="images/_nuki/porn/pornwalk3.gif" height="200"></center>'
												'The scene ends with you pulling up your panties and skirt, and step out the door with the four guys'' load still inside you.'
												horny = 0
												orgasm += 1
											end
											gs 'stat'

											act 'Shower':
												cla
												*clr
												minut += 5
												sweat = -3
												horny += 1
												mop = 1
												dynamic $showerdin
												'<center><img src="images/pics/dush.jpg"></center>'
												'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

												act 'Go to Peter':gt 'pornstudio', 'postvideo'
											end
										end
									end
								end
							elseif pfilm = 13:
								pfType = 1
								cla
								*clr
								minut += 30
								gang += 1
								gs 'stat'
								
								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'Actors <<$pakter>>, <<$pakter2>>, <<$pakter3>> and <<$pakter4>> are talking loudly, trying to decide the order they will fuck you, while watching porn on a monitor, getting their cocks ready for you...'

								act 'Kneel in front of them':
									cla
									*clr
									minut += 20
									bj += 2
									hj += 2
									horny += 10
									gs 'stat'
												
									'<center><img src="images/_nuki/porn/warmupgang.gif" width="500"></center>'
									'You kneel in front of the guys and start to suck <<$paktor>> and <<$paktor2>> in turns, while giving a handjob to <<$paktor3>> and <<$paktor4>>. Pretty soon they are all hard and ready, and the director nods to you.'

									act 'Let them fuck you':
										cla
										*clr
										sex += 2
										horny += 30
										minut += 30
										$boy = $pakter+', a porn actor'
										sexpartkno = 1
										gs 'cum_manage'
										$boy = $pakter2+', a porn actor'
										sexpartkno = 1
										gs 'cum_manage'

										'<center><img src="images/_nuki/porn/doublevag<<rand(1,4)>>.gif" width="500"></center>'
										
										if horny < 70 or exhibi < 4:
											'<<$paktor>> lies down on the floor, and you sit in his dick, spearing yourself on it in the process. <<$paktor2>> steps behind you and pushes his hard dick inside of your already occupied vagina, and the two guys start to fuck you in tandem. When the director signals, the two guys starts to fuck you more forcefully, and thanks to their timing, they came inside of you at the same time.'
											'<center><img src="images/_nuki/porn/porgasmfake.gif" width="400"></center>'
											'You fake an orgasm for the camera while you wait for them to empty their sack in you.'
										else
											orgasm += 1
											horny = 0
											'<<$paktor>> lies down on the floor, and you sit in his dick, spearing yourself on it in the process. <<$paktor2>> steps behind you and pushes his hard dick inside of your already occupied vagina, and the two guys start to fuck you in tandem. When the director signals, the two guys starts to fuck you more forcefully, and thanks to their timing, they came inside of you at the same time.'
											'<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
											'You also came around them, crying out in pleasure as you contract around them in your vagina while they empty their sack in you.'
										end
										gs 'stat'
										
										act 'They fuck your ass':
											cla
											*clr
											anal += 2
											horny += 30
											minut += 30
											$boy = $pakter3+', a porn actor'
											sexpartkno = 1
											spafinloc = 3
											gs 'cum_manage'
											$boy = $pakter4+', a porn actor'
											sexpartkno = 1
											spafinloc = 3
											gs 'cum_manage'
											gs 'stat'
											'<center><img src="images/_nuki/porn/doublean<<rand(1,4)>>.gif" width="500"></center>'
											
											if horny < 70 or exhibi < 4:
												'While still dripping the sperm of the previous two guys from your pussy, <<$paktor3>> and <<$paktor4>> switches places with <<$paktor>> and <<$paktor2>>, but they just dip their dick in your slick pussy, then pushes their dick in your anus. At first the place is pretty tight, but soon start to build up a good rithm. They also cum in you, this time in your ass.'
												'<center><img src="images/_nuki/porn/porgasmfake.gif" width="400"></center>'
												'You fake an another orgasm for the camera while you wait for them to finish in your bowel.'
											else
												orgasm += 1
												horny = 0
												'While still dripping the sperm of the previous two guys from your pussy, <<$paktor3>> and <<$paktor4>> switches places with <<$paktor>> and <<$paktor2>>, but they just dip their dick in your slick pussy, then pushes their dick in your anus. At first the place is pretty tight, but soon start to build up a good rithm. They also cum in you, this time in your ass.'
												'<center><img src="images/_nuki/porn/porgasm.gif" width="400"></center>'
												'You came around them, visibly orgasming as you contract around them, while they finish in your bowel.'
											end

											act 'Shower':
												cla
												*clr
												minut += 5
												sweat = -3
												horny += 1
												mop = 1
												dynamic $showerdin
												'<center><img src="images/pics/dush.jpg"></center>'
												'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

												act 'Go to Peter':gt 'pornstudio', 'postvideo'
											end
										end
									end
								end
							elseif pfilm = 14:
								pfType = 1
								cla
								*clr
								minut += 60
								gang += 1
								guy += 50
								gs 'stat'

								'The set is already bustling with assistants setting up lighting, so that there are no shadows.'
								'On the scene there are fifty guys standing around, and you believe this many actor would cost a fortune. The only luck the studio have is that these guys are all your fans, so they came for just the chance to fuck you. They are all nervously talking, and watching your previous works on monitors all around the huge hall.'
								'<center><img src="images/_nuki/porn/touching.gif" width="500"></center>'
								'You lie down on the stage, and let them touch you to get them into the mood.'

								act 'Undress and lie on the bed':
									cla
									*clr
									bj50 = rand(0,10)
									hj50 = rand(0,10)
									lip50 = rand(0,10)
									anal50 = rand(0,10)
									bukk50 = rand(0,10)
									sex50 = 50 - bj50 - hj50 - lip50 - anal50 - bukk50
									sex += 50
									sexpartkno = 0
									pfcounter = 0
									:gbblow
									if bj50 > 0:
										pfcounter += 1
										$boy = 'porn fan #<<pfcounter>>'
										cumprecheck = 1
										gs 'cum_manage'
										spafinloc = 12
										gs 'cum_manage'
										bj50 -= 1
										bj += 1
										swallow += 1
									end
									if bj50 > 0: jump 'gbblow'
									:gbhand
									if hj50 > 0:
										pfcounter += 1
										$boy = 'porn fan #<<pfcounter>>'
										cumprecheck = 1
										gs 'cum_manage'
										spafinloc = 13
										gs 'cum_manage'
										hj50 -= 1
										hj += 1
									end
									if hj50 > 0: jump 'gbhand'
									:gbface
									if lip50 > 0:
										pfcounter += 1
										$boy = 'porn fan #<<pfcounter>>'
										cumprecheck = 1
										gs 'cum_manage'
										if rand(0,1)=0:
											spafinloc = 11
										else
											spafinloc = 16
										end
										gs 'cum_manage'
										lip50 -= 1
										facial += 1
									end
									if lip50 > 0: jump 'gbface'
									:gbass
									if anal50 > 0:
										pfcounter += 1
										$boy = 'porn fan #<<pfcounter>>'
										spafinloc = 3
										gs 'cum_manage'
										anal50 -= 1
										anal += 1
									end
									if anal50 > 0: jump 'gbass'
									:bukk50
									if bukk50 > 0:
										pfcounter += 1
										$boy = 'porn fan #<<pfcounter>>'
										cumprecheck = 1
										gs 'cum_manage'
										bukkloc = rand(0,6)
										if bukkloc = 0:
											spafinloc = 1
										elseif bukkloc = 1:
											spafinloc = 4
										elseif bukkloc = 2:
											spafinloc = 8
										elseif bukkloc = 3:
											spafinloc = 9
										elseif bukkloc = 4:
											spafinloc = 10
										elseif bukkloc = 5:
											spafinloc = 14
										else
											spafinloc = 15
										end
										gs 'cum_manage'
										bukk50 -= 1
									end
									if bukk50 > 0: jump 'gbface'
									:gbsex
									if sex50 > 0:
										pfcounter += 1
										$boy = 'porn fan #<<pfcounter>>'
										gs 'cum_manage'
										sex50 -= 1
									end
									if sex50 > 0: jump 'gbsex'
									minut += 360

									gangOrg = 0
									if horny < 70 or exhibi < 4:gangOrg = rand(1,5) & orgazm += gangOrg & horny = rand(0,50)
									if gangOrg = 1:
										$gangorg = ' and you still managed to have an orgasm.'
									elseif gangOrg > 0:
										$gangorg = ' and you still managed to orgasm <<gangOrg>> times.'
									else
										$gangorg = '.'
									end
									gs 'stat'
									'<center><img src="images/_nuki/porn/fuckfifty<<rand(0,12)>>.gif" width="500"></center>'
									'Your fans gather around you, and starts to fuck you with great entusiasm, but little technique. Most of them cum almost immediately when they are in your body, but since they are many, it doesn''t hurt the shoot, even heightens the quality<<$gangorg>> It still takes about six hours of constant fucking to finish with all of the guys.'
									
									act 'Shower':
										cla
										*clr
										minut += 5
										sweat = -3
										horny += 1
										mop = 1
										dynamic $showerdin
										'<center><img src="images/pics/dush.jpg"></center>'
										'You enter the shower cubicle. Turn on the shower and gently wash all traces of semen from your body.'

										act 'Go to Peter':gt 'pornstudio', 'postvideo'
									end
								end
							end
						end
					end
				end
			end
		end
		exit
	end

	if pfilm > 0 and hour > 12:
		pfilmday = daystart
		'Didn''t I tell you not to be late? Where the fuck where you?, I''ve wasted a lot of money. I had to pay actors, assistants, the director and the doctor just to sit on their asses!'
		'The whole shoot was a write off, just because of you, slut!'
		'I''ll give you one chance, come tomorrow and work for free, or we''re done!'

		act 'Fuck him. Who needs this idiot':
			pfilmNO = 1
			pfilm = 0
			gt 'pornstudio', 'start'
		end

		act 'Fine, I will do it':
			pfilmNOPAY = 1
			gt 'pornstudio', 'start'
		end
		exit
	end

	if firstkasting = 0:
		'You sit down on the sofa and greet the boss. "I see it''s your first time with us. Do you want to be a porn star?'

		act 'Yes':
			cla
			minut += 5
			gs 'stat'
			'You confirm your desire to act in a porn movie. The boss nods, "All right. First we''ll need to do a casting."'
			'"Take off your clothes and let me see your body."'

			act 'Make excuses and leave':gt 'pornstudio', 'start'
			'You confirm your desire to act in a porn movie. The boss nods, "Let`s see your papers, are you 18 or older?"'
			if age >= 18:
				'"Yes I am." You answer, handing him your passport.'
				'"All right. First we''ll need to do a casting. Take off your clothes and let me see your body."'
			elseif fakepassport = 1:
				'"Yes I am." You answer, handing him your fake passport.'
				'You see him frown as he checks your passport with suspicion.'
				'"Well, I guess everything is in order. First we''ll need to do a casting. Take off your clothes and let me see your body."'
			else
				'"Nearly..." You plead.'
				'"Right. Then here`s my card, be sure to come back when you are old enough.'
				fakepassport = 2
				exit
			end

			act 'Undress':
				cla
				minut += 5
				gs 'stat'
				'You undress in front of the boss, he gets up from his chair and walks towards you. "Lie down on the couch and spread your legs."'

				act 'Grab your clothes and run out':gt 'pornstudio', 'start'

				act 'Lie down on the sofa and spread your legs':
					cla
					minut += 5
					gs 'stat'
					'You lie down on the sofa and spread your legs. The boss takes a few pictures on his phone, explaining that it is for the portfolio. After that, the boss asks you to kneel.'

					act 'Kneel':
						cla
						minut += 5
						gs 'stat'
						'You get up from the sofa and kneel in front of the boss. He takes a few more pictures. "Now open your mouth and stick out your tongue as if I was about to finish on your face."'

						act 'Open your mouth and stick out your tongue':
							cla
							minut += 5
							gs 'stat'
							'You have open your mouth and stuck out your tongue. The boss says, "Not bad, now suck my thumb."'

							act 'Suck his thumb':
								cla
								minut += 5
								gs 'stat'
								'You start to suck his thumb trying to look as sexy as possible. Meanwhile he touchs your breast with his other hand while you are busy with his finger.'
								'He pulls his finger out of your mouth and curtly tells you, "get dressed". He sits down at his desk. You quickly got dressed and sat down.'
								'"You can call me Peter. You are going to need a pornstar name.'

								act 'Choose your pornstar name':
									cla
									firstkasting = 1
									$pfname = input ("What will be your pornstar name?")

									if $pfname <= 0:$pfname = '<<$name>> BimboStar'

									'<<$pfname>>, wonderful name. Now listen, before shooting starts you have to pass the medical examination. If we find any sign of a sexually transmitted disease, you are out, no exceptions.'
									'You''re all registered, we only shoot about one film a month, remember to take care of your health.'
									''
									'Come see me when you''re ready to work.'

									act '.....':gt 'pornstudio', 'start'
								end
							end
						end
					end
				end
			end
		end
	elseif film = 0 and pfilm = 0:
		'So, you''re the new girl, and we as luck would have it, we are looking for a brand new girl. It''s called ''Girls jerk guys 36''.'
		'Guess what? You have to jerk off a guy, in this one he will finish on you tits. It pays 2,000 <b>₽</b>.'

		act 'Agree':
			cla
			pfilm = 1
			pfilmday = daystart
			'Cool, we shoot tomorrow. Get here between 10 and 11, do not be late.'

			act 'Leave':gt 'pornstudio', 'start'
		end

		act 'I don''t think I''m ready':gt 'pornstudio', 'start'
	elseif film > 0:
		if daystart > pffilmday and pfilm = 0:
			'Come on <<$pfname>>. Let''s see what I can offer for you.'
			if film < 5:
				fmulti = 100
			elseif film < 10:
				fmulti = 120
			elseif film < 15:
				fmulti = 140
			elseif film < 25:
				fmulti = 160
			elseif film < 50:
				fmulti = 180
			elseif film >= 50:
				fmulti = 200
			end
			if rand(0,2) ! 0:
				pf = 1
				dynamic $pornfilmdesc
				act 'Jerk a guy, until he cums on your chest (<<pcash * fmulti>>₽)':
					cla
					pfilm = 1
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 2
				dynamic $pornfilmdesc
				act 'Blowjob, finish with a facial (<<pcash * fmulti>>₽)':
					cla
					pfilm = 2
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 3
				dynamic $pornfilmdesc
				act 'Classic, first blowjob, then sex, finish with a facial (<<pcash * fmulti>>₽)':
					cla
					pfilm = 3
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 4
				dynamic $pornfilmdesc
				act 'Classic with anal, blowjob, sex, anal and facial finish (<<pcash * fmulti>>₽)':
					cla
					pfilm = 4
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 5
				dynamic $pornfilmdesc
				act 'Threesome, no dp, finish in ass and facial (<<pcash * fmulti>>₽)':
					cla
					pfilm = 5
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 6
				dynamic $pornfilmdesc
				act 'Threesome with dp, double facial (<<pcash * fmulti>>₽)':
					cla
					pfilm = 6
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 7
				dynamic $pornfilmdesc
				act 'A simple sex scene, with blowjob and creampie (<<pcash * fmulti>>₽)':
					cla
					pfilm = 7
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 8
				dynamic $pornfilmdesc
				act 'Threesome with dp, creampie in ass and pussy (<<pcash * fmulti>>₽)':
					cla
					pfilm = 8
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 9
				dynamic $pornfilmdesc
				act 'Threesome without anal sex, pussy-mouth fuck, with creampie and swallowing. (<<pcash * fmulti>>₽)':
					cla
					pfilm = 9
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 10
				dynamic $pornfilmdesc
				act 'Group sex with four guys, cumming on pussylips (<<pcash * fmulti>>₽)':
					cla
					pfilm = 10
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 11
				dynamic $pornfilmdesc
				act 'Group sex with four guys, cum inside pussy (<<pcash * fmulti>>₽)':
					cla
					pfilm = 11
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 12
				dynamic $pornfilmdesc
				act 'Group sex with four guys, cum inside ass (<<pcash * fmulti>>₽)':
					cla
					pfilm = 12
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if rand(0,2) ! 0:
				pf = 13
				dynamic $pornfilmdesc
				act 'Group sex with four guys, double dp, cum inside ass and pussy. (<<pcash * fmulti>>₽)':
					cla
					pfilm = 13
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			if film > 14 and rand(0,2) ! 0:
				pf = 14
				dynamic $pornfilmdesc
				act 'A classic gangbang, with fifty guys (<<pcash * fmulti>>₽)':
					cla
					pfilm = 14
					pfilmday = daystart
					'Cool, we shoot tomorrow. Come between 10 and 11. don''t be late.'

					act 'Leave':gt 'pornstudio', 'start'
				end
			end
			act 'Leave and come back another day':
				pffilmday = daystart + 1
				gt 'pornstudio', 'start'
			end
		else
			if pffilmday - daystart > 0:
				'Sorry <<$pfname>>, there is no work for you now. Come back in <<pffilmday-daystart>> days.'
			elseif pffilmday - daystart = 0:
				'Sorry <<$pfname>>, there is no work for you now. Come back tomorrow.'
			end
            
                'Peter is on the phone, he covers the receiver, "I''m busy right now, come back later."'
			
            act 'Leave':gt 'pornstudio', 'start'
		end
	end

	act 'Leave':gt 'pornstudio', 'start'
end

if $ARGS[0] = 'postvideo':
	cls
	minut += 30
	pf = pfilm
	dynamic $pornfilmdesc
	if film < 5:
		fmulti = 100
	elseif film < 10:
		fmulti = 120
	elseif film < 15:
		fmulti = 140
	elseif film < 25:
		fmulti = 160
	elseif film < 50:
		fmulti = 180
	elseif film >= 50:
		fmulti = 200
	end
	if pfilmNOPAY = 0:
		pfcash = pcash * fmulti
		money += pfcash
		'Peter counts <<pfcash>> <b>₽</b> out for your film and wishes good luck.'
	else
		pfilmNOPAY = 0
		pfcash = 0
		'You have fulfilled your obligation and the made the film for free.'
	end
	film += 1
	pornfilmYear[film] = year
	pornfilmMonth[film] = month
	pornfilmDay[film] = day
	pornfilmType[film] = pf
	pornfilmCash[film] = pfcash
	pornfilmActAge[film] = age
	pornfilmAppAge[film] = vidage

	if pfType = 1 and tabletki <= 0 and mesec <= 0 and knowpreg = 0: pornDanger[film] = 1
	if pfactor = 1:
		$pornfilmActor[film] = $pakter+' and '+$pfname
	elseif pfactor = 2:
		$pornfilmActor[film] = $pakter+', '+$pakter2+' and '+$pfname
	elseif pfactor = 4:
		$pornfilmActor[film] = $pakter+', '+$pakter2+', '+$pakter3+', '+$pakter4+' and '+$pfname
	elseif pfactor = 50:
		$pornfilmActor[film] = 'Fifty fans of <<$pfname>>, and of course <<$pfname>> herself.'
	end

	pfilm = 0
	pfcash = 0

	if film < 10:
		filmkoef = 10
	elseif film < 25:
		filmkoef = 5
	else
		filmkoef = 0
	end

	pffilmday = daystart + (rand (10,20) + filmkoef)
	pfilmday = 0
	
	gs 'stat'

	'I think we will have a job for you in no less than <<pffilmday-daystart>> day(s).'

	act 'Leave':gt 'pornstudio', 'start'
end

if $ARGS[0] = '1':
	$metka = $ARGS[0]
	$loc = $CURLOC

	minut = minut + 5
	clr
	gs'stat'

	'<center><img src="images/studia/Pierre_1.jpg"></center>'
	'You`ve come to the studio, eyes looking for someone-anything, Who can come up with a question.'
	'To you I approached a young man, introduced by Peter, you are greeted and met.'

	act 'To state the purpose of your visit':
		cla
		*clr
		minut = minut+60

		'<center><img src="images/studia/Pierre_2.jpg"></center>'
		'Peter smiled and said, that the new actresses are always welcome, just terrible, of course, business do not take. On the first couple have held auditions, If you like public - they can not be held.'
		'I`ll tell you, here and how, but under one condition - you have to undress.'

		act 'Undress':
			cla
			*clr
			'<center><img src="images/studia/casting_3.jpg"></center>'
			'First held casting actresses - as I have said, if you are terrible - You can not hope, comes only when you have a beautiful appearance.'

			act '...':
				cla
				*clr
				'<center><img src="images/studia/model_0.jpg"></center>'
				'Then the girl chosen for the lead role.'
				'Here you have to be the most beautiful.'

				act '...':
					cla
					*clr
					'<center><img src="images/studia/Film_0.jpg"></center>'
					'Well, then she shot - interesting and exciting processes'
					'And the output we obtain...'

					act '...':
						cla
						*clr
						'<center><img src="images/studia/dvd-disс.jpg"></center>'
						'So on what I make money.'

						act 'All clear, and how and where it is all sold? Can, I want to see for yourself...':
							cla
							*clr
							'<center><img src="images/studia/Pierre_2.jpg"></center>'
							'The sauna is in a residential area we have one man.. And in a sex shop, How could you understand, there garters. Now that`s thinking of selling the university. If we would have with the people who helped - b good profits increased, entitlements to dividends assistant, of course.'

							act 'And what-problems with the law?':
								cla
								*clr
								'<center><img src="images/studia/ment_0.jpg"></center>'
								'Specifically for you - unavailable. We`ve got their contracts with the cops, maybe in the future you will be able to help us to keep them in force, In the meantime - I told you everything, weekend tasted.'

								act 'Well, sort of understood everything':
									cla
									*clr
									pornstudio = 3

									'<center><img src="images/studia/Pierre_2.jpg"></center>'
									'Good for, girl, walk and not take away from me more time'

									gt'pornstudio','start'
								end
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = '2':
	$metka = $ARGS[0]
	$loc = $CURLOC

	clr
	! WD: Fix Uninitialised ~ 'carrf' to 'carrar'
	carrar = RAND(40, 100)
	gs 'stat'

	'<center><img src="images/studia/casting_<<rand(1,6)>>.jpg"></center>'

	'You spent eight hours possing in a variety of sexy underwears, for the casting director.'

	minut = minut+120
	gs 'stat'
	minut = minut+120
	gs 'stat'
	minut = minut+120
	gs 'stat'
	minut = minut+120
	gs 'stat'

	if vnesh < carrar:
		'You don''t have what it takes, sorry'
	elseif vnesh >= carrar:
		actr = 1

		'You get the Role'
	end

	act 'Finish':
		gt 'pornstudio','start'
	end
end

if $ARGS[0] = '3':
	$metka = $ARGS[0]
	$loc = $CURLOC

	clr
	actr = 0
	gs 'stat'
	gt 'bdsm'
end

--- pornstudio ---------------------------------

