glife/locations/KatjaHomeTalk.qsrc

# KatjaHomeTalk
!2022/08/02

!!This files governs Katjas interactions in ther room. The following variables are part of her storry line (the name in the parenthsis is the old name of that variable):
!! katjaQW['QWstage'] = 1 You have agreed to hang out with Katja afer school. (meynoldQW = 1)
!! 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['QWstage'] = 7 You have told Katja about the boys in the park.

!! katjaQW['boy_block'] is set to 1 if you tell Katja that you have no interest in boys when she ask about you sex experience whit 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 commando to school. 1 to 3 are just temprary counts,
!!							4 means you have gotten Katja to take off her panties when you ask her, and 5 means that she won''t wear panties to school anymore.
!!							If you want to check if Katja is not wearing panties at school use katjaQW['pantiesQWstage'] >= 5. (katjaTanga, katja_tanga_end)

!! katjaQW['school_kiss'] Increases the first two times you kiss at school. Used to trigger the kissing competition in the park. (flag_start_parc)
	
!! katjaQW['slut'] a number that increases as Katja becomes more and more sexualy liberated, and alows her to be villing to do more sexual stuff. (katjaSlut)
!! 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 tells if Katja is dominant or submissive. 0 is neutral, a negative means she is submissive and a positive means she is dominant. In general the absolute value needs 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 measure of what experience Katja has had with random guys in the park. 0 means she has not had sex with anybody in the park, 
!!					1 means that she has had sex with one guy at a time (either alone, in a threesome with the player character or while the player had sex with another guy next to them)
!!					2 means she has had a threesome with 2 guys you met in the park, and 3 means she has paticipated in an orgy with guys from the park. (katjaSex)

!! katjaQW['masturbates'] = 1 Katja has started masturbating at night if she get too horny. (KatjaMastr)
!! The following 3 variables functions as pcs_throat, pcs_vag and pcs_ass does for the player character. So whenever Katja has sex with a guy or a dildo is used on her you should add code to change them as is done for the player character in arousal.
!! npc_throat['A14'] The capacity for Katja to take a dick (or dildo) down her throat. (KatjaThroat)
!! npc_vag['A14'] The capacity for Katja to take a dick (or dildo) in the vagina.
!! npc_ass['A14'] The capacity for Katja to take a dick (or dildo) in her ass. (KatjaAnus)

!! katjaQW['strapon_bj'] = 1 Katja has given a BJ to your strap-on.
!! katjaQW['strapon_vag'] = 1 You have fucked Katja''s pussy with your strap-on.
!! katjaQW['strapon_ass'] = 1 You have fucked Katja''s ass with your strap-on.
!! katjaQW['fisted_vag'] = 1 You have fisted Katja''s vagina.

!! katjaQW['ivan_pussy'] = 1 Katja has taken Ivan''s cock in her pussy.
!! katjaQW['ivan_anal'] = 1 Katja has taken Ivan''s cock in her ass.
!! katjaQW['marcus_pussy'] = 1 Katja has taken Marcus''s cock in her pussy.
!! katjaQW['marcus_anal'] = 1 Katja has taken Marcus''s cock in her ass.
!! katjaQW['marcus_disco'] = 1 Katja and the player character have had a threesome with Marcus at the community center disco.

!! katjaQW['Marcus_day'] is set to daystart if you or Katja ask to have a threesome with Marcus. Such that the question will only be asked once per day.

!! katjaQW['birth_control_start_day'] This is set to the daystart value from the day Katja''s birth control will be effective if the player tells her to use it. Should be used to check if Katja can become pregnant by 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.
!! 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 your fist into your pussy
!! katjaQW['knows_self_fisting_anal'] = 1 You have told Katja how you stuck your fist into your ass
!! katjaQW['knows_BJ'] = 1 You have told Katja that you have given a guy a blow-job (KatjaKnowBJ =1)
!! katjaQW['knows_sex'] = 1 You have told Katja that you have had virginal sex with a guy (KatjaKnowSex =1)
!! katjaQW['knows_anal'] = 1 You have told Katja that you have had anal sex with a guy (KatjaKnowAnal =1)
!! katjaQW['knows_cuni'] = 1 You have told Katja that have gone down on another girl (KatjaKnowKuni =1)
!! katjaQW['know_Pirced_tongue'] = 1 katja have noticed your tongue piercing (KatjaKnowPirsA =1)

!! katja['school_sex'] = 1 Katja have taken you to a storage room at school to have sex. (katschoolsex)
!! katjaQW['disco_Foto'] =1 somebody have takien a picture of Katja''s exposed breast at the disco. Right now to only use of this variable is so that another foto wont be taken. (katja_disco_Foto)

!! katjaQW['drunk_help'] is set to 1 when Katja walks you home from the disco because you are to drunk. Will be reset to 0 after you talk to her about it at school. (meynoldQW = 3)
!! katjaQW['no_panties_at_disco'] is set if Katja shows you at the disco that she is not vearing panties. Will be reset to 0 at night. (katja_disco_end)
!! KatjaQW['sex_in_the_park_comment'] temposry varibale which is set during sex with guys in the park to make sure she give the right comment before she says goodbuy. Will be rest to 0 when going home after sex. (KatjaOhrenet)

!! katjaQW['know_katja_uni'] = 1 Katja has told you she is going to uni to study teaching.
!! katjaQW['know_going_to_teaching_degree'] =1 you have told Katja that you are going to the university to study in the teaching program.
!! katjaQW['meet_uni_class'] = 1 You have meet Katja in you uni class.

if $ARGS[0] = 'cikl':
	!!Modifying Katja''s arousal level.
	if katjaQW['QWstage'] > 2:
		if katjaQW['horny'] >= 0: katjaQW['horny'] += (katjaQW['slut'] - rand(1,50))/10
		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)
				if katjaQW['masturbates'] = 0: katjaQW['masturbates'] = 1
			else
				katjaQW['horny'] = 100
			end
		end
	end

	!!Reseting if Katja have shown you that she is not wearing panties at the disco. The reason to not use a daystart variable, is the if you show it very late Friday it might prevent you from seeing it Saturday (daystart can change during the event)
	if katjaQW['no_panties_at_disco'] > 0: katjaQW['no_panties_at_disco'] = 0

	!!Out commented Katja becoming pregnant until more content for a pregnant Katja is done 
	!!if katjaPreg = 0 and month >= 2 and year > 2016: katjaPreg = 1
end

