Merge branch 'master' into ClubBarRework

glife.qproj

@@ -222,6 +222,20 @@
 		<Location name="preALT"/>
 		<Location name="preCSB"/>
 	</Folder>
+	<Folder name="intro">
+		<Location name="intro_sg"/>
+		<Location name="intro_sg_m"/>
+		<Location name="intro_sg_tg"/>
+		<Location name="intro_city"/>
+		<Location name="intro_city_m"/>
+		<Location name="intro_city_tg"/>
+		<Location name="intro_uni"/>
+		<Location name="intro_uni_m"/>
+		<Location name="intro_uni_tg"/>
+		<Location name="intro_initialization"/>
+		<Location name="intro_customization"/>
+		<Location name="intro_sg_select_custom"/>
+	</Folder>
 	<Folder name="NPCManage">
 		<Location name="npccleanc"/>
 		<Location name="npcgeneratec"/>

locations/KatjaHomeTalk.qsrc

@@ -6,6 +6,13 @@
 !! katjaQW['QWstage'] = 2 You have been to Katja''s house and you can go there to hang out with her. (meynoldQW = 2) 
 !! katjaQW['QWstage'] = 3 You have kissed Katja and she might be interested in more. (katjaFirstKiss = 1 and KatjaOTN)
 !! npc_sex['A14'] = 1 You have had at least one sexual experince with Katja.
+!! katjaQW['QWstage'] = 4 Katja have asked you to helpe have sex with a boy.
+!! katjaQW['QWstage'] = 5 You have agreed to help Katja have sex with a boy.
+!! katjaQW['QWstage'] = 6 You have talked with Katja about her first experience with a boy.
+
+!! katjaQW['anal_quest'] =1 Katja has asked you to help her have anal sex with a boy.
+!! katjaQW['anal_quest'] =2 You have agreed to help Katja have anal sex with a boy.
+!! katjaQW['anal_quest'] =3 Katja has had anal sex with a boy and you discussed it afterwards.
 
 !! katjaQW['pantiesQWstage'] The stages of the side quest of getting Katja to go comando to school. 1 to 3 are just temprary counts,
 !!									4 means you have gotten Katja to take of her panties when you ask her, and 5 means that she wont wear panties to school anymore.
@@ -17,7 +24,7 @@
 !! katjaQW['horny'] a messure of Katja''s arousal. Grows until she have an orgasmn and will determine how willing she is at the moment to have sex.
 !! katjaQW['dom'] a number that tell if Katja is dominant or submissiv. 0 is neutal, a negative means she is submessive and a possitive that she is dominant. In general the absulut valu nee to be above 30 before you will see any effect. (katjaDom but not a 1 to 1 translation since that variable was all over the place.)
 
-!!	katjaQW['park_sex'] 	a messure of what experience Katja have had with random guys in the park. 0 means she have not have had sex whit anybody in the park, 
+!! katjaQW['park_sex'] 	a messure of what experience Katja have had with random guys in the park. 0 means she have not have had sex whit anybody in the park, 
 !!								1 means that she have had sex with one guy at a time (either alone, in a threesome with the player character or in while the the player have sex with another guy next to them)
 !!								2 means she have had a threesome whit 2 guys you met in the park, and 3 means she has paticipated in an orgy with guys from the park. (katjaSex)
 
@@ -33,11 +40,18 @@
 
 !! katjaQW['ivan_pussy'] = 1 Katja have take Ivan''s cock in her pussy.
 !! katjaQW['ivan_anal'] = 1 Katja have take Ivan''s cock in her ass.
+!! katjaQW['marcus_pussy'] = 1 Katja have take Marcus''s cock in her pussy.
+!! katjaQW['marcus_anal'] = 1 Katja have take Marcus''s cock in her ass.
+
+!! katjaQW['Marcus_day'] is set to daystart if you ar Katja ask to have a threesome with Marcus. Such that the cuestion will only be asked once per day.
+
+!! katjaQW['birth_control_start_day'] This is said to the daystart value from the day Katja''s birth control will be efective effect, if the player tells her to use it. Should be used to Check if katja can become pregnant by a if katjaQW['birth_control_start_day'] ! 0 and katjaQW['birth_control_start_day'] < daystart to make sure is protected.
 
 !! KatjaQW['orgasm_day'] Is set to be equal to daystart when Katja gain an orgasm (It is not set all palces). (KatjaOrgasm)
+!! katjaQW['take_of_panties_day'] is set to ddaystart if you get >katja to take of her panties during school break.
 !! katjaQW['afterschool_hangout_day'] Is set to be equal daystart when you choose to hang out with Katja after school. (katjaMeynoldday)
-!! katjaQW['no_panties_day'] Is set to daystart if you show Katja that you are not wearing panties. (tangaday)
-
+!! katjaQW['no_panties_day'] Is set to daystart if you show Katja that you are not wearing panties.
+!! katjaQW['no_panties_day_disco'] Is set to daystart if you show Katja that you are not wearing panties at the pav disco. (tangaday)
 
 !! katjaQW['knows_masterbation'] = 1 You have told Katja how you masturbate (KatjaKnowMastr =1)
 !! katjaQW['knows_self_fisting'] = 1 You have told Katja how you stuck you fist into your anus (SelfFistingKnow =1)
@@ -61,7 +75,7 @@ if $ARGS[0] = 'cikl':
 		if katjaQW['horny'] < 0:katjaQW['horny'] = 0
 		if katjaQW['horny'] >= 100:
 			if rand(0,2) = 0 and week < 6:
-				katjaQW['horny'] =	max(katjaQW['slut']/2,50)
+				katjaQW['horny'] = max(katjaQW['slut']/2,50)
 				if katjaQW['masturbates'] = 0: katjaQW['masturbates'] = 1
 			else
 				katjaQW['horny'] = 100
@@ -89,6 +103,22 @@ if $ARGS[0] = '':
 	'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 
+	if katjaQW['QWstage'] > 2:
+		if katjaQW['horny'] < 20:
+			'Katja looks at you, smiling.'
+		elseif katjaQW['horny'] < 40:
+			'Katja looks at you, a naughty twinkle in her eyes.'
+		elseif katjaQW['horny'] < 60:
+			'Katja looks at you, a faint blush on her cheeks and she looks at you mischievously.'
+		elseif katjaQW['horny'] < 80:
+			'Katja is blushing fairly obviously and looks at you longingly.'
+		else
+			'Katja is as red as a lobster and her chest is heaving from her heavy breaths. She''s idly rubbing her thighs against one another.'
+		end
+	else
+		'Katja looks at you, smiling.'
+	end
+
 	if pcs_sweat >= 20:
 		'Katja wrinkles her nose. "<<$pcs_nickname>>, you''re all sweaty. Do you want to use my shower?"'
 
@@ -298,7 +328,15 @@ if $ARGS[0] = '':
 				end
 			end
 
-			if npc_sex['A14'] > 0 and katjaQW['slut'] > 100 and katjaQW['horny'] > 60:
+			if katjaQW['QWstage'] = 4 and katjaQW['marcus_pussy'] = 0: act 'Tell Katja that you have decided that you will help her to find a boy to try to have sex with.': gt 'KatjaHomeTalk', 'boy_discussion'
+
+			if katjaQW['anal_quest'] = 1: act 'Tell Katja that you have decided that you will help her to find a boy to try to have anal sex with.': gt 'KatjaHomeTalk', 'anal_discussion'
+
+			if katjaQW['slut'] >= 50 and katjaQW['horny'] >= 80:
+				act 'Lick Katja': gt 'KatjaEvDin', 'kuni_dom'
+			end
+
+			if katjaQW['QWstage'] >= 7 and katjaQW['birth_control_start_day'] < daystart and katjaQW['horny'] > 60:
 				act 'Look for boys in the park':
 					minut += 15
 					katjaQW['horny'] += 5
@@ -316,6 +354,36 @@ if $ARGS[0] = '':
 				end
 			end
 			
+			if katjaQW['QWstage'] = 5 and katjaQW['marcus_asked'] = 2 and week < 6 and hour < 16 and (katjaQW['horny']+katjaQW['slut']) > 100:
+				act 'Suggest that you call Marcus':
+					*clr & cla
+					katjaQW['Marcus_day'] = daystart
+					mintu += 5
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+					'As you can see, Katja is looking aroused, so you suggest that you call Marcus so that Katja can finally try how it is to have sex with a boy.'
+					'"Okay. Let''s call him. We should have time before Vicky comes home" she says looking both aroused and nervous at the same time.'
+					act 'Call Marcus': gt 'katja_sex', 'marcus_wait'
+				end
+			end
+
+			if katjaQW['QWstage'] >= 6 and week < 6 and hour < 16 and katjaQW['horny'] > 80 and katjaQW['Marcus_day'] ! daystart:
+				act 'Suggest that you call Marcus':
+					*clr & cla
+					katjaQW['Marcus_day'] = daystart
+					mintu += 5
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+					'You can see Katja is looking very aroused, so you suggest that you call Marcus to hear if he wants to have some fun with the two of you.'
+					'"Okay. Let''s call him. We should have time before Vicky comes home" she says looking very excited.'
+					act 'Call Marcus': gt 'katja_sex', 'marcus_wait'
+				end
+			end
+
+			if katjaQW['birth_control_start_day'] = 0 and katjaQW['QWstage'] >= 6:
+				act 'Tell Katja that you think she should use birth control': gt 'KatjaHomeTalk', 'preventation_talk'
+			end
+
 			act '"Let''s hang out"': 
 				cla
 				gs 'stat'
@@ -363,19 +431,28 @@ if $ARGS[0] = '':
 					gt 'katjaEv','kathan'
 				end 
 			end
-			
-			if katjaQW['horny'] > rand(40,100):
-				if katjaQW['QWstage'] > 2:
+
+			if katjaQW['QWstage'] = 6 and katjaQW['anal_ques'] >= 3 and katjaQW['slut'] > 100 and katjaQW['horny'] > 60: gt 'KatjaHomeSex', 'random_park_sex_talk'
+
+			if katjaQW['QWstage'] = 5 and katjaQW['marcus_pussy'] > 0: gt 'KatjaHomeTalk', 'first_boy_sex_follow_up'
+
+			if katjaQW['QWstage'] = 5 and katjaQW['marcus_asked'] = 1: gt 'KatjaHomeTalk', 'Marcus_answer_talk'
+
+			if katjaQW['slut'] >= 50 and katjaQW['horny'] >= 40 and (katjaQW['knows_BJ'] + katjaQW['knows_sex']) >= 2 and npc_sex['A14'] > 0 and katjaQW['QWstage'] < 4: gt 'KatjaHomeTalk', 'sex_with_boy_ask'
+
+			if katjaQW['slut'] >= 60 and katjaQW['horny'] >= 40 and (katjaQW['knows_BJ'] + katjaQW['knows_anal']) >= 2 and npc_sex['A14'] > 0 and katjaQW['anal_quest'] = 0: gt 'KatjaHomeTalk', 'anal_sex_with_boy_ask'
+
+			if katjaQW['horny'] > rand(40,120):
+				if katjaQW['QWstage'] >= 6 and week < 6 and hour < 16 and rand(0,6) =0 and katjaQW['Marcus_day'] ! daystart:
+					katjaQW['Marcus_day'] = daystart
+					gt 'katjaHomeTalk', 'marcus_kiss' 
+				elseif katjaQW['QWstage'] > 2:
 					gt 'KatjaHomeTalk', 'hornykiss'
 				else
 					gt 'KatjaHomeTalk', 'tender_kiss'
 				end
 			end
 
-			if katjaQW['slut'] >= 50 and katjaQW['horny'] >= 80:
-				act 'Lick Katja': gt 'KatjaEvDin', 'kuni_dom'
-			end
-
 		elseif hour >= 20 and week >= 5 and week < 7:
 			'"Let''s go to the disco," Katja says.'
 
@@ -1048,5 +1125,253 @@ if $ARGS[0] = 'tender_kiss':
 	end
 end
 
+if $ARGS[0] = 'marcus_kiss':
+	*clr & cla
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_kiss.jpg"></center>'
+	'Katja almost jumps you and gives you a kiss. Afterwards, she ask a little hesitant: "You know, having Marcus over is quite fun, so why don'' we call him right now?"'
+	act 'Agree and call Marcus':  gt 'katja_sex', 'marcus_wait'
+	act 'Tell Katja that you are not in the mood for a threesome right now': katjaQW['horny'] -= 20 & gt 'KatjaHomeTalk'
+end
+
+if $ARGS[0] = 'boy_discussion':
+	*clr & cla
+	katjaQW['QWstage'] = 5
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	if  Marcus_sextype > 0:
+		katjaQW['horny'] += 20
+		'"I sometimes have sex with Marcus, and I can tell you he is really into Russian girls. I''m sure that he would love to have the first time of a Russian beauty like you.", you tell Katja.'
+		'"Marcus is very good looking.... If you think he would be willing to have sex with a girl like me..." Katja trails of, starting to sound nervous again.'
+		'"I''m sure that he would love to have sex with you. As any man who isn''t gay would.", you answer. Katja''s face brightens up and she moves her mouth towards you for a kiss.'
+		act 'Kiss her back': gt 'katjaEv', 'kiss'
+	else
+		katjaQW['horny'] += 10
+		'"Do you have any boy in mind?" you ask Katja. "I don''t know. Lazar is hot but I have the feeling that he would just consider us a check on his list, and not be able to keep his mouth shut." Katja answers.'
+		'After thinking a little she says, "Maybe Marcus. He is very good looking, and I haven''t heard of him spreading rumors. Most of the others don''t listen to what he says anyway because he is black and from America. Our classmates are so stupid sometimes." she continues'
+		'"I also think Marcus is hot, but how could we approach him?" you ask. "Try to dance with him at the disco, and get close to him, he really seems to like the girls there, and since you are the hottest there, I''m sure he will like it. Especially if you lead him on like you know how to do." Katja says in her most flattering voice'
+		'"Okay I will try to dance with him at the disco." you agree.'
+		act 'Talk about something else': gt 'KatjaHomeTalk'
+		if mey_vika['key'] = 1:
+			act 'Leave the room': gt 'mey_home', 'start'
+		else
+			act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+		end
+	end
+end
+
+if $ARGS[0] = 'anal_discussion':
+	*clr & cla
+	katjaQW['anal_quest'] = 2
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	if  IvanShowerQW = 11:
+		katjaQW['horny'] += 20
+		'"Ivan seem to be very interested in our kissing. I sometime have anal sex with him. You can say we are what you call friends with benefits. I think he might be interested." you tell Katja.'
+		'"Ivan is hot... I have also heard that he is really into anal sex... Yeah if you think he is willing, then..." Katja is having trouble finding the words, as she gets visibly more excited, thinking about it. '
+		'"I will talk to Ivan about it in school, and arrange a meeting if he is up for it." you answer. Katja throws her arms around you and goes in for a kiss.'
+		act 'Kiss her back': gt 'katjaEv', 'kiss'
+	else
+		katjaQW['horny'] += 10
+		'"Do you have any boy in mind?" you ask Katja. "Well, Ivan seems to be quit interested in our kissing at school... The other girls whisper that he is really into anal sex... He is also very hot..." Katja answers.'
+		'"Yeah Ivan is hot. I need to find a way to approach him about it." you say. "He trains in the gym at the community center in the late afternoon. You might have luck talking with him there. I have also heard a rumor that he sometimes uses the women''s shower there.", Katja tells you.'
+		'"Okay I will try to talk with him about it." you answer.'
+		act 'Talk about something else': gt 'KatjaHomeTalk'
+		if mey_vika['key'] = 1:
+			act 'Leave the room': gt 'mey_home', 'start'
+		else
+			act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+		end
+	end
+end
+
+
+if $ARGS[0] = 'preventation_talk':
+	*clr & cla
+	mintu += 5
+	gs 'stat'
+	katjaQW['birth_control_start_day'] = daystart + 15
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'	
+	'"If you want to '+iif( katjaQW['QWstage'] = 7, 'have sex with boys in the park', 'continue having sex with boys around here')+', you should get on birth control" you tell Katja. "Most of the boys around here don''t want to use condoms, and don''t care if they get the girls pregnant."'
+	'"And if they get a girl pregnant, they will just pretend it wasn''t them. You don''t want to raise a child on your own right now, do you?" you ask. "No" she answer weakly "No, I don''t. I want to have children, but not right now. Not before I go to university."' 
+	'"Then you should get on the pill" you continue "I am sure that if you ask you mother she will help you. I can''t imagine that Vicky is not on the pill. But if you don''t want to ask her, you can buy it at the local pharmacy, my aunt Luda works there and she won''t tell anybody about it. She knows how to be discreet."'
+	act 'Talk about something else': gt 'KatjaHomeTalk'
+	if mey_vika['key'] = 1:
+		act 'Leave the room': gt 'mey_home', 'start'
+	else
+		act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+	end	
+end
+
+if $ARGS[0] = 'random_park_sex_talk':
+	*clr & cla
+	katjaQW['QWstage'] = 7
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'Katja gives you the most sultry look she can muster and says "You know, Sex with Ivan and Marcus is great. But I was thinking that it might be time to try other boys." '
+	'"Do you have anybody in mind?"  you ask. "Not any of the boys in the class. I don''t think anybody except Ivan could keep their mouth shut about having a threesome with the two hottest chicks in school." she answers' 
+	'"I don''t really know anybody else. But you have been much more around then me. So perhaps you know somebody?"  she ask.'
+	act 'Tell her about the boys in the park':
+		cla
+		katjaQW['horny'] += 5
+		'You tell her that strangers have come to the park and look for girls to have fun with, without any commitment, and suggest that you could try to pick up some boys there.'
+		'"Awesome!" she says and looks at you really excited, "Why don''t we go right now?"'
+		if katjaQW['birth_control_start_day'] < daystart:
+			act 'Agree to go to the park to look for boys':
+				minut += 15
+				katjaQW['horny'] += 5
+				$ev_name = 'Katja'
+				$ev_name_a = 'Katja'
+				$ev_name_om = 'Katja'
+				dick = 0
+				place = 1
+				Frend_num = 14
+				p_slut = katjaQW['slut']
+				p_dom = KatjaQW['dom'] + 50
+				p_horny = katjaQW['horny']
+				p_alko = 0
+				gt 'placer'
+			end				
+			act 'Tell you don''t want to go right now.': gt 'KatjaHomeTalk'
+		else
+			'Remembering that the boys in the park wont use protection you say no to Katja'
+			act 'Tell Katja that you think she should use birth control': gt 'KatjaHomeTalk', 'preventation_talk'
+			act 'Talk about something else': gt 'KatjaHomeTalk'
+			if mey_vika['key'] = 1:
+				act 'Leave the room': gt 'mey_home', 'start'
+			else
+				act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+			end	
+		end
+	end
+end
+
+if $ARGS[0] = 'sex_with_boy_ask':
+	*clr & cla
+	katjaQW['QWstage'] = 4
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'Katja looks at you nervously but with that gleam in her eyes, that tells you she is thinking about something naughty. "You''ve told me all about how good it is to have sex with a boy." she meekly says "I... I think... I think I would like to try it, too."'
+	if katjaQW['anal_quest'] > 1:
+		'"So you want me to set it up again?" you ask, and Katja just nod sheepishly. "Okay. Now Ivan doesn''t fuck girls in their pussy, since he is afraid of getting them pregnant, so I assume that you want me to find somebody else."'
+		'"Yes <<$pcs_nickname>>. You know so many guys, I''m sure you can arrange my first time to be perfect" she says in her most persuasive voice.'
+	else
+		'"Okay, so why don''t you?" you ask. "I don''t know how to approach a boy" she answers "I don''t want a boyfriend, I just want to try having sex with a boy."'
+		'"Can''t you help me arrange it? Please..." she says, looking at you pleadingly with her big eyes.'
+	end
+	act 'Agree to help': gt 'KatjaHomeTalk', 'boy_discussion'
+	act 'Say no':
+		cla
+		'You tell Katja that you don''t want to help her. She continues to beg you for help.'
+		act 'Tell her that if she thinks she is ready to have sex with a boy, she is also old enough to ask herself.':
+			cla
+			katjaQW['horny'] -= 20
+			minut += 5
+			'She stops begging and you return to talk about other subjects.'
+			act 'Continue talking': gt 'KatjaHomeTalk'
+		end
+		act 'Tell her that she is way to precious for you to share her with some dirty boy.':
+			cla
+			katjaQW['horny'] += 20
+			minut += 5
+			'She stops begging and looks at you with lust in her eyes.'
+			act 'Talk about something else': gt 'KatjaHomeTalk'
+			act 'Kiss her': gt 'katjaEv', 'kiss'
+		end
+		act 'Tell her that boys really aren''t worth it and that it is much better to stick to girls.':
+			cla
+			katjaQW['horny'] -= 5
+			minut += 5
+			'She stops begging but doesn''t look completely convinced.'
+			act 'Talk about something else': gt 'KatjaHomeTalk'
+		end					
+	end
+end
+
+if $ARGS[0] = 'Marcus_answer_talk':
+	*clr & cla
+	katjaQW['marcus_asked'] = 2
+	mintu += 5
+	katjaQW['Marcus_day'] = daystart
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'You tell Katja that you have talked with Marcus and that he has agreed. She looks at you exitedly. "So when do we do it?" she asks.'
+	'"He agreed to come over when I call him, so we can call him right now, or wait for another time" you answer.'
+	if week < 6 and hour < 16 and (katjaQW['horny']+katjaQW['slut']) > 100:
+		'"Okay. Let''s us call him right now" she says her face looking completely red.'
+		act 'Call Marcus': gt 'katja_sex', 'marcus_wait'
+	elseif (katjaQW['horny'] + katjaQW['slut']) <= 100:
+		'"I don''t know. Maybe another time. I need to think about it some more." she says looking a little nervous. "Okay, another time then" you say.'
+		act 'Talk about something else': gt 'KatjaHomeTalk'
+	else
+		'"We can''t call him now! Vicky will be home soon and I don''t want her to see him here" she says looking a little panicked. "Okay, another day then, so we have time before she shows up" you say.'
+		act 'Talk about something else': gt 'KatjaHomeTalk'
+	end
+end
+
+if $ARGS[0] = 'first_boy_sex_follow_up':
+	*clr & cla
+	katjaQW['QWstage'] = 6
+	mintu += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'Katja gives you a big hug. "Thank you. The experience with Marcus was great." She says with a big smile.'
+	if npc_vag['A14'] + 5 < npc_dick['A146']:
+		'"It didn''t hurt too much?" you ask "It hurt, that was why I could not take it any longer. But it was fun and I think it will hurt less the next time.", she answers. "So you want to have sex with a boy again?", you ask.'
+	else
+		'"It did look like you had fun", you say. "I definitely had fun, I thought it would hurt, but I did not feel any pain.", she answers. "Might be all the times I used my dildo on you", you say.'
+	end
+	'"We should definitely do this again some time", she finishes. "We will see if the opportunity comes up again", you answer'
+	act 'Talk about something else': gt 'KatjaHomeTalk'
+	act 'Tell her that she should use birth control': gt 'KatjaHomeTalk', 'preventation_talk'
+end	
+
+if $ARGS[0] = 'anal_sex_with_boy_ask':
+	*clr & cla
+	mintu += 5
+	gs 'stat'
+	katjaQW['anal_quest'] = 1
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'Katja starts speaking a little hesitant: "You keep telling me that anal sex with a boy is so good'+iif(katjaQW['strapon_ass'] = 1, ', and you fucking me in the ass with your strapon is nice. But it would probably be so much better with a real cock.', ', and I think I also would like to try it.')+'" looking at you with her most begging eyes.'
+	if katjaQW['QWstage'] >= 6:
+		'"So you want me to set it up again?" you ask, and Katja just nods sheepishly. "Okay. Since you asked, I expect that you want to try it with somebody else that Marcus." "Yes, <<$pcs_nickname>>. You know so many guys, I''m sure you can arrange my first anal sex to be perfect" she says in her most pursuasive voice.'
+	else
+		'"Okay, so why don''t you?" you ask. "I don''t know how to approach a boy", she answers "I don''t want a boyfriend, I just want to try having anal sex with a boy."'
+		'"Can''t you help me arrange it? Please..." she says, looking at you pleadingly with her big eyes.'
+	end
+	act 'Agree to help': gt 'KatjaHomeTalk', 'anal_discussion'
+	act 'Say no':
+		cla
+		'You tell Katja that you don''t want to help her. She continues to beg you for help.'
+		act 'Tell her that if she thinks she is ready to have sex with a boy, she is also old enough to ask herself.':
+			cla
+			katjaQW['horny'] -= 20
+			minut += 5
+			'She stops begging and you return to talk about other subjects.'
+			act 'Continue talking': gt 'KatjaHomeTalk'
+		end
+		act 'Tell her that she is way to precious for you to share with some dirty boy.':
+			cla
+			katjaQW['horny'] += 20
+			minut += 5
+			'She stops begging and looks at you with lust in her eyes.'
+			act 'Talk about something else': gt 'KatjaHomeTalk'
+			act 'Kiss her': gt 'katjaEv', 'kiss'
+		end
+		act 'Tell her that boys really aren''t worth it and that it is much better to stick to girls.':
+			cla
+			katjaQW['horny'] -= 5
+			minut += 5
+			'She stops begging but doesn''t look completely convinced.'
+			act 'Talk about something else': gt 'KatjaHomeTalk'
+		end
+	end					
+end
+
 --- KatjaHomeTalk ---------------------------------
 

locations/albina_chat.qsrc

@@ -229,7 +229,6 @@ if $ARGS[0] = 'chat':
 			act 'Change the subject': gt 'albina_chat', 'chat'
 			act 'Ask her about her sex life instead': gt 'albina_chat', 'Anal'
 		else
-			pcs_horny += 10
 			'She isn''t willing to talk about losing her own virginity and you can guess why, but she listens as you tell her about your first time.'
 			'"So what''s your favourite position?" she asks.'
 			act 'Missionary': gt 'albina_chat', 'Missionary'
@@ -248,28 +247,30 @@ if $ARGS[0] = 'Missionary':
 	'"BO-RING!"'
 	act'It''s nice!':
 		cla & *nl
-		'"What??" you protest. "It''s... nice."'
-		'"You''re trying to tell me that lying on your back doing nothing is ''nice''?" she rolls her eyes. "Nuh uh. Bend me over and spank my ass! Pound me on all fours and grab my hair! Doggystyle is the way to go!"'
+		'"What''s wrong with missionary?" you protest. "It''s... nice."'
+		'"You''re trying to tell me that lying on your back doing nothing is ''nice''?" She rolls her eyes. "Nuh uh. Bend me over and spank me! Grab me by the hair and pound my ass! Doggystyle is the way to go!"'
 		gs'albina_chat','Missionary2'
 	end
 	
 	act'It''s romantic':
 		cla & *nl
 		'"It''s romantic!" you protest. "You can look up into his eyes when you cum. Or kiss. It makes it so much better."'
-		'"Romance is for married folks and decrepit old fucks," she rolls her eyes. "Which are basically the same thing. Nuh uh. Give it to me <i>dirty</i>. Bend me over and spank my ass! Pound me on all fours and grab my hair! Doggystyle is the way to go!"'
+		'"Romance is for decrepit old fucks," she rolls her eyes. "Nuh uh. Give it to me <i>dirty</i>. Bend me over and spank me! Grab me by the hair and pound my ass! Doggystyle is the way to go!"'
 		gs'albina_chat','Missionary2'
 	end
 	
 	act'It''s easy':
 		cla & *nl
 		'"It''s easy," you shrug. "I don''t have to do any work. Just lay there and get dicked."'
-		'"Holy <i>fuck!</i> You sound like a dull lay," she rolls her eyes. "I can''t believe you''re the kind of girl who starfishes. Not only that, but you actually <i>like</i> it! Nuh uh. Not me. Give it to me <i>dirty</i>. Bend me over and spank my ass! Pound me on all fours and grab my hair! Doggystyle is the way to go!"'
+		'"Holy <i>fuck!</i> You sound like a dull lay," she rolls her eyes. "I can''t believe you''re the kind of girl who starfishes. Not only that, but you actually <i>like</i> it! Nuh uh. Not me. Give it to me <i>dirty</i>. Bend me over and spank me! Grab me by the hair and pound my ass! Doggystyle is the way to go!"'
 		gs'albina_chat','Missionary2'
 	end
 end
 
 if $ARGS[0] = 'Missionary2':
-	'You both agree to disagree, but find yourself a little turned on by her comment. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
+	pcs_horny += 15
+	gs'stat'
+	'You both agree to disagree, but find yourself a little turned on by her response. Judging by the way she''s rubbing her thighs together, you think she is too.'
 	act 'Change the subject': gt 'albina_chat', 'chat'
 	act 'Ask her about her anal fetish': gt 'albina_chat', 'Anal'
 end
