[changed/added] Revision of the katja dominant varibale quest for Katja in the journal.

locations/KatjaHomeTalk.qsrc

@@ -15,6 +15,8 @@
 									
 !! katjaQW['slut'] a number that increasese 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 tell if Katja is dominant or submissiv. 0 is neutal, a negative means she is submessive and a possitive that she is dominant. In general the absulut valu nee to be above 30 before you will see any effect. (katjaDom but not a 1 to 1 translation since that variable was all over the place.)
+
 !!	katjaQW['park_sex'] 	a messure of what experience Katja have had with random guys in the park. 0 means she have not have had sex whit anybody in the park, 
 !!								1 means that she have had sex with one guy at a time (either alone, in a threesome with the player character or in while the the player have sex with another guy next to them)
 !!								2 means she have had a threesome whit 2 guys you met in the park, and 3 means she has paticipated in an orgy with guys from the park. (katjaSex)
@@ -254,6 +256,26 @@ if $ARGS[0] = '':
 				act 'Continue':gt 'KatjaHomeTalk'
 			end
 
+			if katjaQW['boy_lie'] = 1:
+				act 'Ask Katja who the boy she likes is':
+					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>'
+					'You ask Katja who the Boy she mentions being interested earlier is.' 
+					if katjaQW['slut'] >= 60 and npc_sex[A14] > 0 and katjaQW['horny'] > 40:
+						'"Nobody you dummy. It was just an excuse so that you would kiss me" she answers laughing at you.'
+						katjaQW['boy_lie'] = 2
+						act 'continue': gt 'KatjaHomeTalk', 'hornykiss'
+					else
+						'"That is my secret, and I am not going to tell you" she says with a wink in her eye.'
+						act 'Continue':gt 'KatjaHomeTalk'
+					end
+				end
+			end
+
 			if npc_sex['A14'] > 0 and katjaQW['slut'] > 100 and katjaQW['horny'] > 60:
 				act 'Look for boys in the park':
 					minut += 15
@@ -265,7 +287,7 @@ if $ARGS[0] = '':
 					place = 1
 					Frend_num = 14
 					p_slut = katjaQW['slut']
-					p_dom = KatjaDom
+					p_dom = KatjaQW['dom'] + 50
 					p_horny = katjaQW['horny']
 					p_alko = 0
 					gt 'placer'
@@ -328,7 +350,7 @@ if $ARGS[0] = '':
 				end
 			end
 
-			if katja_dom_sex = 1 and katjaQW['horny'] >= 70:
+			if katjaQW['slut'] >= 50 and katjaQW['horny'] >= 80:
 				act 'Lick Katja': gt 'KatjaEvDin', 'kuni_dom'
 			end
 
@@ -647,7 +669,7 @@ if $ARGS[0] = 'shower_kiss_home':
 			cla & *clr
 			minut += 5
 			pcs_horny += 10
-			KatjaDom -= 1
+			KatjaQW['dom'] -= 1
 			katjaQW['horny'] -= 10
 			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
@@ -766,7 +788,7 @@ if $ARGS[0] = 'Sextalk':
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 				'You tell Katja about the times you have had gone down on another girl and how it feels. Katja blushes and bites her lip.'
 				
-				if katjaQW['horny'] > 50 and katjaQW['slut'] >= 20:
+				if katjaQW['horny'] > 50 and katjaQW['slut'] >= 40 and rand(-30,30) < katjaQW['dom']:
 					'Katja asks you to show her how you lick pussy.'
 
 					act 'Show her':
@@ -775,8 +797,7 @@ if $ARGS[0] = 'Sextalk':
 						pcs_horny += 20
 						katjaQW['horny'] = 0
 						katjaQW['slut'] += 1
-						KatjaDom += 2
-						katja_dom_sex = 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>'
@@ -867,7 +888,6 @@ if $ARGS[0] = 'Sextalk':
 
 	act 'Refuse to talk about such topics':
 		cls
-		KatjaDom -= 1
 		gs 'stat'
 		'You refuse to talk about such topics with her. Katja looks down, confused, and  mummbles "Sorry, <<$pcs_nickname>>, I didn''t mean to pry."'
 