if $ARGS[0] = '':
	$loc = 'mey_home'
	$loc_arg = '5'
	$menu_loc = 'mey_home'
	$menu_arg = '5'
	$locclass = 'livingr'
	$location_type = 'indoors'
	CLOSE ALL
	menu_off = 1
	gs 'vicky_meynold_schedule'
	gs 'katja_meynold_schedule'
	gs 'stat'
	'<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 calm and stoic.'
		elseif katjaQW['horny'] < 40:
			'Katja looks at you with a naughty twinkle in her eyes.'
		elseif katjaQW['horny'] < 60:
			'Katja looks at you, a faint blush on her cheeks as she smiles at you mischievously.'
		elseif katjaQW['horny'] < 80:
			'Katja is blushing fairly obviously and looks at you longingly.'
		else
			'Katja''s face is flushed bright red and her chest is heaving from her heavy breathing. She''s idly rubbing her thighs against one another.'
		end
	else
		'Katja looks at you with a smile.'
	end

	if locat['katja'] = 10:
		!!When the weather is good the coolkids and the jock meet at the beach sometime and Katja goes to tther to join them, if the player is talking to when this happens she asks them to go with. Alternatively the can just leave.
		'"The others are meeting at the beach right now. Come on lets go meet them" she says.'
		act 'Go to the beach with Katja': minut += 15 & gt 'pav_lake', 'school_mates'
	elseif locat['katja'] = 8:
		!!Friday and Sturday evening Katja goes to the disco, if the player is talking to when this happens she asks them to go with. Alternatively the can just leave.
		'"Let''s go to the disco!" Katja suggests with a smile.'
		if money >= 25:act 'Go to the disco':money -= 25 & minut += 10 & gt 'pav_disco'
	elseif locat['katja'] = 9:
		'Katja notices how late it is and politely asks you to leave.'
	else
		if pcs_sweat >= 20:
			!katja doesn''t like stinky people so if the player is sveaty she will ask the player to take a bath. The player can leave instead.
			'Katja wrinkles her nose. "<<$pcs_nickname>>, you''re all sweaty! Do you want to use my shower?"'

			act 'Have a shower': gt 'KatjaHomeTalk', 'shower'
		else
			!!not sweaty

			if katjaQW['know_katja_uni'] = 0 and SchoolAtestat = 1 and (month > 6 or (month = 6 and day > 15)):
				!!Katja tells you that she has enrolled in the university.
				gt 'KatjaHomeTalk',  'katja_uni_tell'

			else
				if katjaQW['QWstage'] = 6 and katjaQW['anal_quest'] >= 3 and katjaQW['slut'] > 100 and katjaQW['horny'] > 60:
					!!If Katja have had sex with both marcus and Ivan and have been corrupted enough. Then she will when she is horny ask about trying sex with other boys. 
					gt 'KatjaHomeTalk', 'random_park_sex_talk'
			
				elseif katjaQW['QWstage'] = 5 and katjaQW['marcus_pussy'] > 0: 
					!!If Katja have has had her first time wiht Marcus she will discuss this the next time the player talks to her at home
				gt 'KatjaHomeTalk', 'first_boy_sex_follow_up'
			
				elseif katjaQW['QWstage'] = 5 and katjaQW['marcus_asked'] = 1: 
					!!If Marcus have agreed to be katja''s first, the player will tell this to Katja the next time the talk at home
					gt 'KatjaHomeTalk', 'Marcus_answer_talk'
			
				elseif katjaQW['QWstage'] < 4 and katjaQW['slut'] >= 50 and katjaQW['horny'] >= 40 and (katjaQW['knows_BJ'] + katjaQW['knows_sex']) >= 2 and npc_sex['A14'] > 0 and katjaQW['anal_quest'] ! 1:
					!!If Katja have been corrupted enough, have had sex with the player and know that the player have both given blow jobs and have had vaginal sex with a boyu. She will if she is horny ask the player to help her arange her first time with a boy.
					gt 'KatjaHomeTalk', 'sex_with_boy_ask'
			
				else
					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 and katjaQW['QWstage'] ! 4: 
						!!If Katja have been corrupted enough, have had sex with the player and know that the player have both given blow jobs and have had vaginal sex with a boy. She will if she is horny ask the player to help her arange her first time with a boy.
						gt 'KatjaHomeTalk', 'anal_sex_with_boy_ask'
				
					else
						if min(katjaQW['horny'],100) > rand(40,160):
							if katjaQW['QWstage'] >= 6 and week < 6 and (locat['Vicky'] = 10 or locat['Vicky'] = 11) and rand(0,6) =0 and katjaQW['Marcus_day'] ! daystart:
								!!Katja will only have Marcus come over when Vicky is in the park with Vanya and Tamara is not home. She will also only ask for a threesoem 1 out of 7 time she ask you for sex.
								katjaQW['Marcus_day'] = daystart
								gt 'katjaHomeTalk', 'marcus_kiss' 
						
							elseif katjaQW['QWstage'] > 2:
								!!The standard start of her sex scenes at home. Happens if the marcus ask do not trigger and Katja have kissed the player.
								gt 'KatjaHomeTalk', 'hornykiss'
						
							else
								!!This only triggers if the player have never kissed Katja.
								gt 'KatjaHomeTalk', 'tender_kiss'
							end
					
						else 
							if npc_pregtalk['A14'] = 0 and (KatjaConflict = 0 or katjaconflict = 2) and func('body_din','pregnancyVisibility') = 1:
								!! If Katja can see you are pregant and you haven''t already told her this will create a conflict with to different responses depending on if Katja is pregnant or not.
								if kid > 0:
									cla
									gs 'stat'
									minut += 5
									KatjaConflict = 1
									KatConCheck = daystart
									'"You''re pregnant again?" Her face turns red and her expression is far angrier than you''ve ever seen her. "After everything, you still didn''t trust me enough to tell me?" she screams at you. "I thought there was something special between us." Tears begin rolling down her cheeks. "Just leave me alone, I don''t even want to see you right now."'
							
								elseif knowKatjaPreg = 1:
									cla
									gs 'stat'
									minut += 5
									KatjaConflict = 1
									KatConCheck = daystart
									'"Are you pregnant? Why didn''t you tell me? I thought we were closer than that. I told you when I got pregnant. I need to think. We''ll talk later."'

								else
									cla
									*nl
									minut += 5
									KatjaConflict = 1
									KatConCheck = daystart
									'"Are you pregnant? Why didn''t you tell me? I thought we were closer than that. I need to think. We''ll talk later."'
								end							
						
							else
								!!If no events triggers they you go to the part where the player can choose things to do with Katja.
								gt 'katjaHomeTalk', 'chat' 
							end
						end
					end
				end
			end
		end
	end
	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] = 'chat':
	!!This is what gives the different option for the player to talk with Katja about.
	'<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 calm and stoic.'
		elseif katjaQW['horny'] < 40:
			'Katja looks at you with a naughty twinkle in her eyes.'
		elseif katjaQW['horny'] < 60:
			'Katja looks at you, a faint blush on her cheeks as she smiles at you mischievously.'
		elseif katjaQW['horny'] < 80:
			'Katja is blushing fairly obviously and looks at you longingly.'
		else
			'Katja''s face is flushed bright red and her chest is heaving from her heavy breathing. She''s idly rubbing her thighs against one another.'
		end
	else
		'Katja looks at you with a smile.'
	end

	if lernHome > 0 and katjaQW['QWstage'] >= 2: 
		!!If you have homework you can do it with Katja.
		act 'Do your homework together': 
		minut += 5
		gt 'KatjaHomeTalk', 'homework'
		end
	end

	if university['student'] = 1 and katjaQW['know_going_to_teaching_degree'] = 0 and $university['enrolled_in'] = 'teaching_studies':
		act 'Tell Katja that you''re going to the university': gt 'KatjaHomeTalk', 'uni_tell'
	end

	act 'Chat with Katja':
		!!The generic chat option.
		cla & *clr
		katjaQW['horny'] += 1
		minut += 15
		gs 'stat'
		'<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 flag_KissEV >= 3:
	!		act 'To continue the dispute':
	!		cla
	!		'- Well will continue our dispute, - asked you '
	!		'- continue, - Katya readily agreed'
	!
	!		act 'Continue': gt 'katja_sex','park'
	!		end
	!	end
		if flag_KissEV = 2:
			'"Who do you think kissed more of the boys?" she asks.'
			act 'Equal amount':
				*clr & cla
				flag_KissEV = 0
				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_kiss.jpg"></center>'
				'"We likely kissed about the same number of boys," you answer with a smile.'
				'She breathes a sigh of relief. "I shouldn''t have asked anyways," she replies and kisses you in gratitude.'
				act 'Change the subject':gt 'KatjaHomeTalk'
			end
			act 'Claim victory':
				cla
				flag_KissEV = 3
				'"I totally won!" you say with a playful smile.'
				'"I only slowed down because you were so far behind!" she says and sticks her tongue out at you.'
				'"Suuure. I think they just liked kissing me more than you."'
				'"Oh, yeah? Let''s go see then. We''ll go to the park and see who can kiss more boys," she says with a hint of anger in her voice.'
				act 'Go to the park': gt 'katja_sex','park'
			end
		else
			if katjaPreg ! 0 and knowKatjaPreg = 0:
				'Katja bites her lip and, without looking you in the eye, finally plucks up the courage "<<$pcs_nickname>>, I''m pregnant..."'

				act 'Who''s the father?':
					cla
					minut += 5
					knowKatjaPreg = 1
					gs 'stat'
					'"Wait, what? Who?" you ask, dumbfounded.'
					'Katja wrinkles her nose. "Svyatoslav.... I hooked up with him at the Christmas party and...well... Jesus, what do I do now?!"'

					act 'Be sympathetic':
						cla
						'At a loss for words, you simply hug her.'
						act 'Continue talking':gt 'KatjaHomeTalk'
					end
				end

			else
				if rand(0,100) > katjaQW['horny'] + min(katjaQW['slut']/2,50):
					!!If Katja is horny she will talk about sex, else she will talk about normal stuff. The more corrupted she is the less horny she need to be to talk about sex.
					'Katja talks about school lessons, cosmetics, the latest fashion trends and other things she considers very important.'
				else
					gs 'KatjaHomeTalk', 'Sextalk'
				end
				act 'Continue':gt 'KatjaHomeTalk'

			end
		end
	end
			
	if katjaQW['boy_lie'] = 1:
		!!If Katja told you that she was interested in a boy and wanted to try kissing beacuase of that you can ask her who it is. Wont get an answer before she is somehow corrupted and have started a sexual relationship.
		act 'Ask Katja who she likes':
			cla & *clr
			katjaQW['horny'] += 1
			minut += 15
			gs 'stat'
			'<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>'
			'"So who''s the boy you mentioned being interested in earlier?" you ask curiously.' 
			if katjaQW['slut'] >= 60 and npc_sex['A14'] > 0 and katjaQW['horny'] > 40:
				'"Nobody, you dummy! It was just an excuse so you would kiss me!" she answers with a laugh.'
				katjaQW['boy_lie'] = 2
				act 'Continue': gt 'KatjaHomeTalk', 'hornykiss'
			else
				'"That''s my secret, and I''m not going to tell you!" she says with a wink.'
				act 'Continue':gt 'KatjaHomeTalk'
			end
		end
	end

	if katjaQW['QWstage'] = 4 and katjaQW['marcus_pussy'] = 0: act 'Tell her you''ll find a boy for her to have sex with': gt 'KatjaHomeTalk', 'boy_discussion'
	!!If Katja asked your help in finding a boy to try sex with and you said no. You have the choice to reverse that decision.

	if katjaQW['anal_quest'] = 1: act 'Tell her you''ll find a boy for her to try anal with': gt 'KatjaHomeTalk', 'anal_discussion'
	!!If Katja asked your help in finding a boy to try anal sex with and you said no. You have the choice to reverse that decision.

	if katjaQW['slut'] >= 50 and katjaQW['horny'] >= 80 and npc_sex['A14'] > 0:
		!!If you are in a sexual relationship and you can see that Katja is very horny, then you have the possibility to start sex.
		act 'Lick Katja': gt 'KatjaEvDin', 'kuni_dom'
	end

	if katjaQW['QWstage'] >= 7 and katjaQW['birth_control_start_day'] < daystart and katjaQW['birth_control_start_day'] > 0 and katjaQW['horny'] > 60:
		!!If you have gotten to the last stage of Katja''s questline, you can suggest to go to the park to look for boys if Katja is horny.
		act 'Look for boys in the park':
			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
	end
			

	if katjaQW['QWstage'] = 5 and katjaQW['marcus_asked'] = 2 and week < 6 and (locat['Vicky'] = 10 or locat['Vicky'] = 11) and (katjaQW['horny']+katjaQW['slut']) > 100:
	!!Katja will only have Marcus come over when Vicky is in the park with Vanya and Tamara is not home. This is the lead in to the Marcus threesome if it is the first time.
		act 'Suggest that you call Marcus':
			*clr & cla
			katjaQW['Marcus_day'] = daystart
			minut += 5
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
			'Katja is looking aroused, so you suggest calling Marcus so that Katja can finally see what it''s like 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 (locat['Vicky'] = 10 or locat['Vicky'] = 11) and katjaQW['horny'] > 80 and katjaQW['Marcus_day'] ! daystart:
	!!Katja will only have Marcus come over when Vicky is in the park with Vanya and Tamara is not home. This is the lead in to the Marcus threesome if it have allready been fone at least one time.
		act 'Suggest that you call Marcus':
			*clr & cla
			katjaQW['Marcus_day'] = daystart
			minut += 5
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
			'Katja is looking very aroused, so you suggest calling Marcus to see if he wants to have some fun with you.'
			'"Okay. Let''s call him. We should have time before Vicky comes home," she says while looking very excited.'
			act 'Call Marcus': gt 'katja_sex', 'marcus_wait'
		end
	end

	if katjaQW['birth_control_start_day'] = 0 and katjaQW['QWstage'] >= 6:
		!!If you haven''t already told katja to use birthcontrol you can do so. This will prevent her from getting pregnant, and is necessary for taking to the park to have sex with random boys.
		act 'Tell Katja that you think she should use birth control': gt 'KatjaHomeTalk', 'preventation_talk'
	end

	act '"Let''s hang out"': 
		!!This starts the option to go out and do stuff. The same option are availeble her as if you have choosen to hang out after school.
		cla
		gs 'stat'
		if katjaQW['QWstage'] > 1 and pcs_makeup <= 1:
			'"Hey! Wait a minute <<$pcs_nickname>>! I bet you would look great with a little make-up on you! What do you say?"'
			act 'Let her put makeup on you':
				*clr & cla
				pcs_hairbsh = 1
				minut += 10
				gs 'stat'
				'<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>'
				'Katja happily grins as she quickly straightens your hair. "What do you want? A light touch-up, some normal make-up or shall I just shovel it on?"'

				act 'Light touch-up':
					cla
					pcs_makeup = 2
					'Katja subtly applies some neutral tones, with a light application of makeup to bring out your natural beauty.'
					if katjaQW['QWstage'] > 2:katjaQW['horny'] += 5*(1 + npc_sex['A14']) & 'Katja suddenly becomes aware that she is staring into your eyes and blushes.'

					act '"Let''s hang out"':gt 'katjaEv','kathan'
				end

				act 'Normal make-up':
					cla
					pcs_makeup = 3
					'Katja applies some mildly vibrate tones and colors of makeup to cover your minor imperfections and enhance your best features.'
					if katjaQW['QWstage'] > 2:katjaQW['horny'] += 5*(1 + npc_sex['A14']) & 'Katja suddenly becomes aware that she is staring into your eyes and blushes.'

					act '"Let''s hang out"':gt 'katjaEv','kathan'
				end

				act 'Heavy make-up':
					cla
					pcs_makeup = 4
					'Katja applies some deeper, richer shades of makeup that are thick enough to cover most imperfections while drawing attention to your eyes and lips.'
					if katjaQW['QWstage'] > 2:katjaQW['horny'] += 5*(1 + npc_sex['A14']) & 'Katja suddenly becomes aware that she is staring into your eyes and blushes.'

					act '"Let''s hang out"':gt 'katjaEv','kathan'
				end
			end
					
			act 'You really don''t need it':gt 'katjaEv','kathan'
		else
			gt 'katjaEv','kathan'
		end 
	end

	if npc_pregtalk['A14'] = 0 and (KatjaConflict = 0 or katjaconflict = 2) and knowpreg = 1 and pregchem > 0 and func('body_din','pregnancyVisibility') = 0:
	!!If you are pregnant you can tell Katja that you are. Diferent versions depending on if she is pregnant or not and if you already have kids.
		if  kid > 0:
			act 'Tell her you''re pregnant':
				cla & *clr
				gs 'stat'
				'<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>'
				'Katja''s face lights up. "Congratulations! This is even more exciting than last time! Every time you tell me you’re pregnant, I feel even better about my own pregnancy. Hell, that''s probably the reason you keep getting pregnant, isn''t it?" She giggles while looking at you affectionately.'
				act 'Next':gt 'KatjaHomeTalk', 'katjaknows1'
			end		

		elseif knowKatjaPreg = 1:
			act 'Tell her you''re pregnant':
				cla & *clr
				'<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>'
				'"What?! That''s so exiting! You didn''t get pregnant just to be like me, did you?" she asks playfully.'
				act 'Next':gt 'KatjaHomeTalk', 'katjaknows'
			end

		elseif KatjaPreg = 0:
			act 'Tell her you''re pregnant':
				cla & *clr
				'<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>'
				'"What? That''s so exiting!"'
				act 'Next':gt 'KatjaHomeTalk', 'katjaknows'
			end
		end
	end

	if npc_pregtalk['A14'] = 0 and KatjaConflict = 1 and KatConCheck ! daystart :
	!!If you did not tell katja that you are pregnant and she found out anyway. You can try to apologize. Different version if it is your fisrt child or not.
		if kid = 0:
			act 'Apologize':
				cla & *clr
				gs 'stat'
				KatjaConflict = 2
				'"I''m really sorry I didn''t tell you sooner. I was just so embarrassed."'
				'Katja sighs. "I understand. I just want you to know you can trust me and it hurts to realize that you don''t."'
				'"I do trust you. I promise I won''t keep anything like this from you in the future."'
				'"Good. Now let''s get down to business."'
				act 'Next':gt 'KatjaHomeTalk', 'katjaknows'
			end
		
		else
			act 'Apologize':
				cla & *clr
				gs 'stat'
				KatjaConflict = 2
				'"I''m really sorry I didn''t tell you sooner. I was just so embarrassed it happened again."'
				'Katja sighs. "I understand. I just want you to know you can trust me and it hurts to realize that you don''t."'
				'"I do trust you. I promise I won''t keep anything else like this from you in the future."'
				'"Good. Now let''s get down to business."'
				act 'Next':gt 'KatjaHomeTalk', 'katjaknows1'
			end
		end
	end

	if katjaQW['boy_block'] = 1:
		act 'Tell Katja you are have decided that boys are fun after all <br><font color="red">(Katja will start asking about sex with boys boys again)</font>': gt 'KatjaHomeTalk',  'boy_yes'
	end

	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] = 'shower':
	cla & *clr
	minut += 15
	gs 'stat'

	if katjaQW['horny'] >= 50 and katjaQW['QWstage'] > 2:
		'Katja takes you into the bathroom. Blushing, she says, "I think I''ll join you."'

		act 'Have a shower alone':
			cla & *clr
			noShampoo = 1
			dynamic $showerdin
			minut += 15
			pcs_hairbsh = 1
			pcs_makeup = 1

			if frost > 0:frost = 0

			gs 'stat'
			'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
			'You kick Katja out of the bathroom and close the door. You get into the shower and begin to lather your body with a cloth.'
			'After washing off the soap, you wash your hair with shampoo. Once you rinse the shampoo off, you are completely clean.'
			if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'

			act 'Get out of the shower':gt 'KatjaHomeTalk'
		end

		act 'Bathe together':
			cla & *clr
			noShampoo = 1
			dynamic $showerdin
			pcs_hairbsh = 1
			pcs_makeup = 1

			if frost > 0:frost = 0

			gs 'arousal', 'erotic_nudity', 15
			katjaQW['horny'] += 10
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/shower.jpg"></center>'
			'You and Katja undress and climb into the shower together.'

			if pcs_pubes <= 3:
				'Katja''s eyes glance over your body, lingering a little on your breasts and pussy. She moves closer to you as you rinse yourself off.'

				act 'Continue':
					cla & *clr
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/shower2.jpg"></center>'
					'Katja gently rubs shampoo into your hair before rinsing it out.'

					if katjaQW['horny'] >= 80 and npc_sex['A14'] > 0:
						'Katja washes your pussy and breasts with soap, gently stroking her palms against you. Her cheeks are flushed and her eyes are glistening.'

						act 'Continue': gt 'KatjaHomeTalk', 'shower_kiss_home'
					else
						'You and Katja wash yourselves.'

						act 'Get out of the shower':gt 'KatjaHomeTalk'
					end
					if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
				end
			else
				'Katja eyes glance over your body, lingering a little on your breasts and pubic hair. She then smiles at you. "<<$pcs_nickname>>, you''ve got too much hair down there! It''s not fashionable! I''ll shave it off."'

				act 'Get shaved':
					cla & *clr
					pcs_pubes = 0
					katjaQW['horny'] += 10
					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/lobok.jpg"></center>'
					'Katja sits in the bath as you lather yourself up with shaving gel. She takes a razor and begins to gently shave the hair between your legs.'

					if katjaQW['horny'] >= 80 and npc_sex['A14'] > 0:
						gs 'arousal', 'foreplay', 5
						gs 'stat'
						'Katja washes your pussy and breasts with soap, gently stroking her palms against you. Her cheeks are flushed and her eyes are glistening.'

						act 'Continue': gt 'KatjaHomeTalk', 'shower_kiss_home'
					else
						gs 'arousal', 'massage', 5
						gs 'stat'
						'Katja, having finally shaved all the hair between your legs, washes you off with soap.'

						act 'Get out of the shower':gt 'KatjaHomeTalk'
					end
					if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
				end
			end
		end
	else
		noShampoo = 1
		dynamic $showerdin
		minut += 15
		pcs_hairbsh = 1
		pcs_makeup = 1

		if frost > 0:frost = 0

		gs 'stat'
		'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
		'Katja shows you where the toiletries are and leaves you to have a shower. You get into the shower and begin to lather your body with a cloth.'
		'After washing off the soap, you wash your hair with shampoo. Once you rinse off the shampoo, you are completely clean.'
		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'

		act 'Get out of the shower':gt 'KatjaHomeTalk'
	end