@@ -279,45 +280,34 @@ if $ARGS[0] = 'Doggystyle':
 	gs 'stat'
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
-	'"I like doggystyle. Just thinking about it getting fucked from behind turns me on."'
-	'"That''s my girl!" Albina grins back at you. "What''s your favorite thing about it?"'
+	'"I like doggystyle."'
+	'"That''s my girl!" Albina cheers excitedly. "What''s your favorite thing about it?"'
 	act'It''s more intense':
 		cla & *nl
-		'"It''s more intense," you gush. "Soemthing about it just feels primal and <i>aggressive</i>, you know what I mean?"'
-		'"Oh yeah! Getting bent over and pounded from behind is the <i>best!</i> Especially when they spank me! The harder, the better!" You giggle at her and find yourself a little turned on. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
+		'"There''s something <i>intense</i> about it," you say. "Something primal. I can''t explain it, but when I get fucked from behind, it drives me wild."'
+		'"I definitely get that," Albina says. "I love that about it too. All I want from a guy is for him to grab me by the hair, shove his cock up my ass, and spank me til I come. Best night ever."'
 		gs'albina_chat','Doggystyle2'
 	end
 	
 	act'It goes deeper':
 		cla & *nl
-		'"I love how deep it goes," you smile. "It feels like his cock just reaches further inside me in doggy style. I don''t get that kind of dicking in other positions."'
-		'"Ugh! <i>Yes!</i> I love that about it too! Balls deep, right up the ass! Split my cheeks in half! And spank me while you''re at it! The harder, the better!" You giggle at her and find yourself a little turned on. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
+		'"It goes deeper in doggy," you explain. "I feel like it <i>fills</i> me, hitting every part of my insides. It just feels the best in that position."'
+		'"Fuck yeah," Albina says. "Doggy is the only way to <i>really</i> get balls deep inside a girl. And then when you get grabbed by the hair and pulled back even harder? And when he shoves it up your ass and spanks you? Fuck me, I could come just thinking about it."'
 		gs'albina_chat','Doggystyle2'
 	end
 	
 	act'Easy spankings':
 		cla & *nl
-		'"Easy spankings," you grin. "I can''t get slapped on the ass in any other position."'
-		'"<i>Yes</i> girl!" she cheers. "Preach it! If my ass isn''t red and tender by the end, then you didn''t really fuck me." You giggle at her and find yourself a little turned on. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
+		'"I love getting spanked," you grin.'
+		'"Fuck yeah!" Albina shouts, high fiving you so hard it hurts. "There''s nothing I love more than a cock balls deep up my ass and being spanked until it''s red and tender. If I can still sit down without wincing after, then you didn''t really fuck me."'
 		gs'albina_chat','Doggystyle2'
 	end
-!!{	
-	act'I like having my hair pulled':
-		cla & *nl
-		'"Easy spankings," you grin. "I can''t get slapped on the ass in any other position."'
-		'"<i>Yes</i> girl!" she cheers. "That''s the best part! " You giggle at her and find yourself a little turned on. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
-		gs'albina_chat','Doggystyle2'
-	end
-	
-	act'I like having my hair pulled (shy)':
-		cla & *nl
-		'"Easy spankings," you grin. "I can''t get slapped on the ass in any other position."'
-		'"<i>Yes</i> girl!" she cheers. "That''s the best part! " You giggle at her and find yourself a little turned on. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
-		gs'albina_chat','Doggystyle2'
-	end}
 end
 
 if $ARGS[0] = 'Doggystyle2':
+	pcs_horny += 15
+	gs'stat'
+	'You giggle at her answer, feeling warmth blossoming between your hips and wetness seeping from your pussy. With the "fuck me eyes" Albina is giving you think she''s probably feeling something similar.'
 	act 'Change the subject': gt 'albina_chat', 'chat'
 	act 'Ask her about her anal fetish': gt 'albina_chat', 'Anal'
 end
@@ -327,32 +317,34 @@ if $ARGS[0] = 'Cowgirl':
 	gs 'stat'
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
-	'"Cowgirl," you admit.'
-	'"Oh, so little <<$pcs_nickname>> here likes riding dick? Who knew?" she smiles teasingly.'
-	act'I like the angle':
+	'"I like cowgirl," you admit.'
+	'"Oh?" She raises an eyebrow curiously. "That''s what you''re into?"'
+	act'It feels better':
 		cla & *nl
-		'"I just like the angle," you shrug. "Dick hits all the right spots when I''m on top."'
-		'"Nuh uh," she wags her finger. "If you want a real dicking, you can only get it from behind. Cock will only reach the deepest part of you if you''re getting pulled balls deep by the hair onto it."'
+		'"It just feels better," you shrug. "I don''t know how to explain it. The angle? Just the way it fits inside when I''m on top? It feels good. What can I say?"'
+		'"I think it feels best in doggy," Albina says. "It goes way deeper and you can get surprise anal in that position which is the <i>best</i> kind of anal. Plus spankings. If I can''t sit down after a fuck, it was a good fuck."'
 		gs'albina_chat','Cowgirl2'
 	end
 	
-	act'I like my boobs being grabbed':
+	act'I like being in control':
 		cla & *nl
-		'"I like it when the guy grabs my boobs," you giggle. "It''s the best position for it because his hands are free. All I have to do is bounce on his cock and feel good."'
-		'"You''re a boob slut? I should have known," she rolls her eyes. "No way, it''s all about getting spanked. Cock stuffed up your ass, hair yanked back, and cheeks slapped red and raw. That''s what it''s all about!"'
+		'"I like being in control," you explain. "If I want to go slow, I can go slow. If I want to go fast, I can ride him as hard as I like. It makes me feel... powerful? Just knowing that I''m the one in charge is such a turn on for me."'
+		'"I don''t think that kind of stuff matters to me," Albina shrugs back. "I like it hard and rough every time. Don''t get all slow and gentle with me. If I''m gonna get fucked, I want to <i>feel</i> it. I''d rather get my face stuffed into the sheets with a cock balls deep up my ass and spanked until my eyes water. At the end of it, I want my makeup to look as fucked as I feel. Now <i>that''s</i> a good time!"'
 		gs'albina_chat','Cowgirl2'
 	end
-	
-	act'I like being in control':
+		
+	act'I like it when he grabs my boobs':
 		cla & *nl
-		'"I like being in control," you say with a dirty grin. "When I''m on top, I can do whatever I want. I can ride him hard, I can tease him slow, and he only cums when I want him to."'
-		'"That''s what you''re into?" Albina asks quizzically. "I prefer getting roughed up. Hair yanked back, cock stuffed into my holes, ass spanked raw. Hell, I think I could almmost get off on seeing my reflection when my makeup is all fucked up afterwards. Nothing is better than feeling like a limp dishrag after the end of a hard fuck."'
+		'"I like having my boobs grabbed," you grin. "If I''m on top, then his hands are free to grope me."'
+		'"But he can still grab your tits from behind," Albina argues. "Plus, he can spank you til you''re red and wriggling. Why choose when you can have both?"'
 		gs'albina_chat','Cowgirl2'
 	end
 end
 
 if $ARGS[0] = 'Cowgirl2':
-	'You both agree to disagree, but find yourself a little turned on by her comment. Judging by the way she''s chewing her lips and rubbing her thighs together, you think she is too.'
+	pcs_horny += 15
+	gs'stat'
+	'You both agree to disagree, but find yourself a little turned on by her response. Judging by the way she''s rubbing her thighs together, you think she is too.'
 	act 'Change the subject': gt 'albina_chat', 'chat'
 	act 'Ask her about her anal fetish': gt 'albina_chat', 'Anal'
 end
@@ -438,22 +430,260 @@ end
 
 if $ARGS[0] = 'wine_invite':
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
-	'"Albina gets very tipsy."'
+	'As the two of you head back inside the house, Albina turns towards you, grabbing your attention.'
+	if albina['wine'] = 0:
+		'"Hey, wanna break open a bottle of wine with me? Really warms you up after a quick dip."'
+	else
+		'"Hey, wanna drink some wine with me again?"'
+	end
+	act'No thanks':
+	
+	end
+	
+	act'Sure':
+		cla & *clr
+		!! IMAGE HERE
+		if albina['wine'] = 0:
+			'"Sure, that sounds nice. Should I just get dressed and meet you back-"'
+			'"Nah, fuck that," Albina cuts you off and drags you to the living room. "It tastes better the sooner you drink it after coming out."'
+			'She puts you down on the couch and saunters over to the wine cabinet, plucking out a bottle and two glasses. You wait awkwardly while she opens the bottle, feeling weird about sitting naked in the middle of her house. Soon, she hands you a glass and plops down next to you.'
+			'"Cheers!" she grins, clinking her glass against yours and takes a sip from her glass. You do the same, feeling the warmth spread through your chest almost immediately.'
+			*nl
+			'<i>Wow, that <b>is</b> really nice after getting out of the water,</i> you think, taking another sip.'
+		else
+			'"Sure," you smile.'
+			'"Great, I''ll go get the bottle."'
+			'You head over to her living room with her, sitting down on the couch while she procures the alcohol. A short time later, she places a glass in your hand and clinks hers against it.'
+			'"Cheers!" she grins, and you both start enjoying your wine together.'
+		end
+		act'Drink':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
+			if albina['wine'] = 0:
+				'A short while later, you find yourself feeling very warm, fuzzy, and <i>very</i> dizzy, halfway through your second glass. Albina is already sipping from her third glass, head laid on your lap after emptying the bottle. The flush in her cheeks and the slur of her voice tells you she''s totally drunk. You''re not sure your own lips are working right either. Or is it your tongue? What makes you talk funny when you''re drunk? Is it your lips, your tongue, or your brain?'
+				*nl
+				'"<<$pcs_nickname>>!" Albina whines. "I''m fuckin'' talkin'' to you!"'
+				'You blink, confused.'
+				act'"What did you say?"':gt'albina_chat','wine_chat1'
+			else
+				'You''re not sure if you expected something else, but a short while later you find yourself drunk on the couch with Albina again.'
+				act'Drunkenly converse with Albina':gt'albina_chat','wine_chat1'
+			end
+		end
+	end
 end
 
-if $ARGS[0] = 'wine_chat':
+if $ARGS[0] = 'wine_chat1':
+	albina['wine_convo'] = rand(1,7)
+	cla & *clr
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
-	
 	if albina['wine_convo'] = 1:
+		'"I loave the taste of my own pusshy," she says loudly. "Iz that weird?"'
+		act'Super weird':
+			cla & *nl
+			'"Thad''s suhper fucking weird," you slur back.'
+			'"Bullshit!" she complains even louder. "You cahn''t tell me you dohn''t like the taste of ''ur own brand now and again."'
+			gs'albina_chat','wine_chat2'
+		end
 		
-	elseif albina['wine_convo'] = 1:
+		act'I like mine too':
+			cla & *nl
+			if pcs_vag > 0 and stat['bj'] > 0:
+				'"I l''ke the taste of my pussy too," you slur back. "It tastdes even better when it''s on a dick."'
+				'"You''r a fuhcking slut <<$pcs_nickname>>," Albina blurts out, sending both of you into giggles.'
+			elseif stat['mast'] > 0:
+				'"I l''ke the taste of my pussy too," you slur back. "Sometimes I stdick my fingers in my mouf after I masdurbate, lick it all off."'
+				'"Oh fuck, I do that to! Suck my dildo fucking clean right after I come. It mahkes me wahnt to rub another one out after!" Albina giggles, rubbing her thighs together.'
+			else
+				'"I l''ke the taste of my pussy too," you slur back.'
+				'"I fuhcking knew it!" Albina exclaims. "Every girl loves her own juice!"'
+				'"If you knew, then why are you asking if it''s weird?" you ask, puzzled.'
+				'"I jus'' wanted to see if <i>you</i> were the weird one!" Albina mumbles, voice echoing off the inside of the glass as she takes another sip.'
+			end
+			gs'albina_chat','wine_chat2'
+		end
+		if npc_sex['A23'] = 1:
+			act'I like your taste too':
+				cla & *nl
+				'"I like the taste of your pussy too," you slur back, giving her a filthy grin.'
+				'"Nnnngh~!" Albina rolls her hips, squeezing her thighs together hard. "Fuhck! You make me want to shove your head between my legs right now!"'
+				gs'albina_chat','wine_chat2'
+			end
+		end
+	elseif albina['wine_convo'] = 2:
+		'Shaving convo'
+	elseif albina['wine_convo'] = 3:
+		'"Honest question Sveta. How would dominate me in bed?"'
+	elseif albina['wine_convo'] = 4:
+		'"How often do you masturbate Sveta? Do you have any dildos? Ever double penetrated yourself with them? Ever wanted to try it?"'
+	elseif albina['wine_convo'] = 5:
+		'"What''s the sluttiest thing you''ve ever done?"'
+	elseif albina['wine_convo'] = 6:
+		'boob size'
+	elseif albina['wine_convo'] = 7:
+		if albina['commando_know'] = 0:gt'albina_chat','wine_chat1'
+		'"So, you really don''t wear panties?" Albina slurs, turning her head toward your pussy. "Like, ev''r?"'
+		if trait['commando_lvl'] = 3:
+			act'Only when I have to':
+				cla & *nl
+				'"Only when I have to," you say, wrinkling your nose in annoyance. "Sometimes you just can''t get away with it."'
+				'"Like when?" she asks curiously.'
+				act'School':
+					cla & *nl
+					'"At school," you sigh tiredly. "If I don''t, all the teachers will look up my skirt during class."'
+					'"All of them??" Albina looks confused. "I get the males, men are pigs. The women too? Whad ''bout Ms. Braakman??"'
+					'"Especially her!" you say, sending you both into fits of laughter.'
+					gs'albina_chat','wine_chat2'
+				end
+				act'Disco':
+					cla & *nl
+					'"At the disco," you sigh tiredly. "Everyone will think I''m a slut if they see me flash puss on the dance floor."'
+					'"That''s why I wear thongs," Albina smirks proudly. "All the ass, none of the slut shame."'
+					'"That''s why I wear <i>pants</i>," you retort. "No one can tell you''re going commando when you''re wearing pants."'
+					'"But don''t all commandos wear pants?"'
+					'Albina narrows her eyes and looks up at you, while you stare down at her.'
+					'"I... shuddup!"'
+					gs'albina_chat','wine_chat2'
+				end
+			end
+			
+			act'Nope, never':
+				cla & *nl
+				'"Nope!" you say, popping the P with your lips. "Neverrrrrr."'
+				'"Doesn''t your pussy get cold?"'
+				'"Nneh," you shrug. "You ged used to it."'
+				gs'albina_chat','wine_chat2'
+			end
+						
+			act'I hate them':
+				cla & *nl
+				'"Neverrr!" you say, wrinkling your nose. "I <i>hate</i> wearing them!"'
+				'"Doesn''t your pussy get itchy when you wear pants?" she asks back.'
+				'"My pussy is tough as nails!" you proclaim proudly. "My pussy doesn''t need no pussy soft panties to protect it!"'
+				'"What?" Albina looks confused. "That doesn''t make any sense at all..."'
+				gs'albina_chat','wine_chat2'
+			end
+		elseif trait['commando_lvl'] < 0:
+			act'Not never':
+				cla & *nl
+				'"Not <i>never</i>," you slur. "Sometimes I just... skip the part where I put them on..."'
+				'"Hah! Slut!" she shouts, taking another slurp of her wine.'
+				gs'albina_chat','wine_chat2'
+			end
+			
+			act'Rarely':
+				cla & *nl
+				
+				
+				gs'albina_chat','wine_chat2'
+			
+			end
+		else
+			albina['commando_know'] = 0
+			act'Nope, never':
+				cla & *nl
+				
+				
+				gs'albina_chat','wine_chat2'
+			end
+			
+			act'I hate them':
+				cla & *nl
+				
+				
+				gs'albina_chat','wine_chat2'
+			
+			end
+			
+		end
+	elseif albina['wine_convo'] = 8:
+		'"Do you think I would make a good stripper?" Albina asks.'
+		act'Probably':
+			cla & *nl
+			'"Probably," you mumble back. "You can dance and love shoving your ash in peopl''sh faces. Primo stripper qualities. Why do you ask?"'
+			'"Was thinking about how to pay for uni. Mama could probably do it for me, but what if I want some extra cash on the side?"'
+			gs'albina_chat','wine_chat2'
+		end
 		
-	elseif albina['wine_convo'] = 1:
+		act'Too bitchy':
+			cla & *nl
+			'"Nah." You wave your glass dismissively. "You''re too bitchy."'
+			'"Bitchy?!" she gasps, mouth agape in indignation.'
+			'"Yeah, too bitchy."'
+			'"What the fuck is that supposed to mean?"'
+			'"You''d rip someone''s balls off first time you get called a slut or a whore. You couldn''t put up with enough bullshit to be a stripper."'
+			'"... fuck, you''re right."'
+			'"See? Bitchy," you smile, smuggly sipping your wine.'
+			'"Oh fuck off," she grumbles back, taking a much bigger gulp.'
+			gs'albina_chat','wine_chat2'
+		end
+	end
+end
+
+if $ARGS[0] = 'wine_chat2':
+	act'Call her a butt slut':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
+		'"You''re such a butt slut Albina," you remark, taking another sip from your glass.'
+		'"Fuck yeah, I am. And I <i>love</i> being one," she grins back, almost spilling her wine all over her face when you both cackle with uncontrollable laughter.'
+		act'Continue':gt'albina_chat','wine_chat1'
+	end
+	
+	act'Spit or swallow?':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
+		'"So, spit or swallow?" you ask, looking down at Albina.'
+		'"Swallow, duh.'
+		act'Ew, gross':
+			cla & *nl
+			'"Ewww," you wrinkle your nose in disgust. "Thad''s fucking gross! I can''t believe you do that!"'
+			'"Waht else am I suppozed do?"'
+			'"Just spit it out!"'
+			'"But if he comes in your mouth, that means he wants you to swallow, right?" she says, looking genuinely confused that you''re suggesting there''s a choice.'
+			act'Continue':gt'albina_chat','wine_chat1'
+		end
 		
-	elseif albina['wine_convo'] = 1:
+		act'Me too':
+			cla & *nl
+			'"Me too," you mumble. "Spitting is quitting."'
+			'"Amen sizter," Albina says, throwing up her hand and high fiving you.'
+			act'Continue':gt'albina_chat','wine_chat1'
+		end
+		if trt_cumeater > 0:
+			act'I love the taste':
+				cla & *nl
+				'"Me too," you smile. "I love the way it feels, going down my throat. Taste is pretty good too."'
+				'"What the fuck?" Albina says, looking at you with digust. "You actually like the taste of cum?"'
+				'"Yeah, it''s why I swallow. You don''t like it?"'
+				'"No! It fuckin'' tastes like shit!"'
+				'"Then why do you do it?"'
+				'"Cuz you''re supposed to? If he comes in my mouth, I can''t spit it out," she says, looking genuinely confused that you''re suggesting there''s a choice.'
+				act'Continue':gt'albina_chat','wine_chat1'
+			end
+		end
+	end
+	
+	act'Your mom is is very pretty':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
+		'With Albina right on your lap, you find your thoughts drifting to her mother. Her hair, her facial structure, she really is her mother''s daughter. It''s easy to tell where she got her good looks from.'
+		'"Your mom is fucking hot," you suddenly blurt out, your mouth autocompleting your thought before it actually passes through your brain. You freeze in panic.'
+		'"Fucking hell, I <i>knowwwwwwww</i>," Albina whines beneath you. "I gots ass fer dayz, but she''s gots tits to match. Big fucking bootyful bounshy tits that give ''er cleavage in a t-shirt. <i>And</i> a great ass! Life is so un-fucking-fair..."'
+		act'Continue':gt'albina_chat','wine_chat1'
+	end
+	
+	act'':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
 		
-	elseif albina['wine_convo'] = 1:
+		act'Continue':gt'albina_chat','wine_chat1'
+	end
+	
+	act'':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
 		
+		act'Continue':gt'albina_chat','wine_chat1'
 	end
 end
 

locations/family_schedule.qsrc

@@ -71,6 +71,9 @@ if sister_indorf = 0:
 				if anyaloc['rand1'] ! daystart:
 					anyaloc = func('shortgs', 'rand_pick', '', 10, 15)
 					anyaloc['rand1'] = daystart
+					anyaloc['save2'] = anyaloc
+				else
+					anyaloc = anyaloc['save2']
 				end
 				if anyaloc = 15:
 					anyaloc['athome'] = 1
@@ -103,6 +106,9 @@ if sister_indorf = 0:
 				if anyaloc['rand2'] ! daystart:
 					anyaloc = func('shortgs', 'rand_pick', '', 13, 14, 15)
 					anyaloc['rand2'] = daystart
+					anyaloc['save2'] = anyaloc
+				else
+					anyaloc = anyaloc['save2']
 				end
 				if anyaloc = 15:
 					anyaloc['athome'] = 1

locations/gschool_coolkid_chats.qsrc

@@ -470,7 +470,7 @@ if $ARGS[0] = 'katja':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
-	if rand(1,3) = 1 and npc_sex['A14'] > 0 and $pantyworntype = 'none' and PCloSkirt > 1 and katjaQW['no_panties_day'] ! daystart:
+	if npc_sex['A14'] > 0 and $pantyworntype = 'none' and PCloSkirt > 1 and katjaQW['no_panties_day'] ! daystart:
 		act 'Show her you are not wearing panties.': gt 'Katja_tanga', 'school'
 	end
 	if katjaQW['QWstage'] > 2:

locations/journal_quests.qsrc

@@ -357,7 +357,7 @@ if $ARGS[0] = 'start':
 			elseif katjaQW['pantiesQWstage'] > 4:
 				'Success. Katja doesn''t wear panties to school anymore.'
 			end
-			if npc_sex['A14'] = 1:
+			if npc_sex['A14'] >= 1:
 				if strapon = 0:
 					'I should buy a strap-on so that I can use it on Katja.'
 				elseif katjaQW['slut'] < 40:
@@ -366,11 +366,41 @@ if $ARGS[0] = 'start':
 					'You should' +iif(katjaQW['strapon_bj'] = 0, '; make Katja give your strap-on a blowjob', '')+ +iif( katjaQW['strapon_vag'] = 0, '; fuck Katja''s pussy with your strap-on', '')+ +iif(katjaQW['strapon_ass'] = 0, '; fuck Katja in the ass with your strap-on', '')+'.'
 				end
 
-				if katjaQW['school_kiss'] > 1 and (katjaQW['ivan_pussy'] + katjaQW['ivan_anal']) = 0:
+				if katjaQW['knows_BJ'] = 0 or katjaQW['knows_sex'] = 0 or katjaQW['knows_anal'] = 0:
+					'Keep telling Katja about your sexual experiences and she might also want to try it together with you'
+				end
+
+				if ((katjaQW['knows_BJ'] + katjaQW['knows_sex']) >= 2 and katjaQW['QWstage'] < 4) or ((katjaQW['knows_BJ'] + katjaQW['knows_anal']) >= 2 and katjaQW['anal_quest'] = 0):
+					'Katja wants to ask you something at her home. But she need to be in the right mood before she will ask.'
+				end
+
+				if katjaQW['anal_quest'] = 2:
+					if  IvanShowerQW = 11:
+						'I should find a place where we can get Ivan to take Katja''s anal virginity. Maybe we can catch him at the beach.'
+					else
+						'I need to seduce and have anal sex with Ivan before I can have him take Katja''s anal virginity. See Ivan''s quest for how to do this.'
+					end
+				end
+
+				if katjaQW['QWstage'] = 5:
+					if katjaQW['marcus_asked'] = 0:
+						if Marcus_sextype > 0:
+							'I should ask Marcus at break at school about being Katja''s first'
+						else
+							'I need to suduce and have sex with Marcus before I can ask him to be Katja''s first. A place to do that is at the disco'
+						end
+					else
+						'Marcus have agreed with being Katja''s first, so I should talk with Katja at her room to set it up'
+					end
+				end
+				
+			if katjaQW['school_kiss'] > 1 and (katjaQW['ivan_pussy'] + katjaQW['ivan_anal']) = 0:
 					'Ivan seems interested in Katja and I. Maybe I can get them to have a threesome? Kissing Katja at school should get his attention, or maybe we will run into him at the beach.' +iif(katjaQW['slut'] < 60, ' Katja needs to lose some more inhibition before she will agree.', '')+ +iif(IvanShowerQW ! 11, ' I need to have sex with Ivan first (See his quest on how to do this).', '')
 				end
 
-				if katjaQW['slut'] < 100:
+				if katjaQW['birth_control_start_day'] = 0 and katjaQW['QWstage'] >= 5:
+					'I could ask Katja to be on birthcontrol. Then she wont get pregnant and I could maybe take her on some wilder sex adventures when she is ready'
+				elseif katjaQW['QWstage'] < 6 and katjaQW['anal_ques'] < 3 and katjaQW['slut'] <= 100:
 					'I should continue to corrupt Katja. There might be more things I can push her to do.'
 				elseif katjaQW['park_sex'] = 0:
 					'I should take Katja to the park to get her to to hook up with random guys.'

locations/katjaEv.qsrc

@@ -8,6 +8,7 @@ menu_off = 0
 if $ARGS[0] = '':
 	*clr & cla
 	CLOSE ALL
+	if katjaQW['afterschool_hangout_day'] ! daystart: gs 'npc_relationship', 'modify', 'A14', 'like'
 	katjaQW['afterschool_hangout_day'] = daystart
 	gs 'katjaEvDin'
 	'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
@@ -106,7 +107,7 @@ if $ARGS[0] = '1':
 	else
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_home.jpg"></center>'
 		if katjaQW['horny'] > 60 and rand (1,3) = 1: 
-			if katjaQW['pantiesQWstage'] >= 5 or katjaQW['no_panties_day'] = daystart:
+			if katjaQW['pantiesQWstage'] >= 5 or katjaQW['take_of_panties_day'] = daystart:
 				*clr & '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_go_home_no_tanga.jpg"></center>' & 'You walk through the streets of Pavlovsk together with Kate to her house. You and chatted about all sorts of trivia and have fun. Suddenly Kate stopped and turned around looking at you, giving you a mischievous look and lifting her skirt, showing you her tender pussy, she seems to have forgotten her panties.'
 			elseif katjaQW['pantiesQWstage'] > 0:
 				*clr & '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_go_home_tanga.jpg"></center>' & 'You walk through the streets of Pavlovsk together with Kate to her house. You and chatted about all sorts of trivia and have fun. Suddenly Kate stopped and turned around looking at you, giving you a mischievous look and lifting her skirt, showing you her panties. '
@@ -1453,7 +1454,7 @@ if $ARGS[0] = 'kathan9':
 		act 'Walk':gt 'katjaEv','kathan7'
 		act 'Redress and look for something else to do':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'katjaEv','kathan'
 
-		if IvanShowerQW = 11 and fame['pav_slut'] <250 and katjaQW['slut'] > 60 and katjaQW['horny'] >60 and katjaQW['QWstage'] > 2 and npc_sex['A14'] > 0:
+		if IvanShowerQW = 11 and fame['pav_slut'] <250 and katjaQW['horny'] >60 and katjaQW['anal_quest'] = 2 and npc_sex['A14'] > 0:
 			act '"Hey Ivan! You know, we are REALLY bored!"':
 				*clr & cla
 				random_event = rand(1,2)
@@ -1507,6 +1508,7 @@ if $ARGS[0] = 'kathan9':
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KIS2.jpg"></center>'
 							if npc_ass['A14'] =0:
+								if katjaQW['anal_quest'] = 2: katjaQW['anal_quest'] = 3
 								'"What?! Ivan! That is... You are going to?! <<$pcs_nickname>>!"'
 								'Fear and nervousness cross Katja''s pretty face as she realizes where he is taking his <<dick>>cm <<$dick_girth>> cock. You caress her face and kiss her lips to reassure the quickly freaked girl.'
 								'"Ok Katja, relax. It''s happened to me before. Don''t worry, it will be ok."'
@@ -1514,6 +1516,7 @@ if $ARGS[0] = 'kathan9':
 								'"Ouch! Fuck! <<$pcs_nickname>>! Ivan! Please a little... Hmfp?!"'
 								'You silence her pained grunts with a kiss and lead a hand towards Katja''s crotch, so you can finger her really wet and hot cunt as Ivan slowly fucks her asshole. Even with all that, it is evident that this isn''t easy for the girl, as painful moans escape between your linked tongues.'
 							elseif dick1 < npc_ass['A14']:
+								if katjaQW['anal_quest'] = 2: katjaQW['anal_quest'] = 3
 								'"Oh shit! Ivan! I can''t believe that I''m letting you put that in me!"'
 								'Katja bites her lips as she look transfixed at the jock''s <<dick>>cm <<$dick_girth>> cock. You embrace her petite figure and join in the shameless examination, making Ivan look at you nervously.'
 								'"Ahhh! Don''t worry Ivan! Katja isn''t... Hmpf?!"'