@@ -897,12 +917,12 @@ if $ARGS[0] = 'hornykiss':
 !!				if pcs_dom > 0:
 					act 'Seize Katja''s face':
 						cla & *clr
-						KatjaDom -= 5
+						KatjaQW['dom'] -= 2
 						katjaQW['horny'] -= 10
 						gs 'stat'
 						'You wrapped your hands around her face and bring you lips to Katja''s.'
 
-						!!if pcs_dom < KatjaDom:
+						!!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'
@@ -922,6 +942,7 @@ end
 if $ARGS[0] = 'tender_kiss':
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 	'Katja thinks about something, then embarrassed and blushing asks you "<<$pcs_nickname>>, have you kissed a boy?"'
+	katjaQW['boy_lie'] = 1
 
 	act 'Yes':
 		*clr & cla
@@ -931,24 +952,36 @@ if $ARGS[0] = 'tender_kiss':
 
 		act 'Kiss': gt 'katjaEv', 'kiss'
 
-		gs 'willpower', 'kiss', 'resist', 'medium'
-		if will_cost <= pcs_willpwr:
-			act 'No (<<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 'Say no':
+			*clr & cla
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+			'You tell Katja no and she look at you with her big eyes "Please <<$pcs_nickname>>, you don''t want me to be bad at kissing do you?"'
+		
+			act 'Relent and kiss Katja': 
+				katjaQW['dom'] += 2 
+				gt 'katjaEv', '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': 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'
+					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
+			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
-		else
-			act 'No (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	end
 
@@ -959,24 +992,36 @@ if $ARGS[0] = 'tender_kiss':
 		'You shake your head and say that you have never kissed a boy. Katja, even more shyly, "You see <<$pcs_nickname>>, I like this guy, he''s older than me, and I am afraid that when we start to kiss, I''ll do something wrong. Maybe we could try kissing and learn that way?"'
 		act 'Kiss': gt 'katjaEv', 'kiss'
 
-		gs 'willpower', 'kiss', 'resist', 'medium'
-		if will_cost <= pcs_willpwr:
-			act 'No (<<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 'Say no':
+			*clr & cla
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+			'You tell Katja no and she look at you with her big eyes "Please <<$pcs_nickname>>, I will help os both so we are better when we finally are kissing a boy?"'
+		
+			act 'Relent and kiss Katja': 
+				katjaQW['dom'] += 2 
+				gt 'katjaEv', 'kiss'
+			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'
+			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': 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
+			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
-		else
-			act 'No (<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

locations/NikoMeyHome.qsrc

@@ -870,17 +870,18 @@ if $ARGS[0] = 'Bathroom':
 	'<center><b><font color = maroon>Bathroom</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
 	'A luxurious bathroom that looks like the five-star hotel bathrooms you read about in magazines.'
-	if VKAftermathEvent = 0 and KatjaDom ! 0 and VKKatjaChat = 1 or VKAftermathEvent = 0 and NataliaPavlovaQW >= 10 and VKNatChat = 1:
-		if KatjaDom > 0 and KatjaDom <= 50 or KatjaDom > 50 or NataliaPavlovaQW >= 10:'Above the beautiful vanity and sink is a huge mirror. You can feel a hand on your shoulder.'
+	if VKAftermathEvent = 0 and VKKatjaChat = 1 and ((katjaQW['dom'] > 30 and npc_sex['A14'] > 0) or  NataliaPavlovaQW >= 10):
+		'Above the beautiful vanity and sink is a huge mirror. You can feel a hand on your shoulder.'
 	else
 		'Above the beautiful vanity and sink is a huge <a href="exec:gt ''mirror'',''start''">mirror</a>.'
 	end