end

if $ARGS[0] = 'katjaknows':
	cla
	npc_pregtalk['A14'] = 1
	*nl
	if katjaQW['slut'] < 60 and $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
		minut += 10
		'"So, who''s the baby-daddy?" Katja teases.'
		*nl
		'You tell Katja that you''re having Kolka''s baby.'
		'"You were knocked up by your brother!? That''s so crazy! Is he at least good in bed?"'
		'"I wouldn''t be pregnant if he wasn''t," you laugh. "I only let the best cock inside me."'
		'Katja blushes and you give her a quick kiss before she can react.'

		act 'Continue':
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] < 60 and $wombthfath = 'Stepfather' and npc_rel['A28'] > 50:
		minut += 10
		'"So, who''s the baby-daddy?" Katja teases.'
		*nl
		'You tell Katja that you''re having your step-father''s baby.'
		'"You were knocked up by your step-dad!? That''s so crazy!"'
		'Katja blushes and you give her a quick kiss before she can react.'

		act 'Continue':
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] < 60 and $wombthfath = 'Biological Father' and npc_rel['A29'] > 50:
		minut += 10
		'"So, who''s the baby-daddy?" Katja teases.'
		*nl
		'You tell Katja that you''re having your biological father''s baby.'
		'"You were knocked up by your own father!? That''s so crazy!"'
		'Katja blushes and you give her a quick kiss before she can react.'

		act 'Continue':
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] < 60 and $wombthfath = '':
		minut += 10
		'"So, who''s the baby-daddy?" Katja teases.'
		*nl
		'You tell her that you don''t actually know whose baby is growing inside you.'
		'"No way! Really?" She is completely flabbergasted.'
		'"Yeah, I sometimes feel like my life is spinning out of control."'
		'Katja places a hand on your shoulder "<<$pcs_nickname>>, if I can do anything to make your life a little easier, please let me know."'
		'You blush and thank her before planting a quick kiss on her cheek.'

		act 'Continue':
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] >= 60 and $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
		minut += 10
		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
		*nl
		'You tell Katja that you''re having Kolka''s baby.'
		'"You were knocked up by your brother!? That''s so sexy!" she moans before going in for a passionate kiss.'
		'As your <<$pc_desc[''lips'']>> lips separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions revolve around riding your brother''s dick."'
		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'

		act 'Continue':
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] >= 60 and $wombthfath = 'Stepfather' and npc_rel['A28'] > 50:
		minut += 10
		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
		*nl
		'You tell Katja that you''re having your step-father''s baby.'
		'"You were knocked up by your step-dad!? That''s so sexy!" she moans before going in for a passionate kiss.'
		'As your <<$pc_desc[''lips'']>> lips separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions are part of an Electra complex."'
		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'

		act 'Continue':
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] >= 60 and $wombthfath = 'Biological Father' and npc_rel['A29'] > 50:
		minut += 10
		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
		*nl
		'You tell Katja that you''re having your biological father''s baby.'
		'"You were knocked up by your own father!? That''s so sexy!" she moans before going in for a passionate kiss.'
		'As your <<$pc_desc[''lips'']>> lips separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions are part of an Electra complex."'
		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'

		act 'Continue':
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] >= 60 and $wombthfath = '':
		minut += 10
		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
		*nl
		'You tell her that you don''t actually know whose baby is growing inside of you.'
		'"You''re such a sexy slut!" she moans before going in for a passionate kiss.'
		'As your <<$pc_desc[''lips'']>> lips separate from hers, you look into her eyes. "I''m really glad you''re not judging me like a lot of other people have."'
		'"<<$pcs_nickname>>, I would never judge you. Plus, if I''m being honest, I''m a little jealous. I wish I could let myself have that much fun."'
		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'

		act 'Continue':
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	else
		minut += 10
		'"So, who''s the baby-daddy?" Katja teases.'
		*nl
		'"It looks like I got knocked up by <<$wombthfath>>"'
		'"I hope they know how lucky they are," she says while clearly blushing.'

		act 'Continue':
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	end
end