@@ -1521,6 +1524,7 @@ if $ARGS[0] = 'kathan9':
 								'"Shut... Gasp... up <<$pcs_nickname>>! I want... moan... your fingers in my cunt!"'
 								'You obey her commands and lead a hand towards Katja''s crotch and begin to finger her really wet and hot cunt as Ivan slowly fucks her asshole. The room quickly fills with aroused moans coming from between your linked tongues.'
 							else
+								if katjaQW['anal_quest'] = 2: katjaQW['anal_quest'] = 3
 								'"Ehm... Ivan, please take care... Hm... I''m not exactly... Ehh... experienced back there."'
 								'Katja blushes as she takes a long look at the jock''s <<dick>>cm <<$dick_girth>> cock. You caress her face and kiss her lips to reassure the nervous girl.'
 								'"Ok Katja, relax. We have done this before. Ivan isn''t going to hurt you."'

locations/katjaEvDin.qsrc

@@ -103,7 +103,7 @@ if $ARGS[0] = 'strapon_miss':
 	gs 'arousal', 'vaginal_strap_give', 5, 'lesbian', 'dom'
 	gs 'stat'
 
-	if npc_vag['A14'] <= 1:
+	if npc_vag['A14'] < 1:
 		'Katja groans and bites her lip in pain as the strap-on enters her. You notice visible blood on the strap-on, you just popped Katja''s cherry.'
 		katjaQW['slut']-=10
 		katjaQW['horny'] = 0
@@ -196,7 +196,7 @@ if $ARGS[0] = 'strapon_start':
 		*clr & cla
 		minut += 3
 		gs 'boystat', 'D<<strapnumber>>'
-		gs'stat'
+		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon.jpg"></center>'
 		'You put the strap-on harness on and buckle it in place, Katja bites her lip watching your actions.'
 		act 'Make Katja suck the strap-on': gt 'KatjaEvDin', 'strapon_bj'

locations/katja_sex.qsrc

@@ -199,7 +199,7 @@ if $ARGS[0] = 'prohorov_sex':
 								'You pull her face up to yours as the two of you being to kiss again. While your hands caress each others breasts, Katja hooks one her legs around yours as you become intertwined. You are so distracted you don''t even notice the heavy breathing coming from Ivan behind you, as he continues to watch.'
 								gs 'arousal', 'kiss', 1, 'lesbian'
 								gs 'stat'
-								if katjaQW['Horny'] >= 80:
+								if katjaQW['Horny'] >= 80 and katjaQW['QWstage'] = 6 and katjaQW['anal_quest'] = 2:
 									act 'Lift skirt':
 										cla
 										*clr
@@ -278,5 +278,282 @@ if $ARGS[0] = 'prohorov_sex':
 end
 !end port from 1.2.3 fix2
 
+if $ARGS[0] = 'marcus_wait':
+	menu_off = 1
+	*clr & cla
+	minute += 5
+	gs 'arousal', 'foreplay', 5
+	katjaQW['horny'] += 10
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/marcuswait1.jpg"></center>'
+	'You call Marcus'+iif(katjaQW['marcus_pussy'] = 0, ' and tell him the address, and he sounds very exicted to finally meet the mysterious girl whose virginity he will be taking',  ' and he almost too eagerly agrees to join you and Katja again for a threesome')+'. He says he will be there in 10 minutes.' 
+	'You tell Katja that he will be here soon and suggest that you greet him in your underwear. Katja'+iif(katjaQW['slut'] < 80, ' hesitantly', ' eagerly')+' agrees and you strip each other down into you underwear and sit on the bed.' 
+	'While you wait, you getly stroke Katja''s body to keep her'+iif(npc_vag['A14'] + 5 < npc_dick['A146'] or katjaQW['marcus_pussy'] = 0, ' nerves down.', ' exicited.')+' Finally, after what seems to be forever you her the doorbell ring.'
+	act 'Tell him to come in':
+		*clr & cla
+		minute += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/marcuswait2.jpg"></center>'
+		'"Come in, the door is open", you shout. After hearing the door open and close again, you shout "We are here."'
+		'A short while later Marcus enters the room. When he sees you and Katja in your underwear on the bed looking at him '+iif(katjaQW['marcus_pussy'] = 0, 'he is momentarely stunned. Then his face breaks out in the biggest smile you have ever seen on him.', ' his face becomes a huge smile.')
+		iif(katjaQW['marcus_pussy'] = 0, '"You could have told me <<$pcs_nickname>>, that you were offering me the first time of the hottest redhead in Pav."', '"I see that you have kept her warm for me."')+' He says with a huge grin.'
+		act 'Tell him to join you on the bed':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg1.jpg"></center>'
+			'Marcus comes over and climbs on the bed, you start kissing him while Katja watches eagerly. After a bit of kissing Marcus turns his attention to her and they kiss for a bit. Then he pulls away and puts one hand on each of your heads and pushes your faces towards one another.'
+			gs 'arousal', 'kiss', 2, 'group'
+			gs 'stat'
+			act 'Kiss Katja':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg2.jpg"></center>'
+				'As Marcus pushes your faces towards each other, you and Katja start kissing, with your hands roaming over each others body. As you do this, Marcus hands roam over both of your bodies paying special attention to your butts. After a couple of minutes he stops and starts taking off his pants, before he lays down on his back, sliding between the two of you.'
+				gs 'arousal', 'kiss', 3, 'lesbian', 'group'
+				gs 'stat'
+				act 'Give handjob':
+					if npc_vag['A14'] + 5 < npc_dick['A146']:
+						gt 'katja_sex', 'marcus_first'
+					else
+						gt 'katja_sex', 'marcus_threesome'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'marcus_first':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg3.jpg"></center>'
+	'After you stop kissing Katja you reach down and take Marcus enormous semi-hard cock in your hand and start stroking it, to which he quickly gets hard in your hand. Katja watches in fascination as he springs to life, after a few moments she reaches down and starts stroking his dick herself. You let go to allow her to stroke the full length of his shaft in her hand.'
+	gs 'arousal', 'hj', 3, 'group'
+	gs 'stat'
+	act 'Give blowjob':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg4.jpg"></center>'
+		'As Katja is still jerking him off you bend over, opening your mouth and take his big cock in your mouth. It fills it up, you struggle to open your mouth wide enough to take it in. You go as deep as you can, but it still doesn''t fit completely in your mouth. Katja keeps stroking his shaft while you suck on it. A couple of minutes go by and you pop the wet cock out of your mouth and offer it to Katja.'
+		gs 'arousal', 'bj', 2, 'group'
+		gs 'stat'
+		act 'Watch':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg5.jpg"></center>'
+			'She opens her mouth and tries to mimic what you did, so she starts sucking on his dick, taking it as deep as she can but starts gagging almost at once, and contents herself with mostly just sucking on the end of it while jerking him off. A couple of minutes go by before she stops, gasping a little for air. She isn''t used to sucking a guy off for long yet. That''s when Marcus speaks up. "So who''s first?"'
+			gs 'arousal', 'voyeur_sex', 2, 'group'
+			gs 'stat'
+			act 'Mount him':
+				*clr & cla
+				minut -= 3
+				gs 'boyStat', 'A146'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg6.jpg"></center>'
+				'Katja bites her lower lip and looks hesitant, so you smile and straddle Marcus. You reach down and line his <<dick>>cm <<$dick_girth>> dick up with your slit and you slowly lower yourself on it. You feel it stretching you out as it fills you up, and once you are all the way down, you start to slowly ride him moaning in pleasure as you do. Marcus pulls Katja over and she straddles his face and starts moaning at once as well, then leans forward and starts kissing you as your ride Marcus. After a few minutes she stops kissing you and says. "Ok, I''m ready."'
+				gs 'arousal', 'vaginal', 3, 'group'
+				gs 'arousal', 'kiss', 3, 'lesbian', 'group'
+				gs 'stat'
+				act 'Help Katja':
+					*clr & cla
+					minut -= 3
+					gs 'boyStat', 'A146'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg7.jpg"></center>'
+					'You climb off of Marcus and Katja takes your place. As she slowly lowers herself down, you grab ahold of his dick and line it up for her. As his <<dick>>cm <<$dick_girth>> dick starts to enter her, she inhales sharply and stops moving for a moment. After a few moments she lowers herself a bit more and then slowly starts to ride his cock, only taking about half of it''s length inside of her. You can''t tell by her moans and groans how much she is enjoying herself, so to help out, you reach over and start rubbing her clit as she rides him slowly.'
+					if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+					if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+					if katjaQW['marcus_pussy'] = 0: katjaQW['marcus_pussy'] = 1
+					gs 'arousal', 'vaginal_finger_give', 3, 'lesbian', 'group'
+					gs 'arousal', 'voyeur_sex', 3, 'group'
+					gs 'stat'
+					act 'Lick Katja':
+						*clr & cla
+						minut -= 3
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg8.jpg"></center>'
+						'With your fingers rubbing her clit she sounds like she is enjoying it more now, so you lean over and start licking her clit as she rides Marcus. She moans louder from that and seems to be enjoying it even more now, but she still is only taking about half the length of his shaft and moving slowly.'
+						if npc_vag['A14'] = 0:
+							katjaQW['slut'] -= 5 
+							'After a few more minutes of this she finally pulls up and off, you can see the blood on his dick from popping her cherry. She climbs off the bed and starts cleaning herself up. "No sorry I can''t do it anymore, he is just too big and it hurts too much."'
+							'Marcus smiles at her. "It''s ok, we can try again some other time if you want." She bites her lower lip and nods, you can tell she is still turned on and wants to try again, at some point.'
+							'Then he reaches over and slaps you on the hip, as he gets up on his knees. "Get up and turn around for me." He then reaches over to grab some tissues to clean the blood off his dick.'
+						else
+							katjaQW['slut'] += 1 
+							'After a few more minutes of this she finally pulls up and off of him, sitting on the bed beside the two of you. "No sorry I can''t do it anymore, he is just to big."'
+							'Marcus smiles at her. "It''s ok, we can try again some other time if you want." She bites her lower lip and nods, you can tell she is still turned on and wants to try again, at some point.'
+							'Then he reaches over and slaps you on the hip, as he gets up on his knees. "Get up and turn around for me."'
+						end
+						katjaQW['horny'] = 0
+						if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+						if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+						gs 'arousal', 'cuni_give', 3, 'lesbian', 'group'
+						gs 'arousal', 'voyeur_sex', 3, 'group'
+						gs 'stat'
+						act 'On all four':
+							*clr & cla
+							minut -= 3
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg9.jpg"></center>'
+							'You turn around and get on all four, while he scoots up behind you. He rubs the tip of his dick against your slit until it is nice and wet again. Then she slides his massive cock back inside of you and starts to fuck you,  slowly working himself deeper into you. As he fucks you Katja kneels on the bed in front of you, leans forward and starts kissing you, the two of you kiss as Marcus fucks you.'
+							gs 'arousal', 'vaginal', 3, 'group'
+							gs 'arousal', 'kiss', 3, 'lesbian', 'group'
+							gs 'stat'
+							act 'Get fucked':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg10.jpg"></center>'
+								'Suddenly Marcus goes balls deep, but instead of pulling back out for another stroke, he just grabs you and lifts you up. You are a bit surprised how easily he is able to lift you off the bed and hold you off the ground. He carries you over to one of the chairs and lowers you a bit. You put your legs down until your feet touch the floor. He lifts one of your legs up until you have one foot on the chair and the other on the floor. Then he starts fucking you again, that is when you notice Katja in front of you with her phone out take pictures of you and Marcus, laughing.'
+								gs 'arousal', 'vaginal', 3, 'lesbian', 'inhibition'
+								gs 'stat'
+								act 'Pose while fucking':
+									*clr & cla
+									minut -= 3
+									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg11.jpg"></center>'
+									'You do your best to pose for the pictures, while Marcus fucks you from behind, Katja seems to be enjoying this almost as much as you are enjoying being fucked by Marcus. Not long after you can feel him tense up as he starts fucking you harder and faster, you know he is getting close. Just then he jerks out of you and drags you down to your knees on the floor in front of him. You grab Katja and pulls her down as well.'
+									gs 'arousal', 'vaginal', 3, 'group'
+									gs 'arousal', 'kiss', 3, 'lesbian', 'group', 'inhibition'
+									gs 'stat'
+									act 'Catch cum':
+										*clr & cla
+										minut += 10
+										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg12.jpg"></center>'
+										'Once Katja''s face is right next to yours, you start jerking Marcus off. Finally he moans loudly and you feel his dick twitch and pump in your hand. His cum sprays across both your face, some of it gets into your mouth, each time you stroke his cock another stream of sperm coats Katja''s and you face. After several more strokes, finally only a single drop is squeezed out and you let go of him. He sighs and looks down with a huge grin at both of your faces, now covered in cum.'
+										gs 'arousal', 'hj', 1, 'group'
+										gs 'arousal', 'end'
+										gs 'cum_call', 'face', 'A146', 1
+										gs 'cum_call', 'mouth', 'A146', 1
+										gs 'stat'
+										act 'Clean up': gt 'katja_sex', 'marcus_aftermatch'
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'marcus_threesome':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg3.jpg"></center>'
+	'After you stop kissing Katja you look down and see she is already stroking Marcus massive hard cock with her hand. After a bit she reaches over to pull your hand over and you take her place jerking him off.'
+	gs 'arousal', 'hj', 3, 'group'
+	gs 'stat'
+	act 'Watch':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg5.jpg"></center>'
+		'She opens her mouth and starts sucking on his dick, taking it as deep as she can. She takes it surprisingly deep down her throat, while jerking him off. She must be getting used to giving blowjobs or she has been practicing on her own. A couple of minutes go by before she stops popping his dick out of her mouth and offering it to you.'
+		gs 'arousal', 'voyeur_sex', 2, 'group'
+		gs 'stat'
+		act 'Give blowjob':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg4.jpg"></center>'
+			'You open your mouth and take his big cock inside. It fills it up, and you struggle to open your mouth wide enough to take it in. You go as deep as you can, but there is still much of it not in your mouth. Katja keeps stroking his shaft while you suck on it. A couple of minutes go by and you pop the wet cock out of your mouth, to take a short break when Marcus speaks up. "So who''s first?" You can tell he is eager to start fucking the two of you.'
+			gs 'arousal', 'bj', 2, 'group'
+			gs 'stat'
+			act 'Help Katja':
+				*clr & cla
+				minut -= 3
+				gs 'boyStat', 'A146'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff1.jpg"></center>'
+				'Katja straddles Marcus. As she slowly lowers herself down, you grab ahold of his dick and line it up for her. As his <<dick>>cm <<$dick_girth>> dick starts to enter her, she inhales sharply and moans loudly. After a few moments she lowers herself a bit more and then slowly starts to ride his cock, only taking about half of its length inside of her. You reach over and start rubbing her clit as she rides him slowly. Then she starts picking up the pace a little and going further down. It takes a bit, but she finally takes the full length of his shaft inside of her.'
+				if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+				if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+				if katjaQW['marcus_pussy'] = 0: katjaQW['marcus_pussy'] = 1
+				gs 'arousal', 'vaginal_finger_give', 3, 'lesbian', 'group'
+				gs 'arousal', 'voyeur_sex', 3, 'group'
+				gs 'stat'
+				act 'Make Katja feel good':
+					*clr & cla
+					minut -= 3
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff2.jpg"></center>'
+					'You keep rubbing her clit as she rides him, she starts slamming herself down on him, moaning louder and louder as she goes. Katja seems to be really enjoying herself. Just as it seems like she is starting to get close, Marcus suddenly lifts her off and tosses her gentle aside. "You can''t have all the fun. It''s <<$pcs_nickname>>''s turn." Katja gives a slighty pouty look but then smiles.'
+					if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+					if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+					gs 'arousal', 'vaginal_finger_give', 3, 'lesbian', 'group'
+					gs 'arousal', 'voyeur_sex', 3, 'group'
+					gs 'stat'
+					act 'Mount him':
+						*clr & cla
+						minut -= 3
+						gs 'boyStat', 'A146'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katvirg6.jpg"></center>'
+						'You smile and straddle Marcus. You reach down and line his <<dick>>cm <<$dick_girth>> dick up with your slit and you slowly lower yourself on it. You feel it stretching you out as it fills you up, once you are all the way down, you start to slowly ride him, moaning in pleasure as you do. Marcus pulls Katja over and she straddles his face and starts moaning at once as well, then she leans forward and starts kissing you as your ride Marcus. She stops kissing you and looks past you back at Marcus. "I want another go." He laughs and slaps you on the ass as he pulls out. Katja crawls over to him and he grabs her and drags her over flipping her onto her back.'
+						gs 'arousal', 'vaginal', 3, 'group'
+						gs 'arousal', 'kiss', 3, 'lesbian', 'group'
+						gs 'stat'
+						act 'Sit on Katja''s face':
+							*clr & cla
+							minut -= 6
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff3.jpg"></center>'
+							'He slips his dick back in her, missionary style this time, and starts fucking her again. Since she is getting the dick again you straddle her face and sit on her, she start licking your wet pussy at once. You lean forward and start licking and sucking on her clit, you feel Marcus stomach bang against the top of your head with each stroke he takes into Katja.'
+							if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+							if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+							gs 'arousal', 'cuni', 3, 'lesbian', 'group'
+							gs 'arousal', 'cuni_give', 3, 'lesbian', 'group'
+							gs 'arousal', 'vaginal', 3, 'group'
+							gs 'stat'
+							act 'Enjoy yourself':
+								*clr & cla
+								minut -= 6
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff4.jpg"></center>'
+								'For several minutes of bliss this continues but Katja stops licking you and starts moaning loudly, you keep up licking her clit as Marcus fucks her, her moans getting louder and louder until she finally cries out and her whole body shakes as she has a intense orgasm. He fucks her all the way through her orgasm, then he pulls out of her once she stops shaking and gets up to walk around you, as he does Katja crawls out from under you, looking spent.'
+								if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+								if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+								katjaQW['horny'] = 0
+								katjaQW['slut'] += 2 
+								gs 'arousal', 'cuni', 3, 'lesbian', 'group'
+								gs 'arousal', 'cuni_give', 3, 'lesbian', 'group'
+								gs 'arousal', 'vaginal', 3, 'group'
+								gs 'stat'
+								act 'Take it from behind':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff5.jpg"></center>'
+									'Marcus settles down behind you, pulling your hips up so you are fully up on your knees and pushes you down at your shoulders until your face is against the floor. He slides his enormous cock back into you and starts fucking you again, while Katja comes over to watch, giggling, seemingly enjoy this almost as much as you are.'
+									gs 'arousal', 'vaginal', 3, 'group'
+									gs 'stat'
+									act 'Kiss Katja':
+										*clr & cla
+										minut -= 3
+										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff6.jpg"></center>'
+										'After a few minutes, Katja places a hand under your chin and lifts your face up, until you are on all fours and she starts kissing you as Marcus pounds you from behind. There are few times in life that one finds sexual bliss, but this is one of those times. Marcus speeds up and starts grunting louder before he jerks his cock out of you. He gets up and quickly walks over so he is standing between your faces and starts jerking off.'
+										gs 'arousal', 'vaginal', 3, 'group'
+										gs 'arousal', 'kiss', 3, 'lesbian', 'group'
+										gs 'stat'
+										act 'Catch cum':
+											*clr & cla
+											minut += 10
+											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/marcusmff/marcusmff7.jpg"></center>'
+											'Katja and you turn towards his dick and scoot closer together. You both open your mouths and tilt your heads back, soon ropes of hot cum splash across your faces, some of it going in your mouth or hers, most ending up on your faces. Once no more splashes of sperm hit either of you in the face you turn towards each other and kiss, sharing the cum in your mouths. Marcus sighs and takes a seat on one of the chairs as he watches.'
+											gs 'arousal', 'kiss', 1, 'lesbian', 'group'
+											gs 'arousal', 'end'
+											gs 'cum_call', 'face', 'A146', 1
+											gs 'cum_call', 'mouth', 'A146', 1
+											gs 'stat'
+											act 'Clean up': gt 'katja_sex', 'marcus_aftermatch'
+										end
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'marcus_aftermatch':
+	*clr & cla
+	minut += 10
+	gs 'npc_relationship', 'modify', 'A146', 'love'
+	cumspclnt = 1
+	gs 'cum_cleanup'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/katafter.jpg"></center>'
+	'Marcus is putting his clothes back on while you clean yourself and Katja. She slumps back into the bed with a closed eyes still playing whit her pussy.'
+	'"This was '+iif( katjaQW['QWstage'] = 5, 'amazing and a great honor to be Katja''s first. If you ever want to repeat this', 'great as always, if you feel the need again just')+' give me a call" Marcus says. Katja doesn''t respond, so you answer "Yeah, this was fun and we might repeat it another time. But you should better get going before Vicky gets back. We don''t want her sticking her nose in our business."'
+	'"See you around." he says and leaves while you are putting your clothes back on. After a couple of minutes, Katja finally stands up from the bed and starts to get dressed in silence.'
+	act 'Talk with Katja': gt 'KatjaHomeTalk'
+	if mey_vika['key'] = 1:
+		act 'Leave the room': gt 'mey_home', 'start'
+	else
+		act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+	end
+end
+
 --- katja_sex ---------------------------------
 

locations/pav_disco_coolkids.qsrc

@@ -1156,12 +1156,7 @@ if $ARGS[0] = 'igor':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 					'You decide to tease Igor a little. "I hope you''re not too sore after last time." you whisper with a smirk. Igor''s cheeks flush pink as he looks around nervously, hoping no one overheard.'
-					act 'Just chat':
-						*clr & cla
-						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-						'You don''t press it and start talking to him about a variety of topics while holding hands. You then smile and give him a quick kiss as you get up.'
-						act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-					end
+					act 'Just chat': gt 'pav_disco_coolkids', 'igor_hang_out'	
 					act 'Tell him you have a surprise':
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
@@ -1175,20 +1170,13 @@ if $ARGS[0] = 'igor':
 							'You laugh a little. "You <i>are</i> eager! You must really love it..."'
 							'He blushes bright red. "I... I..."'
 							'You raise a hand to caress his cheek. "It''s okay, I was just messing with you. You''re right, it''s too risky. I didn''t think you would agree."'
-							'He looks a little sheepish. "Oh..."'
-							act 'Just chat':
-								*clr & cla
-								'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-								'You don''t press it and start talking to him about a variety of topics while holding hands. You then smile and give him a quick kiss as you get up.'
-								act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-							end
+							'He looks a little sheepish. "Oh..." You don''t press it.'
+							act 'Just chat':  gt 'pav_disco_coolkids', 'igor_hang_out'	
 						end
 					end
 				end
-			else
-				'You start talking to him about a variety of topics while holding hands. You then smile and give him a quick kiss as you get up.'
-				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 			end
+			act 'Hang out with him': gt 'pav_disco_coolkids', 'igor_hang_out'
 		elseif grupTipe = 5:
 			'When you get near him, he glances at some of the other cool kids and then back to you. "Go bother someone else."'
 			act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
@@ -1196,27 +1184,7 @@ if $ARGS[0] = 'igor':
 			'You know he doesn''t have many friends, so he''s more than happy that you want to hang out with him. Unlike most boys, Igor is really attentive and listens to everything you say, even taking an interest in the more "girly" topics.'
 			'"Oh, it''s not that weird." Igor blushes. "I have a sister, so I hear about these things all the time..."'
 			act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-			act 'Hang out with him':
-				*clr & cla
-				minut += 15
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-				'The two of you start discussing the outfits and styles of the various people at the disco, mostly giggling at those with awful fashion sense before he turns to you. "Would you like to dance?"'
-				act 'No':
-					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-					'You shake your head. "Not right now. Maybe some other time."'
-					'He looks a bit crestfallen. "Oh okay... Uh yeah, it was silly. I don''t know why I asked. Anyway, I need to use the restroom." Before you can get another word in, he hurries off towards the restrooms.'
-					act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-				end
-				act 'Yes':
-					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-					'You nod your head and smile warmly at him. "Yes, yes I would."'
-					'He lights up and has a huge grin on his face. "Great!... I mean it''s good that you want to." He blushes at his outburt before taking you by the hand and shyly leading you out onto the dance floor.'
-					act 'Go dancing': gt 'pav_disco_coolkids', 'igor_dance'
-				end
-			end
+			act 'Hang out with him': gt 'pav_disco_coolkids', 'igor_hang_out'	
 		elseif npc_rel['A4'] <= 20 and fame['pav_slut'] < 200:
 			if grupTipe = 1:
 				'The conversation feels forced as Igor makes almost no effort to talk to you. You get the feeling he''s just doing this as a courtesy since you''re in the same clique.'
@@ -1245,6 +1213,32 @@ if $ARGS[0] = 'igor':
 	end
 end
 
+if $ARGS[0] = 'igor_hang_out':
+	*clr & cla
+	minut += 15
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
+	if IgorLoverQW > 0:
+		'You start talking to him about a variety of topics while holding hands. The two of you start discussing the outfits and styles of the various people at the disco, mostly giggling at those with awful fashion sense before he turns to you. "Would you like to dance?"'
+	else
+		'The two of you start discussing the outfits and styles of the various people at the disco, mostly giggling at those with awful fashion sense before he turns to you. "Would you like to dance?"'
+	end
+	act 'No':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
+		'You shake your head. "Not right now. Maybe some other time."'
+		'He looks a bit crestfallen. "Oh okay... Uh yeah, it was silly. I don''t know why I asked. Anyway, I need to use the restroom." Before you can get another word in, he hurries off towards the restrooms.'
+		act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
+	end
+	act 'Yes':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
+		'You nod your head and smile warmly at him. "Yes, yes I would."'
+		'He lights up and has a huge grin on his face. "Great!... I mean it''s good that you want to." He blushes at his outburt before taking you by the hand and shyly leading you out onto the dance floor.'
+		act 'Go dancing': gt 'pav_disco_coolkids', 'igor_dance'
+	end
+end
+
 if $ARGS[0] = 'igor_dance':
 	*clr & cla
 	minut += 15

locations/unused/pornfilm.qsrc