-	if VKAftermathEvent = 0 and KatjaDom > 50 and VKKatjaChat = 1:
+	if VKAftermathEvent = 0 and KatjaQW['dom'] > 30 and npc_sex['A14'] > 0 and VKKatjaChat = 1:
 		act 'Turn around': VKAftermathEvent = 1 & gt 'NikoMeyHome', 'Kat Bath'
 	elseif VKAftermathEvent = 0 and NataliaPavlovaQW >= 20 and VKNatChat = 1:
 		act 'Turn around': VKAftermathEvent = 1 & gt 'NikoMeyHome', 'Natalia Bath'
-	elseif VKAftermathEvent = 0 and KatjaDom > 0 and KatjaDom <= 50 and VKKatjaChat = 1 and VKWip = 100:
-		act 'Turn around': VKAftermathEvent = 1 & gt 'NikoMeyHome', 'Katja Bath'
+!!	This used to have the variable that what replaced by katjQW['dom'] in the conditions so this should be acounted when this event is added back in. Remember to also to look at the conditions of the text before this section of if and elseif.
+!!	elseif VKAftermathEvent = 0 and VKKatjaChat = 1 and VKWip = 100:
+!!		act 'Turn around': VKAftermathEvent = 1 & gt 'NikoMeyHome', 'Katja Bath'
 	elseif VKAftermathEvent = 0:
 		act 'Take a bath': VKAftermathEvent = 1 & gt 'NikoMeyHome', 'Bath'
 	elseif VKAftermathEvent = 1:

locations/gschool_lunch.qsrc

@@ -350,7 +350,7 @@ if $ARGS[0] = 'events':
 	if npc_sex['A14'] = 1 and katjaQW['QWstage'] > 2 and katjaQW['slut'] >= 40 and katjaQW['horny'] > 60 and ivan_afterschool = 0:
 		cla
 		'During the break, Katja approaches you, her face flushed in a mixture of shame and what seems to be arousal. After a few seconds, she gathers enough courage to ask if you want go somewhere quiet with her.'
-		act 'Refuse': KatjaDom -= 1 & gt 'gschool_lunch', 'break'
+		act 'Refuse': gt 'gschool_lunch', 'break'
 		act 'Go with Katja':
 			*clr & cla
 			minut += 5
@@ -362,7 +362,7 @@ if $ARGS[0] = 'events':
 			else
 				act 'Eat Katja out':
 					*clr & cla
-					KatjaDom += 1
+					KatjaQW['dom'] += 1
 					if katjaQW['school_sex'] = 0: katjaQW['school_sex'] = 1 
 					katjaQW['slut'] += 1
 					katjaQW['horny'] = 0

locations/journal_quests.qsrc

@@ -326,6 +326,64 @@ if $ARGS[0] = 'start':
 		else
 			'If I want to join the Volleyball Team, I need to practice my skills at the community center, then talk to the coach about joining.'
 		end