if $ARGS[0] = 'katjaknows1':
	cla
	npc_pregtalk['A14'] = 1
	if katjaQW['slut'] < 60:
		'"So, hot stuff. Same father as last time?"'
	else
		'"Fuck, I love seeing you pregnant. I hope you''re up for having lots of babies." She blushes intensely and kisses you. "So, who put this one into you?"'
	end
	*nl
	if katjaQW['slut'] < 60 and arrpos('$ChildThFath',$wombthfath) >= 0 and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1 and (($wombthfath = 'Kolka' and npc_rel['A34'] > 50) or ($wombthfath = 'Stepfather' and npc_rel['A28'] > 50) or ($wombthfath = 'Biological Father' and npc_rel['A29'] > 50)):
		'You tell Katja that <<$wombthfath>> got you pregnant again.'
		'"Damn, I never thought I''d meet someone who wanted to be an incest baby factory."'
		'"I just hope he makes you happy. It''s sometimes hard to believe that you''re the woman I fell in love with." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'

		act 'Continue':
			minut += 10
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] >= 60 and arrpos('$ChildThFath',$wombthfath) >= 0 and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1 and (($wombthfath = 'Kolka' and npc_rel['A34'] > 50) or ($wombthfath = 'Stepfather' and npc_rel['A28'] > 50) or ($wombthfath = 'Biological Father' and npc_rel['A29'] > 50)):
		'You tell Katja that <<$wombthfath>> got you pregnant again.'
		'"Damn, I never thought I''d meet someone who wanted to be an incest baby factory."'
		'"God, you''re the hottest bitch I know. I didn''t think I could be any more in love with you." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
		'After a few minutes, she breaks the kiss, but keeps her lips inches from yours. "Don''t let this distract from my wanting you to become his breeding bitch. I want him to keep you pregnant. I need something to masturbate about when you’re not around." As soon as she finishes speaking, her lips are magnetically pulled back to yours.'

		act 'Continue':
			minut += 10
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] < 60 and arrpos('$ChildThFath',$wombthfath) = arrsize('$ChildThFath')-1 and (($wombthfath = 'Kolka' and npc_rel['A34'] > 50) or ($wombthfath = 'Stepfather' and npc_rel['A28'] > 50) or ($wombthfath = 'Biological Father' and npc_rel['A29'] > 50)):
		'Blushing, you tell Katja that a member of your family impregnated you, but this time it was <<$wombthfath>>.'
		'Her eyes widen. "wow, your family must be really close," she giggles.'
		'"To think I''d fall in love with a woman who lets multiple members of her own family knock her up." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'

		act 'Continue':
			minut += 10
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] >= 60 and arrpos('$ChildThFath',$wombthfath) = arrsize('$ChildThFath')-1 and (($wombthfath = 'Kolka' and npc_rel['A34'] > 50) or ($wombthfath = 'Stepfather' and npc_rel['A28'] > 50) or ($wombthfath = 'Biological Father' and npc_rel['A29'] > 50)):
		'Blushing, you tell Katja that a member of your family impregnated you, but this time it was <<$wombthfath>>.'
		'Her eyes widen. "Wow, your family must be really close," she giggles.'
		'"Shit, ''which of your family members did you like being knocked up by the most?'' might be the hottest question anyone has ever made me think of. Just when I started thinking I couldn''t love you any more." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
		'After a few minutes, she breaks the kiss, but keeps her lips inches from yours. "Don''t think I''ll forget the image of you being passed around your family like a good little slut. I need something to masturbate about when you''re not around." As soon as she finishes speaking, her lips are magnetically pulled back to yours.'

		act 'Continue':
			minut += 10
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif arrpos('$ChildThFath',$wombthfath) >= 0 and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1 and ($wombthfath ! 'Kolka' and $wombthfath ! 'Stepfather' and $wombthfath ! 'Biological Father'):
		'"I hope he makes you happy. And that he doesn''t mind sharing you with me," she blushes. "I would hate to completely lose the woman I love." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'

		act 'Continue':
			minut += 10
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif arrpos('$ChildThFath',$wombthfath) = arrsize('$ChildThFath')-1 and ($wombthfath ! 'Kolka' and $wombthfath ! 'Stepfather' and $wombthfath ! 'Biological Father'):
		'"I''m glad you realize you''re too special to limit yourself to one man. I love you too much to let you do anything less." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'

		act 'Continue':
			minut += 10
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] < 60 and $wombthfath = '':
		'"Seems like you had a little too much fun then," she chuckles.'

		act 'Continue':
			minut += 10
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	elseif katjaQW['slut'] >= 60 and $wombthfath = '':
		'"Seems like you had a little too much fun then," she chuckles.'
		'"I hope you''ll include me next time."'

		act 'Continue':
			minut += 10
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	end
end