@@ -0,0 +1,1978 @@
+# pornfilm
+!!2021/06/10
+
+menu_off = 1
+
+if $ARGS[0] = 'pornactor':
+	if pfactor ! 50:
+		num = pfactor
+		:actorloop
+			akrand = rand(1,10)
+			if akrand = 1:
+				$pakter[num] = 'Alexei Radimov'
+				$pakterID[num] = 'A193'
+			elseif akrand = 2:
+				$pakter[num] = 'Sergei Tatarov'
+				$pakterID[num] = 'A194'
+			elseif akrand = 3:
+				$pakter[num] = 'Egor Klyuyev'
+				$pakterID[num] = 'A195'
+			elseif akrand = 4:
+				$pakter[num] = 'Ignat Vedenin'
+				$pakterID[num] = 'A196'
+			elseif akrand = 5:
+				$pakter[num] = 'Simon Rodionov'
+				$pakterID[num] = 'A197'
+			elseif akrand = 6:
+				$pakter[num] = 'Vasya Harkov'
+				$pakterID[num] = 'A198'
+			elseif akrand = 7:
+				$pakter[num] = 'Boris Tabrov'
+				$pakterID[num] = 'A199'
+			elseif akrand = 8:
+				$pakter[num] = 'Daniel Rasnik'
+				$pakterID[num] = 'A200'
+			elseif akrand = 9:
+				$pakter[num] = 'Peter Izratam'
+				$pakterID[num] = 'A201'
+			elseif akrand = 10:
+				$pakter[num] = 'Oleg Taburov'
+				$pakterID[num] = 'A202'
+			end
+			if num < pfactor:
+				num2 = pfactor
+				:actorloop2
+					if $pakter[num] = $pakter[num2]:jump 'actorloop'
+					num2 -= 1
+				if num2 > num:jump 'actorloop2'
+			end
+			if aksex[akrand] = 0:aksex[akrand] = 1 & guy += 1
+			num -= 1
+		if num > 0:jump 'actorloop'
+	end
+end
+
+if $ARGS[0] = 'pornactress':
+	if pfactor ! 50:
+		num = pfactor
+		:actressloop
+			akrand = rand(1,10)
+			if akrand = 1:
+				$paktress[num] = 'K'
+				$pactressID[num] = 'A207'
+			elseif akrand = 2:
+				$paktress[num] = 'Ellie Knight'
+				$pactressID[num] = 'A234'
+			elseif akrand = 3:
+				$paktress[num] = 'Jules Jordan'
+				$pactressID[num] = 'A235'
+			elseif akrand = 4:
+				$paktress[num] = 'Katrina Valentine'
+				$pactressID[num] = 'A236'
+			elseif akrand = 5:
+				$paktress[num] = 'Alexa Haze'
+				$pactressID[num] = 'A237'
+			elseif akrand = 6:
+			    $paktress[num] = 'Scarlett Rose'
+				$pactressID[num] = 'A203'
+			end
+			if num < pfactor:
+				num2 = pfactor
+				:actressloop2
+					if $paktress[num] = $paktress[num2]:jump 'actressloop'
+					num2 -= 1
+				if num2 > num:jump 'actressloop2'
+			end
+			if aksex[akrand] = 0:aksex[akrand] = 1 & girl += 1
+			num -= 1
+		if num > 0:jump 'actressloop'
+	end
+end
+
+if $ARGS[0] = '1':
+	if rand(0,1) = 0: pornhj += 1
+	pornbukk += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 10
+	minut += 30
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> is your co-star for this shoot. He standing to the side, slowly stroking his dick.'
+
+	act 'Undress and start':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hj.mp4"></video></center>'
+		'<<$pakter[1]>> sits on the bed as the camera starts rolling. You kneel in front of him, take his dick in your hand and begin to stroke it.'
+
+		gs 'arousal', 'hj', 30, 'exhibitionism'
+		gs 'stat'
+
+		act 'Jerk him off':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hjcumontits.mp4"></video></center>'
+			'<<$pakter[1]>> caresses your tits as you continue to jerk his cock. After a few minutes, he stops feeling you up, leans back and starts groaning. You pick up the pace in repsonse, vigorously jerking his dick as you aim it at your tits.'
+			'He soon lets out a loud grunt and his hot cum starts squirting over your tits. When he finishes, you show your cum covered tits to the camera, playfully teasing your future viewers with a show of you squeezing and wiggling them before the shoot ends.'
+			gs 'cum_call', 'breasts', $pakterID[1], 1
+			gs 'arousal', 'hj', 5, 'exhibitionism'
+			gs 'arousal', 'end'
+			gs 'stat'
+
+			act 'Take a shower': gt 'pornstudio', 'shower'
+		end
+	end
+end
+
+if $ARGS[0] = '2':
+	if rand(0,2) = 0: pornhj += 1
+	if rand(0,1) = 0: pornbj += 1
+	pornswall += 1
+	if rand(0,2) = 0: pornbukk += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 12
+	minut += 30
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> is your co-star for this shoot. He is standing to the side, slowly stroking his dick.'
+
+	act 'Undress and start':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hj.mp4"></video></center>'
+		'<<$pakter[1]>> sits on the bed as the camera starts rolling. You kneel in front of him, take his dick in your hand and begin to stroke it.'
+
+		gs 'arousal', 'hj', 30, 'exhibitionism'
+		gs 'stat'
+
+		act 'Blow him':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
+			'His cock now rock hard, you take it into your mouth and start sucking.'
+
+			gs 'arousal', 'bj', 5, 'exhibitionism'
+			gs 'stat'
+
+			act 'Keep sucking':
+				*clr & cla
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/deep.mp4"></video></center>'
+				'<<$pakter[1]>> grabs your hair in his fists and begins to fuck your mouth, driving his cock down your throat with every thrust.'
+				'After a few minutes of this, he takes his cock out and you wipe the saliva from your mouth while gasping for air.'
+
+				gs 'arousal', 'bj', 5, 'exhibitionism'
+				gs 'stat'
+
+				act 'Open your mouth':
+					*clr & cla
+					minut += 5
+					facial += 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cum.mp4"></video></center>'
+					'<<$pakter[1]>> gives you a nod to let you know he is close, so you start quickly jerking him and stick your tongue out for him to shoot his load.'
+					cumnostd = 1
+					gs 'cum_call', 'mouth_swallow', $pakterID[1], 1, 0, 0, 36
+					gs 'cum_call', 'face', $pakterID[1], 1, 0, 0, 4
+					gs 'stat'
+					act 'Clean his cock':
+						*clr & cla
+						minut += 5
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj2.mp4"></video></center>'
+						'You keep your eyes fixed on him as you gently lick every last drop of sperm from his cock before taking it back in your mouth and sucking, causing him to groan loudly in pleasure.'
+						'You then pop his dick out of your mouth and smile up at him as the shoot is called to an end.'
+						gs 'arousal', 'end'
+						gs 'stat'
+
+						act 'Take a shower': gt 'pornstudio', 'shower'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '3':
+	if rand(0,2) = 0: pornhj += 1
+	if rand(0,2) = 0: pornbj += 1
+	pornvag += 1
+	pornswall += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 16
+	minut += 180
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> is your co-star for this shoot. He is standing to the side, slowly stroking his dick.'
+
+	act 'Undress and start':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hj.mp4"></video></center>'
+		'The camera starts rolling and the scene starts with you walking onto the set and giving the camera a very teasing striptease and close up of your naked body.'
+		'<<$pakter[1]>> then walks over and sits on the bed. You kneel in front of him, take his dick in your hand and start stroking it.'
+
+		gs 'arousal', 'hj', 30, 'exhibitionism'
+		gs 'stat'
+
+		act 'Blow him':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
+			'You take his shaft into your mouth and start passionately sucking his dick while gazing up at him, giving him and the camera a seductive look. As you continue sucking, you reach between your legs and slowly massage your clit.'
+
+			gs 'arousal', 'bj', 5, 'exhibitionism'
+			gs 'stat'
+
+			act 'Deepthroat':
+				*clr & cla
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/deep.mp4"></video></center>'
+				'<<$pakter[1]>> grabs your hair in his fists and begins to fuck your mouth deeply, occasionally withdrawing completely to allow you to catch your breath, before returning more vigorously.'
+
+				gs 'arousal', 'bj', 5, 'exhibitionism', 'deepthroat'
+				gs 'stat'
+
+				act 'Doggystyle':
+					*clr & cla
+					pcs_vag += 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/doggysex.mp4"></video></center>'
+					'You stand and get on all fours on the edge of the bed. <<$pakter[1]>> guides his dick into your pussy and begins to fuck you hard from behind.'
+					'You spend the next few minutes getting fucked in this position before calling for a break. Once you''re rested, you get back into position and spend quite a bit of time getting fucked in a variety of other poses.'
+
+					!! Precum pregnancy check
+					cumnostd = 1
+					gs 'cum_call', 'precum', $pakterID[1], 1, 0, 10000, 1
+
+					gs 'arousal', 'vaginal', 15, 'exhibitionism'
+					gs 'stat'
+
+					act 'Facial':
+						*clr & cla
+						minut += 5
+						cumnostd = 1
+						gs 'cum_call', 'mouth_swallow', $pakterID[1], 1, 0, 0, 36
+						gs 'cum_call', 'face', $pakterID[1], 1, 0, 0, 4
+						facial += 1
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cum.mp4"></video></center>'
+						'<<$pakter[1]>> is pounding you hard in the missionary position, your legs spread high and wide as you talk dirty for the camera, when you hear him panting loudly and feel him pulling out of you. You slide off the bed onto your knees in front of him and he shoots his load across your face with a loud grunt.'
+
+						act 'Clean his cock':
+							*clr & cla
+							minut += 5
+							gs 'stat'
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj2.mp4"></video></center>'
+							'You gaze up at him adoringly as you meticulously lick all the cum off his dick before taking it into your mouth and sucking. The director ends the shoot looking rather pleased.'
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '4':
+	if rand(0,2) = 0: pornhj += 1
+	if rand(0,1) = 0: pornbj += 1
+	if rand(0,1) = 0: pornvag += 1
+	if rand(0,1) = 0: pornanal += 1
+	if rand(0,1) = 0: pornbukk += 1
+	if rand(0,1) = 0: pornswall += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 20
+	minut += 180
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> is your co-star for this shoot. He is standing to the side, slowly stroking his dick.'
+
+	act 'Undress and start':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hj.mp4"></video></center>'
+		'The camera starts rolling and the scene starts with you walking onto the set and giving the camera a very teasing striptease and close up of your naked body.'
+		'<<$pakter[1]>> then walks over and sits on the bed. You kneel in front of him, take his dick in your hand and start stroking it.'
+
+		gs 'arousal', 'hj', 30, 'exhibitionism'
+		gs 'stat'
+
+		act 'Blow him':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
+			'Admiring the impressive size of the cock before you, you wrap your lips around the shaft and start sucking it as you reach between your legs and start rubbing your clit.'
+			
+			gs 'arousal', 'bj', 5, 'exhibitionism'
+			gs 'stat'
+
+			act 'Suck further':
+				*clr & cla
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/deep.mp4"></video></center>'
+				'<<$pakter[1]>> relaxes as you take control, trying to take the full length of his cock down your throat.'
+
+				gs 'arousal', 'bj', 5, 'exhibitionism', 'deepthroat'
+				gs 'stat'
+
+				act 'Ride him':
+					*clr & cla
+					pcs_vag += 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/sex.mp4"></video></center>'
+					'You straddle <<$pakter[1]>> and guide his dick into your pussy. You begin to ride him hard and really get into it. After a few minutes, he lifts you off of his dick, throws you on your back and spreads your legs so he can fuck you missionary style.'
+					'After pounding your pussy in a variety of other poses, <<$pakter[1]>> pulls his cock out of you and gets you on all fours, your ass high in the air. You feel him pressing against your anus.'
+
+					!! Precum pregnancy check
+					cumnostd = 1
+					gs 'cum_call', 'precum', $pakterID[1], 1, 0, 10000, 1
+
+					gs 'arousal', 'vaginal', 5, 'exhibitionism'
+					gs 'stat'
+
+					act 'Anal':
+						*clr & cla
+						pcs_ass += 1
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/sex1.mp4"></video></center>'
+						'You try as best as you can to relax as <<$pakter[1]>> pushes into your ass and immediately goes at it like a jackhammer. He pulls out a few times to let you recover, the camera coming in for shots of your stretched hole each time, before he plunges his dick back inside you.'
+
+						gs 'arousal', 'anal', 5, 'exhibitionism'
+						gs 'stat'
+
+						act 'Kneel down and open your mouth':
+							*clr & cla
+							minut += 5
+							facial += 1
+							gs 'stat'
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cum.mp4"></video></center>'
+							'<<$pakter[1]>> grabs you by the hips and really starts pounding your ass. Just as it''s starting to hurt, he pulls out of your ass and you quickly turn and kneel before him. He vigorously jerks his dick and his cum is soon splattering across your face and onto your tongue.'
+							cumnostd = 1
+							gs 'cum_call', 'mouth_swallow', $pakterID[1], 1, 0, 0, 36
+							gs 'cum_call', 'face', $pakterID[1], 1, 0, 0, 4
+
+							act 'Clean his cock':
+								*clr & cla
+								minut += 5
+								gs 'stat'
+								'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj2.mp4"></video></center>'
+								'You keep look deep into his eyes as you lick and suck his cock clean. He steps aside to let the camera come in for a shot of you. '
+								'You look up at the camera and smile, playfully showing off your cum coated face before the shoot ends.'
+								gs 'arousal', 'end'
+								gs 'stat'
+
+								act 'Take a shower': gt 'pornstudio', 'shower'
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '5':
+	if rand(0,2) = 0: pornhj += 1
+	if rand(0,1) = 0: pornbj += 1
+	if rand(0,1) = 0: pornvag += 1
+	if rand(0,1) = 0: pornanal += 1
+	if rand(0,1) = 0: pornbukk += 1
+	if rand(0,1) = 0: pornswall += 1
+	porngang += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 25
+	minut += 180
+	gang += 1
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'You co-stars for this shoot are <<$pakter[1]>> and <<$pakter[2]>>. They are watching porn on a monitor, getting their cocks ready for you.'
+
+	act 'Undress and kneel':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj.mp4"></video></center>'
+		'You get into position kneeling before <<$pakter[1]>> and <<$pakter[2]>>. When the camera starts rolling, they slap their fully erect cocks against your face.'
+
+		gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
+		gs 'stat'
+
+		act 'Suck them':
+			*clr & cla
+			pornbj += 1
+			gs 'stat'
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj2.mp4"></video></center>'
+			'You then start sucking the two dicks in front of you in turn, jerking the other with your hand. The two men moan loudly in pleasure and encourage you to take them deeper.'
+
+			gs 'arousal', 'bj', 15, 'exhibitionism'
+			gs 'stat'
+
+			act 'Spitroast':
+				*clr & cla
+				pcs_vag += 1
+				pornvag += 1
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/three.mp4"></video></center>'
+				'The men get you on all fours and <<$pakter[1]>> slides his dick into your pussy while you continue to suck <<$pakter[2]>>''s dick.'
+				'The two men spend the next few minutes repositioning you and taking turns fucking your pussy.'
+
+				!! Precum pregnancy check
+				cumnostd = 1
+				gs 'cum_call', 'precum', $pakterID[1], 1, 0, 10000, 1
+
+				gs 'arousal', 'bj', -15, 'exhibitionism'
+				gs 'arousal', 'vaginal', 15, 'exhibitionism'
+				gs 'stat'
+
+				act 'Anal':
+					*clr & cla
+					pcs_ass += 1
+					pornanal += 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/threea.mp4"></video></center>'
+					'<<$pakter[1]>> takes his cock out of your pussy and plunges it into your ass. The extra tightness quickly overwelms him and after only a few minutes in your ass, you feel him unloading inside you with a loud grunt.'
+					'You keep sucking <<$patker[2]>>, who sounds like he is also close to climax.'
+					cumnostd = 1
+					gs 'cum_call', 'anus', $pakterID[1], 1, 0, 0, 40
+					gs 'arousal', 'bj', -15, 'exhibitionism'
+					gs 'arousal', 'anal', 15, 'exhibitionism'
+					gs 'stat'
+
+					act 'Facial':
+						*clr & cla
+						minut += 5
+						facial += 1
+						pornswall += 1
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tcum.mp4"></video></center>'
+						'You are about to move around to clean up <<$pakter[1]>> when <<$pakter[2]>> grabs your head and shoots his load across your face. The two men say the most depraved things as cum slowly trickles down your face and out of your asshole.'
+                        'The director seems pleased, however, and calls an end to the shoot.'
+						cumnostd = 1
+						gs 'cum_call', 'mouth', $pakterID[2], 1, 0, 0, 40
+						gs 'arousal', 'end'
+						gs 'stat'
+
+						act 'Take a shower': gt 'pornstudio', 'shower'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '6':
+	pornbj += 1
+	pornvag += 1
+	pornanal += 1
+	if rand(0,1) = 0: pornbukk += 1
+	pornswall += 1
+	porngang += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 25
+	minut += 180
+	gang += 1
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> and <<$pakter[2]>> are your co-stars for this shoot. They are watching porn on a monitor, getting their cocks ready for you.'
+
+	act 'Undress and start':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj.mp4"></video></center>'
+		'You get into position kneeling before <<$pakter[1]>> and <<$pakter[2]>>. When the camera starts rolling, they slap their fully erect cocks against your face.'
+
+		gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
+		gs 'stat'
+
+		act 'Suck them':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj2.mp4"></video></center>'
+			'You start to suck both dicks in turn, jerking the other with your hand.'
+
+			gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
+			gs 'stat'
+
+			act 'Fuck them':
+				*clr & cla
+				pcs_vag += 1
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/three.mp4"></video></center>'
+				'You get on all fours and <<$pakter[1]>> fucks you from behind while you suck <<$pakter[2]>>''s dick.'
+                'You spend the next few minutes getting fucked in a variety of poses by the two men, who take turns fucking your pussy.'
+				!! Precum pregnancy check
+				cumnostd = 1
+				gs 'cum_call', 'precum', $pakterID[1], 1, 0, 10000, 1
+				gs 'stat'
+
+				gs 'arousal', 'bj', -15, 'exhibitionism', 'group'
+				gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
+				gs 'stat'
+
+				act 'Anal':
+					*clr & cla
+					pcs_ass += 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/threea.mp4"></video></center>'
+					'<<$pakter[1]>> switches it up and sticks his cock into your ass while you keep sucking <<$pakter[2]>>.'
+                    '<<$patker[1]>> is really getting into it and is vigorously pounding your asshole.'
+					gs 'arousal', 'bj', -15, 'exhibitionism', 'group'
+					gs 'arousal', 'anal', 15, 'exhibitionism', 'group'
+					gs 'stat'
+
+					act 'Double penetration':
+						*clr & cla
+						pcs_ass += 1
+						pcs_vag += 1
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/three2.mp4"></video></center>'
+						'<<$pakter[1]>> takes his dick out of your ass and lies down. Knowing <<$pakter[1]>> wants more, you straddle his cock.'
+						'You feel his cock fill your pussy while <<$pakter[2]>> moves in behind you and pushes his dick into your ass.'
+						'The guys find a rhythm and grind away at your holes as you moan loudly.'
+
+						gs 'arousal', 'anal', -15, 'exhibitionism', 'group'
+						gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
+						gs 'stat'
+
+						act 'Finish them':
+							*clr & cla
+							minut += 5
+							facial += 1
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tcum.mp4"></video></center>'
+							'The guys tell you they''re close and both pull out. You grab <<$pakter[1]>>''s dick and begin to suck it.'
+							'As you suck his dick, your head is suddenly grabbed and you are turned around. <<$pakter[2]>> shoots his load across your face and into your mouth, <<$pakter[1]>> following him close behind.'
+                            'The two men step aside to let the camera get a shot of you. You look up at the camera and smile, swallowing the cum in your mouth and finishing with a close up of your cum splattered face.'
+							cumnostd = 1
+							gs 'cum_call', 'mouth', $pakterID[1], 1, 0, 0, 10
+							gs 'cum_call', 'face', $pakterID[1], 1, 0, 0, 30
+							cumnostd = 1
+							gs 'cum_call', 'mouth', $pakterID[2], 1, 0, 0, 10
+							gs 'cum_call', 'face', $pakterID[2], 1, 0, 0, 30
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '7':
+	if rand(0,1) = 0: pornbj += 1
+	pornvag += 1
+	if rand(0,2) = 0: porngang += 1
+	porncream += 1
+	pfType = 1
+	*clr & cla
+	gs 'fame', 'city', 'porn', 20
+	minut += 180
+	$orgasm_or = 'no'
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'Your co-star for this shoot is <<$pakter[1]>>. He is standing to the side, slowly stroking his dick.'
+
+	act 'Undress and start':
+		*clr & cla
+		pornbj += 1
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
+		'You start by teasing the camera. You play with your tits and show off your pussy before <<$pakter[1]>> walks up. You kneel between his legs, take his shaft into your mouth and start passionately sucking his dick.'
+
+		gs 'arousal', 'bj', 30, 'exhibitionism'
+		gs 'stat'
+
+		act 'Keep sucking':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/deep.mp4"></video></center>'
+			'<<$pakter[1]>> grabs your hair in his fists and begins to fuck your mouth, driving his cock down your throat with every thrust.'
+			'After a few minutes of this, he takes his cock out and you wipe the saliva from your mouth.'
+
+			gs 'arousal', 'bj', 15, 'exhibitionism'
+			gs 'stat'
+
+			act 'Get fucked':
+				*clr & cla
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/pronebone.mp4"></video></center>'
+				'<<$pakter[1]>> grabs your hips, throws you on the couch and climbs on top of you. You feel him slide into your pussy and he begins to fuck you hard.'
+                'You spend the next few minutes getting fucked by him in a variety of positions.'
+				gs 'arousal', 'vaginal', 15, 'exhibitionism'
+				gs 'stat'
+
+				if orgasm_buildup => 200 - pcs_inhib:
+					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
+					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
+						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
+							*clr & cla
+							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
+							orgasmbonus += 10
+							porngasm += 1
+							cumnostd = 1
+							gs 'cum_call', '', $pakterID[1], 1, 0, 10000, 40
+							gs 'stat'
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncp<<rand(1,3)>>.mp4" width="400"></video></center>'
+							'You are really getting into it and soon reach your orgasm. Your convulsing pussy tightens around <<$pakter[1]>>, which sends him over the edge. You soon feel yourself being filled with a considerable amount of sperm.'
+							'He climbs off of you, but you stay on the couch while the camera comes forward to film your pussy as you squeeze <<$pakter[1]>>''s load out from deep inside you. After a few minutes the director nods his head, and you get up.'
+							$orgasm_or = 'yes'
+							gs 'arousal', 'vaginal', 5, 'exhibitionism'
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					else
+						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+				end
+				if orgasm_buildup < 300 - pcs_inhib:
+					act 'Fake orgasm':
+						*clr & cla
+						cumnostd = 1
+						!! gs 'cum_call', '', $pakterID[1], 1, 0, 10000, 40 (Not sure if this is needed anymore based on context. Delete if not.)
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncp<<rand(1,3)>>.mp4" width="400"></video></center>'
+						'<<$pakter[1]>> is pounding your pussy a little too hard and cums too soon, his cum splattering across your stomach when he pulls out. The director cuts and <<$pakter[1]>> moves aside as an assistant comes forward with a towel and a plastic syringe. She wipes you clean before pushing the syringe inside you, causing you to gasp as you feel a cold liquid pool inside your vagina. Once he is hard again, <<$pakter[1]>> gets back into position and penetrates you.'
+						'The camera resumes filming and he starts thrusting. After a few minutes, you both fake an orgasm and he climbs off of you, but you stay on the couch while the camera comes forward to film your pussy as you squeeze the fake cum out from deep inside you. After a few minutes the director nods his head, and you get up.'
+						gs 'arousal', 'vaginal', 5, 'exhibitionism'
+						gs 'arousal', 'end'
+						gs 'stat'
+
+						act 'Take a shower': gt 'pornstudio', 'shower'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '8':
+	if rand(0,2) = 0: pornbj += 1
+	pornvag += 1
+	pornanal += 1
+	porngang += 1
+	porncream += 1
+	pfType = 1
+	*clr & cla
+	gs 'fame', 'city', 'porn', 25
+	minut += 180
+	gang += 1
+	porngang += 1
+	$orgasm_or = 'no'
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> and <<$pakter[2]>> are your co-stars for this shoot. They are watching porn on a monitor, getting their cocks ready for you.'
+
+	act 'Undress and kneel':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj.mp4"></video></center>'
+		'You get into position kneeling before <<$pakter[1]>> and <<$pakter[2]>>. When the camera starts rolling, they slap their fully erect cocks against your face.'
+
+		gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
+		gs 'stat'
+
+		act 'Suck them':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj2.mp4"></video></center>'
+			'You then start sucking the two dicks in front of you in turn, jerking the other with your hand. The two men moan loudly in pleasure and encourage you to take them deeper.'
+			gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
+			gs 'stat'
+
+			act 'Fuck them':
+				*clr & cla
+				pcs_vag += 1
+				pcs_ass += 1
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/threesomedp<<rand(1,5)>>.mp4" width="500"></video></center>'
+				if rand(0,1) = 0:
+					cumnostd = 1
+					gs 'cum_call', '', $pakterID[1], 1, 0, 10000, 40
+					gs 'cum_call', 'anus', $pakterID[2], 1, 0, 0, 40
+					'<<$pakter[1]>> lays on the bed and you climb on top of him, sliding his cock into your pussy, then wait until <<$pakter[2]>> pushes into your ass. He starts to fuck you enthusiastically, making you ride <<$pakter[1]>>''s dick. They fuck you like for a while before spending time repositioning you into various poses and fucking both your holes. After getting fucked in a variety of positions, the director signals to the guys that they should cum inside you.'
+				else
+					cumnostd = 1
+					gs 'cum_call', '', $pakterID[2], 1, 0, 10000, 40
+					gs 'cum_call', 'anus', $pakterID[1], 1, 0, 0, 40
+					'<<$pakter[2]>> lays on the bed and you climb on top of him, sliding his cock into your pussy, then wait until <<$pakter[1]>> pushes into your ass. He starts to fuck you enthusiastically, making you ride <<$pakter[2]>>''s dick. They fuck you like for a while before spending time repositioning you into various poses and fucking both your holes. After getting fucked in a variety of positions, the director signals to the guys that they should cum inside you.'
+				end
+				gs 'arousal', 'anal', -25, 'exhibitionism', 'group'
+				gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
+				gs 'stat'
+
+				'The guys start to fuck you even faster in response, and you soon feel them twitching inside you.'
+
+				if orgasm_buildup => 200 - pcs_inhib:
+					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
+					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
+						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
+							cla
+							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
+							porngasm += 1
+							orgasmbonus += 10
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+							'You have a real and very explosive orgasm. Your legs buckle and you almost collapse on the guy beneath you as they both unload inside you. Once they are finished, they pull out and you lie on the bed with your legs spread so the camera can get a close up of your pussy and ass as their cum trickles out of you. After a few seconds, the director nods his head and you get up.'
+							$orgasm_or = 'yes'
+							gs 'arousal', 'vaginal', 5, 'exhibitionism'
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					else
+						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+				end
+				if orgasm_buildup < 300 - pcs_inhib:
+					act 'Fake orgasm':
+						cla
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+						'You fake a screaming orgasm and talk dirty to the guys as they unload inside you. Once they are finished, they pull out and you lie on the bed with your legs spread so the camera can get a close up of your pussy and ass as their cum trickles out of you. After a few seconds, the director nods his head and you get up.'
+						gs 'arousal', 'vaginal', 5, 'exhibitionism'
+						gs 'arousal', 'end'
+						gs 'stat'
+
+						act 'Take a shower': gt 'pornstudio', 'shower'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '9':
+	if rand(0,2) = 0: pornbj += 1
+	pornswall += 1
+	pornvag += 1
+	porngang += 1
+	porncream += 1
+	pfType = 1
+	*clr & cla
+	gs 'fame', 'city', 'porn', 25
+	minut += 180
+	gang += 1
+	$orgasm_or = 'no'
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> and <<$pakter[2]>> are your co-stars for this shoot. They are watching porn on a monitor, getting their cocks ready for you.'
+
+	act 'Undress and kneel':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj.mp4"></video></center>'
+		'You get into position kneeling before <<$pakter[1]>> and <<$pakter[2]>>. When the camera starts rolling, they slap their fully erect cocks against your face.'
+
+		gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
+		gs 'stat'
+
+		act 'Suck them':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj2.mp4"></video></center>'
+			'You then start sucking the two dicks in front of you in turn, jerking the other with your hand. The two men moan loudly in pleasure and encourage you to take them deeper.'
+			'You are sucking <<$pakter[2]>>''s dick when he grabs your hair for leverage and starts face fucking you. After a while, the director gestures for you to move onto the next scene, so he releases you and urges you to push your ass out.'
+
+			gs 'arousal', 'bj', 15, 'exhibitionism', 'group', 'rough', 'deepthroat'
+			gs 'stat'
+
+			act 'Fuck them':
+				*clr & cla
+				pornvag += 1
+				pornswall += 1
+				'<center><video autoplay loop src="images/shared/sex/group/threesomepm<<rand(1,12)>>.mp4" width="500"></video></center>'
+
+				if rand(0,1) = 0:
+					!! Precum pregnancy check
+					cumnostd = 1
+					gs 'cum_call', 'precum', $pakterID[1], 1, 0, 10000, 1
+
+					cumnostd = 1
+					gs 'cum_call', '', $pakterID[1], 1, 0, 10000, 40
+					cumnostd = 1
+					gs 'cum_call', 'mouth', $pakterID[2], 1, 0, 0, 40
+
+					'You get in position before <<$pakter[2]>> and start to suck him while <<$pakter[1]>> starts to fuck your pussy. He fucks you enthusiastically, making you swallow <<$pakter[2]>>''s dick. They fuck you like this and in a number of other poses and take turns switching between your mouth and pussy before the director signals that it is time for the finale.'
+				else
+					!! Precum pregnancy check
+					cumnostd = 1
+					gs 'cum_call', 'precum', $pakterID[2], 1, 0, 10000, 1
+
+					cumnostd = 1
+					gs 'cum_call', '', $pakterID[2], 1, 0, 10000, 40
+					cumnostd = 1
+					gs 'cum_call', 'anus', $pakterID[1], 1, 0, 0, 40
+
+					'You get in position before <<$pakter[1]>> and start to suck him while <<$pakter[2]>> starts to fuck your pussy. He fucks you enthusiastically, making you swallow <<$pakter[1]>>''s dick. They fuck you like this and in a number of other poses and take turns switching between your mouth and pussy before the director signals that it is time for the finale.'
+				end
+				gs 'arousal', 'bj', -25, 'exhibitionism', 'group'
+				gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
+				gs 'stat'
+
+				'The guys immediately start to fuck you even faster while still coordinating with each other and you soon feel them twitching inside you simultaneously. Your pussy is filled with cum as another load hits your throat, causing you to choke slightly.'
+
+				if orgasm_buildup => 200 - pcs_inhib:
+					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
+					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
+						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
+							cla
+							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
+							orgasmbonus += 10
+							porngasm += 1
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+							'You have a real orgasm and explosive orgasm, your moans muffled by the cock in your mouth. The guys finish and step away so the camera can film you swallowing the load in your mouth before moving down for a close up of the cum trickling out of your pussy.'
+							$orgasm_or = 'yes'
+							gs 'arousal', 'vaginal', 5, 'exhibitionism'
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					else
+						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+				end
+				if orgasm_buildup < 300 - pcs_inhib:
+					act 'Fake orgasm':
+						cla
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+						'You fake an orgasm alongide the guys, your moans muffled by the cock in your mouth. The guys finish and step away so the camera can film you swallowing the load in your mouth before moving down to get a close up of the cum trickling out of your pussy.'
+						gs 'arousal', 'vaginal', 5, 'exhibitionism'
+						gs 'arousal', 'end'
+						gs 'stat'
+
+						act 'Take a shower': gt 'pornstudio', 'shower'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '10':
+	if rand(0,1) = 0: pornbj += 1
+	pornvag += 2
+	porngang += 2
+	if rand(0,1) = 0: pornhj += 1
+	pornbukk += 2
+	pfType = 1
+	*clr & cla
+	gs 'fame', 'city', 'porn', 30
+	minut += 180
+	gang += 1
+	$orgasm_or = 'no'
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'Your co-stars <<$pakter[1]>>, <<$pakter[2]>>, <<$pakter[3]>> and <<$pakter[4]>> are watching porn while loudly discussing who gets to do what first.'
+	'As they continue arguing with each other, you do a striptease for the camera, allowing it to get close up shots of both your holes as you talk dirty, teasing the viewers.'
+
+	act 'Warmup':
+		*clr & cla
+
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/warmupgang.mp4" width="500"></video></center>'
+		'Under pressure from the director, the men eventually reach an agreement and gather around you. You starting sucking one guy''s dick while giving a handjob to another. The other two get creative - one of them sucks your tits while the other licks your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
+
+		gs 'arousal', 'bj', -20, 'exhibitionism', 'group'
+		gs 'arousal', 'hj', 20, 'exhibitionism', 'group'
+		gs 'stat'
+
+		act 'Fuck them':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/gangp<<rand(1,4)>>.mp4" width="500"></video></center>'
+			'The guys take turns fucking you in a variety of positions. You keep them hard by jerking and sucking them off when they''re not fucking you.'
+
+			!! Precum pregnancy check
+			cumnostd = 1
+			gs 'cum_call', 'precum', $pakterID[1], 1, 0, 10000, 1
+			cumnostd = 1
+			gs 'cum_call', 'precum', $pakterID[2], 1, 0, 10000, 1
+			cumnostd = 1
+			gs 'cum_call', 'precum', $pakterID[3], 1, 0, 10000, 1
+			cumnostd = 1
+			gs 'cum_call', 'precum', $pakterID[4], 1, 0, 10000, 1
+
+			gs 'arousal', 'vaginal', 20, 'exhibitionism', 'group'
+			gs 'stat'
+
+			act 'Finale':
+				killvar 'cuminside'
+				*clr & cla
+				'The guys continue to fuck you, but this time with the purpose of cumming as quickly as possible.'
+
+				if rand(0,5) > 0:
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath<<rand(1,2)>>.mp4" width="500"></video></center>'
+					'<<$pakter[1]>> is fucking you when he suddenly groans and pulls out, coating your labia with his load of cum. You look up at him seductively while biting your lip, a look of satisifed pleasure on his face.'
+					gs 'cum_call', 'labia', $pakterID[1], 1, 0, 10000, 40
+				else
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath<<rand(1,4)>>.mp4" width="500"></video></center>'
+					'<<$pakter[1]>> is fucking you when he suddenly groans and pulls his dick out of your pussy, but messes up when his first shot of cum shoots straight into your open pussy. He quickly corrects his aim, and the others coat your labia.'
+					cumnostd = 1
+					gs 'cum_call', '', $pakterID[1], 1, 0, 10000, 10
+					gs 'cum_call', 'labia', $pakterID[1], 1, 0, 10000, 30
+					cuminside = 1
+				end
+
+				if orgasm_buildup >= 200 - pcs_inhib:
+					orgasmbonus += 10
+					pornorg = 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+					'You are rubbing your clit and end up cumming alongside him as he coats your twitching pussy with his load.'
+					$orgasm_or = 'yes'
+					gs 'stat'
+				end
+				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
+				gs 'stat'
+
+				'When he is done, he is replaced by <<$pakter[2]>>, who quickly penetrates you and starts thrusting.'
+				if rand(0,5) > 0:
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath4.mp4" width="500"></video></center>'
+					'Reaching climax, <<$pakter[2]>> groans and pulls out, aiming his dick at your tits. He jerks his dick and you look down to see hot cum splatter over your tits. You giggle and smile as you squeeze your cum covered tits in your hands.'
+					gs 'cum_call', 'breasts', $pakterID[2], 1, 0, 10000, 40
+				else
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath4.mp4" width="500"></video></center>'
+					'Reaching climax, <<$pakter[2]>> groans and pulls out. He aims at your tits, but his first shot hits you straight in the face. He quickly corrects his aim, and the rest of his cum coats your tits.'
+					cumnostd = 1
+					gs 'cum_call', '', $pakterID[2], 1, 0, 10000, 10
+					gs 'cum_call', 'breasts', $pakterID[2], 1, 0, 10000, 30
+					cuminside = 1
+				end
+
+				if orgasm_buildup >= 200 - pcs_inhib:
+					orgasmbonus += 10
+					pornorg = 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+					'You are playing with your tits as <<$pakter[2]>> fucks you. You pinch your nipple just as he pulls out and have an explosive orgasm as he coats your writhing body with his cum.'
+					$orgasm_or = 'yes'
+					gs 'stat'
+				end
+				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
+				gs 'stat'
+
+				'When he is done, he is replaced by <<$pakter[3]>>, who moves in and starts pounding your pussy hard.'
+				if rand(0,5) > 0:
+					'<center><video autoplay loop src="images/shared/sex/cum/cum2.mp4" width="500"></video></center>'
+					'<<$pakter[3]>> is really going at it and doesn''t stop until the last second. He suddenly groans and quickly pulls out before straddling you. You close your eyes just in time as his warm cum splatter across your face and into your hair. When he''s finished, you take him into your mouth and suck his dick clean.'
+					gs 'cum_call', 'hair', $pakterID[3], 1, 0, 10000, 20
+					gs 'cum_call', 'face', $pakterID[3], 1, 0, 10000, 20
+				else
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath2.mp4" width="500"></video></center>'
+					'<<$pakter[3]>> is pounding you hard. He reaches climax rather quickly, but doesn''t pull out fast enough. His first shot of cum shoots straight into your open pussy, and the rest splatters over your already covered labia.'
+					cumnostd = 1
+					gs 'cum_call', '', $pakterID[3], 1, 0, 10000, 10
+					gs 'cum_call', 'labia', $pakterID[3], 1, 0, 10000, 15
+					cuminside = 1
+				end
+
+				if orgasm_buildup >= 200 - pcs_inhib:
+					orgasmbonus += 10
+					pornorg = 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+					'<<$pakter[3]>> is pounding you so hard that you have an orgasm as he coats your writhing body with his load.'
+					$orgasm_or = 'yes'
+				end
+				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
+				gs 'stat'
+
+				'When he is done, he is replaced by <<$pakter[4]>>, the last of the men.'
+				if rand(0,5) > 0:
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath3.mp4" width="500"></video></center>'
+					'<<$pakter[4]>> fucks you for only a few minutes before he groans and pulls out, coating your belly with his cum.'
+					gs 'cum_call', 'stomach', $pakterID[4], 1, 0, 10000, 40
+				else
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath3.mp4" width="500"></video></center>'
+					'<<$pakter[4]>> fucks you for only a few minutes before he pulls out, but messes up when his first shot of cum shoots straight into your open pussy. He quickly corrects his aim, and the rest splatter across your stomach.'
+					cumnostd = 1
+					gs 'cum_call', '', $pakterID[4], 1, 0, 10000, 10
+					gs 'cum_call', 'stomach', $pakterID[4], 1, 0, 10000, 30
+					cuminside = 1
+				end
+
+				if orgasm_buildup >= 200 - pcs_inhib:
+					orgasmbonus += 10
+					pornorg = 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+					'The four guys fucking has aroused you greatly. You end up having an explosive orgasm as he coats your writhing body with his load.'
+					$orgasm_or = 'yes'
+				end
+				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
+				if cuminside = 1: porncream += 1 & killvar 'cuminside'
+				if pornorg = 1: porngasm += 1 & killvar 'pornorg'
+				gs 'stat'
+				gs 'arousal', 'end'
+				gs 'stat'
+				
+				'The men finished, you lie on the bed and teasingly play with your cum covered body for a few seconds, the camera getting few close ups of you before you sit up and use your fingers to scoop some cum off your tits, making a seductive show of sucking your fingers clean and smiling at the camera. The director is pleased and ends the shoot.'
+
+				act 'Take a shower': gt 'pornstudio', 'shower'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '11':
+	if rand(0,1) = 0:pornbj += 1
+	if rand(0,1) = 0:pornhj += 1
+	pornvag += 2
+	porngang += 2
+	porncream += 2
+	pfType = 1
+	*clr & cla
+	gs 'fame', 'city', 'porn', 30
+	minut += 180
+	gang += 1
+	$orgasm_or = 'no'
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'Your co-stars <<$pakter[1]>>, <<$pakter[2]>>, <<$pakter[3]>> and <<$pakter[4]>> are watching porn while loudly discussing who gets to do what first.'
+	'As they continue arguing with each other, you do a striptease for the camera, allowing it to get close up shots of both your holes as you talk dirty, teasing the viewers.'
+
+	act 'Warmup':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/warmupgang.mp4" width="500"></video></center>'
+		'Under pressure from the director, the men eventually reach an agreement and gather around you. You starting sucking one guy''s dick while giving a handjob to another. The other two get creative - one of them sucks your tits while the other licks your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
+
+		gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
+		gs 'arousal', 'cuni', 20, 'exhibitionism', 'group'
+		gs 'stat'
+
+		act 'Fuck them':
+			*clr & cla
+			'<center><video autoplay loop src="images/shared/sex/group/threesomepm<<rand(1,12)>>.mp4" width="500"></video></center>'
+            'The guys take turns fucking you in a variety of positions. You keep them hard by jerking and sucking them off when they''re not fucking you.'
+
+			gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
+			gs 'arousal', 'bj', -20, 'exhibitionism', 'group'
+			gs 'arousal', 'vaginal', 20, 'exhibitionism', 'group'
+			gs 'stat'
+
+			act 'Creampies':
+				*clr & cla
+				minut += 5
+				porncream += 1
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncp<<rand(1,4)>>.mp4" width="500"></video></center>'
+				cumnostd = 1
+				gs 'cum_call', '', $pakterID[1], 1, 0, 10000, 40
+				cumnostd = 1
+				gs 'cum_call', '', $pakterID[2], 1, 0, 10000, 40
+				cumnostd = 1
+				gs 'cum_call', '', $pakterID[3], 1, 0, 10000, 40
+				cumnostd = 1
+				gs 'cum_call', '', $pakterID[4], 1, 0, 10000, 40
+				gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
+
+				if orgasm_buildup => 200 - pcs_inhib:
+					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
+					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
+						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
+							*clr & cla
+							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncp4some.mp4" width="400"></video></center>'
+							'You lie on your back, spread your legs and smile at the guys, talking dirty and inviting them to cum in you. They gather round and take turns fucking you, making you moan as you feel each load of cum pump deep inside you. The cum from the first two guys start to leak from you and pool below you as the last guy fucks you fast and hard.'
+							'Since you are already on edge, this pushes you over and you cum around his dick, milking it even more. This pleases the director greatly. As soon as the guys are finished, the camera comes for a close up as a stream of cum runs from your pussy. It then pans up to you and you give it a wink and kiss.'
+							orgasmbonus += 10
+							porngasm += 1
+							$orgasm_or = 'yes'
+							gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Finish':
+								*clr & cla
+								'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/pornwalk.mp4" height="200">'
+								'The scene ends with you putting on your dress and stepping out the door with cum still dripping from your pussy.'
+
+								act 'Take a shower': gt 'pornstudio', 'shower'
+							end
+						end
+					else
+						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+				end
+				if orgasm_buildup < 300 - pcs_inhib:
+					act 'No orgasm':
+						*clr & cla
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncp4some.mp4" width="400"></video></center>'
+						'You lie on your back, spread your legs and smile at the guys, talking dirty and inviting them to cum in you. They gather round and take turns fucking you, making you moan as you feel each load of cum pump deep inside you. The cum from the first two guys start to leak from you and pool below you as the last guy fucks you fast and hard.'
+						'As soon as the guys are finished, the camera comes for a close up as a stream of cum runs from your pussy. It then pans up to you and you give it a wink and kiss.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Finish':
+							*clr & cla
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/pornwalk.mp4" height="200">'
+							'The scene ends with you putting on your dress and stepping out the door with cum still dripping from your pussy.'
+
+							act 'Take a shower': gt 'pornstudio', 'shower'
+					    end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '12':
+	if rand(0,1) = 0: pornbj += 1
+	if rand(0,1) = 0: pornhj += 1
+	pornanal += 2
+	porngang += 2
+	porncream += 2
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 30
+	minut += 180
+	gang += 1
+	$orgasm_or = 'no'
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'Your co-stars <<$pakter[1]>>, <<$pakter[2]>>, <<$pakter[3]>> and <<$pakter[4]>> are watching porn while loudly discussing who gets to do what first.'
+	'As they continue arguing with each other, you do a striptease for the camera, allowing it to get close up shots of both your holes as you talk dirty, teasing the viewers.'
+
+	act 'Warmup':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/warmupgang.mp4" width="500"></video></center>'
+		'Under pressure from the director, the men eventually reach an agreement and gather around you. You starting sucking one guy''s dick while giving a handjob to another. The other two get creative - one of them sucks your tits while the other licks your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
+
+		gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
+		gs 'arousal', 'cuni', 20, 'exhibitionism', 'group'
+		gs 'stat'
+
+		act 'Fuck them':
+			*clr & cla
+			gs 'stat'
+			'<center><video autoplay loop src="images/shared/sex/group/threesomepm<<rand(0,5)>>.mp4" width="500"></video></center>'
+			'The guys take turns fucking your ass in a variety of positions. You keep them hard by jerking and sucking them off when they''re not fucking you.'
+
+			gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
+			gs 'arousal', 'bj', -20, 'exhibitionism', 'group'
+			gs 'arousal', 'anal', 20, 'exhibitionism', 'group'
+			gs 'stat'
+
+			act 'Anal creampies':
+				*clr & cla
+				minut += 5
+				cumnostd = 1
+				gs 'cum_call', 'anus', $pakterID[1], 1, 0, 10000, 40
+				cumnostd = 1
+				gs 'cum_call', 'anus', $pakterID[2], 1, 0, 10000, 40
+				cumnostd = 1
+				gs 'cum_call', 'anus', $pakterID[3], 1, 0, 10000, 40
+				cumnostd = 1
+				gs 'cum_call', 'anus', $pakterID[4], 1, 0, 10000, 40
+				gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
+				
+				if orgasm_buildup => 200 - pcs_inhib:
+					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
+					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
+						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
+							*clr & cla
+							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/anal4some.mp4" width="400"></video></center>'
+							'You lower your head onto the pillows while pushing your ass in the air and spreading your cheeks to give the guys easy access to your hole. You feel a dick slide into your asshole and start fucking you hard for a few seconds before stopping. You then feel it push deep into your ass and pump a considerable amount of warm cum into your bowels.'
+							'Since you are already on edge, this pushes you over and you moan into the pillow as your legs buckle in orgasm. The director seems extremely pleased with this. The guy pulls out and you immediately feel another dick replace him, pushing deep into your ass before it starts thrusting. The other guys take their turns cumming in your ass, and by the time they''re done, you can feel a considerable amount of cum pooled inside you.'
+							orgasmbonus += 10
+							porngasm += 1
+							$orgasm_or = 'yes'
+							gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Finish':
+								*clr & cla
+								'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/pornwalk.mp4" height="200">'
+								'As soon as the last guy pulls out, you quickly stuff a butt plug into your ass to contain the cum inside you. The scene ends with you putting on your dress and stepping out the door with the cum inside you.'
+								act 'Take a shower': gt 'pornstudio', 'shower'
+							end
+						end
+					else
+						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+				end
+				if orgasm_buildup < 300 - pcs_inhib:
+					act 'No orgasm':
+						*clr & cla
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/anal4some.mp4" width="400"></video></center>'
+						'You lower your head onto the pillows while pushing your ass in the air and spreading your cheeks to give the guys easy access to your hole. You feel a dick slide into your asshole and start fucking you hard for a few seconds before stopping. You then feel it push deep into your ass and pump a considerable amount of warm cum into your bowels.' 
+						'The guy pulls out and you immediately feel another dick replace him, pushing deep into your ass before it starts thrusting. The other guys take their turns cumming in your ass, and by the time they''re done, you can feel a considerable amount of cum pooled inside you.'
+						gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Finish':
+							*clr & cla
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/pornwalk.mp4" height="200">'
+							'As soon as the last guy pulls out, you quickly stuff a butt plug into your ass to contain the cum inside you. The scene ends with you putting on your dress and stepping out the door with the cum inside you.'
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '13':
+	if rand(0,1) = 0:pornbj += 1
+	if rand(0,1) = 0:pornhj += 1
+	pornvag += 1
+	pornanal += 1
+	porngang += 2
+	porncream += 2
+	pfType = 1
+	*clr & cla
+	gs 'fame', 'city', 'porn', 30
+	minut += 180
+	gang += 1
+	$orgasm_or = 'no'
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'Your co-stars <<$pakter[1]>>, <<$pakter[2]>>, <<$pakter[3]>> and <<$pakter[4]>> are watching porn while loudly discussing who gets to do what first.'
+	'As they continue arguing with each other, you do a striptease for the camera, allowing it to get close up shots of both your holes as you talk dirty, teasing the viewers.'
+
+	act 'Warmup':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/warmupgang.mp4" width="500"></video></center>'
+		'Under pressure from the director, the men eventually reach an agreement and gather around you. You starting sucking one guy''s dick while giving a handjob to another. The other two get creative - one of them sucks your tits while the other licks your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
+
+		gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
+		gs 'arousal', 'bj', 20, 'exhibitionism', 'group'
+		gs 'stat'
+
+		act 'Let them fuck you':
+			*clr & cla
+			cumnostd = 1
+			gs 'cum_call', '', $pakterID[1], 1, 0, 10000, 40
+			cumnostd = 1
+			gs 'cum_call', '', $pakterID[2], 1, 0, 10000, 40
+			gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
+
+			'<center><video autoplay loop src="images/shared/sex/group/doublevag<<rand(1,4)>>.mp4" width="500"></video></center>'
+
+			if orgasm_buildup < 200 - pcs_inhib:
+			    '<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+				'<<$paktor[1]>> lies down on the bed and you slide down onto his dick, moaning as it stretches your pussy. <<$paktor[2]>> steps behind you and pushes his dick inside of your already occupied vagina, and the two guys start to fuck you in tandem. When the director signals, the two guys start fucking you more forcefully, and thanks to their timing, they cum inside you at the same time.'
+				'You talk dirty to them and fake an orgasm while you wait for them to finish unloading inside you.'
+				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
+				gs 'stat'
+			else
+				orgasmbonus += 10
+				porngasm += 1
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+				'<<$paktor[1]>> lies down on the bed and you slide down onto his dick, moaning as it stretches your pussy. <<$paktor[2]>> steps behind you and pushes his dick inside of your already occupied vagina, and the two guys start to fuck you in tandem. When the director signals, the two guys start fucking you more forcefully, and thanks to their timing, they cum inside you at the same time.'
+				'Thnaks to the two dicks stretching your pussy and fucking you hard, you also cum, crying out in pleasure as your pussy contracts around them while they unload inside you.'
+				$orgasm_or = 'yes'
+				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
+				gs 'stat'
+			end
+			$orgasm_or = 'no'
+			gs 'stat'
+
+			act 'They fuck your ass':
+				*clr & cla
+				cumnostd = 1
+				gs 'cum_call', 'anus', $pakterID[3], 1, 0, 10000, 40
+				cumnostd = 1
+				gs 'cum_call', 'anus', $pakterID[4], 1, 0, 10000, 40
+
+				gs 'arousal', 'anal', 25, 'exhibitionism', 'group'
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/doublean<<rand(1,4)>>.mp4" width="500"></video></center>'
+                'Cum leaks from your pussy as <<$paktor[1]>> and <<$paktor[2]>> pull out and let <<$paktor[3]>> and <<$paktor[4]>> replace them. You give them both a quick blowjob before <<$paktor[3]>> lies on the bed and pulls you on top of him, sliding his cock into your ass. <<$paktor[4]>> moves in behind and inserts his dick into your already stretched hole. Despite the tightness, the guys quickly find a rhythm.'
+				
+				if orgasm_buildup => 200 - pcs_inhib:
+					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
+					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
+						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
+							*clr & cla
+							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
+							orgasmbonus += 10
+							porngasm += 1
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+							'The pleasure of your ass being double fucked means you also cum, visibly orgasming on camera alongside the guys.'
+							$orgasm_or = 'yes'
+							gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					else
+						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+					gs 'pornfilm', '13a'
+				else
+					gs 'pornfilm', '13a'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '13a':
+	act 'Fake orgasm':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
+		'Cum leaks from your pussy as <<$paktor[1]>> and <<$paktor[2]>> pull out and let <<$paktor[3]>> and <<$paktor[4]>> replace them. You give them both a quick blowjob before <<$paktor[3]>> lies on the bed and pulls you on top of him, sliding his cock into your ass. <<$paktor[4]>> moves in behind and inserts his dick into your already stretched hole. Despite the tightness, the guys quickly find a rhythm.'
+		'You talk dirty to them while they fuck your ass and fake an orgasm when they cum inside you.'
+		gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
+		gs 'arousal', 'end'
+		gs 'stat'
+
+		act 'Take a shower': gt 'pornstudio', 'shower'
+	end
+end
+
+if $ARGS[0] = '14':
+	porngang += 5
+	pornexhib += 5
+	pfType = 1
+	*clr & cla
+	gs 'fame', 'city', 'porn', 40
+	minut += 30
+	gang += 1
+	guy += 50
+	$orgasm_or = 'no'
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'There are fifty guys standing around. They are your fans, and they have come just for the chance to fuck you. They are all nervously talking, and watching your previous works on screens.'
+	'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/touching.mp4" width="500"></video></center>'
+	'You lie down on the stage and let them touch you to get them into the mood.'
+
+	gs 'arousal', 'foreplay', 60, 'gangbang', 'exhibitionism'
+	gs 'stat'
+
+	act 'Start filming':
+		*clr & cla
+		bj50 = rand(0,8)
+		hj50 = rand(0,8)
+		lip50 = rand(0,8)
+		anal50 = rand(0,8)
+		bukk50 = rand(0,8)
+		sex50 = 50 - bj50 - hj50 - lip50 - anal50 - bukk50
+		stat['vaginal'] += 50-anal50
+		if bj50 > 5:pornbj += 1
+		if hj50 > 5:
+			pornhj += 1 & pornbukk += 1
+		elseif hj50 > 5:
+			pornhj += 1
+		end
+		if lip50 > 5:pornbj += 1 & pornswall += 1
+		if anal50 > 5:pornanal += 1
+		if bukk50 > 5:pornbukk += 1
+		if sex50 > 45:
+			pornvag += 5
+			porncream += 5
+		elseif sex50 > 35:
+			pornvag += 4
+			porncream += 4
+		elseif sex50 > 25:
+			pornvag += 3
+			porncream += 3
+		elseif sex50 > 15:
+			pornvag += 2
+			porncream += 2
+		elseif sex50 > 5:
+			pornvag += 1
+			porncream += 1
+		end
+		sexpartkno = 0
+		pfcounter = 0
+		:gbblow
+		if bj50 > 0:
+			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
+			!! Precum pregnancy check
+			cumnostd = 1
+			gs 'cum_call', 'precum', 'Porn Fan', 0, 0, 10000, 1
+			cumnostd = 1
+			gs 'cum_call', 'mouth_swallow', 'Porn Fan', 0, 0, 10000, 40
+			bj50 -= 1
+			stat['bj'] += 1
+		end
+		if bj50 > 0: jump 'gbblow'
+		:gbhand
+		if hj50 > 0:
+			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
+			!! Precum pregnancy check
+			cumnostd = 1
+			gs 'cum_call', 'precum', 'Porn Fan', 0, 0, 10000, 1
+			gs 'cum_call', 'hands', 'Porn Fan', 0, 0, 10000, 40
+			hj50 -= 1
+			stat['hj'] += 1
+		end
+		if hj50 > 0: jump 'gbhand'
+		:gbface
+		if lip50 > 0:
+			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
+			!! Precum pregnancy check
+			cumnostd = 1
+			gs 'cum_call', 'precum', 'Porn Fan', 0, 0, 10000, 1
+			if rand(0,1)=0:
+				gs 'cum_call', 'face', 'Porn Fan', 0, 0, 10000, 40
+			else
+				gs 'cum_call', 'hair', 'Porn Fan', 0, 0, 10000, 40
+			end
+			lip50 -= 1
+			facial += 1
+		end
+		if lip50 > 0: jump 'gbface'
+		:gbass
+		if anal50 > 0:
+			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
+			!! Precum pregnancy check
+			cumnostd = 1
+			gs 'cum_call', 'precum', 'Porn Fan', 0, 0, 10000, 1
+			cumnostd = 1
+			gs 'cum_call', 'anus', 'Porn Fan', 0, 0, 10000, 40
+			anal50 -= 1
+			stat['anal'] += 1
+		end
+		if anal50 > 0: jump 'gbass'
+		:gbbukk
+		if bukk50 > 0:
+			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
+			!! Precum pregnancy check
+			cumnostd = 1
+			gs 'cum_call', 'precum', 'Porn Fan', 0, 0, 10000, 1
+			bukkloc = rand(0,6)
+			if bukkloc = 0:
+				gs 'cum_call', 'labia', 'Porn Fan', 0, 0, 10000, 40
+			elseif bukkloc = 1:
+				gs 'cum_call', 'butt', 'Porn Fan', 0, 0, 10000, 40
+			elseif bukkloc = 2:
+				gs 'cum_call', 'back', 'Porn Fan', 0, 0, 10000, 40
+			elseif bukkloc = 3:
+				gs 'cum_call', 'legs', 'Porn Fan', 0, 0, 10000, 40
+			elseif bukkloc = 4:
+				gs 'cum_call', 'arms', 'Porn Fan', 0, 0, 10000, 40
+			elseif bukkloc = 5:
+				gs 'cum_call', 'stomach', 'Porn Fan', 0, 0, 10000, 40
+			else
+				gs 'cum_call', 'breasts', 'Porn Fan', 0, 0, 10000, 40
+			end
+			bukk50 -= 1
+		end
+		if bukk50 > 0: jump 'gbbukk'
+		:gbsex
+		if sex50 > 0:
+			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
+			gs 'boyStat', $npclastgenerated
+			pfcounter += 1
+			cumnostd = 1
+			gs 'cum_call', '', 'Porn Fan', 0, 0, 10000, 40
+			sex50 -= 1
+		end
+		if sex50 > 0: jump 'gbsex'
+
+		gangOrg = 0
+		!if pcs_horny > 70 and pcs_inhib > 80:gangOrg = rand(1,5) & orgazm += gangOrg & pcs_horny = rand(0,50)
+		!if gangOrg = 1:
+		!	$gangorg = ' and you still managed to have an orgasm.'
+		!	$orgasm_or = 'yes'
+		!elseif gangOrg > 0:
+		!	$gangorg = ' and you still managed to orgasm <<gangOrg>> times.'
+		!	$orgasm_or = 'yes'
+		!else
+		!	$gangorg = '.'
+		!end
+		!orgasmbonus += gangOrg*10
+		!porngasm += gangOrg
+		gs 'stat'
+		:gangbang_orgasm_loop
+		gangbang_loop_counter += 1
+		minut += 7
+		gs 'arousal', 'vaginal', -10, 'gangbang', 'exhibitionism'
+		$orgasm_or = 'no'
+		if orgasm_buildup >= 400 - 3*pcs_inhib:
+			gangOrg += 1
+			$orgasm_txt = ''
+			$orgasm_or = 'custom'
+		end
+		if gangbang_loop_counter < 50: jump 'gangbang_orgasm_loop'
+		killvar 'gangbang_loop_counter'
+		killvar '$orgasm_or'
+		*clr
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/fuckfifty<<rand(0,5)>>.mp4" width="500"></video></center>'
+		'Your fans gather around and start to fuck you with great enthusiasm, but little technique. The gangbang lasts for hours and you are plastered in cum by the time they are finished.'
+
+		if gangOrg > 0: 'During the shoot you managed to ' + iif(gangOrg = 1, 'have one orgasm.', 'orgasm <<gangOrg>> times.')
+		orgasmbonus += gangOrg*10
+		porngasm += gangOrg
+
+		!gs 'arousal', 'vaginal', 360, 'gangbang', 'exhibitionism'
+		gs 'arousal', 'end'
+		gs 'stat'
+
+		act 'Take a shower': gt 'pornstudio', 'shower'
+	end
+end
+
+if $ARGS[0] = '15':
+	if rand(0,1) = 0:pornbj += 1
+	pornanal += 1
+	if rand(0,2) = 0:porngang += 1
+	porncream += 1
+	pfType = 1
+	*clr & cla
+	gs 'fame', 'city', 'porn', 20
+	minut += 180
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> is your co-star for this shoot. He is standing to the side, slowly stroking his dick.'
+
+	act 'Undress and start':
+		*clr & cla
+		pornbj += 1
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
+		'The scene starts with you giving a camera a striptease and bending over to give it a close up view of your asshole. You then finger your ass and use a dildo to fuck yourself before <<$pakter[1]>> walks over.'
+		'You crawl up to him with a seductive gaze, take his cock in your mouth and begin sucking it.'
+
+		gs 'arousal', 'bj', 30, 'exhibitionism'
+		gs 'stat'
+
+		act 'Keep sucking':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/deep.mp4"></video></center>'
+			'<<$pakter[1]>> grabs your hair in his fists and begins to fuck your mouth, driving his cock down your throat with every thrust.'
+			'After a few minutes of this, he takes his cock out and you wipe the saliva from your mouth.'
+
+			gs 'arousal', 'bj', 15, 'exhibitionism'
+			gs 'stat'
+
+			act 'Penetration':
+				*clr & cla
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/analinsert.mp4"></video></center>'
+				'<<$pakter[1]>> sits on the bed and you turn around, presenting your ass to him. He slaps and squeezes your ass a few times before you start grinding his cock between your ass cheeks, your saliva coating your asshole. <<$pakter[1]>> then guides his cock to your now wet hole and slowly penetrates you, both of you groaning as he slides inside you.'
+
+				gs 'arousal', 'anal', 15, 'exhibitionism'
+				gs 'stat'
+
+				act 'Anal':
+					*clr & cla
+					pcs_ass += 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/sex2.mp4"></video></center>'
+					'<<$pakter[1]>> enjoys the tightness as you ride his dick hard, occasionally sliding it out to show both <<$pakter[1]>> and the camera your stretched hole. This continues for a while before it starts hurting and you pull out to suck his dick for a few minutes to let your ass recover.'
+					'You then get on all fours and <<$pakter[1]>> slides back inside you and resumes fucking your ass. You get ass fucked in a variety of positions, with breaks being called to let you rest or to let <<$pakter[1]>> get hard again.'
+
+					gs 'arousal', 'anal', 15, 'exhibitionism'
+					gs 'stat'
+
+					if orgasm_buildup => 200 - pcs_inhib:
+						gs 'willpower', 'exhib', 'self', 'hard'
+						if orgasm_buildup => 300 - pcs_inhib:
+							act 'Orgasm': gs 'pornfilm', '15b'
+						elseif will_cost <= pcs_willpwr:
+							act 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)':
+								gs 'willpower', 'pay', 'self'
+								gs 'pornfilm', '15b'
+							end
+						else
+							act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+						end
+						gs 'pornfilm', '15a'
+					else
+						gs 'pornfilm', '15a'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '15a':
+	act 'Too early':
+		*clr & cla
+		sexpartkno = 1
+		cumnostd = 1
+		gs 'cum_call', 'anus', $pakterID[1], 1, 0, 10000, 40
+
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncpanal.mp4" width="400"></video></center>'
+		'You have returned to riding <<$pakter[1]>>''s dick when you feel him starting to twitch inside you. It''s too early for him to finish, so he lifts you off of him, but not fast enough. You feel spurts of warm cum plastering your ass cheek.'
+		'The director cuts and motions for an assistant to come and clean you up. As she wipes the cum from your ass, you hear the director tell <<$pakter[1]>> that there isn''t enough time left to wait for him to get hard again, so makes the decison to take his place and make it a POV shot to hide his face.'
+		'The assistant finishes cleaning you as the director undresses and sits on the bed. You straddle him, slide down onto his awaiting dick and start riding him as he takes the camera in his hand and resumes filming. After a few minutes, you feel him unload deep inside your ass. You pull yourself off of him and bend over on all fours as he moves in behind you with the camera. Your ass lets out a loud squelch as you squeeze the cum from your well fucked asshole.' 
+		'The director seems satisfied with the scene and ends the shoot.'
+		gs 'arousal', 'anal', 5, 'exhibitionism'
+		gs 'arousal', 'end'
+		gs 'stat'
+
+		act 'Take a shower': gt 'pornstudio', 'shower'
+	end
+end
+
+if $ARGS[0] = '15b':
+	*clr & cla
+	sexpartkno = 1
+	orgasmbonus += 10
+	porngasm += 1
+	cumnostd = 1
+	gs 'cum_call', 'anus', $pakterID[1], 1, 0, 10000, 40
+
+	'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncpanal.mp4" width="400"></video></center>'
+	'You have returned to riding his dick and are really getting into it. You soon reach your orgasm and let out a pleasured scream as your ass tightens around <<$pakter[1]>>, which also sends him over the edge. You feel your bowels being flooded with warm cum.'
+	'You climb off of <<$pakter[1]>> and bend over on all fours as the camera moves in behind you. Your well fucked hole lets out a loud squelch as you squeeze the cum from your ass.'
+	'The director seems satisfied with the scene and ends the shoot.'
+	$orgasm_or = 'yes'
+	gs 'arousal', 'anal', 5, 'exhibitionism'
+	gs 'arousal', 'end'
+	gs 'stat'
+
+	act 'Take a shower': gt 'pornstudio', 'shower'
+end
+
+if $ARGS[0] = '16':
+	if rand(0,2)=0:pornhj += 1
+	if rand(0,2)=0:pornbj += 1
+	pornanal += 1
+	pornbukk += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 16
+	minut += 180
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> is your co-star for this shoot. He is standing to the side, slowly stroking his dick.'
+
+	act 'Undress and start':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hj.mp4"></video></center>'
+		'The scene starts with you giving a camera a striptease and getting on all fours on a sofa to give it a close up view of your asshole. You then finger your ass before <<$pakter[1]>> walks over.'
+        '<<$pakter[1]>> sits on the sofa next to you. You kneel beside him, take his dick in your hand and start jerking it while making out with him.'
+
+		gs 'arousal', 'hj', 30, 'exhibitionism'
+		gs 'stat'
+
+		act 'Blow him':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
+			'<<$pakter[1]>> is now rock hard in your hand, so you bend over and start passionately sucking his dick while he leans over and plays with your ass.'
+
+			gs 'arousal', 'bj', 5, 'exhibitionism'
+			gs 'stat'
+
+			act 'Rimjob':
+				*clr & cla
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/rimming.mp4"></video></center>'
+				'After sucking his dick for a few minutes, you get up and seductively walk over to a nearby table. You lie down on the table and spread your ass for <<$pakter[1]>>, who walks over and begins to rim you, expertly flicking his tongue over your hole.'
+
+				gs 'arousal', 'rimming', 5, 'exhibitionism'
+				gs 'stat'
+
+				act 'Anal':
+					*clr & cla
+					pcs_ass += 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/sexanal.mp4"></video></center>'
+					'Your asshole now wet and ready, <<$pakter[1]>> fingers your hole before standing and inserting his dick inside. He begins to fuck you hard, occasionally pulling out to show your gaping hole to the camera.'
+                    'You get ass fucked in various poses both on and next to the table with a number of breaks in filming to let you rest or let him get hard again. You eventually return to the pose on the table you started with.'
+					gs 'arousal', 'anal', 15, 'exhibitionism'
+					gs 'stat'
+
+					act 'Climax':
+						*clr & cla
+						minut += 5
+						cumnostd = 1
+						gs 'cum_call', 'butt', $pakterID[1], 1, 0, 10000, 40
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumanal.mp4"></video></center>'
+						'<<$pakter[1]>> starts fucking your ass fast and hard as you talk dirty to him and the camera. He starts panting, and just as he is about to cum, he pulls out and shoots his load over your ass.'
+
+						act 'Clean his cock':
+							*clr & cla
+							minut += 5
+							gs 'cum_call', 'mouth_swallow', $pakterID[1], 1, 0, 10000, 4
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj2.mp4"></video></center>'
+							'You quickly slide off the table and take his cock down your throat before licking his shaft clean, the camera getting a good shot of your cum covered ass as you do.'
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '17':
+	porntrib += 1
+	porncuni += 1
+	pornlesbo += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 16
+	minut += 180
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$paktress[1]>> is your co-star for this shoot. She is sitting to the side, fondling her breasts while watching porn on a monitor.'
+
+	act 'Start':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo0.mp4"></video></center>'
+		'The scene starts with you playing with <<$paktress[1]>>''s ass. You give her a firm slap on the rear and tease the camera by slowly pulling her panties halfway down before pulling them up again. You then quickly pull them down again, this time to her ankles. She gives the camera a view of her pussy and asshole before you push her onto the bed in front of you.'
+
+		gs 'arousal', 'foreplay_give', 5, 'exhibitionism'
+		gs 'stat'
+
+		act 'Eat her pussy':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo1.mp4"></video></center>'
+			'You kneel before <<$paktress[1]>>, lifting her panties from her ankles and spreading her legs. You slowly trace lines along her labia with your tongue before running it between her lips and reaching her clit. You then quickly start flicking her clit, your tongue swirling over it as it begins to swell.'
+
+			gs 'arousal', 'cuni_give', 15, 'exhibitionism'
+			gs 'stat'
+
+			act 'Your turn':
+				*clr & cla
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo2.mp4"></video></center>'
+				'After pleasing her for a while, you withdraw your tongue from her crotch as she quickly pulls you down onto your back. She lifts your legs and practically rips your panties off, tossing them aside. She wastes no time and buries her face right into your pussy, teasing your engorged clit as she vigorously eats you out, her tongue lapping up the juices that run from your pussy.'
+
+				gs 'arousal', 'cuni', 15, 'exhibitionism'
+				gs 'stat'
+
+				act 'Tribbing':
+					*clr & cla
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo3.mp4"></video></center>'
+					'Satisfied with pleasing you with her tongue, <<$paktress[1]>> straddles you and holds your leg to one side as she brings her pussy down to meet your own. You let out a pleasured moan as your clits make contact. She then begins rocking her hips back and forth and you both enjoy the sensation as your wet labia makes it easy for her to slide herself across you.'
+
+					gs 'arousal', 'tribbing', 15, 'exhibitionism'
+					gs 'stat'
+
+					act 'Double dildo':
+						*clr & cla
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo4.mp4"></video></center>'
+						'<<$paktress[1]>> stops her movements and reaches over to grab a sizeable doubled headed dildo. She sucks on one end and slides it into your pussy. The toy buried firmly in your hole, she slides herself down onto the other end. She then starts to ride the dildo, her movements pushing it deeper into your pussy.'
+
+						gs 'arousal', 'vaginal_dildo', 15, 'exhibitionism'
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							minut += 5
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4"></video></center>'
+							'<<$paktress[1]>> reaches her climax as she slams down on the dildo, sending it deep into her pussy. Her body is overwhelmed in pleasure as her juices run down the shaft of the dildo and onto your pussy. She withdraws the dildo from her pussy and pulls it out of you. You both suck the ends of it clean.'
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '18':
+	porncuni += 1
+	pornlesbo += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 16
+	minut += 180
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$paktress[1]>>, your co-star for this shoot, is sitting to the side, fondling her breasts while watching porn on a monitor.'
+
+	act 'Start':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo0.mp4"></video></center>'
+		'The scene starts with you playing with <<$paktress[1]>>''s ass. You give her a firm slap on the rear and tease the camera by slowly pulling her panties halfway down before pulling them up again. You then quickly pull them down, this time to her ankles. She gives the camera a view of her pussy and asshole before you push her onto the bed in front of you.'
+
+		gs 'arousal', 'foreplay_give', 5, 'exhibitionism'
+		gs 'stat'
+
+		act 'Eat her pussy':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo1.mp4"></video></center>'
+			'You kneel before <<$paktress[1]>>, lifting her panties from her ankles and spreading her legs. You slowly trace lines along her labia with your tongue before running it between her lips and reaching her clit. You then quickly start flicking her clit, your tongue swirling over it as it begins to swell.'
+
+			gs 'arousal', 'cuni_give', 15, 'exhibitionism'
+			gs 'stat'
+
+			act 'Your turn':
+				*clr & cla
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo2.mp4"></video></center>'
+				'After pleasing her for a while, you withdraw your tongue from her crotch as she quickly pulls you down onto your back. She lifts your legs and practically rips your panties off, tossing them aside. She wastes no time and buries her face right into your pussy, teasing your engorged clit as she vigorously eats you out, her tongue lapping up the juices that run from your pussy.'
+
+				gs 'arousal', 'cuni', 15, 'exhibitionism'
+				gs 'stat'
+
+				act 'Get fucked':
+					*clr & cla
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo5.mp4"></video></center>'
+					'You are lying on the bed as <<$paktress[1]>> moves off to the side and slips on a strapon dildo. She moves over to you as you slide down, take the plastic cock in your mouth and give her a blowjob. She pushes you down onto the bed and climbs on top of you. She slides inside your pussy and begins to fuck you hard.'
+
+					gs 'arousal', 'vaginal_strap', 15, 'exhibitionism'
+					gs 'stat'
+
+					act 'Her turn':
+						*clr & cla
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo6.mp4"></video></center>'
+						'After the vigorous pounding, <<$paktress[1]>> pulls out, slides the strapon off and gets on all fours as you stand and strap yourself in. She is on her knees before you begging you to fuck her ass and you are eager to comply. The plastic cock is coated in your juices and this makes it easy to push yourself into her awaiting hole. You begin to fuck her ass as she begs you to go harder.'
+
+						gs 'arousal', 'anal_strap_give', 15, 'exhibitionism'
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							minut += 5
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo7.mp4"></video></center>'
+							'The relentless ass fucking you give <<$paktress[1]>> is enough to bring her to orgasm. Her juices spray from her twitching pussy as her ass tightens around your fake cock. You pull out of her and the camera comes in for a shot of her stretched hole. The scene ends with you locking tongues with <<$paktress[1]>> '
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+
+if $ARGS[0] = '19':
+	pornbj += 1
+	pornvag += 1
+	pornanal += 1
+	pornswall += 1
+	porngang += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 25
+	minut += 180
+	gang += 1
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> is watching porn on a monitor, getting himself ready while <<$paktress[1]>> is having her make up touched up.'
+
+	act 'Undress and start':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff0.mp4"></video></center>'
+		'The camera starts rolling and comes for a close up of you and <<$paktress[1]>>. As it does, she grabs your ass and gives it a jiggle for the camera. <<$pakter[1]>> moves into the scene and you both kneel before him.'
+
+		act 'Suck':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff1.mp4"></video></center>'
+			'You take <<$pakter[1]>>''s cock into your mouth and begin sucking on his tip as <<$paktress[1]>> runs her tongue along his shaft. You then take him deeper into your throat as <<$paktress[1]>> playfully sucks on his balls.'
+
+			gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
+			gs 'stat'
+
+			act 'Fuck':
+				*clr & cla
+				pcs_vag += 1
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff2.mp4"></video></center>'
+				'<<$paktress[1]>> remains on her knees as you move up and guide <<$patker[1]>>''s cock into your pussy. You start riding him as <<$paktress[1]>> buries her face in your pussy and quickly starts flicking her tongue over your clit, waves of pleasure overwhelming you.'
+
+				!! Precum pregnancy check
+				cumnostd = 1
+				gs 'cum_call', 'precum', $pakterID[1], 1, 0, 10000, 1
+
+				gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
+				gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
+				gs 'arousal', 'cuni', 15, 'exhibitionism', 'group'
+				gs 'stat'
+
+				act 'Anal':
+					*clr & cla
+					pcs_ass += 1
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff3.mp4"></video></center>'
+					'<<$paktress[1]>> gets up from the floor and lies down on the bed. You straddle her, your pussy sitting before her face. <<$pakter[1]>> moves in behind and slowly pushes his cock into your ass. <<$paktress[1]>> playfully licks your swollen clit as he starts fucking your ass hard.'
+
+					gs 'arousal', 'cuni', 15, 'exhibitionism', 'group'
+					gs 'arousal', 'anal', 15, 'exhibitionism', 'group'
+					gs 'stat'
+
+					act 'Creampie':
+						*clr & cla
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff4.mp4"></video></center>'
+						'You eventually feel <<$pakter[1]>> starting to twitch and feel a sudden warmth flood your ass. He pulls out and a stream of cum soon follows, running down your pussy and into <<$paktress[1]>>''s awaiting mouth.'
+
+						cumnostd = 1
+						gs 'cum_call', 'anus', $pakterID[1], 1, 0, 10000, 20
+						gs 'arousal', 'anal', 15, 'exhibitionism', 'group'
+						gs 'arousal', 'cuni', 15, 'exhibitionism', 'group'
+						gs 'stat'
+
+						act 'Cum sharing':
+							*clr & cla
+							minut += 5
+							pornswall += 1
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff5.mp4"></video></center>'
+							'You quickly climb off <<$paktress[1]>> and kneel before her as she opens her mouth and <<$pakter[1]>>''s load drools from her tongue and into your mouth. You show the camera your cum filled mouth before swallowing the cum and finishing the scene making out with <<$paktress[1]>>'
+							cumnostd = 1
+							gs 'cum_call', 'mouth', $pakterID[1], 1, 0, 10000, 20
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '20':
+	pornbj += 1
+	pornswall += 1
+	porngang += 1
+	pfType = 0
+	*clr & cla
+	gs 'fame', 'city', 'porn', 25
+	minut += 180
+	gang += 1
+	gs 'stat'
+
+	'The set is already bustling with assistants preparing the set for the shoot.'
+	'<<$pakter[1]>> is watching porn on a monitor, getting himself ready while <<$paktress[1]>> is having her make up touched up.'
+
+	act 'Undress and start':
+		*clr & cla
+		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff0.mp4"></video></center>'
+		'The camera starts rolling and comes for a close up of you and <<$paktress[1]>>. As it does, you grab her ass and give it a jiggle for the camera. <<$pakter[1]>> moves into the scene and you both kneel before him.'
+
+		act 'Suck':
+			*clr & cla
+			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff1.mp4"></video></center>'
+			'<<$paktress[1]>> wastes no time and takes <<$pakter[1]>>''s cock right down her throat as you get down low and suck his balls.'
+
+			gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
+			gs 'stat'
+
+			act 'Fuck':
+				*clr & cla
+				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff2.mp4"></video></center>'
+				'You remain on your knees as <<$paktress[1]>> straddles <<$pakter[1]>>, slides down onto his cock and starts riding him. You take your place and bury your face into her pussy, running your tongue over her clit as she takes <<$pakter[1]>> deep inside her. She shrieks in pleasure and you''re sure that she orgasms at least once.'
+
+				gs 'arousal', 'cuni_give', 15, 'exhibitionism', 'group'
+				gs 'stat'
+
+				act 'Anal':
+					*clr & cla
+					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff3.mp4"></video></center>'
+					'You lie down on the bed, <<$paktress[1]>> straddling you, her glistening pussy begging for you to please it. <<$pakter[1]>> moves in behind and inserts himself into her ass and starts to pound her, <<$paktress[1]>> begging him to go harder. You start flicking your tongue over <<$paktress[1]>>''s now massively engorged clit.'
+
+					gs 'arousal', 'cuni_give', 15, 'exhibitionism', 'group'
+					gs 'stat'
+
+					act 'Creampie':
+						*clr & cla
+						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff4.mp4"></video></center>'
+						'You pull your face out of <<$paktress[1]>>''s crotch in time to see <<$pakter[1]>>''s balls twitching as he unloads inside her ass. At the same time, you see her pussy convulsing and she screams in pleasure as they reach orgasm together. You open your mouth as he pulls out of her, and a stream of cum runs from her hole down onto your tongue.'
+
+						cumnostd = 1
+						gs 'cum_call', 'mouth', $pakterID[1], 1, 0, 10000, 30
+						gs 'arousal', 'cuni_give', 15, 'exhibitionism', 'group'
+						gs 'stat'
+
+						act 'Cum sharing':
+							*clr & cla
+							minut += 5
+							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff5.mp4"></video></center>'
+							'<<$paktress[1]>> climbs off and kneels in front of you as you open your mouth and allow <<$pakter[1]>>''s load to drool from your tongue and into her mouth. She then shows her cum filled mouth to the camera and makes a rather perverted show of swallowing it. The scene ends with the two of you making out.'
+							act 'Take a shower': gt 'pornstudio', 'shower'
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+--- pornfilm ---------------------------------
+