+		*nl
+		*nl
+		'<center><h1>Katja Meynold</h1></center>'
+		*nl
+		if katjaQW['QWstage'] = 0:
+			'Katja is both cute, smart and poupular. If I want to be her friend'+iif(npc_rea['A14'] < 60, ', I need to get to know her better by talking with her at school or the disco', '')+ +iif(pcs_makupskl < 40, ', I need to improve my make skill since she is very into makeup', '')+ +iif(class['school_grade_average'] < 64, ', I need to improve my grades since being good at school is important to her', '')+ +iif(fame['pav_slut'] >= 25, ', I need to be seen as les of a slut', '')+ +iif(hotcat >= 6, ', I need to improve my looks', '')+ +iif(npc_rel['A14'] >= 60 and fame['pav_slut'] < 25 and class['school_grade_average'] >= 65 and pcs_makupskl >= 40 and hotcat >= 6, ', I should probably go to school and see if somthing happens.', '.')
+		elseif katjaQW['QWstage'] = 1:
+			'Katja has agreed to hang out after school, I should do this more often to see where thid leads.'
+		elseif katjaQW['QWstage'] = 2:
+			'Katja and me saw her mother and a Girl not much older than us kissing and it clearly affect Katja. I thought about asking Katja if we should try Kissing, but do not do it. Maybe if I hang out more whit har at ther house there will be another opertunity for kissing her.'
+		elseif katjaQW['QWstage'] > 2:
+			if npc_sex['A14'] = 0:
+				'I have kissed Katja but not gone any further.'+iif(katjaQW['slut'] < 20, ' Katja probably need to loosen up a little before she will go any further. Maybe trying to push her a little when kissing or getting her to be naked at the lake beach.', ' I think it is possible that she will go further if the opertunity comes up when hanging out at her home.')
+			end
+				'While Katja is a shy girl she is still quit strong willed, and will not do anything sexual if not in the mood. Fortuanlly it is pretty easy to determine if she is aroused, just look at how red her face is.'
+
+			if katjaQW['school_kiss'] = 0 and katjaQW['QWstage'] > 2 and katjaQW['knows_masterbation'] + katjaQW['knows_BJ'] + katjaQW['knows_sex'] + katjaQW['knows_anal']+ katjaQW['knows_cuni'] >= 2:
+				'I should try to kiss Katja at school.'
+			elseif katjaQW['school_kiss'] = 1:
+				'I should kiss Katja again in school to see what happens.'
+			end
+
+			if katjaQW['pantiesQWstage'] = 0:
+				'It could be fun to see if I could get Katja to go to school without panties. To do this I need to speek with her at school when I don''t wear panties so she might see I am not wearing any'+iif(katjaQW['slut'] >= 40 and katja['school_sex'] = 0, ', I should probably accept her advances at school', '')+ +iif(katjaQW['slut'] < 20, ', I probably need to loosen up Katja in other way frist, for example getting her to be naked at the lake beach.', '.')
+			elseif katjaQW['pantiesQWstage'] < 4:
+				'I think I am getting close to having Katja take of her panties at school. Just a few more times and she will take them of.'
+			elseif katjaQW['pantiesQWstage'] = 4:
+				'I have gotten Katja to take of her panties at School, now she just need to lose some more inhibition to not put them on in the morning.'
+			elseif katjaQW['pantiesQWstage'] > 4:
+				'Misson acomplished Katja don''t wear panties to school anymore.'
+			end
+			if npc_sex['A14'] = 1:
+				if strapon = 0:
+					'I should by a strap-on so that I can maybe use it on Katja.'
+				elseif katjaQW['slut'] < 40:
+					'You need to get Katja to loose some more of her inhibition before you can use your strap-on on her.'
+				elseif katjaQW['strapon_vag'] + katjaQW['strapon_ass'] + katjaQW['strapon_bj'] < 3:
+					'You should' +iif(katjaQW['strapon_bj'] = 0, '; make Katja give your strap-on a blow-job', '')+ +iif( katjaQW['strapon_vag'] = 0, '; fuck Katja''s pussy with your strap-on', '')+ +iif(katjaQW['strapon_ass'] = 0, '; fuck Katja in the ass with your strap-on', '')+'.'
+				end
+
+				if katjaQW['school_kiss'] > 1 and (katjaQW['ivan_pussy'] + katjaQW['ivan_anal']) = 0:
+					'Ivan seems interested in me and Katja. Maybe I can get them to have a threesome. Kissing Katja at school should get his attention, or maybe we will ran into him on the beach.' +iif(katjaQW['slut'] < 60, ' Katja probably need to loose some more inhibition before it she agrees.', '')+ +iif(IvanShowerQW ! 11, ' I need to have sex with Ivan first (See heis quest how to do this).', '')
+				end
+
+				if katjaQW['slut'] < 100:
+					'I should continue to corrupt Katja, there might be more things I can pus her to do.'
+				elseif katjaQW['park_sex'] = 0:
+					'I should take Katja to the park to get her to to hook up with ramdom guys.'
+				elseif katjaQW['park_sex'] = 1:
+					'I took Katja to the park and she had sex with a ramdom guy. Maybe if we go again I could get her to have sex with several guys.'
+				elseif katjaQW['park_sex'] = 2:
+					'Katja had a threesome in the park with two random guys. Let''s go again and see where it ends.'
+				else
+					'Congatulations. You have managed to tun Katja from an inocent virgin to a complete slut tha will have orgies with random people you meet in the park.'
+					'You have unlucked the possibility to see all the scenes with Katja that are in the game at the moment' +iif(NatbelQW['QWstage'] < 8, ', except a scene started by going to the market which requires you to advance Natasha''s quest line.', '.')
+				end
+			end
+		end
 	end
 end
 