if $ARGS[0] = 'shower_kiss_home':
	cla & *clr
	katjaQW['slut'] += 1
	katjaQW['horny'] += 10
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/showerkiss.jpg"></center>'
	'Katja gently hugs you with one hand and kisses you on the lips. You feel her soft palm on your naked pussy as her finger finds your clitoris and begins to rub it.'

	gs 'arousal', 'kiss', 10, 'dom', 'lesbian'
	gs 'arousal', 'vaginal_finger', 10, 'dom', 'lesbian'
	minut -= 10
	gs 'stat'

	if katjaQW['slut'] >= 50:
		'Katja gently but firmly puts you on the edge of the tub.'
	else
		'Katja gently caresses your clitoris with her fingers and her lips begin to kiss your neck, slowly making her way down.'
	end
	
	act 'Sit on the edge of the tub':
		cla & *clr
		katjaQW['horny'] -= 10
		katjaQW['slut'] += 1

		gs 'stat'
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/showersex.jpg"></center>'
		'You sat on the edge of the tub and open your legs to expose your wet pussy. Katja gets on her knees in front of you and gently licks your swollen red petals.'
		'Her tongue begins to briskly caress your pussy, not forgetting about your clitoris. Bliss soon envelopes your entire body.'
		'You notice Katja''s hand between her legs and get further turned on watching her pleasure herself while she pleasures you.'
		$orgasm_txt = 'You are suddenly hit by a powerful orgasm and feel like you might lose consciousness as your whole body bends and convulses and a hot wave washes over you.'
		$orgasm_or = 'yes'
		gs 'arousal', 'cuni', 10, 'dom', 'lesbian'
		gs 'stat'

		act 'Get out of the shower':
			gs 'arousal', 'end'
			gt 'KatjaHomeTalk'
		end
	end
	
	gs 'willpower', 'cuni', 'resist', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Remove her hands (<<will_cost>> Willpower)':
			cla & *clr
			minut += 5
			pcs_horny += 10
			KatjaQW['dom'] -= 1
			katjaQW['horny'] -= 10
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
			'You remove her hands and smile at her. You dismiss her and she shyly looks at the floor before leaving the bathroom.'

			act 'Get out of the shower':
				gs 'arousal', 'end'
				gt 'KatjaHomeTalk'
			end
		end
	else
		act 'Remove her hands (<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 $ARGS[0] = 'homework':
	*clr & cla
	menu_off = 1
	minut += 30
	npc_rel['A14'] += 2
	gs 'grades', 'homework', 'school', 'yes', 1, 1, 'A14'
	lern += rand(2, 4)
	intel_exp += rand(0, 1) + (mentats_dose - rand(0,mentats_dose))
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
	'For half an hour you and Katja pour over your books, you fully learn the lessons and pretty well understand the material.'

	act 'Finish': 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] = 'Sextalk':
	'Turning red, Katja looks at you thoughtfully.'
	if katjaQW['boy_block'] = 1:
		kattalkrand = rand(3, 4)
	else
		kattalkrand = rand(0, 4)
	end

	if kattalkrand = 0:
		if katjaQW['knows_BJ'] > 0:
			'"<<$pcs_nickname>>, tell me, how are you at sucking dick?"'
		else
			'"<<$pcs_nickname>>, have you ever given a guy a blowjob?"'
		end

		if stat['bj'] > 0:
			gs 'KatjaHomeTalk', 'bj_talk1'
		else
			act 'You''ve never given a blowjob':
				cls
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'You tell Katja that you have never given a blowjob to a guy. She admits that she hasn''t either. "Vicky talks about how good it is all the time, but I don''t know. Guys usually smell bad and I''m sure it would taste awful."'
				act 'Further':
					minut += 15
					if $loc = 'Katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end
			end
		end

		act 'Tell Katja you are not into boys <br><font color="red">(blocks further contents with Katja and boys)</font>': gt 'KatjaHomeTalk',  'boy_no'

	elseif kattalkrand = 1:
		if katjaQW['knows_sex'] > 0:
			'"<<$pcs_nickname>>, tell me. Have you ever fucked someone?"'
		else
			'"<<$pcs_nickname>>, have you ever had sex with a guy?"'
		end

		if stat['vaginal'] > 0:
			act 'Talk about sex':
				cls
				katjaQW['horny'] += 5
				katjaQW['knows_sex'] = 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'You tell Katja about the times you''ve had sex and how it felt. She blushes and bites her lip.'

				act 'Further':
					minut += 15
					if $loc = 'Katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end
			end
		else
			act 'No':
				cls
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'You tell Katja that you''ve never had sex with a guy, and she admits that she''s also still a virgin. "That probably makes us the only non nerds who haven''t had sex! Vicky does it all the time with Vanya. She won''t shut up about it!"'
				act 'Further':
					minut += 15
					if $loc = 'Katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end
			end
		end

		act 'Tell Katja you are not into boys <br><font color="red">(blocks further contents with Katja and boys)</font>': gt 'KatjaHomeTalk',  'boy_no'

	elseif kattalkrand = 2:
		if katjaQW['knows_anal'] > 0:
			'"<<$pcs_nickname>>, what''s anal sex like?"'
		else
			'"<<$pcs_nickname>>, have you ever had a guy stick it in your ass?"'
		end

		if stat['anal'] > 0:
			act 'Talk about anal':
				cls
				katjaQW['horny'] += 5
				katjaQW['knows_anal'] = 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'You tell Katja about the times you''ve had anal sex and what it feels like. She blushes and bites her lip.'

				act 'Further':
					minut += 15
					if $loc = 'Katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end
			end
		else
			act 'You''ve never had anal sex':
				cls
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'You tell Katja that you''ve never had anal sex. She says that she heard that a lot of girls in your class do, some more than others.'
				act 'Further':
					minut += 15
					if $loc = 'Katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end
			end
		end

		act 'Tell Katja you are not into boys <br><font color="red">(blocks further contents with Katja and boys)</font>': gt 'KatjaHomeTalk',  'boy_no'

	elseif kattalkrand = 3:
		if katjaQW['knows_cuni'] > 0 or npc_sex['A14'] > 0:
			'"<<$pcs_nickname>>, tell me how you lick pussy."'
		else
			'"<<$pcs_nickname>>, have you gone down on a girl?"'
		end

		if stat['cuni'] > 0 or lesbian > 0:
			act 'Talk about licking pussy':
				cls
				katjaQW['horny'] += 5
				katjaQW['knows_cuni'] = 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'You tell Katja about the times you''ve gone down on another girl and how it feels. She blushes and bites her lip.'
				
				if katjaQW['horny'] > 50 and katjaQW['slut'] >= 40 and rand(-30,30) < katjaQW['dom'] and npc_sex['A14'] > 0:
					'Katja asks you to show her how you lick pussy.'

					act 'Show her':
						cls
						minut += 15
						pcs_horny += 20
						katjaQW['horny'] = 0
						katjaQW['slut'] += 1
						katjaQW['dom'] += 2
						if npc_sex['A14'] = 0: npc_sex['A14'] = 1 & girl += 1
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/kuni2.jpg"></center>'
						'You''re a little confused at first before you notice her pulling her panties off. Once she has them off, she opens her legs wide. "Go on, <<$pcs_nickname>>. Show me how you do it, please."'
						'You pause, more in surprise than anything, but her glistening wet pussy is enough to convince you. You lean forward and place your face between her legs and start licking.'
						'You suck on her clit and slip your tongue inside of her, working her pussy for all you''re worth. She begins to moan loudly and buck her hips, grinding your face into her crotch. As she gets close to orgasm, she grabs your hair and holds your face against her pussy, rubbing herself against you as much as you are licking her, leaving your face coated in her juices.'
						'Her orgasm hits her hard, leaving her unable to talk as her body spasms. Once her orgasm passes, you lick her clean of all her pussy juices, making sure not to miss a single spot. When you look up at Katja, she has a confident smile on her face. "Well aren''t you just a good little girl?" She then kisses you deeply before you start to lean back and spread your legs, but she''s already shaking her head.'
						'"Sorry <<$pcs_nickname>>, maybe next time. We need to finish our homework," she says sweetly. You pause before nodding in understanding. You see that new confident look intensify on her face as she smiles and the two of you finish your homework.'

						gs 'arousal', 'cuni_give', 15, 'sub', 'lesbian'
						gs 'arousal', 'end'
						gs 'stat'

						act 'Further':
							if $loc = 'Katja_dorm':
								gt 'katja_dorm', 'talk'
							else
								gt 'KatjaHomeTalk'
							end
						end
					end
					act 'Ignore her':
						minut += 15
						if $loc = 'Katja_dorm':
							gt 'katja_dorm', 'talk'
						else
							gt 'KatjaHomeTalk'
						end
					end
				else
					act 'Further':
						minut += 15
						if $loc = 'Katja_dorm':
							gt 'katja_dorm', 'talk'
						else
							gt 'KatjaHomeTalk'
						end
					end
				end
			end
		else
			act 'No':
				cls
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'You tell Katja that you''ve never gone down on a girl. She seems a little surprised and you get the feeling that this was not what she wanted to hear.'
				act 'Further':
					minut += 15
					if $loc = 'Katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end
			end
		end
	elseif kattalkrand = 4:
		if katjaQW['knows_masterbation'] > 0:
			'"<<$pcs_nickname>>, tell me how you masturbate."'
		else
			'"<<$pcs_nickname>>, do you masturbate?"'
		end

		if stat['mast'] > 0:
			act 'Talk about masturbation':
				cls
				katjaQW['horny'] += 5
				katjaQW['knows_masterbation'] = 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'You tell Katja how you masturbate in the bathroom and she blushes and bites her lip.'

				if katjaQW['masturbates'] = 0:
					act 'Further':
						minut += 15
						if $loc = 'Katja_dorm':
							gt 'katja_dorm', 'talk'
						else
							gt 'KatjaHomeTalk'
						end
					end
				else
					act 'Further':
						cls
						katjaQW['horny'] += 10
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/mastr.jpg"></center>'
						'Katja tells you she also masturbates, right here in this room, fondling herself between her legs.'

						act 'Further':
							minut += 15
							if $loc = 'Katja_dorm':
								gt 'katja_dorm', 'talk'
							else
								gt 'KatjaHomeTalk'
							end
						end
					end
				end
			end

			if stat['self_fisting'] > 0:
				act 'Tell her how you pushed your hand into your pussy':
					cls
					katjaQW['horny'] += 10

					gs 'stat'
					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
					'You tell Katja how you '+iif(stat['self_fisting'] = 0, 'once', 'sometimes')+' put your whole fist into your pussy, and how it felt doing it.'
					'Katja looks '+iif(katjaQW['knows_self_fisting'] = 0, 'completely shocked, but', 'excited, and')+' her head turns even redder as she bites her lip'

					if katjaQW['knows_self_fisting'] = 0: katjaQW['knows_self_fisting'] = 1

					act 'Further':
						if katjaQW['fisted_vag'] = 0 and npc_vag['A14'] > 3 and katjaQW['slut'] >= 70 and katjaQW['horny'] >= 50 and npc_sex['A14'] > 0:
							gt 'katjaHomeTalk', 'fisting_ask'
						else
							minut += 15
							if $loc = 'Katja_dorm':
								gt 'katja_dorm', 'talk'
							else
								gt 'KatjaHomeTalk'
							end
						end
					end
				end
			end

			if stat['self_fisting_anal'] > 0:
				act 'Tell her how you fisted your ass':
					cls
					katjaQW['horny'] += 10

					if katjaQW['knows_self_fisting_anal'] = 0: katjaQW['knows_self_fisting_anal'] = 1

					gs 'stat'
					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
					'You tell Katja how you masturbate anally and even managed to stretch it so much that you could shove your fist into it.'
					'She blushes and bites her lip.'

					act 'Further':
						minut += 15
						if $loc = 'Katja_dorm':
							gt 'katja_dorm', 'talk'
						else
							gt 'KatjaHomeTalk'
						end
					end
				end
			end
		else
			act 'You''ve never masturbated':
				cls
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'You tell Katja that you''ve never masturbated. She seems surprised at your answer.'
				act 'Further':
					minut += 15
					if $loc = 'Katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end
			end
		end
	end

	act 'Refuse to talk about such topics':
		cls
		gs 'stat'
		'You refuse to talk about such topics with her and she looks down in confusion and mumbles. "Sorry, <<$pcs_nickname>>, I didn''t mean to pry."'

		act 'Further':
			minut += 15
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	end
end

if $ARGS[0] = 'bj_talk1':
	if katjaQW['knows_BJ'] > 0:
		'"<<$pcs_nickname>>!" she says, a sparkle in her eye. "Tell me what it''s like to sucking dick again."'
	elseif katjaQW['knows_BJ']= 0:
		'"<<$pcs_nickname>>, have you ever given a guy a blowjob?"'
	end

	if stat['bj'] > 0:
		if katjaQW['knows_BJ'] = 0:
			act 'No (lie)':
				cla & *clr
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'"No," you shake your head before shamelessly lying through your teeth. "I''ve never given a blowjob before."'
				'"Oh." She sits back, looking disappointed for some reason.'
				act 'Continue':
					minut += 15
					if $loc = 'Katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end
			end
			act'Yes':
				cla & *clr
				katjaQW['horny'] += 5
				katjaQW['knows_BJ'] = 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'"Yeah. I''ve given a few," you admit.'
				'"What''s it like?" Katja asks, eyes wide with excitement.'
				gs'KatjaHomeTalk','bj_talk2'
			end
		elseif stat['bj'] > 0:
			katjaQW['horny'] += 5
			gs'KatjaHomeTalk','bj_talk2'
		end
	else
		act 'No':
			cla & *clr
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
			'"No," you shake your head. "I''ve never given a blowjob before."'
			'"Oh." She sits back, looking disappointed for some reason. "Guess we''re both clueless then, huh?"'
			act 'Continue':
				minut += 15
				if $loc = 'Katja_dorm':
					gt 'katja_dorm', 'talk'
				else
					gt 'KatjaHomeTalk'
				end
			end
		end
		!!act'I''ve given a few (lie)':
	end
end

if $ARGS[0] = 'bj_talk2':
	act'It tastes funny':
		cla & *nl
		'"It tastes funny," you wrinkle your nose. "It''s like, kinda salty? But also sort of... musty? I don''t think I mind the act itself that much, but dick has a weird flavor."'
		'Katja seems taken aback, almost disappointed. You guess this isn''t the answer she was hoping for.'
		act 'Continue':
			minut += 15
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	end
	
	act'It''s fun':
		cla & *nl
		'"It''s fun!" you grin. "I''m not really sure what it is, but something about having a dick in your mouth is really entertaining. It''s like, totally alive! And you can feel it making all these tiny movements when it''s on your tongue. I really like giving head."'
		'Katja hangs on your every word, nodding excitedly for you to keep describing your experiences with oral sex to her.'
		act 'Continue':
			minut += 15
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	end
	
	act'It''s whatever':
		cla & *nl
		'"I don''t mind doing it but I don''t love it either," you say. "Dick doesn''t really taste like anything if it''s clean. Kinda salty if it isn''t. I don''t know. It''s whatever I guess."'
		'You shrug.'
		'Katja seems taken aback, almost disappointed. You guess this isn''t the answer she was hoping for.'
		act 'Continue':
			minut += 15
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	end
	
	act'It''s boring':
		cla & *nl
		'"It''s boring," you roll your eyes. "You have to keep sucking the whole time and after a while my jaw just starts to ache with the motion. It''s a dick in your mouth, I don''t know what to tell you.'
		'Katja seems taken aback, looking almost worried. You guess you just shattered some impressions she had about giving head.'
		act 'Continue':
			minut += 15
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	end
	
	act'It turns me on':
		cla & *nl
		'"It turns me on so much," you admit, biting your lip in a lusty smile. "When someone''s in your mouth, you can make them feel <i>really</i> good. And they''ll respond to what you do. If you take their whole length, they''ll squirm. If you lick the head, it''ll twitch under your touch. Just knowing you can make someone else feel that way... Ugh, just <i>thinking</i> about it gets me wet!"'
		'Katja hangs on your every word, nodding along with wide eyes as you describe what it is you love so much about giving head. A faint blush also comes to her cheeks and you notice her unconsciously rubbing her thighs together.'
		act 'Continue':
			minut += 15
			if $loc = 'Katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
	end	
end