locations/unused/pornhist.qsrc

@@ -0,0 +1,354 @@
+# pornhist
+!! Short description of made movies, without details
+if $ARGS[0] = 'short':
+	i = 1
+	$pfilmhistory = ''
+	:pornhistloop
+		dynamic $pornfilmdesc, pornfilmType[i]
+		if pornfilmMonth[i] >= 10 and pornfilmDay[i] >= 10:
+			$pornfilmDate[i] = '<<pornfilmYear[i]>>-<<pornfilmMonth[i]>>-<<pornfilmDay[i]>>'
+		elseif pornfilmMonth[i] >= 10 and pornfilmDay[i] < 10:
+			$pornfilmDate[i] = '<<pornfilmYear[i]>>-<<pornfilmMonth[i]>>-0<<pornfilmDay[i]>>'
+		elseif pornfilmMonth[i] < 10 and pornfilmDay[i] >= 10:
+			$pornfilmDate[i] = '<<pornfilmYear[i]>>-0<<pornfilmMonth[i]>>-<<pornfilmDay[i]>>'
+		else
+			$pornfilmDate[i] = '<<pornfilmYear[i]>>-0<<pornfilmMonth[i]>>-0<<pornfilmDay[i]>>'
+		end
+
+		if $porntitle[i] = '':
+			$pfilmhistory += '● <b><<i>>. Movie</b><br><font size=2></font><br>'
+		else
+			if i = 1:
+				$pfilmhistory += '● <b>'+$porntitle[i]+'<<$pfname>></b><br><font size=2>'+$pfilmtext+'</font><br>'
+			else
+				$pfilmhistory += '● <b>'+$porntitle[i]+'</b><br><font size=2>'+$pfilmtext+'</font><br>'
+			end
+		end
+	if i < film: i += 1 & jump 'pornhistloop'
+end
+
+!! Detailed description of movies, only available after selecting the "Filmography" link
+if $ARGS[0] = 'pdetail':
+	*clr & cla
+	'<center><h1>Filmography of <font color="magenta"><<$pfname>></font></h1></center>'
+	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
+	'<td cellspacing="0" cellpadding="0" valign="top">'
+	i = 1
+	killvar 'firstvariable'
+	killvar 'firstvariable2'
+	:pornhistloop2
+		dynamic $pornfilmdesc, pornfilmType[i]
+		if $porntitle[i] = '':
+			if firstvariable = 0:firstvariable = 1 & fvvalue = i
+			'<b><a href="exec:$porntitle[fvvalue] = input(''<font color=#FF0000>WARNING!</font> No matter where you clicked, it will name the <b>first</b> unnamed movie! This action can be done only once!'') & gs ''pornhist'', ''pdetail''"><<i>>. Movie</a></b>'
+		else
+			if i = 1:
+				'<b><font color="brown"><<$porntitle[i]>><<$pfname>></font></b>'
+			else
+				'<b><font color="brown"><<$porntitle[i]>></font></b>'
+			end
+		end
+		if daystart - porndaystart[i] = 0:
+			' <b>Production date:</b> <font size=2><<$pornfilmDate[i]>> (Today)</font>'
+		elseif daystart - porndaystart[i] = 1:
+			' <b>Production date:</b> <font size=2><<$pornfilmDate[i]>> (Yesterday)</font>'
+		else
+			' <b>Production date:</b> <font size=2><<$pornfilmDate[i]>> (<<daystart - porndaystart[i]>> days ago)</font>'
+		end
+		' <b>Actress age:</b> <font size=2><<pornfilmActAge[i]>></font>  <font size=2>(Appears: <<pornfilmAppAge[i]>>)</font>'
+		if $pornfilmActor[i] = 'Fifty fans of':
+			' <b>Actors:</b> <font size=2><<$pornfilmActor[i]>> <<$pfname>> and <<$pfname>> herself</font>'
+		else
+			' <b>Actors:</b> <font size=2><<$pornfilmActor[i]>> and <<$pfname>></font>'
+		end
+		' <b>Income:</b> <font size=2><<pornfilmCash[i]>>₽</font>'
+		if pornfilmacting[i] < 15:
+			' <b>Acting:</b> <font size=2>Your acting was as fake as a bad boobjob. Did you get paid for this?</font>'
+		elseif pornfilmacting[i] < 30:
+			' <b>Acting:</b> <font size=2>You were acting quite fake, but it was passable.</font>'
+		elseif pornfilmacting[i] < 45:
+			' <b>Acting:</b> <font size=2>You probably could have done better, but at least you were not totally unconvincing.</font>'
+		elseif pornfilmacting[i] < 60:
+			' <b>Acting:</b> <font size=2>You were actually acting, even if it wasn''t entirely convincing.</font>'
+		elseif pornfilmacting[i] < 75:
+			' <b>Acting:</b> <font size=2>You were acting really well.</font>'
+		elseif pornfilmacting[i] < 90:
+			' <b>Acting:</b> <font size=2>As a professional actress, everybody believed your every gesture and sentence.</font>'
+		else
+			' <b>Acting:</b> <font size=2>Your performance was phenomenal. You may actually win some awards with this one.</font>'
+		end
+		if pornfilmvnesh[i] >= 9:
+			' <b>Look:</b> <font size=2>Amazingly beautiful.</font>'
+		elseif pornfilmvnesh[i] >= 7:
+			' <b>Look:</b> <font size=2>Beautiful.</font>'
+		elseif pornfilmvnesh[i] >= 5:
+			' <b>Look:</b> <font size=2>Attractive.</font>'
+		else
+			' <b>Look:</b> <font size=2>Unnoticeable.</font>'
+		end
+		' <b>Description:</b> <font size=2><<$pfilmtext>></font>'
+		if $pornfilmstory[i] = '':
+			if firstvariable2 = 0:firstvariable2 = 1 & fvvalue2 = i
+			' <b>Story:</b> <font size=2><a href="exec:$pornfilmstory[fvvalue2] = input(''<font color=#FF0000>WARNING!</font> No matter where you clicked, you will enter the story of the <b>first</b> movie which missing it! This action can be done only once!'') & gs ''pornhist'', ''pdetail''">Missing story</a></font>'
+		else
+			' <b>Story:</b> <font color=#1B4532 size=2><<$pornfilmstory[i]>></font>'
+		end
+		' <b>Tags: <font color=#541717 size=2><<$pfilmtags>></font></b>'
+		if pornDanger[i] = 1 and pfType = 1:' <font color="red" size=2><b>You were unprotected and fertile during the shoot.</b></font>'
+		killvar '$pfilmtags'
+	if i < film:
+		*p '<font color="sienna"><hr></font>'
+		i += 1
+		jump 'pornhistloop2'
+	end
+	act 'Return to Reputation': killvar 'pornfilmdesc' & killvar 'porntag' & gt 'obj_din', 'reputation'
+	'</td></tr></table></center>'
+end
+
+!! Dynamic of selectable porn movies, called from:
+!!	pornhist: 'short', 'pdetail'
+!!	pornschedule: 'pornmiss'
+!!	pornstudio: 'options', 'medical', 'postvideo'
+$pornfilmdesc = {
+	film_type = ARGS[0]
+	killvar '$pstory'
+	$porndesc[1] = 'Handjob'
+	$porndesc[2] = 'Blowjob'
+	$porndesc[3] = 'Vaginal sex with facial'
+	$porndesc[4] = 'Vaginal and anal sex with facial'
+	$porndesc[5] = 'Threesome with anal creampie and facial'
+	$porndesc[6] = 'Threesome with double penetration, facial and swallowing'
+	$porndesc[7] = 'Vaginal sex with creampie'
+	$porndesc[8] = 'Double penetration with vaginal creampies'
+	$porndesc[9] = 'Spitroast with two guys with creampie and swallowing'
+	$porndesc[10] = 'Four guy gangbang with vaginal sex and cumshots'
+	$porndesc[11] = 'Four guy gangbang with vaginal sex and creampies'
+	$porndesc[12] = 'Four guy gangbang with anal sex and anal creampies'
+	$porndesc[13] = 'Two double penetration with four guys, vaginal and anal creampies'
+	$porndesc[14] = 'Gangbang with 50 guys'
+	$porndesc[15] = 'Anal sex with anal creampie'
+	$porndesc[16] = 'Anal sex with cumshot'
+	$porndesc[17] = 'Lesbian sex with double dildo'
+	$porndesc[18] = 'Lesbian sex with strapon'
+	$porndesc[19] = 'Primary role in MFF threesome'
+	$porndesc[20] = 'Secondary role in MFF threesome'
+	if film_type = 1:
+		pfType = 0
+		pcash = 20
+		pfactor = 1
+		actbonus = 1
+		$tags = 'handjob, cumshot'
+		$pfilmtext = 'You jerked off a guy and he came on your tits.'
+	elseif film_type = 2:
+		pfType = 0
+		pcash = 30
+		pfactor = 1
+		actbonus = 1
+		$tags = 'blowjob, facial'
+		$pfilmtext = 'You gave a guy a blowjob and got a facial.'
+	elseif film_type = 3:
+		pfType = 0
+		pcash = 50
+		pfactor = 1
+		actbonus = rand(1,2)
+		$tags = 'blowjob, vaginal, facial'
+		$pfilmtext = 'You gave a guy a blowjob and he fucked before giving you a facial.'
+	elseif film_type = 4:
+		pfType = 0
+		pcash = 60
+		pfactor = 1
+		actbonus = rand(1,2)
+		$tags = 'blowjob, facial, vaginal, anal'
+		$pfilmtext = 'You gave a guy a blowjob and he fucked your pussy and ass before giving you a facial.'
+	elseif film_type = 5:
+		pfType = 0
+		pcash = 70
+		pfactor = 2
+		actbonus = rand(1,3)
+		$tags = 'facial, vaginal, anal, blowjob, creampie'
+		$pfilmtext = 'A guy fucked your pussy and ass and came in your ass while you sucked off an another guy who gave you a facial.'
+	elseif film_type = 6:
+		pfType = 0
+		pcash = 90
+		pfactor = 2
+		actbonus = rand(1,3)
+		$tags = 'DP, vaginal, anal, blowjob, facial, swallowing'
+		$pfilmtext = 'A guy fucked your pussy and ass while you sucked off another guy. They then double penetrated you before cumming on your face. You swallowed their loads.'
+	elseif film_type = 7:
+		pfType = 1
+		pcash = 80
+		pfactor = 1
+		actbonus = rand(1,2)
+		$tags = 'vaginal, creampie'
+		$pfilmtext = 'You gave a guy a blowjob before he fucked you and gave you a creampie.'
+	elseif film_type = 8:
+		pfType = 1
+		pcash = 100
+		pfactor = 2
+		actbonus = rand(1,2)
+		$tags = 'DP, vaginal, anal, creampie'
+		$pfilmtext = 'Two guys fucked you in double penetration before giving you a double creampie.'
+	elseif film_type = 9:
+		pfType = 1
+		pcash = 90
+		pfactor = 2
+		actbonus = rand(1,3)
+		$tags = 'blowjob, vaginal, swallowing, creampie'
+		$pfilmtext = 'Two guys fucked your pussy and mouth. One gave you a creampie and the other came in your mouth and you swallowed.'
+	elseif film_type = 10:
+		pfType = 1
+		pcash = 120
+		pfactor = 4
+		actbonus = rand(2,3)
+		$tags = 'vaginal, cumshot'
+		$pfilmtext = 'Four guys fucked your pussy and they all ejaculated on your body and face.'
+	elseif film_type = 11:
+		pfType = 1
+		pcash = 150
+		pfactor = 4
+		actbonus = rand(2,3)
+		$tags = 'vaginal, creampie'
+		$pfilmtext = 'Four guys fucked your pussy, giving you four creampies.'
+	elseif film_type = 12:
+		pfType = 0
+		pcash = 150
+		pfactor = 4
+		actbonus = rand(2,3)
+		$tags = 'anal, creampie'
+		$pfilmtext = 'Four guys fucked your ass, giving you four anal creampies.'
+	elseif film_type = 13:
+		pfType = 1
+		pcash = 150
+		pfactor = 4
+		actbonus = rand(2,3)
+		$tags = 'DP, vaginal, anal, creampie'
+		$pfilmtext = 'Four guys fucked you in double penetration in pairs. You got two double creampies.'
+	elseif film_type = 14:
+		pfType = 1
+		pcash = 300
+		pfactor = 50
+		actbonus = rand(1,2)
+		$tags = 'vaginal, anal, blowjob, cumshot, facial, swallowing'
+		$pfilmtext = 'Fifty of your fans fucked you however they could. Almost all of them came in your pussy.'
+		$pstory = 'You called out to your fans on the internet, giving them an opportunity to fuck you however they like.'
+	elseif film_type = 15:
+		pfType = 0
+		pcash = 50
+		pfactor = 1
+		actbonus = rand(1,2)
+		$tags = 'blowjob, anal, creampie'
+		$pfilmtext = 'You gave a guy a blowjob before he fucked your ass and gave you an anal creampie.'
+	elseif film_type = 16:
+		pfType = 0
+		pcash = 50
+		pfactor = 1
+		actbonus = rand(1,2)
+		$tags = 'blowjob, anal, cumshot'
+		$pfilmtext = 'You gave a guy a blowjob and he fucked your ass. He came over your ass.'
+	elseif film_type = 17:
+		pfType = 0
+		pcash = 50
+		pfactress = 1
+		actbonus = rand(1,2)
+		$tags = 'lesbian, tribbing, double dildo'
+		$pfilmtext = 'You had sex with a girl using a double dildo.'
+	elseif film_type = 18:
+		pfType = 0
+		pcash = 50
+		pfactress = 1
+		actbonus = rand(1,2)
+		$tags = 'lesbian, strapon, vaginal, anal'
+		$pfilmtext = 'You had sex with a girl using a strapon.'
+	elseif film_type = 19:
+		pfType = 0
+		pcash = 100
+		pfactor = 1
+		pfactress = 1
+		actbonus = rand(2,3)
+		$tags = 'threesome, mff, blowjob, anal, creampie, cumshare'
+		$pfilmtext = 'You took part in an MFF threesome, sucking a guy off before he fucked your ass while the girl licked your pussy. You got an anal creampie and shared it with the girl.'
+	elseif film_type = 20:
+		pfType = 0
+		pcash = 100
+		pfactor = 1
+		pfactress = 1
+		actbonus = rand(2,3)
+		$tags = 'threesome, mff, blowjob, anal, creampie, cumshare, cuni'
+		$pfilmtext = 'You took part in an MFF threesome, sucking him off before he fucked her ass while you licked her pussy. She shared her anal creampie with you.'
+	end
+	dynamic $porntag
+}
+
+$porntag = {
+	if pornfilmAppAge[i] < 20: 
+		$pfilmtags = 'teen'
+	elseif pornfilmAppAge[i] >= 40:
+		$pfilmtags = 'mature'
+	else
+		$pfilmtags = ''
+	end
+	
+	if pornfilmpreg[i] = 1:
+		if $pfilmtags <> '':
+			$pfilmtags+=', pregnant'
+		else
+			$pfilmtags = 'pregnant'
+		end
+	end
+	
+	if pfactor = 0 and pfactress > 0:
+		if $pfilmtags <> '':
+			$pfilmtags += ', lesbian'
+		else
+			$pfilmtags = 'lesbian'
+		end
+	end
+	
+	if pfactor > 2 and pfactress = 0:
+		if $pfilmtags <> '':
+			$pfilmtags += ', gangbang'
+		else
+			$pfilmtags = 'gangbang'
+		end
+	elseif pfactor > 2 and pfactress > 1:
+		if $pfilmtags <> '':
+			$pfilmtags += ', orgy'
+		else
+			$pfilmtags = 'orgy'
+		end
+	elseif pfactor = 2 and pfactress = 0:
+		if $pfilmtags <> '':
+			$pfilmtags += ', threesome'
+		else
+			$pfilmtags = 'threesome'
+		end
+	elseif pfactor = 1 and pfactress = 1:
+		if $pfilmtags <> '':
+			$pfilmtags += ', threesome'
+		else
+			$pfilmtags = 'threesome'
+		end
+	elseif pfactor = 0 and pfactress = 2:
+		if $pfilmtags <> '':
+			$pfilmtags += ', threesome'
+		else
+			$pfilmtags = 'threesome'
+		end
+	end
+	
+	if pfType = 1:
+		if $pfilmtags <> '':
+			$pfilmtags += ', creampie'
+		else
+			$pfilmtags = 'creampie'
+		end
+	end
+	
+	if $pfilmtags <> '':
+		$pfilmtags += ', '+$tags
+	else
+		$pfilmtags = $tags
+	end
+}
+--- pornhist ---------------------------------
+