locations/katjaEv.qsrc

@@ -163,7 +163,6 @@ if $ARGS[0] = '3':
 	end
 end
 
-
 if $ARGS[0] = 'kiss':
 	*clr & cla
 	minut += 5
@@ -177,7 +176,6 @@ if $ARGS[0] = 'kiss':
 		else
 			katjaQW['slut'] += 5
 		end
-		KatjaDom = 50
 		katjaQW['QWstage'] = 3
 	end
 
@@ -195,7 +193,6 @@ if $ARGS[0] = 'kiss':
 			*clr & cla
 			minut += 5
 			pcs_horny += 10
-			KatjaDom += 1
 			katjaQW['horny'] += 10
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits.jpg"></center>'
@@ -211,7 +208,7 @@ if $ARGS[0] = 'kiss':
 				*clr & cla
 				minut += 5
 				pcs_horny += 10
-				KatjaDom -= 1
+				KatjaQW['dom'] -= 1
 				katjaQW['horny'] -= 10
 				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
@@ -246,13 +243,13 @@ if $ARGS[0] = 'kiss':
 						*clr & cla
 						minut += 5
 						pcs_horny += 10
-						KatjaDom -= 5
+						KatjaQW['dom'] -= 1
 						katjaQW['horny'] -= 10
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/grab.jpg"></center>'
 						'You grab Katja firmly so she can''t back away.'
 !!{
-						if pcs_dom < KatjaDom:
+						if pcs_dom < KatjaQW['dom']:
 							'Katja pushes your arms apart and pulls away, you understand that she doesn''t want more.'
 
 							if mey_vika['key'] = 1:
@@ -267,7 +264,6 @@ if $ARGS[0] = 'kiss':
 								*clr & cla
 								minut += 5
 								pcs_horny += 10
-								KatjaDom -= 1
 								katjaQW['horny'] += 10
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits_katja_get.jpg"></center>'
@@ -289,7 +285,6 @@ if $ARGS[0] = 'kiss':
 					*clr & cla
 					minut += 5
 					pcs_horny += 10
-					KatjaDom += 1
 					katjaQW['horny'] += 10
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits.jpg"></center>'
@@ -300,23 +295,44 @@ if $ARGS[0] = 'kiss':
 					gs 'KatjaEvDin', 'sex'
 				end
 
-				gs 'willpower', 'foreplay', 'resist', 'hard'
-				if will_cost <= pcs_willpwr:
-					act 'Remove her hands (<<will_cost>> Willpower)':
+				act 'Ask Katja to stop.':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/touch.jpg"></center>'
+					'You ask Katja to stop but she ignores you.'
+
+					gs 'willpower', 'foreplay', 'resist', 'hard'
+
+					act 'Give in to her touch':
 						*clr & cla
 						minut += 5
 						pcs_horny += 10
-						KatjaDom -= 1
-						katjaQW['horny'] -= 10
-						gs 'willpower', 'pay', 'resist'
+						KatjaQW['dom'] += 1
+						katjaQW['horny'] += 10
 						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-						'You remove her hands and smile at Katja.'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits.jpg"></center>'
+						'Katja bares your breasts and touches them with her fingers, then she bows her head and begins to lick your nipple.'
 
-						act 'Further':gt 'KatjaHomeTalk'
+						gs 'boystat', 'A14', 'a'
+						gs 'KatjaEvDin', 'sex'
+					end
+					
+					if will_cost <= pcs_willpwr:
+						act 'Remove her hands (<<will_cost>> Willpower)':
+							*clr & cla
+							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 Katja.'
+
+							act 'Further':gt 'KatjaHomeTalk'
+						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
-				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
 		end
@@ -1347,7 +1363,7 @@ if $ARGS[0] = 'kathan8':
 				*clr & cla
 				gs 'willpower', 'pay', 'force'
 				katjaQW['slut'] += 5
-				KatjaDom += 5
+				KatjaQW['dom'] -= 1
 				npc_rel['A14'] -= 1
 				inhib_exp += rand(1,2)
 				if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
@@ -1763,7 +1779,7 @@ if $ARGS[0] = 'kathan10':
 					act 'Ice dipping!':
 						*clr & cla
 						gs 'willpower', 'pay', 'force'
-						KatjaDom +=5
+						KatjaQW['dom'] -= 1
 						katjaQW['slut'] +=5
 						gs 'stat'
 						gt 'katjaEv','kathan11'
@@ -1773,7 +1789,7 @@ if $ARGS[0] = 'kathan10':
 				end
 			end
 
-			act 'Shower, redress and go':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & KatjaDom +=5 & katjaQW['slut'] +=5 & minut += 10 & gt 'katjaEv','kathan'
+			act 'Shower, redress and go':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & katjaQW['slut'] +=5 & minut += 10 & gt 'katjaEv','kathan'
 		end
 	else
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS7.jpg"></center>'
@@ -1841,7 +1857,7 @@ if $ARGS[0] = 'kathan12':
 
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS9.jpg"></center>'
 
-	if KatjaDom <20:
+	if KatjaQW['dom'] > 30:
 		'There is a tense silence as you both realize what is going to happen. Finally, the tension is broken when Katja smile cutely, sits up straight and opens her legs invitingly.'
 		'"Come on <<$pcs_nickname>>. What are you waiting?"'
 		'She manages to sound utterly innocent and you, charmed by the slutty redhead, rise without hesitation, consumed by your need to love this cute little thing. Katja isn''t passive and as soon as you are within reach, she grabs a handful of your hair and forces a kiss on your lips.'
@@ -1854,7 +1870,7 @@ if $ARGS[0] = 'kathan12':
 			menu_off = 1
 			*clr & cla
 			gs 'arousal', 'cuni_give', 10, 'exhibitionism', 'sub'
-			KatjaDom -= 5
+			KatjaQW['dom'] += 2
 			pcs_mood += 10
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS10.jpg"></center>'
@@ -1874,7 +1890,7 @@ if $ARGS[0] = 'kathan12':
 				*clr & cla
 				gs 'willpower', 'pay', 'force'
 				gs 'arousal', 'cuni_give', 10, 'exhibitionism', 'dom'
-				KatjaDom += 5
+				KatjaQW['dom'] -= 2
 				pcs_mood += 10
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS11.jpg"></center>'
@@ -1904,7 +1920,6 @@ if $ARGS[0] = 'kathan12':
 			menu_off = 1
 			*clr & cla
 			gs 'arousal', 'cuni_give', 10, 'exhibitionism', 'sub'
-			KatjaDom -= 5
 			pcs_mood += 10
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS10.jpg"></center>'
@@ -1920,7 +1935,6 @@ if $ARGS[0] = 'kathan12':
 			menu_off = 1
 			*clr & cla
 			gs 'arousal', 'cuni_give', 10, 'exhibitionism', 'dom'
-			KatjaDom += 5
 			pcs_mood += 10
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS11.jpg"></center>'
@@ -2823,10 +2837,11 @@ if $ARGS[0] = 'TamVal':
 		'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?"'
 
-		gs 'willpower', 'kiss', 'force', 'hard'
 		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
@@ -2842,9 +2857,9 @@ if $ARGS[0] = 'TamVal':
 				gs 'willpower', 'pay', 'force', 'hard'
 				npc_rel['A14'] += 1
 				katjaQW['slut'] += 5
-				KatjaDom += 5
+				katjaQW['dom'] -= 2
 				katjaQW['QWstage'] = 3
-				minut -= 5
+				minut += 5
 				pcs_mood += 10
 				gs 'arousal', 'kiss', 10
 				gs 'stat'
@@ -2875,7 +2890,7 @@ if $ARGS[0] = 'TamVal':
 				npc_rel['A14'] += 1
 				katjaQW['slut'] += 5
 				katjaQW['QWstage'] = 3
-				minut -= 5
+				minut += 5
 				pcs_mood += 10
 				gs 'arousal', 'kiss', 10
 				gs 'stat'
@@ -2970,7 +2985,7 @@ if $ARGS[0] = 'TamVal':
 								if npc_vag['A14'] = 0: npc_vag['A14'] = 1
 								katjaQW['QWstage'] = 3
 								npcbrokehymen = 1
-								KatjaDom += 5
+								KatjaQW['dom'] -= 5
 								sexnutrition += 25 * scfeed
 								suclezsex = lesbian
 								succubxp += 6
@@ -3164,7 +3179,6 @@ if $ARGS[0] = 'katnatsex1':
 	act 'Katja':
 		menu_off = 1
 		*clr & cla
-		KatjaDom -= 5
 		gs 'arousal', 'cuni_give', 10
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS7.jpg"></center>'
@@ -3192,7 +3206,7 @@ if $ARGS[0] = 'katnatsex1':
 			if will_cost <= pcs_willpwr:
 				act 'Force the girls to eat you (<<will_cost>> Willpower)':
 					*clr & cla
-					KatjaDom += 5
+					KatjaQW['dom'] -= 2
 					$orgasm_or = 'yes'
 					gs 'arousal', 'cuni', 10, 'lesbian'
 					gs 'stat'
@@ -3213,7 +3227,7 @@ if $ARGS[0] = 'katnatsex1':
 
 			act 'Your turn!':
 				*clr & cla
-				KatjaDom += 5
+				KatjaQW['dom'] += 2
 				$orgasm_or = 'yes'
 				gs 'arousal', 'cuni', 10, 'lesbian'			
 				gs 'stat'
@@ -3230,7 +3244,6 @@ if $ARGS[0] = 'katnatsex1':
 
 				act 'Too tired for sex, so "help" Natasha in another way':
 					*clr & cla
-					KatjaDom += 5
 					gs 'arousal', 'kiss', 10, 'lesbian'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS11.jpg"></center>'
@@ -3259,7 +3272,6 @@ if $ARGS[0] = 'katnatsex1':
 
 		act 'Katja!':
 			*clr & cla
-			KatjaDom -= 5
 			gs 'arousal', 'cuni_give', 10
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS7.jpg"></center>'
@@ -3277,7 +3289,7 @@ if $ARGS[0] = 'katnatsex1':
 			if will_cost <= pcs_willpwr:
 				act 'Force the girls to eat you (<<will_cost>> Willpower)':
 					*clr & cla
-					KatjaDom += 5
+					KatjaQW['dom'] -= 2
 					$orgasm_or = 'yes'
 					gs 'arousal', 'cuni', 10, 'lesbian'
 					gs 'stat'
@@ -3298,7 +3310,7 @@ if $ARGS[0] = 'katnatsex1':
 		end
 		act 'You':
 			*clr & cla
-			KatjaDom += 5
+			KatjaQW['dom'] += 2
 			$orgasm_or = 'yes'
 			gs 'arousal', 'cuni', 10, 'lesbian'
 			gs 'stat'
@@ -3314,7 +3326,7 @@ if $ARGS[0] = 'katnatsex1':
 
 			act 'Groaning help Katja':
 				*clr & cla
-				KatjaDom -= 5
+				KatjaQW['dom'] += 2
 				gs 'arousal', 'cuni_give', 10
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS7.jpg"></center>'
@@ -3334,7 +3346,6 @@ if $ARGS[0] = 'katnatsex1':
 	act 'You':
 		menu_off = 1
 		*clr & cla
-		KatjaDom += 5
 		$orgasm_or = 'yes'
 		gs 'arousal', 'cuni', 10, 'lesbian'
 		gs 'stat'
@@ -3348,7 +3359,6 @@ if $ARGS[0] = 'katnatsex1':
 
 		act 'Katja':
 			*clr & cla
-			KatjaDom -= 5
 			gs 'arousal', 'cuni_give', 10
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS7.jpg"></center>'
@@ -3386,6 +3396,7 @@ if $ARGS[0] = 'katnatsex1':
 
 		act 'Natasha':
 			*clr & cla
+			katjaQW['dom'] += 2
 			gs 'arousal', 'cuni_give', 10
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS8.jpg"></center>'
@@ -3398,7 +3409,6 @@ if $ARGS[0] = 'katnatsex1':
 
 			act 'Groaning help Katja':
 				*clr & cla
-				KatjaDom -= 5
 				gs 'arousal', 'cuni_give', 10
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS7.jpg"></center>'

locations/katjaEvDin.qsrc

@@ -205,79 +205,6 @@ if $ARGS[0] = 'strapon_start':
 	end
 end
 
-if $ARGS[0] = 'shower_kiss':
-	*clr & cla
-	menu_off = 1
-	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 and her thin finger finds your clitoris and begins to rub it.'
-
-	gs 'arousal', 'kiss', 5, 'lesbian', 'dom'
-	gs 'arousal', 'vaginal_finger', -5, 'lesbian', 'dom'
-	gs 'stat'
-
-	if katjaQW['slut'] >= 10:
-		'Katja, gently but firmly puts you on the edge of the tub.'
-	elseif katjaQW['slut'] < 10:
-		'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':
-		*clr & cla
-		katjaQW['horny'] -= 10
-
-		if npc_sex['A14'] = 0:npc_sex['A14'] = 1 & girl += 1 & katjaQW['slut'] += 5
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/showersex.jpg"></center>'
-		'You sit 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 the clitoris. Soon bliss envelopes your entire body.'
-		'You notice Katja''s hand between her legs and get even more turned on watching her pleasure herself while she''s pleasuring you.'
-		'Suddenly you are hit by a powerful orgasm. You feel like you might lose consciousness. Your whole body convulses and a hot wave of pleasure washes over you.'
-
-		$orgasm_or = 'yes'
-		gs 'arousal', 'cuni', 5, 'lesbian', 'dom'
-		gs 'stat'
-
-		if mey_vika['key'] = 1:
-			Act 'Smile and leave the room': 
-				gs 'arousal', 'end'
-				gt 'mey_home', 'start'
-			end
-		else
-			act 'Say goodbye and leave':
-				minut += 5
-				gs 'arousal', 'end'
-				gt 'pav_residential'
-			end
-		end
-	end
-
-	gs 'willpower', 'cuni', 'resist', 'hard'
-	if will_cost <= pcs_willpwr:
-		act 'Remove her hands (<<will_cost>> Willpower)':
-			*clr & cla
-			minut += 5
-			pcs_horny += 10
-			KatjaDom -= 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. Then you dismiss Katja, who shyly looks to the floor and leaves 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] = 'sex':
 	menu_off = 1
 	act 'relax':
@@ -421,7 +348,7 @@ if $ARGS[0] = 'kuni_dom':
 	gs 'stat'
 
 	if pcs_horny >= 50:
-		if rand(0,1) = 0:
+		if katjaQW['dom'] < rand(-50,50) and (katjaQW['strapon_bj'] + katjaQW['strapon_vag'] + katjaQW['strapon_ass']) < 3:
 			'Katja smiles at you "That was great <<$pcs_nickname>>, spread your legs."'
 			act 'Spread your legs': gt 'KatjaEvDin', 'kuni_p'
 		else
@@ -440,6 +367,7 @@ if $ARGS[0] = 'kuni_dom':
 
 			act 'Beg her to give you a turn.':
 				*clr & cla
+				katjaQW['dom'] += 1
 				pcs_horny += 5
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/myturn.jpg"></center>'

locations/mey_vika_events.qsrc

@@ -1588,7 +1588,6 @@ if $ARGS[0] = 'bang_katya2':
 						KatjaQW['horny'] = 0
 						Katjastat['vaginal'] += 1
 						if KatjaQW['slut'] < 20:
-							KatjaDom += 20
 							KatjaQW['slut'] = 0
 						end
 						gs 'stat'