if $ARGS[0] = 'hornykiss':
	'Katja brings her face so close to yours that you can feel her hot breath on your skin.'

	act 'Bring your face close to hers':
		cla & *clr
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
		'You move even closer to Katja''s face.'

		if katjaQW['horny'] < 50:

			if rand(0, 50) < 15:
				act 'Kiss': gt 'katjaEvDin', 'kiss'
			else
				katjaQW['horny'] += 5
				'Katja giggles and pushes your face away from her.'

				act 'Change the subject':
					minut += 15
					if $loc = 'Katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end

!!				if pcs_dom > 0:
					act 'Grab Katja''s face':
						cla & *clr
						KatjaQW['dom'] -= 2
						katjaQW['horny'] -= 10
						gs 'stat'
						'You wrap your hands around her face and bring you lips to Katja''s.'

						!!if pcs_dom < KatjaQW['dom']:
							!!'Katja firmly takes your hands and removes them from her face, allowing you to understand, that she does not intend to kiss you.'

							!!act 'Continue':minut += 15 & gt 'KatjaHomeTalk'
						!!else
							'Katja looks into your eyes.'
							act 'Kiss': gt 'katjaEvDin', 'kiss'
						!!end
					end
				!!end
			end
		else
			act 'Kiss': gt 'katjaEvDin', 'kiss'
		end
	end
end

if $ARGS[0] = 'tender_kiss':
	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
	'Katja thinks about something before blushing in embarrassment. "<<$pcs_nickname>>... Have you ever... kissed a boy?"'
	katjaQW['boy_lie'] = 1

	act 'Yes':
		*clr & cla
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
		'You smile at Katja and say that you''ve kissed boys. Katja, even more shyly, continues. "You see, I like this guy, but he''s older than me and I''m afraid that when we start to kiss, I''ll do something wrong. Could you teach me how to kiss?"'

		act 'Kiss': gt 'katjaEvDin', 'kiss'

		act 'Refuse':
			*clr & cla
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
			'You refuse and she looks at you with pleading eyes. "Please <<$pcs_nickname>>, you don''t want me to be bad at kissing, do you?"'
		
			act 'Relent': 
				katjaQW['dom'] += 2 
				gt 'katjaEvDin', 'kiss'
			end
			
			gs 'willpower', 'kiss', 'resist', 'medium'
			if will_cost <= pcs_willpwr:
				act 'Stand firm (<<will_cost>> Willpower)':
					*clr & cla
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
					'You refuse to kiss Katja and she gets mad at you.'

					act 'Talk about something else':
						if $loc = 'Katja_dorm':
							gt 'katja_dorm', 'talk'
						else
							gt 'KatjaHomeTalk'
						end
					end
					if $loc = 'katja_dorm':
						act 'Stop talking': gt 'katja_dorm', 'start'
					elseif 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
			else
				act 'Stand firm (<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

	act 'No':
		*clr & cla
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
		'You shake your head and say that you''ve never kissed a boy. Katja, even more shyly, continues. "You see, I like this guy but he''s older than me and I''m afraid that when we start to kiss, I''ll do something wrong. Maybe we could try kissing and learn that way?"'
		act 'Kiss': gt 'katjaEvDin', 'kiss'

		act 'Refuse':
			*clr & cla
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
			'You refuse and she looks at you with pleading eyes. "Please <<$pcs_nickname>>, it''ll help us both so we''re better when we finally kiss a boy!"'
		
			act 'Relent': 
				katjaQW['dom'] += 2 
				gt 'katjaEvDin', 'kiss'
			end

			gs 'willpower', 'kiss', 'resist', 'medium'
			if will_cost <= pcs_willpwr:
				act 'Stand firm (<<will_cost>> Willpower)':
					*clr & cla
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
					'You refuse to kiss Katja and she gets mad at you.'

					act 'Talk about something else':
						if $loc = 'Katja_dorm':
							gt 'katja_dorm', 'talk'
						else
							gt 'KatjaHomeTalk'
						end
					end
					if $loc = 'katja_dorm':
						act 'Stop talking': gt 'katja_dorm', 'start'
					elseif 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
			else
				act 'Stand firm (<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
end

if $ARGS[0] = 'marcus_kiss':
	*clr & cla
	minut += 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 looks at you a little hesitantly. "You know, having Marcus over is quite fun, so why don''t we call him right now?"'
	act 'Agree':  gt 'katja_sex', 'marcus_wait'
	act 'You''re not in the mood': katjaQW['horny'] -= 20 & gt 'KatjaHomeTalk'
end