locations/unused/pornschedule.qsrc

@@ -0,0 +1,72 @@
+# pornschedule
+
+if $ARGS[0] = 'pornmiss':
+	pornmiss = 1
+	missedshoot = 0
+	pf = pfilmday[0]
+	film_idx = film
+	dynamic $pornfilmdesc, pornfilmType[film]
+	porndebt += prodcost
+	if pornstack > 0:pornstack -= 1
+end
+
+if $ARGS[0] = 'schedule':
+	killvar 'pfilmday', 0
+	days = 0
+	:fillschedule
+		porns = 0
+		:moveschedule
+			if porntaken['<<days+1>>,<<porns>>'] = 0 and days >= 14:
+				if rand(1,100) = 1: pornplan['<<days+1>>,<<porns>>'] = 0
+				!Change of plans if there is no contract on the movie, shooting some other kind of porn instead
+			end
+			if days = 49 or pornplan['<<days+1>>,<<porns>>'] = 0:
+			!If there is a missing slot in the schedule, it fills in. It also regenerates the last selection on the end, so no endless repetition
+				pornvariable = rand(0,90)
+				if pornvariable <= 1:
+					!50 person
+					pornplan['<<days+1>>,<<porns>>'] = 14
+				elseif pornvariable <= 10:
+					!4 person
+					!some way to randomize the scene
+					pornplan['<<days+1>>,<<porns>>'] = rand(10,13)
+				elseif pornvariable <= 30:
+					!2 person
+					!some way to randomize the scene
+					pornplan['<<days+1>>,<<porns>>'] = rand(8,9)
+				elseif pornvariable <= 60:
+					!single person
+					!some way to randomize the scene
+					pornplan['<<days+1>>,<<porns>>'] = rand(1,7)
+				elseif pornvariable <= 80:
+					!single person
+					!some way to randomize the scene
+					pornplan['<<days+1>>,<<porns>>'] = rand(15,20)
+				else
+					!masturbation scene
+					!some way to randomize the scene - if there will be more than one(???)
+					pornplan['<<days+1>>,<<porns>>'] = 15
+				end
+			end
+			pornplan['<<days>>,<<porns>>'] = pornplan['<<days+1>>,<<porns>>']
+			porntaken['<<days>>,<<porns>>'] = porntaken['<<days+1>>,<<porns>>']
+			!moving the shooting schedule and the contracts ahead by one day. "days = 0" is the current day
+			if porntaken['<<days>>,<<porns>>'] = 0:
+				if rand(1,days*3/2) = 1: porntaken['<<days>>,<<porns>>'] = 1
+				!some other porn actress contracted the movie. The more closer the shooting day is, the more likely, that all of them is taken
+			end
+			if porntaken['<<days>>,<<porns>>'] = 1:
+				if rand(1,100) = 1: porntaken['<<days>>,<<porns>>'] = 0
+				!some other porn actress contracted to the movie has canceled her contract. Not likely, but it happens.
+			end
+		if porns < 3:porns += 1 & jump 'moveschedule'	
+	if days < 49:days += 1 & jump 'fillschedule'
+	! Finally deleting the unnecessary (and the next day overwritten) schedule day to reduce array size
+	killvar 'pornplan', 203
+	killvar 'pornplan', 202
+	killvar 'pornplan', 201
+	killvar 'pornplan', 200
+end
+
+--- pornschedule ---------------------------------
+