if $ARGS[0] = 'TamVal':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/TK.jpg"></center>'
	'Katja has left her phone at home, so you have a quick visit to her room, but as you reach the entry hall, some words reach your ears. Two women are talking in the living room.'
	'"Oh Aunt Tamara! It has been marvelous to be with you again, but it is so unjust that my job only lets me see you so little, and I... I want to return all the favors you have given me."'
	'The woman sounds young and, you must say, a little flirty? Turning towards Katja, you see recognition and surprise in her eyes.'
	'"It is my pleasure Valentina, but you don''t need to do anything. What you must do is concentrate on your studies and work. With that, I''m served, but it is late and I think we must say goodbye. So, Valentina?"'
	'The older woman sounds a lot more serious, but not without fondness, then suddenly they shut up and some muffled sounds reach your ears. Katja takes your hand and sneaks deeper into the house, where you see two women, embraced and kissing affectionately. Maybe too affectionately for a goodbye kiss. By your side, Katja gasps and the two women turn towards you. The older one smiles, unperturbed at the sudden interruption. The younger (not much older than you), after a moment, tightens her embrace and gives you a somewhat defiant smile.'
	'"Oh Ekaterina! Look who has come to see us! Valentina!"'
	'Katja mumbles something that sounds like a "hello", then without loosening her grip on your hand, quickly takes you towards her bedroom. As you two enter, she throws herself at the bed and muffles a scream in the pillow.'
	minut += 5
	gs 'stat'

	act 'Katja is confused':
		menu_off = 1
		*clr & cla
		katjaQW['QWstage'] = 2
		'<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>'
		'You try to calm the hyper-ventilating redhead as she maniacally gets up and takes a peek beyond her room''s door. Finally, she calms enough to talk with you.'
		'"<<$pcs_nickname>>, you saw that didn''t you? I mean... they were... oh God!"'
		'Taking her hand, you force Katja to sit by your side and embrace the redhead, mostly to stop her from driving you crazy.'
		'"There there Katja. Just stop and breathe."'
		'She takes your advice, and takes a big gulp of air. That seemed to quieten her down, deflating and returning her to a more "normal" mindstate. Even at that, she is troubled.'
		'"Sorry <<$pcs_nickname>>, it''s just that a lot of things suddenly made sense. Look, Valentina lived here some time ago here. I don''t know all the history, but she left her mother to live in the city and ended up in some kind of trouble. Mom welcomed her to our home, and... remember how she clung to my mom? Valentina was always that way and seemed jealous of Vicky and me and now I''m thinking..."'
		'"That maybe your mother and Valentina were, or are, lovers? That troubles you? You don''t like that?"'
		'Katja looks at you with a mix of emotions in her face. Confusion, surprise, doubt, fear. She opens and closes her mouth, looks at you, blushes and says something surprising...'
		'"I don''t know... maybe? I never thought about something like that. Ehm... <<$pcs_nickname>>... what would you think, if I... I mean... ehm... behaved like Valentina and... tried to kiss you?"'

		minut += 5
		gs 'stat'

		gs 'willpower', 'kiss', 'force', 'hard'

		if will_cost <= pcs_willpwr:
			act '"What if I''m the one that wants to kiss you?" (<<will_cost>> Willpower)':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_kiss.jpg"></center>'
				'At your ballsy question, Katja answers in one of the most logical ways. The blush in the already agitated girl''s cheeks extends, encompassing her face, neck and you assume her body. She looks like a pressure cooker about to explode. The next part is less logical, as she opens her mouth and tries to talk, but coughs. After licking her lips, she answers in a raspy and unsure voice.'
				'"Yes?"'
				'You lean against her and give her a little kiss on the lips. She doesn''t react, so you continue, grabbing at her face, cheeks and neck. Her hands raise against your chest, but she doesn''t try to push you away. In fact, she begins to kiss you back.'
				'This escalates into an awkward make out, as the inexperienced girl shyly tries to follow your lead, biting you on more than one occasion. More and more, your lips and eventually tongues mix, arousing the two of you in an ever-increasing loop, but it all stops when Katja gives a surprised "Epp!" and moves away from you.'
				'It seems that one of your hands had somehow reached below her clothes and, well, began to play with one of her tits. Now the two of you are looking at the transgressive hand in confusion. Biting her lips, she looks around nervously and tries to fix her ruffled clothes.'
				'"That was... woah. Hmmm... Something <<$pcs_nickname>>"'

				gs 'willpower', 'pay', 'force'
				gs 'willpower', 'pay', 'force', 'hard'
				npc_rel['A14'] += 1
				katjaQW['slut'] += 5
				katjaQW['dom'] -= 2
				katjaQW['QWstage'] = 3
				minut += 5
				pcs_mood += 10
				gs 'arousal', 'kiss', 10
				gs 'stat'

				act 'Time to leave': gt 'katjaHomeTalk','TamVal_2'
			end
		else
			act '"What if I''m the one that wants to kiss you?" (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end

		gs 'willpower', 'kiss', 'self'

		if will_cost <= pcs_willpwr:
			act '"Katja... want to try it?" (<<will_cost>> Willpower)':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_kiss.jpg"></center>'

				'Katja''s eyes open wide and, for a moment, you have the sensation that somehow you have fucked this, but she doesn''t say or do anything. She just sits by your side and looks intensely at your face.'
				'"Yes"'
				'You practically didn''t hear Katja''s whispered word before she leans against you and softly kisses your lips. It barely touches your skin and you think that is the end until her hands reach towards you and grab your clothes, holding you in place.'
				'She begins kissing you slowly... experimentally. Little kisses all over your lips, with a surprising intensity in Katja''s eyes. Soon, things escalate as her tongue tries to pry open your mouth. You aren''t going to lie, she isn''t good at this, and more than one time, she bites you maybe a little too hard but. You. Don''t. Care.'
				'You end up laying down on Katja''s bed with her all over you. The make out session quickly escalates and you find yourself gasping for oxygen as Katja tries to reach your tonsils with her tongue (and bites you again). A part of your aroused mind barely registers that the redhead is reaching under your clothes, towards your bust and... She stops?!'
				'A confused "Hu?" escapes your lips as you try to understand what just happened. Katja has retreated to the bed''s headboard. Biting her lips, she looks around nervously and tries to fix her ruffled clothes.'
				'"That was. Woah. Hm. Something <<$pcs_nickname>>"'

				gs 'willpower', 'pay', 'self'
				gs 'willpower', 'pay', 'self', 'hard'
				npc_rel['A14'] += 1
				katjaQW['slut'] += 5
				katjaQW['QWstage'] = 3
				minut += 5
				pcs_mood += 10
				gs 'arousal', 'kiss', 10
				gs 'stat'

				act 'Time to leave': gt 'katjaHomeTalk','TamVal_2'
			end
		else
			act '"Katja... want to try it?" (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end

		act 'Stare at her awkwardly.':
			*clr & cla
			'<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>'
			'"Hu?!"'
			'That is the most your brain seems capable of answering to Katja''s question and obviously she didn''t take it too well.'
			'"Sorry <<$pcs_nickname>>! I wasn''t insinuating... I mean... I didn''t want to... ehm..."'
			'You stare at her. She stares at you. The silence only seems to make the two of you more embarrassed by the second... fuck!'
			pcs_mood -= 10
			npc_rel['A14'] -= 5
			minut += 5
			gs 'stat'

			act 'Time to leave': gt 'katjaHomeTalk','TamVal_2'
		end

		if succubusQW = 5:
			act 'Answer Succubus style':
				*clr & cla
				'<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>'
				'"Jajaja! That is easy Katja! I''ll show you things that your "mama" never taught you!"'
				'You smile as Katja, the cutest human tomato, stares back at you with exploding eyes. She then jumps from the bed and screams at you, half angrily, half embarrassed.'
				'"<<$pcs_nickname>>! I wasn''t joking! This is a hard moment for me!"'
				'You can''t stop smiling at her cuteness, but the truth is that Katja''s childishness is getting boring. Her mother has a worshiping toygirl at her beck and call, Vicky has acquired the munch-eating services of a rock-hard-abs jock. Well, Katja can have a fucking superhuman succubus! What is she thinking?! End up as the only virgin in your class? Time to change that.'
				'"Ok Katja, time for a lesson. Let''s get naked."'
				'You begin to take away your clothes as a flabbergasted Katja stops in her tracks and tries to process what you just said.'
				'"Eh... what? <<$pcs_nickname>>, is this a joke?"'
				gs 'stat'

				act 'No it isn''t':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/pc/body/succubusself.jpg"></center>'
					'You call <<$sucself1>> up from its resting place'
					'It fills you completely, suffusing through your being with power...'
					'<font color="red"><b>and hunger</b></font>'
					'In an instant, the Veil breaks and Katja is exposed to all your radiance. Fear crosses her eyes before the fake reality reasserts its influence and obfuscates her perceptions, but by that moment, tendrils of your mana have connected with her deepest desires.'
					'Slowly... Timidly... Katja begins to undress and she stands before you in only her panties, trying desperately to cover herself and looking mortified. You are surprised that she has the will to leave that last piece of clothing, but, damn, if she isn''t a cute vision!'
					'"Come here Katja! Just relax! We aren''t going to do anything wrong!"'
					gs 'stat'

					act 'She sits on the bed.':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/SL1.jpg"></center>'
						'"Ok <<$pcs_nickname>>... what... what are you planning to do?"'
						'You don''t answer. In it''s place, there is only an embrace. Katja squirms nervously, but doesn''t try to break away. Kissing her beautiful neck, you wait and let the redhead relax... A  difficult task, so after a few minutes, your hands begin to roam her body.'
						'"Listen to me shy, innocent, self-conscious, virginal Katja. From now on, you will respond only with "Oh... oh... oh..." Do you understand my pet?"'
						'Your right hand finally reaches between her legs and rests over the soft fabric of her panties. A promise of things to come... stopping when she closes her legs.'
						'"<<$pcs_nickname>>! Ouch!"'
						'At Katja''s transgression, you give her crotch a little pinch, startling her, but making her shut up. Your enhanced senses let you caress all her erogenous zones and soon she is moaning, forgetting her reluctance at your dominant act.'
						'"It is ok my pet. Just... let me do all the work. But first, I need you to give me something... will you let me in?"'
						'She looks at you confused, but unquestionably aroused. With a vague understanding of your words, she opens her legs.'
						gs 'stat'

						act 'Time to take a "gift"':
							*clr & cla
							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/SL2.jpg"></center>'
							'Even through the silky fabric, you can sense her lower labia engorging with blood. Hot and wet, she is ready for your first "lesson"'
							'"We are going to do it slowly, don''t get nervous."'
							'Katja leans against you and closes her eyes. With a hand, you pull away the last obstacle towards her cunt and with the other, caress her lips. Katja just moans at your teasing, her hips moving unwittingly in the quest for more pleasure.'
							'You continue touching her, helping the excited clitoris to reach beyond its little prison, and putting it under your assault. Little by little, you feel Katja''s hotness and wetness permeate her pussy, making it easy for you to insert your fingers into the tightly closed slit'
							'"Oh?"'
							'That is the only word that escapes Katja''s mouth as your index and middle fingers travel through her more secret of places. The aroused flesh barely resists your intrusion as the fingertips reach an intact barrier that obediently parts before your assault. You move your fingers in a scissorlike motion.'
							'"Ouch!"'
							'You retire the hand and raise it so the no-longer little girl can see it. Between your fingers, covered in her slickness, a pinkish hue can be appreciated.'
							gs 'stat'

							act 'Ending the lesson':
								*clr & cla
								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/SL3.jpg"></center>'
								'Katja looks dumbfounded at your hand. Her inexperience makes it difficult for the redhead to understand what just happened. Suddenly, her eyes open in realization and you kiss her while congratulating the woman between your arms.'
								'"Congratulations Ekaterina Meynold! You are now a grown up woman! And grown ups get gifts."'
								'Too shocked and aroused, Katja lets you lie her on the bed, take away her panties, and go down on her. She has lost any reservation to be heard, and her moans fill the room. Your assault on her pussy, united to the arousal your touch has brought, makes her happily thrash all over the bed.'
								'You feel it when Katja raises her hips and a long guttural grunt escape her lips. She orgasms, and in that instant, a sympathetic link triggers, letting her energy flow towards you. Katja moans again and again as your feeding triggers orgasm after orgasm.'
								'Finally, exhausted, Katja lies on the bed, cuddling against you. For the next few minutes she doesn''t say anything, and in fact, seems to be on the brink of dozing off. You begin to pick up your clothes. It is probably best if you leave now.'
								gs 'arousal', 'vaginal_finger_give', 10, 'lesbian'
								gs 'arousal', 'cuni_give', 10, 'lesbian'
								pcs_mood += 20
								katjaQW['slut'] += 20
								npc_rel['A14'] += 5
								if npc_sex['A14'] = 0: girl += 1 & npc_sex['A14'] = 1
								if npc_vag['A14'] = 0: npc_vag['A14'] = 1
								katjaQW['QWstage'] = 3
								npcbrokehymen = 1
								KatjaQW['dom'] -= 5
								sexnutrition += 25 * scfeed
								suclezsex = lesbian
								succubxp += 6
								sucabslez = 1
								gs 'stat'

								act 'Time to leave': gt 'katjaHomeTalk', 'TamVal_2'
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'TamVal_2':
	*clr & cla
	'<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>'
	'A few minutes pass with Katja in contemplative silence before you finally decide to leave, but as you reach for the door, she finally talks.'
	 '"Hey <<$pcs_nickname>>! I... look this is going to sound awkward, Especially... ehm... taking into consideration what just happened... I was thinking about this before, well, you know. Will you want to... come home to study? I''m not trying to... Ehm... Fuck!"'
	'You smile at Katja''s awkwardness.'
	'"Yes, I would like that Katja, don''t worry."'
	'She gives you a timid smile before climbing under her bed''s covers as you leave. This has been a full afternoon. There is nothing more for you here... Except Katja''s mother waiting for you in the entry hall...'
	minut += 5
	gs 'stat'

	act 'A Talk':
		*clr & cla
		menu_off = 1
		'<center><h4><font color="maroon">Tamara Meynold</font></h4></center>'
		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big257.jpg"></center>'

		if zz_stage >= 1:
			'"So...<<$pcs_nickname>>, what exactly is troubling my daughter?"'
			'She is asking you without concern, and for a moment, you don''t know what to say, but finally decide to answer.'
			'"She is troubled about the fact that Valentina and you are in a... well... romantic relationship."'
			'Tamara seems to think about your answer, and finally gives a somewhat exasperated sigh.'
			'"It''s seems I must talk with this girl. Well, thanks <<$pcs_nickname>>... Hm... A moment, what do you think my relationship with Valentina is?"'
			'Ok, that is, without a doubt, a loaded question. Licking your lips, you try to give a more or less educated answer.'
			'"Sincerely? I don''t know, but she seemed... Ehm..."'
			'"Too clingy? Yes indeed <<$pcs_nickname>>. Valentina isn''t the first girl I have helped to get back on her feet, but she is without a doubt the most "grateful"... Sigh... Well... A pleasure, but I must talk with my daughter."'
			'Finally, after saying your goodbyes, you leave the house.'

		else
			'"<<$pcs_nickname>> isn''t it? I''m Tamara Meynold, my pleasure."'
			'"Hello Mrs. Maynold."'
			'"So... <<$pcs_nickname>>, what exactly is troubling my little girl?"'
			'She is asking you without concern, and for a moment, you don''t know what to say, but finally decide to answer.'
			'"She is troubled about the fact that Valentina and you are in a... well... romantic relationship."'
			'Tamara seems to think about your answer, and finally gives a somewhat exasperated sigh.'
			'"It''s seems I must talk with this girl. Well, thanks <<$pcs_nickname>>... Hm... A moment, what do you think my relationship with Valentina is?"'
			'Ok, that is, without a doubt, a loaded question. Licking your lips, you try to give a more or less educated answer.'
			'"Sincerely? I don''t know, but she seemed... Ehm..."'
			'"Too clingy? Yes indeed <<$pcs_nickname>>. Valentina isn''t the first girl I have helped to get back on her feet, but she is without a doubt the most "grateful"... Sigh... Well... A pleasure, but I must talk with my daughter."'
			'Finally, after saying your goodbyes, you leave the house.'
		end

		minut += 5
		gs 'stat'

		act 'Leave':gt 'pav_residential'
	end
end

if $ARGS[0] = 'boy_discussion':
	*clr & cla
	katjaQW['QWstage'] = 5
	minut += 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 pop the cherry of a Russian beauty like you."'
		'"Marcus is very good looking.... If you think he would be willing to have sex with a girl like me..." Katja trails off, 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 towards you for a kiss.'
		act 'Kiss her back': gt 'katjaEvDin', 'kiss'
	else
		katjaQW['horny'] += 10
		'"Do you have any boy in mind?" you ask. "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." she answers before pondering. "Maybe Marcus? He''s 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''s black and from America. Our classmates are so stupid sometimes." she continues'
		'"Marcus is hot, but how would 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''re the hottest there, I''m sure he''ll like it. Especially if you lead him on like you know how to do," she says in her most flattering voice.'
		'You smile. "Okay, I''ll try to dance with him at the disco."'
		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
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
	if  IvanShowerQW = 11:
		katjaQW['horny'] += 20
		'"Ivan seems to be very interested in our kissing. I sometimes have anal sex with him. You can say we''re what you call ''friends with benefits''. I think he might be interested," you tell her.'
		'"Ivan is hot... I''ve also heard that he''s really into anal sex. Yeah, if you think he''s willing, then..." Katja is having trouble finding the words as she gets visibly excited thinking about it.'
		'"We could try to see if he is up for something next time he watches us kiss at school'+iif(month > 4 and month < 10, ', or if we ran into him on the beach', '.')+'" you answer and Katja throws her arms around you and goes in for a kiss.'
		act 'Kiss her back': gt 'katjaEvDin', 'kiss'
	else
		katjaQW['horny'] += 10
		'"Do you have any boy in mind?" you ask. "Well, Ivan seems to be quite interested in our kissing at school. The other girls say that he''s really into anal sex. He''s also very hot." she answers.'
		'"Yeah, Ivan is hot. I need to find a way to approach him about it though," you reply. "He trains in the gym at the community center in the late afternoon. You might have luck talking with him there. I''ve also heard a rumor that he sometimes uses the women''s shower there," she tells you.'
		'You smile. "Okay, I''ll try to see if he is up for something there."'
		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
	minut += 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''ll 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''m sure if you ask your mother, then she''ll help you. I can''t imagine Vicky not being on the pill at this point, 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':
		if $loc = 'Katja_dorm':
			gt 'katja_dorm', 'talk'
		else
			gt 'KatjaHomeTalk'
		end
	end
	if $loc = 'katja_dorm':
		act 'Stop talking': gt 'katja_dorm', 'start'
	elseif 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
	minut += 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. "You know, sex with Ivan and Marcus is great and all, 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. You''ve been much more around than me, so maybe you know somebody?" she asks.'
	act 'Tell her about the boys in the park':
		cla
		katjaQW['horny'] += 5
		'You tell her that strangers 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 excitedly. "Why don''t we go right now?"'
		if katjaQW['birth_control_start_day'] < daystart:
			act 'Agree':
				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 'Not right now': gt 'KatjaHomeTalk'
		else
			'Remembering that the boys in the park won''t use protection, you turn Katja down.'
			if katjaQW['birth_control_start_day'] = 0: 
				act 'Tell Katja that you think she should use birth control': gt 'KatjaHomeTalk', 'preventation_talk'
			end
			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
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
	'Katja looks at you nervously, but with that look in her eyes that tells you she''s 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 nods sheepishly. "Okay. Now Ivan doesn''t fuck girls in the pussy since he''s afraid of getting them pregnant, so I assume that you want me to find somebody else?"'
		'"Yes <<$pcs_nickname>>. You know so many guys, so 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': gt 'KatjaHomeTalk', 'boy_discussion'
	act 'Refuse':
		cla
		'You refuse to help her, but she continues to beg you.'
		act 'Tell her to ask a boy herself':
			cla
			katjaQW['horny'] -= 20
			minut += 5
			'She stops begging and you return to talking about other subjects.'
			act 'Continue': gt 'KatjaHomeTalk'
		end
		act 'You''re too precious to share':
			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 'katjaEvDin', 'kiss'
		end
		act 'Tell her to stick with girls':
			cla
			katjaQW['horny'] -= 5
			minut += 5
			'"Boys aren''t worth it. Just stick with girls," you tell her and 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
	minut += 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''ve talked with Marcus and he agreed. She looks at you exitedly. "So when do we do it?"'
	'"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  (locat['Vicky'] = 10 or locat['Vicky'] = 11) and (katjaQW['horny']+katjaQW['slut']) > 100:
		'"Okay. Let''s call him right now!" she squeals, her face 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 while looking a little nervous. "Okay, another time then," you reply.'
		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 while looking a little panicked. "Okay, we''ll plan it for another day when we have time," you reply.'
		act 'Talk about something else': gt 'KatjaHomeTalk'
	end
end

if $ARGS[0] = 'first_boy_sex_follow_up':
	*clr & cla
	katjaQW['QWstage'] = 6
	minut += 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 huge grin.'
	if npc_vag['A14'] + 5 < npc_dick['A146']:
		'"It didn''t hurt too much?" you ask. "It hurt, that was why I couldn''t take it any longer. But it was fun and I think it''ll hurt less the next time," she answers. "So you want to have sex with a boy again?" you reply.'
	else
		'"It did look like you had fun," you say. "I definitely had fun, I thought it would hurt, but I didn''t feel any pain," she answers. "Might be all the times I used my dildo on you," you reply.'
	end
	'"We should definitely do this again some time," she finishes. "We''ll see if the opportunity comes up again," you answer.'
	act 'Talk about something else': gt 'KatjaHomeTalk'
	if katjaQW['birth_control_start_day'] = 0:
		act 'Tell her that she should use birth control': gt 'KatjaHomeTalk', 'preventation_talk'
	end
end	

if $ARGS[0] = 'anal_sex_with_boy_ask':
	*clr & cla
	minut += 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 hesitantly. "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,')+'" she says while 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 isn''t Marcus?" "Yes, <<$pcs_nickname>>. You know so many guys, so I''m sure you can arrange my first anal sex 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 anal sex with a boy. Can''t you help me arrange it? Please..." she says while looking at you pleadingly with her big eyes.'
	end
	act 'Agree': gt 'KatjaHomeTalk', 'anal_discussion'
	act 'Refuse':
		cla
		'You refuse to help her, but she continues to beg you.'
		act 'Tell her to ask a boy herself':
			cla
			katjaQW['horny'] -= 20
			minut += 5
			'She stops begging and you return to talking about other subjects.'
			act 'Continue': gt 'KatjaHomeTalk'
		end
		act 'You''re too precious to share':
			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 'katjaEvDin', 'kiss'
		end
		act 'Tell her to stick to girls':
			cla
			katjaQW['horny'] -= 5
			minut += 5
			'"Boys aren''t worth it. Just stick with girls," you tell her and she stops begging, but doesn''t look completely convinced.'
			act 'Talk about something else': gt 'KatjaHomeTalk'
		end
	end					
end

if $ARGS[0] = 'uni_tell':
	*clr & cla
	minut += 15
	katjaQW['know_going_to_teaching_degree'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
	if katjaQW['know_katja_uni'] = 0:
		'You tell Katja that you have enroled at the university to study to become a teacher. She replies that she also plans to do the same, and that it will be fun studying at the university together. She bombards you with questions about how your enrolment process went.'
	else
		'You tell Katja that you have also enroled to study teaching at the university. She replies that it will be fun studying at the university together before you spend the next few minutes talking excitedly about what you know about the program.'
	end
	if $loc = 'mey_home':
		act 'Talk about something else': gt 'KatjaHomeTalk'
	elseif $loc = 'pav_disco':
		act 'Ask if she wants to dance': gt 'pav_disco_coolkids', 'katja_dance_ask'
		act 'Do something else': gt 'pav_disco_classmates', 'classmates'
	else
		act 'Talk to someone else': gt 'pav_beach_chat', 'beach_hangout'
	end
end

if $ARGS[0] = 'katja_uni_tell':
	*clr & cla
	minut += 15
	 katjaQW['know_katja_uni'] = 1
	katjaQW['knows_dorm_room_number'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
	if katjaQW['know_going_to_teaching_degree'] = 0:
		'Katja excitedly tells you that she has been accepted into the university to study teaching. She then tells you about how great the program is. She also tells you that she are going to move into room 26 at the university dorm in the beginning August.' 
		if university['student'] = 1 and $university['enrolled_in'] = 'teaching_studies':
			act 'Tell Katja that you''re going to the university': gt 'KatjaHomeTalk', 'uni_tell'
		end	
	else
		'Katja excitedly tells you that she has also been accepted into the university to study teaching, and that it will be fun studying at the university together. She also tells you that she are going to move into room 26 at the university dorm in the beginning August. You then spend the next few minutes talking excitedly about what you know about the program.'
	end
	if $loc = 'mey_home':
		act 'Talk about something else': gt 'KatjaHomeTalk'
	elseif $loc = 'pav_disco':
		act 'Talk about something else':  gt 'pav_disco_coolkids', 'katja'
	else
		act 'Enjoy the sun': gt 'pav_beach_chat', 'katja'
	end
end

if $ARGS[0] = 'boy_no':
	*clr & cla
	minut += 15
	katjaQW['horny'] += 20
	katjaQW['boy_block'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
	'"I don''t have interest in boys" you tell Katja. "Oh" she replies "Does that mean..." she starts but her voice falters. "Yes. I am only interested in girls" you say. Katja doesn''t say anything but her face is getting redder and she looks intensely at you with her big eyes.'
	act 'Talk about something else':
		if $loc = 'Katja_dorm':
			gt 'katja_dorm', 'talk'
		else
			gt 'KatjaHomeTalk'
		end
	end
	if $loc = 'katja_dorm':
		act 'Stop talking': gt 'katja_dorm', 'start'
	elseif 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] = 'boy_yes':
	*clr & cla
	minut += 15
	katjaQW['horny'] += 10
	katjaQW['boy_block'] = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
	'"So I told you earlier that I had no interest in boys" you say "Yes I remember" she say. "Turns out I was wrong. I am in fact starting find boys attractive" you say. "So have you already done something with a boy? Tell me me everything you have done? What is it  you find attractive about boys. Who is the hottest guy in school..." Katja start bombarding you whit questions. "Slow down. This is also something new for me. But we can talk about boys if you want to" you say, as you see Katja''s face getting more red'
	act 'Talk about something else':
		if $loc = 'Katja_dorm':
			gt 'katja_dorm', 'talk'
		else
			gt 'KatjaHomeTalk'
		end
	end
	if $loc = 'katja_dorm':
		act 'Stop talking': gt 'katja_dorm', 'start'
	elseif 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] = 'fisting_ask':
	*clr & cla
	minut += 15
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
	'"Wow" she just says, sitting there thoughtful while her berating is becoming more aroused.  After a little she says "It did not hurt at all?" "Not a lot" you answer, "when you are in control you can make sure that the pain is not to much." She looks thoughtful again. "I don''t think I could do that to myself" she says. "That''s okay. It is not for everybody" you say. "But it does sounds so hot!" she say "Maybe... you could..." her voice trails of. After a moment she continues "Maybe you could show me..." "You want me to fist myself here in front of you?" you ask. "No, I want you... to..." her voice falters again. "You want me fist you?" you ask. She doesn''t say anything but slowly nods. "Right now?" you ask. Again she doesn''t say anything but nods again."'
	act 'Show Katja how fisting is done': gt 'katja_sex', 'first_fisting'
	act 'Say you will do another time':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
		'You tell Katja that you are not in the mood right now, but you might do it anther time if she asks.'
		if $loc = 'katja_dorm':
			act 'Stop talking': gt 'katja_dorm', 'start'
		elseif 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

--- KatjaHomeTalk ---------------------------------