locations/unused/pornstudio.qsrc

@@ -0,0 +1,1190 @@
+# pornstudio
+!!2021/07/17
+
+$location_type = 'public_indoors'
+
+if $ARGS[0] = 'start':
+	CLOSE ALL
+	$loc_arg = 'start'
+	$loc = 'pornstudio'
+	$menu_loc = 'pornstudio'
+	$menu_arg = 'start'
+	menu_off = 0
+	gs 'pornhist', 'short'
+	cls
+	minut += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
+
+	act 'Leave': gt 'city_redlight', 'start'
+
+	if hour < 10 or hour > 22:
+		'The porn studio is currently closed. It is open between 10:00 and 22:00.'
+		exit
+	end
+
+	'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 'Visit the manager''s PA': gt 'pornstudio', 'pa'
+
+	if bomzQW = 1 and week = 4 and workDisk = 0: act 'Arrive for work': gt 'pornstudio', 'delivery'
+
+	if workDolg > 0 and money >= workDolg:
+		act 'Repay your debt':
+			cls
+			menu_off = 1
+			minut += 5
+			workDisk = 0
+			money -= workDolg
+			workDolg = 0
+			menu_off = 1
+			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
+				menu_off = 1
+				minut += 5
+				workDisk = 2
+				gs 'stat'
+				'You are 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.'
+				'<font color="magenta"> "Just avoid dark, deserted places and this will blow over."</font> you reassure yourself, and carry on.'
+
+				act 'Leave': gt 'city_redlight', 'start'
+			end
+		elseif workDisk = 3 and week = 5:
+			act 'Give the envelope':
+				cls
+				menu_off = 1
+				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 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.'
+					'"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.'
+				else
+					konvert = 0
+					money += 5000
+					'You give the envelope to the manager and he gives you 5,000 <b>₽</b>.'
+				end
+
+				act 'Leave': gt 'city_redlight', 'start'
+			end
+		end
+	end
+
+	if pfilmNO = 1 and pfilmNoVenera = 1 and Venera = 0:
+		act 'Show your medical certificate':
+			cls
+			menu_off = 1
+			minut += 5
+			pfilmNoVenera = 0
+			pfilmNO = 0
+			gs 'stat'
+			'You hand over your medical certificate showing that you''re STD free. They promise to consider your reinstatement.'
+
+			act 'Leave': gt 'pornstudio', 'start'
+		end
+	end
+end
+
+if $ARGS[0] = 'pa':
+	*clr & cla
+	minut += 5
+	$menu_loc = 'pornstudio'
+	$menu_arg = 'pa'
+	menu_off = 0
+	gs 'stat'
+	'Inside the small office is a young man sitting at a computer, tapping away at the keyboard.'
+
+	if film = 0:
+	'"Who are you? This office is for staff only."'
+	else
+		'"Hi there, what can I do for you?"'
+		if pfilmNO = 0:
+			act 'Change your porn name':
+				*clr & cla
+				menu_off = 1
+				gs 'stat'
+				'"Is it possible for me to change my stage name?"'
+				'"Of course! Just give me a minute to register it in the database. So, what would you like to be called?" he replies.'
+				act '"I want to be called..."':
+					$pfname = input("Enter the name you want to be known as.")
+					if $pfname = '':$pfname = 'Lotta Cox'
+					gt 'pornstudio', 'pa'
+				end
+				act 'Nothing': gt 'pornstudio', 'pa'
+			end
+		end
+		if pfilmSTOP = 0:
+			act 'What''s the rating of my videos?':
+				cla
+				minut += 5
+				menu_off = 1
+				gs 'stat'
+
+				'"You''ve made <<film>> films."'
+
+				if porn_fame < 10:
+					'"Nobody knows your name. You''re one of hundreds of amateur actresses who only play minor roles in big movies. Your own movies sold really cheap."'
+				elseif porn_fame < 20:
+					'"You''re still unknown, but your name is mentioned in the credits. You''re unlikely to be recognized, and your own movies are still sold cheap."'
+				elseif porn_fame < 40:
+					'"You''re mentioned here and there, but you still mostly get secondary roles in most of your movies. Your name is slowly emerging and you have your own fanbase."'
+				elseif porn_fame < 60:
+					'"You''re a minor, but known porn actress. You get the occasional primary role and back cover appearance. Your movies are getting more popular, which means more fans and more money."'
+				elseif porn_fame < 80:
+					'"You''re a known porn actress who mostly plays primary roles, and you appear on the front cover. Your movies are sold at a decent price, and in big numbers. You may also appear in a variety of adult magazines."'
+				else
+					'"You''re a famous porn starlet and always play the main role. You''re a brand name, with sex toys and T-shirts among the items sold as part of your own line of merchandise."'
+				end
+
+				if porn_fame >= 20:
+					ftypecount[0] = pornvag & $ftypecount[0] = 'vaginal'
+					ftypecount[1] = pornanal & $ftypecount[1] = 'anal'
+					ftypecount[2] = porngasm & $ftypecount[15] = 'orgasm'
+					ftypecount[3] = porngang & $ftypecount[3] = 'group sex'
+					ftypecount[4] = porncream & $ftypecount[4] = 'creampie'
+					ftypecount[5] = pornhole & $ftypecount[5] = 'gloryhole'
+					ftypecount[6] = pornbdsm & $ftypecount[6] = 'bdsm'
+					ftypecount[7] = pornlesbo & $ftypecount[7] = 'lesbian'
+					ftypecount[8] = pornpreg & $ftypecount[8] = 'pregnant'
+					ftypecount[9] = pornexhib & $ftypecount[9] = 'public'
+					ftypecount[10] = pornmast & $ftypecount[10] = 'masturbation'
+					ftypecount[11] = pornbukk & $ftypecount[11] = 'cumshot'
+					ftypecount[12] = pornbj & $ftypecount[12] = 'blowjob'
+					ftypecount[13] = pornhj & $ftypecount[13] = 'handjob'
+					ftypecount[14] = pornswall & $ftypecount[14] = 'cum swallowing'
+					k = 1
+					:repeating
+						c = 14
+						:ftypecount
+							current = ftypecount[c]
+							$current = $ftypecount[c]
+							c -= 1
+							if current > ftypecount[c]:
+								ftypecount[c+1] = ftypecount[c]
+								$ftypecount[c+1] = $ftypecount[c]
+								ftypecount[c] = current
+								$ftypecount[c] = $current
+							end
+						if c >= k:jump 'ftypecount'
+						k += 1
+					if k < 14:jump 'repeating'
+					if ftypecount[1] = ftypecount[0]:
+						if ftypecount[0] = ftypecount[2]:
+							'You''re known for your <<$ftypecount[0]>>, <<$ftypecount[1]>> and <<$ftypecount[2]>> scenes.'
+						else
+							'You''re known for your <<$ftypecount[0]>> and <<$ftypecount[1]>> scenes.'
+						end
+					else
+						'You''re known for your <<$ftypecount[0]>> scenes.'
+					end
+				end
+
+				if film < 10 and porn_fame < 10:
+
+					'"By the way, if you wanted, I could completely remove them from our systems - for the right price of course." the guy whispers.'
+
+					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 loss of the studio''s profits- 40,000 <b>₽</b> per film. That''s a total of <<films_stop_payment>> <b>₽</b>."'
+						'"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 that there''s no other copies of your movies out there anyway, so think carefully."'
+
+						if money >= films_stop_payment:
+							act 'Remove them':
+								minut += 5
+								money -= films_stop_payment
+								pfilmSTOP = 1
+								killvar 'pfilmday'
+								killvar 'pornplan'
+								killvar 'porntaken'
+								killvar 'pornstack'
+								killvar 'prodcosttrue'
+								killvar 'prodcost'
+								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 $ARGS[0] = 'delivery':
+	cls
+	minut += 15
+	menu_off = 1
+	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 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."'
+
+	act 'Disagree':bomzQW = -1 & gt 'city_redlight', 'start'
+
+	act 'Agree':
+		cls
+		minut += 15
+		gs 'stat'
+		'"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."'
+
+		act 'Let''s go':
+			cls
+			workDisk = 1
+			minut += 15
+			gs 'stat'
+			'You climb into a car by the entrance and are 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. You find it strange that you didn''t notice it before.'
+			end
+
+			'You go to the sauna, and are introduced to the local managers. It''s explained to you who you need to deliver to, and are 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. <i>Don''t</i> fuck up."'
+
+			act 'Leave':bomzQW = 2 & gt 'city_residential'
+		end
+	end
+end
+
+if $ARGS[0] = 'shower':
+	*clr & cla
+	$location_type = 'bathroom'
+	$loc = 'pornstudio'
+	$loc_arg = 'bathroom'
+	$locM = 'pornstudio'
+	$locM_arg = 'bathroom'
+	$menu_loc = 'pornstudio'
+	$menu_arg = 'bathroom'
+	menu_off = 1
+	minut += 5
+	pcs_horny += 1
+	pcs_makeup = 1
+	dynamic $showerdin
+	gs 'stat'
+	'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
+    cumspclnt = 20
+	gs 'cum_cleanup'
+	'You enter the cubicle, turn the water on and thoroughly wash yourself.'
+	if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
+	
+	act 'Look in the mirror': gt 'mirror', 'start'
+	act 'Go and see Dimitri': gt 'pornstudio', 'postvideo'
+end
+
+if $ARGS[0] = 'bathroom':
+	*clr & cla
+	minut += 1
+	menu_off = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/shower.jpg"></center>'
+	'You can freshen up in the mirror or go and see Dimitri about being paid.'
+
+	act 'Look in the mirror': gt 'mirror', 'start'
+	act 'Go and see Dimitri': gt 'pornstudio', 'postvideo'
+end
+
+if $ARGS[0] = 'manager':
+	cls
+	minut += 5
+	menu_off = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
+	'You walk into the manager''s office and find Dimitri at his desk.'
+
+	if firstkasting = 0: gt 'pornstudio', 'first'
+
+	if pregchem >= 2688 and pregtalkpornstudio = 0: gt 'pornstudio', 'pregreact'
+
+	if pfilmNO = 1:
+	!! Banned from shooting porn
+		'"Why are you here? You''re blacklisted and will never work in porn again."'
+	elseif pfilmSTOP = 1:
+	!! No longer shooting porn
+		'"I''m sorry, I thought you had retired?"'
+	elseif ((pfilmday[0] > 0 and hour > 12) or pornmiss = 1) and prodcosttrue <= 20000 and missedshoot = 0:
+	!! You missed your shooting time, but you have a chance to work it off
+		missedshoot = 1
+		pornmiss = 0
+		'Dimitri looks agitated as he storms towards you, ready to chew you out.'
+		'"Didn''t I tell you not to be late? Where the fuck were you? I''ve wasted a lot of money! I had to pay actors, assistants, the director and the doctor just to sit around on their asses waiting for you! The whole shoot was a bust!"'
+		'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:
+			missday = rand(0,3)
+			porntaken['1,<<missday>>'] = 0
+			act 'Jump in tomorrow':
+				prodcost = 0
+				pfilmNOPAY = 1
+				porntaken['1,<<missday>>'] = 2
+				pfilmday[1] = pornplan['1,<<missday>>']
+				pornstack += 1
+				freefilm = 1
+				gt 'pornstudio', 'start'
+			end
+			'"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. Or you can work it off, but that will take longer. Of course you can also pay it back, if you have the money. And no, I don''t remember what she was going to shoot. This day has been anything but easy due to you!"'
+		else
+			'"You know what, you can work it off, but it will take you a while. Of course you can also pay it back, if you have the money."'
+		end
+
+		act 'Accept your debt':prodcosttrue += prodcost & gt 'pornstudio', 'start'
+
+		gs 'willpower', 'misc', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'I quit! (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'self'
+				'"Fuck this shit, I quit!" you yell before storming out of his office.'
+				pfilmNO = 1
+				killvar 'prodcosttrue'
+				killvar 'pfilmday'
+				killvar 'pornplan'
+				killvar 'porntaken'
+				killvar 'pornnow'
+				gt 'pornstudio', 'start'
+			end
+		else
+			act 'I quit! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+		exit
+	elseif prodcosttrue > 20000 and prodcost > 0:
+	!! You really fucked up and are banned from shooting porn
+		pfilmNO = 1
+		killvar 'prodcosttrue'
+		killvar 'pfilmday'
+		killvar 'pornplan'
+		killvar 'porntaken'
+		killvar 'pornnow'
+		'"You didn''t come to the shoot! You fucked me over again, and 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. You''re now blacklisted, so get out!"'
+	elseif pfilmday[0] > 0 and hour >= 10 and hour <= 12:
+	!! You have a porn shoot and are on time
+		pornnow = 1
+		if hour = 10: '"You''re just in time for your inspection. Off you go now." he says with a smile.'
+		if hour = 11: '"You''re late. My patience is not eternal." he says strictly. "Get going to your inspection, quickly!"'
+		if hour = 12: '"What the hell? Everyone''s waiting for you! Hurry up and get inspected! Now!"'
+
+		act 'Go for medical check-up': gt 'pornstudio', 'medical', pfilmday[0]
+		exit
+	elseif film = 0 and pornstack = 0:
+	! Your first ever movie offer
+		if firstoffer = 0:
+			firstoffer = 1
+			'"So you''re the new girl? 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 have to jerk a guy off and have him cum on your tits."'
+		else
+			'"Hello. Since you''re brand new, all I can offer you is an introductory movie called ''Girls Jerk Guys #36''."'
+			'"For 500 <b>₽</b>, you have to jerk a guy off and have him cum on your tits."'
+		end
+
+		gs 'willpower', 'exhib', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Agree (<<will_cost>> Willpower)':
+				cla
+				gs 'willpower', 'pay', 'self'
+				pornstack += 1
+				pfilmday[1] = 1
+				gs 'stat'
+				'"Cool. We shoot tomorrow, so be here between 10:00 and 11:00. And please, don''t be late."'
+
+				act 'Leave': gt 'pornstudio', 'start'
+			end
+		else
+			act 'Agree (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+
+		act 'I don''t think I''m ready': gt 'pornstudio', 'start'
+		exit
+	elseif film > 0:
+		gs 'pornstudio', 'options'
+	else
+		'Dimitri looks up from his paperwork and greets you. "Hello. Can I help you with something?"'
+	end
+
+	if porndebt > 0:
+		act 'Ask about your debt': '"Of course. Your current debt to the company is <<porndebt>> <b>₽</b>."'
+	end
+
+	act 'Leave': gt 'pornstudio', 'start'
+end
+
+if $ARGS[0] = 'options':
+	'"Let''s see what I have on 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
+
+	act 'Filter by date':
+		$selection = {
+			*clr
+			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
+			'<font color="grey">The selected days will not be displayed</font><br>'
+			m1 = month
+			d1 = day + 1
+			if monthsend[m1] < d1: m1 += 1 & d1 = 1
+			if m1 > 12: m1 = 1
+			w2 = week + 1
+			if w2 > 7: w2 = 1
+			p1 = 1
+			w1 = 1
+			:monthloop
+				*p '<Table border=0 cellpadding=1><TR><TH colspan=7><b><i><font size=6 color="brown"><<$monthName[m1]>></font></i></b></TH></TR>'
+				*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>'
+				:weekloop
+					selected[p1] = p1
+					if w1 = 1:*p '<TR>'
+					!making sure that the date and the day of the week are in the correct position
+					if w2 ! 1:
+						if w2 = 7:
+							w1 = 7 & *p '<TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+						elseif w2 = 6:
+							w1 = 6 & *p '<TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+						elseif w2 = 5:
+							w1 = 5 & *p '<TD></TD><TD></TD><TD></TD><TD></TD>'
+						elseif w2 = 4:
+							w1 = 4 & *p '<TD></TD><TD></TD><TD></TD>'
+						elseif w2 = 3:
+							w1 = 3 & *p '<TD></TD><TD></TD>'
+						else
+							w1 = 2 & *p '<TD></TD>'
+						end
+						w2 = 1
+					end
+					!selectable day display comes
+					if inversefilter = 1:
+						if datefilter['<<selected[p1]>>'] = 1:
+							datefilter['<<selected[p1]>>'] = 0
+						else
+							datefilter['<<selected[p1]>>'] = 1
+						end
+					end
+
+					if m1 = 1 and d1 >= 1 and d1 <= 8:nh1 = 1
+					if m1 = 2 and d1 = 23:nh1 = 1
+					if m1 = 3 and d1 = 8:nh1 = 1
+					if m1 = 5 and (d1 = 1 or d1 = 2):nh1 = 1
+					if m1 = 5 and d1 = 9:nh1 = 1
+					if m1 = 6 and (d1 = 12 or d1 = 13):nh1 = 1
+					if m1 = 11 and d1 = 4:nh1 = 1
+
+					if nh1 = 1:
+						$option = '<font color="red"><del><b><<d1>><b></del></font>'
+					elseif pfilmday[p1] > 0:
+						$option = '<font color="green"><<d1>></font>'
+					elseif datefilter['<<selected[p1]>>'] = 1 or (weekdayfilter = 1 and w1 < 6) or (weekendfilter = 1 and w1 >= 6):
+						$option = '<font color="grey"><del><<d1>></del></font>'
+					else
+						$option = '<a href="exec:datefilter[''<<selected[p1]>>''] = 1 & dynamic $selection"><font color="black"><<d1>></font></a>'
+					end
+					killvar 'nh1'
+					*p '<TD align="center"><font size=5><<$option>></font></TD>'
+					!preparing for next day
+					d1 += 1
+					p1 += 1
+					w1 += 1
+			!we have to check the end of the month too
+			if monthsend[m1] < d1:
+				!Oh-oh, this is the next month already!
+				*p '</TR></TABLE><br>'
+				if w1 = 8: w1 = 1
+				w2 = w1
+				w1 = 1
+				m1 += 1
+				if m1 > 12: m1 = 1
+				d1 = 1
+				!does it necessary to display the next month?
+				if p1 < 50:jump 'monthloop'
+			else
+				!the next day is still the same month
+				if p1 < 50:
+					!the next day have to be displayed
+					if w1 = 8: *p '</TR>' & w1 = 1
+					jump 'weekloop'
+				else
+					!the next day does not have to be displayed
+					*p '</TR></TABLE><br>'
+				end
+			end
+			inversefilter = 0
+			''
+			if weekdayfilter = 0:
+				$weekdayfilter = '<a href="exec:weekdayfilter = 1 & dynamic $selection">Remove weekdays</a>'
+			else
+				$weekdayfilter = '<a href="exec:weekdayfilter = 0 & dynamic $selection">Restore weekdays</a>'
+			end
+			if weekendfilter = 0:
+				$weekendfilter = '<a href="exec:weekendfilter = 1 & dynamic $selection">Remove weekends</a>'
+			else
+				$weekendfilter = '<a href="exec:weekendfilter = 0 & dynamic $selection">Restore weekends</a>'
+			end
+			*p '<<$weekdayfilter>>  <<$weekendfilter>>  <a href="exec:inversefilter = 1 & dynamic $selection">Inverse selection</a><br>'
+			*p '<a href="exec:killvar ''datefilter'' & killvar ''selected'' & weekdayfilter = 0 & weekendfilter = 0 & dynamic $selection">Clear date filters</a>'
+		}
+		dynamic $selection
+	end
+
+!{	act 'Filter by tag':
+		$displaytag = {
+			*clr
+			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
+			'<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: '<a href="exec:$tagfilter += ''hetero '' & flag_tag[1] = 1 & dynamic $displaytag">heterosexual</a>'
+			if flag_tag[2] = 0: '<a href="exec:$tagfilter += ''lesbian '' & flag_tag[2] = 1 & dynamic $displaytag">lesbian</a>'
+			if flag_tag[3] = 0: '<a href="exec:$tagfilter += ''threesome '' & flag_tag[3] = 1 & dynamic $displaytag">threesome</a>'
+			if flag_tag[4] = 0: '<a href="exec:$tagfilter += ''gangbang '' & flag_tag[4] = 1 & dynamic $displaytag">gangbang</a>'
+			if flag_tag[5] = 0: '<a href="exec:$tagfilter += ''facial '' & flag_tag[5] = 1 & dynamic $displaytag">facial</a>'
+			if flag_tag[6] = 0: '<a href="exec:$tagfilter += ''vaginal '' & flag_tag[6] = 1 & dynamic $displaytag">vaginal</a>'
+			if flag_tag[7] = 0: '<a href="exec:$tagfilter += ''anal '' & flag_tag[7] = 1 & dynamic $displaytag">anal</a>'
+			if flag_tag[8] = 0: '<a href="exec:$tagfilter += ''blowjob '' & flag_tag[8] = 1 & dynamic $displaytag">blowjob</a>'
+			if flag_tag[9] = 0: '<a href="exec:$tagfilter += ''handjob '' & flag_tag[9] = 1 & dynamic $displaytag">handjob</a>'
+			if flag_tag[10] = 0: '<a href="exec:$tagfilter += ''cumshot '' & flag_tag[10] = 1 & dynamic $displaytag">cumshot</a>'
+			if flag_tag[11] = 0: '<a href="exec:$tagfilter += ''swallowing '' & flag_tag[11] = 1 & dynamic $displaytag">swallowing</a>'
+			if flag_tag[12] = 0: '<a href="exec:$tagfilter += ''DP '' & flag_tag[12] = 1 & dynamic $displaytag">DP</a>'
+			if flag_tag[13] = 0: '<a href="exec:$tagfilter += ''creampie '' & flag_tag[13] = 1 & dynamic $displaytag">creampie</a>'
+			''
+			'<a href="exec:killvar ''$tagfilter'' & killvar ''flag_tag'' & dynamic $displaytag">Clear date filters</a>'
+		}
+		dynamic $displaytag
+	end
+}
+	act 'Filter by participants':
+		$displaynum = {
+			*clr
+			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
+			'<font color="grey">The movies above the selected number of partners will not be displayed</color><br>'
+			if ppnum = 1:
+				$pp1 = '<b><font color="red" size=8>1</font></b>'
+			else
+				$pp1 = '<a href="exec:ppnum = 1 & dynamic $displaynum"><font size=8 color="black">1</font></a>'
+			end
+			if ppnum = 2:
+				$pp2 = '<b><font color="red" size=8>2</font></b>'
+			else
+				$pp2 = '<a href="exec:ppnum = 2 & dynamic $displaynum"><font size=8 color="black">2</font></a>'
+			end
+			if ppnum = 3:
+				$pp3 = '<b><font color="red" size=8>3</font></b>'
+			else
+				$pp3 = '<a href="exec:ppnum = 3 & dynamic $displaynum"><font size=8 color="black">3</font></a>'
+			end
+			if ppnum = 4:
+				$pp4 = '<b><font color="red" size=8>4</font></b>'
+			else
+				$pp4 = '<a href="exec:ppnum = 4 & dynamic $displaynum"><font size=8 color="black">4</font></a>'
+			end
+			if ppnum = 5:
+				$pp5 = '<b><font color="red" size=8>5</font></b>'
+			else
+				$pp5 = '<a href="exec:ppnum = 5 & dynamic $displaynum"><font size=8 color="black">5</font></a>'
+			end
+			'<Table border=0 cellspacing=10><TR><TH><<$pp1>></TH><TH><<$pp2>></TH><TH><<$pp3>></TH><TH><<$pp4>></TH><TH><<$pp5>></TH></TR>'
+			''
+			'<a href="exec:killvar ''ppnum'' & dynamic $displaynum">Clear participant limitations</a>'
+		}
+		dynamic $displaynum
+	end
+
+	act 'Porn production schedule':
+		$contracting = {
+			*clr
+			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
+			''
+			d1 = day
+			w1 = week
+			m1 = month
+			counter = 1
+			$pornofday = ''
+			:pornopt
+				killvar 'nh1'
+				pcount[counter] = counter
+				w1 += 1
+				if w1 > 7:w1 = 1
+				d1 += 1
+				if monthsend[m1] < d1: m1 += 1 & d1 = 1
+				if m1 > 12: m1 = 1
+
+				if m1 = 1 and d1 >= 1 and d1 <= 8:nh1 = 1
+				if m1 = 2 and d1 = 23:nh1 = 1
+				if m1 = 3 and d1 = 8:nh1 = 1
+				if m1 = 5 and (d1 = 1 or d1 = 2):nh1 = 1
+				if m1 = 5 and d1 = 9:nh1 = 1
+				if m1 = 6 and (d1 = 12 or d1 = 13):nh1 = 1
+				if m1 = 11 and d1 = 4:nh1 = 1
+
+				if (weekdayfilter = 1 and w1 >= 6) or (weekendfilter = 1 and w1 < 6) or (weekdayfilter = 0 and weekendfilter = 0) or nh1 = 1:
+					if datefilter['<<selected[counter]>>'] = 0:
+						if nh1 = 1:
+							$pornofday = '<i><b>National holiday, no shootings!</b></i><br>'
+						else
+							porns = 0
+							:pornplanloop
+								dynamic $pornfilmdesc, pornplan['<<counter>>,<<porns>>']
+								if (pfactor <= ppnum) or (ppnum = 0):
+									if porntaken['<<counter>>,<<porns>>'] = 2:
+										$pornofday += '<font color="green"><b><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></b> - <i>Already contracted</i></font><br>'
+									elseif pfilmday[counter] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif pfilmday[counter - 1] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif pfilmday[counter - 2] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif pfilmday[counter - 3] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif pfilmday[counter - 4] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif pfilmday[counter - 5] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif pfilmday[counter + 1] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif pfilmday[counter + 2] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif pfilmday[counter + 3] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif pfilmday[counter + 4] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif pfilmday[counter + 5] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									elseif porntaken['<<counter>>,<<porns>>'] = 1:
+										$pornofday += '<font color="red"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>> - <i>Taken by someone else</i></font><br>'
+									elseif pornstack < 10:
+										$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>'
+									else
+										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
+									end
+								end
+							if porns < 3: porns += 1 & jump 'pornplanloop'
+						end
+						if $pornofday ! '':
+							'<<$monthName[m1]>> <<d1>>, <<$week[w1]>>: '
+							'<<$pornofday>>'
+							$pornofday = ''
+						end
+					end
+				end
+			if counter < 49:
+				counter += 1
+				jump 'pornopt'
+			end
+		}
+		dynamic $contracting
+	end
+
+	if pornstack > 1 or (freefilm = 0 and pornstack > 0):
+		act 'Cancel a contract':
+			$canceling = {
+				*clr
+				'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
+				d1 = day
+				w1 = week
+				m1 = month
+				i = 1
+				:nopornopt
+					pcount[i] = i
+					w1 += 1
+					if w1 > 7:w1 = 1
+					d1 += 1
+					if monthsend[m1] < d1: m1 += 1 & d1 = 1
+					if (pfilmday[i] = 1 and freefilm = 0) or pfilmday[i] > 1: '<<$monthName[m1]>> <<d1>>, <<$week[w1]>>: '
+					porns = 0
+					:nopornplanloop
+						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 porns < 3: porns += 1 & jump 'nopornplanloop'
+				if i < 49:
+					i += 1
+					jump 'nopornopt'
+				end
+			}
+			dynamic $canceling
+		end
+	end
+
+	act 'Leave':
+		killvar 'ppnum'
+		killvar 'displaynum'
+		killvar 'displaytext'
+		killvar 'displayimage'
+		killvar '$pp1'
+		killvar '$pp2'
+		killvar '$pp3'
+		killvar '$pp4'
+		killvar '$pp5'
+		killvar 'displaytag'
+		killvar 'flag_tag'
+		killvar 'selection'
+		killvar 'datefilter'
+		killvar 'selected'
+		killvar 'option'
+		killvar 'tagfilter'
+		killvar 'contracting'
+		killvar 'pcount'
+		killvar 'weekdayfilter'
+		killvar 'weekendfilter'
+		gt 'pornstudio', 'start'
+	end
+end
+
+if $ARGS[0] = 'first':
+	cls
+	menu_off = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting0.jpg"></center>'
+	'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?'
+
+	if pcs_inhib < 40 and (money <= 500 and karta <= 500 and home_owned[2] = 0) or (narkoman = 1 or 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'
+	elseif 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'
+	else
+		act 'Continue': gt 'pornstudio', 'yes'
+	end
+end
+
+if $ARGS[0] = 'yes':
+	cls
+	menu_off = 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting0.jpg"></center>'
+	'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?"'
+	act 'Yes':
+		cla
+		minut += 5
+		gs 'stat'
+		'You confirm your enthusiasm to be in porn and he nods. "Let''s see your papers. You are 18 or older, yes?"'
+		if age >= 18:
+			'"Yes, I am." you answer, handing him your passport.'
+			'"All right then. 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... Here''s my card. Come back when you''re old enough, kid."'
+			fakepassport = 2
+			act 'Leave': gt 'pornstudio', 'start'
+			exit
+		end
+
+		act 'Make excuses and leave': gt 'pornstudio', 'start'
+
+		gs 'willpower', 'exhib', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Undress (<<will_cost>> Willpower)':
+				cla & *clr
+				gs 'willpower', 'pay', 'self'
+				minut += 5
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting1.jpg"></center>'
+				'You undress as 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':
+					cla & *clr
+					minut += 5
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting2.jpg"></center>'
+					'You lie down on the sofa and spread your legs. The manager takes a few pictures on his phone, explaining that they''re for your portfolio. After that, he asks you to kneel.'
+
+					act 'Kneel':
+						cla & *clr
+						minut += 5
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting3.jpg"></center>'
+						'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 his tip. He takes more pictures as he says "Now suck."'
+
+						act 'Suck his dick':
+							cla & *clr
+							minut += 5
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting4.jpg"></center>'
+							'You take his shaft into your mouth and begin to suck it as he takes a few more pictures.'
+
+							act 'Finish him':
+								cla & *clr
+								minut += 5
+								gs 'stat'
+								'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting5.jpg"></center>'
+								'You take his dick deep into your throat while trying to look as sexy as possible. Meanwhile, he fondles your breast with his free hand.'
+								'After a few minutes, he pulls his dick out of your mouth. "Finish me off!" he curtly orders. You quickly jerk him off and soon a thick load of cum is covering your face. He takes some last photos of you before returning to his desk and offering you wipes. You quickly clean yourself, get dressed and sit down.'
+								'"You can call me Dimitri. You''re going to need a stage name.'
+
+								act 'Choose your name':
+									cla & *clr
+									firstkasting = 1
+									$pfname = input ("What will your porn name be?")
+
+									if $pfname <= 0:$pfname = '<<$pcs_nickname>> BimboStar'
+
+									'"<<$pfname>>, wonderful name. Now listen. Before shooting starts, you have to pass a medical examination. If we find any sign of a sexually transmitted disease, you''re out, no exceptions."'
+									'"There we go, you''re now registered. We''re quite big in the industry, shooting 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."'
+									'"Come see me when you want a contract. And welcome to the world of pornography...<<$pfname>>."'
+
+									act 'Continue': gt 'pornstudio', 'start'
+								end
+							end
+						end
+					end
+				end
+			end
+		else
+			act 'Undress (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	end
+end
+
+if $ARGS[0] = 'medical':
+	*clr & cla
+	menu_off = 1
+	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/exam.jpg"></center>'
+	minut += 5
+	gs 'stat'
+	'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. The doctor comes up to you and 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."'
+
+	act 'Wait':
+		cla
+		minut += 30
+		gs 'stat'
+		'...'
+		'...'
+		if venera > 0:
+			pfilmNO = 1
+			pfilmNoVenera = 1
+			'"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 cannot make films."'
+			act 'Leave': gt 'pornstudio', 'start'
+		else
+			'"Very good, you are clean. You can go to the dressing room."'
+
+			act 'Go to the dressing room':
+				pf = ARGS[1]
+				dynamic $pornfilmdesc, pf
+				gs 'pornfilm', 'pornactor'
+				gs 'pornfilm', 'pornactress'
+				*clr & cla
+				'<center><img width=700 src="images/locations/city/redlight/studio_porn/makeup.jpg"></center>'
+				minut += 30
+				cumspclnt = 20
+				gs 'cum_cleanup'
+				pcs_sweat = 0
+				pcs_hairbsh = 1
+				pcs_makeup = 4
+				pcs_lipbalm += 8
+				pcs_breath = 1
+				gs 'stat'
+				'A skinny white-haired woman is waiting for you in the dressing room.'
+				'You take a thorough shower before getting an enema. You then get your hair and make-up done.'
+
+				act 'Go to the set': gt 'pornfilm', '<<pf>>'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'postvideo':
+	cls
+	menu_off = 1
+	minut += 30
+	pf = pfilmday[0]
+	pfilmday[0] = 0
+	pornstack -= 1
+	pornnow = 0
+	if film < 5:
+		fmulti = 25
+	elseif film < 10:
+		fmulti = 30
+	elseif film < 15:
+		fmulti = 35
+	elseif film < 25:
+		fmulti = 40
+	elseif film < 50:
+		fmulti = 45
+	elseif film >= 50:
+		fmulti = 50
+	end
+
+	film += 1
+	if film = 1:
+		$porntitle[film] = 'Girls Jerk Guys #36 - <<$pfname>>'
+		$pornfilmstory[film] = '<<$pfname>>''s debut into the world of porn. Watch as she jerks off <<$pakter[1]>> and lets him cum all over her tits.'
+	else
+		if $pstory = '' and editpornname = 1:
+			$pornfilmstory[film] = input('You can enter the story of the porn movie. This action can be done only 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
+			$pornfilmstory[film] = $pstory
+		end
+		if editpornname = 1:
+			$porntitle[film] = input("Enter the name of the porn movie. <i>This action can be done only once, but you can choose to do it later! (Just hit Enter/Esc when blank)</i>")
+		end
+	end
+
+	if pfilmNOPAY = 0:
+		pfcash = pcash * fmulti
+		money += pfcash
+		'Dimitri counts <<pfcash>> <b>₽</b> out for your film and wishes good luck.'
+	else
+		pfilmNOPAY = 0
+		pfcash = 0
+		'You have fulfilled your obligation and made the film for free.'
+	end
+	pornfilmYear[film] = year
+	pornfilmMonth[film] = month
+	pornfilmDay[film] = day
+	porndaystart[film] = daystart
+	pornfilmType[film] = pf
+	pornfilmCash[film] = pfcash
+	pornfilmActAge[film] = age
+	pornfilmAppAge[film] = vidage
+	pornfilmpregchem[film] = pregchem
+	pornfilmacting[film] = acting+orgasmbonus+pcs_intel/10
+	dynamic $pornfilmdesc, pf
+	killvar 'orgasmbonus'
+	if pornfilmacting[film] >= 90:
+		porn_fame += 3
+	elseif pornfilmacting[film] >= 75:
+		porn_fame += 2
+	elseif pornfilmacting[film] >= 60:
+		porn_fame += 1
+	end
+	if hotcat >= 9:
+		porn_fame += 3
+	elseif hotcat >= 7:
+		porn_fame += 2
+	elseif hotcat >= 5:
+		porn_fame += 1
+	end
+	pornfilmvnesh[film] = hotcat
+
+	acting += actbonus
+
+	if pfType ! 0:
+		unprotfilm = -1
+		if succubusflag = 1:
+!!			May add a check to clear unprotfilm based on sucpcinfo (the PC knows Succubae are immune to STD''s)
+			if pfcash > 0:
+				$tmp = '"I almost can''t believe they paid me <<pfcash>><b>₽</b> for such a wonderful meal!"'
+			else
+				$tmp = '"And they think I''m doing this for free. If only they knew they were paying me in another way..."'
+			end
+			'You let slip a satisfied smirk and think to yourself, <<$tmp>>'
+		elseif knowpreg = 0 and thinkpreg = 0 and pillcon2 < 1000:
+			pornDanger[film] = 1
+!!			Left "ppreg" pending its eventual use
+			if ppreg = 0:
+				if pfcash > 0:
+					$tmp = ' Was <<pfcash>> <b>₽</b> worth the risk of getting impregnated by a seedy porn actor you''ll probably never see again?'
+				else
+					$tmp = 'You didn''t even get paid to risk pregnancy! You''ll likely never see the guy again.'
+				end
+				'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>>'
+			else
+				!{If she has birth control and deliberately isn''t using it, obviously she wants to get pregnant or just doesn''t care.}
+				if pfcash > 0:
+					$tmp = 'Either way, <<pfcash>> <b>₽</b> will definitely help make a better life for you and your baby if you end up pregnant.'
+				else
+					$tmp = 'The fact that you weren''t even paid to take this risk excites you more than you''d like to admit.'
+				end
+				'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.<<$tmp>>'
+				pcs_horny += 10
+			end
+		end
+		killvar '$tmp'
+	end
+
+	if pfactor = 50:
+		$pornfilmActor[film] = 'Fifty fans of'
+	else
+		dynamic $pornactor
+		$pornfilmActor[film] = ''
+		pact = pfactor
+		:pornactortext
+			if pact > 1:
+				$pornfilmActor[film] += $pakter[pact]+', '
+			else
+				$pornfilmActor[film] += $pakter[pact]
+			end
+			pact -= 1
+		if pact > 0:jump 'pornactortext'
+	end
+
+	if film < 10:
+		filmkoef = 10
+	elseif film < 25:
+		filmkoef = 5
+	else
+		filmkoef = 0
+	end
+
+	pfcash = 0
+	gs 'stat'
+
+	act 'Leave': gt 'pornstudio', 'start'
+end
+
+if $ARGS[0] = '1':
+	$loc_arg = $ARGS[0]
+	$loc = 'pornstudio'
+
+	minut = minut + 5
+	clr
+	menu_off = 1
+	gs'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_1.jpg"></center>'
+	'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.'
+
+	act 'State the purpose of your visit':
+		*clr & cla
+		minut += 60
+        '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
+		'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."'
+		'"I''ll tell you everything else under one condition - you have to undress."'
+
+		act 'Undress':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting_3.jpg"></center>'
+			'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."'
+
+			act 'Continue':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/model_0.jpg"></center>'
+				'"Then a girl is chosen for the lead role. Only the most attractive of girls are chosen."'
+				
+				act 'Continue':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/film_0.jpg"></center>'
+					'"Then she shoots the scenes, an interesting and exciting process that can take hours. The films we shoot...'
+					
+					act 'Continue':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/dvd-disx.jpg"></center>'
+						'He pulls a DVD off the top of a nearby stack. "Are how we make money."'
+
+						act 'How and where is it all sold?':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
+							'"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 physically.' 
+							'We''re thinking of moving in on the university as well- and not just selling our films there. We could possibly shoot a few films on campus. There''s a huge market for young college students and we want a slice."'
+
+							act 'Is that legal?':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/ment_0.jpg"></center>'
+								'"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."'
+
+								act 'I understand':
+									*clr & cla
+									pornstudio = 3
+
+									'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
+									'"Good girl. Now leave and stop wasting my time."'
+                                    gt 'pornstudio', 'start'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = '2':
+	$loc_arg = $ARGS[0]
+	$loc = 'pornstudio'
+	menu_off = 1
+
+	clr
+	! WD: Fix Uninitialised ~ 'carrf' to 'carrar'
+	carrar = RAND(40, 100)
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting_<<rand(1,6)>>.jpg"></center>'
+
+	'You spend eight hours posing in a variety of sexy underwear for the casting director.'
+
+	minut += 120
+	gs 'stat'
+	minut += 120
+	gs 'stat'
+	minut += 120
+	gs 'stat'
+	minut += 120
+	gs 'stat'
+
+	if pcs_apprnc < carrar:
+		'"You don''t have what it takes. Sorry."'
+	elseif pcs_apprnc >= carrar:
+		actr = 1
+
+		'You get the role.'
+	end
+
+	act 'Finish':
+		gt 'pornstudio','start'
+	end
+end
+
+if $ARGS[0] = '3':
+	$loc_arg = $ARGS[0]
+	$loc = 'pornstudio'
+
+	clr
+	actr = 0
+	gs 'stat'
+	gt 'bdsm'
+end
+
+if $ARGS[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."' 
+	'"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 though, if we can find a way to make money off of you, we definitely will." the manager ends with a smile.'
+	act 'Continue': pregtalkpornstudio = 1 & gt 'pornstudio', 'manager'
+end
+
+--- pornstudio ---------------------------------
+

locations/wardrobe.qsrc

@@ -163,15 +163,15 @@ $default_clothing_line = {
 	else
 		$RESULT +='<TD><img width="100" src="<<FUNC(''$clothing_image'', $defclothingtype[default_entry], defclothingnumber[default_entry])>>"></TD>'
 	end
-	if defpantynumber[default_entry] = 0:
+	if defbranumber[default_entry] = 0:
 		$RESULT +='<TD><img width="100" src="images/pc/items/blank.jpg"></TD>'
 	else
-		$RESULT +='<TD><img width="100" src="<<FUNC(''$panty_image'',  $defpantytype[default_entry], defpantynumber[default_entry])>>"></TD>'
+		$RESULT +='<TD><img width="100" src="<<FUNC(''$bra_image'',  $defbratype[default_entry], defbranumber[default_entry])>>"></TD>'
 	end
-	if defbranumber[default_entry] = 0:
+	if defpantynumber[default_entry] = 0:
 		$RESULT +='<TD><img width="100" src="images/pc/items/blank.jpg"></TD>'
 	else
-		$RESULT +='<TD><img width="100" src="<<FUNC(''$bra_image'',  $defbratype[default_entry], defbranumber[default_entry])>>"></TD>'
+		$RESULT +='<TD><img width="100" src="<<FUNC(''$panty_image'',  $defpantytype[default_entry], defpantynumber[default_entry])>>"></TD>'
 	end
 	if defshoenumber[default_entry] = 0:
 		$RESULT +='<TD><img width="100" src="images/pc/items/blank.jpg"></TD>'
@@ -211,15 +211,15 @@ $default_sports_line = {
 		$RESULT +='<TD><img width="100" src="images/pc/items/blank.jpg"></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
 	else
 		$RESULT +='<TD><img width="100" src="<<FUNC(''$clothing_image'', ''danilovich_outfits'', sportsclothingnumber[default_entry])>>"></TD>'
-		if sportspantynumber[default_entry] = 0:
+		if sportsbranumber[default_entry] = 0:
 			$RESULT +='<TD><img width="100" src="images/pc/items/blank.jpg"></TD>'
 		else
-			$RESULT +='<TD><img width="100" src="<<FUNC(''$panty_image'',  $sportspantytype[default_entry], sportspantynumber[default_entry])>>"></TD>'
+			$RESULT +='<TD><img width="100" src="<<FUNC(''$bra_image'',  $sportsbratype[default_entry], sportsbranumber[default_entry])>>"></TD>'
 		end
-		if sportsbranumber[default_entry] = 0:
+		if sportspantynumber[default_entry] = 0:
 			$RESULT +='<TD><img width="100" src="images/pc/items/blank.jpg"></TD>'
 		else
-			$RESULT +='<TD><img width="100" src="<<FUNC(''$bra_image'',  $sportsbratype[default_entry], sportsbranumber[default_entry])>>"></TD>'
+			$RESULT +='<TD><img width="100" src="<<FUNC(''$panty_image'',  $sportspantytype[default_entry], sportspantynumber[default_entry])>>"></TD>'
 		end
 		if sportsshoenumber[default_entry] = 0:
 			$RESULT +='<TD><img width="100" src="images/pc/items/blank.jpg"></TD>'
@@ -259,7 +259,7 @@ if $ARGS[0] = 'default':
 	gs 'stat'
 	
 	'<center><table><TH><a href="exec:gt ''wardrobe'', ''main''"><img src="images/system/icons/clothing/clothes.png" height="50"></a></TH><TH><B>Your Sets: Sport</B></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''"><img src="images/system/icons/clothing/organize.png" height="50"></a></TH></table></center>'
-	'<center><table><TH>Name</TH><TH>Outfit</TH><TH>Panties</TH><TH>Bra</TH><TH>Shoes</TH><TH>Coat</TH><TH>Purse</TH><TH></TH><TH></TH><TH></TH><TH></TH><TR>'
+	'<center><table><TH>Name</TH><TH>Outfit</TH><TH>Bra</TH><TH>Panties</TH><TH>Shoes</TH><TH>Coat</TH><TH>Purse</TH><TH></TH><TH></TH><TH></TH><TH></TH><TR>'
 
 	default_entry = 0
 	:loopdefault_entry_sport_set
@@ -285,7 +285,7 @@ if $ARGS[0] = 'default_template':
 	gs 'stat'
 	
 	'<center><table><TH><a href="exec:gt ''wardrobe'', ''main''"><img src="images/system/icons/clothing/clothes.png" height="50"></TH><TH><B>Your Sets: <<$default_entry[2]>></B></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''"><img src="images/system/icons/clothing/organize.png" height="50"></TH><TR><TD></TD><TD><center><a href="exec: gs ''wardrobe'', ''default_set_name''">Rename set</a></center></TD></table></center>'
-	'<center><table><TH>Name</TH><TH>Outfit</TH><TH>Panties</TH><TH>Bra</TH><TH>Shoes</TH><TH>Coat</TH><TH>Purse</TH><TH></TH><TH></TH><TH></TH><TH></TH><TR>'
+	'<center><table><TH>Name</TH><TH>Outfit</TH><TH>Bra</TH><TH>Panties</TH><TH>Shoes</TH><TH>Coat</TH><TH>Purse</TH><TH></TH><TH></TH><TH></TH><TH></TH><TR>'
 
 	temp = default_entry
 	:loopdefault_entry_set