浏览代码

[changed] Added new exits to Katja action if you are in her dorm room and not the Meynold house.

bgkjdgbizgblzdgbr 1 年之前
父节点
当前提交
3466878f4f
共有 2 个文件被更改,包括 493 次插入85 次删除
  1. 359 54
      locations/KatjaHomeTalk.qsrc
  2. 134 31
      locations/katjaEvDin.qsrc

+ 359 - 54
locations/KatjaHomeTalk.qsrc

@@ -665,7 +665,13 @@ if $ARGS[0] = 'katjaknows':
 		'"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':gt 'KatjaHomeTalk'
+		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.'
@@ -674,7 +680,13 @@ if $ARGS[0] = 'katjaknows':
 		'"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':gt 'KatjaHomeTalk'
+		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.'
@@ -683,7 +695,13 @@ if $ARGS[0] = 'katjaknows':
 		'"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':gt 'KatjaHomeTalk'
+		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.'
@@ -694,7 +712,13 @@ if $ARGS[0] = 'katjaknows':
 		'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':gt 'KatjaHomeTalk'
+		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.'
@@ -705,7 +729,13 @@ if $ARGS[0] = 'katjaknows':
 		'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':gt 'KatjaHomeTalk'
+		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.'
@@ -716,7 +746,13 @@ if $ARGS[0] = 'katjaknows':
 		'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':gt 'KatjaHomeTalk'
+		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.'
@@ -727,7 +763,13 @@ if $ARGS[0] = 'katjaknows':
 		'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':gt 'KatjaHomeTalk'
+		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.'
@@ -738,7 +780,13 @@ if $ARGS[0] = 'katjaknows':
 		'"<<$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':gt 'KatjaHomeTalk'
+		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.'
@@ -746,7 +794,13 @@ if $ARGS[0] = 'katjaknows':
 		'"It looks like I got knocked up by <<$wombthfath>>"'
 		'"I hope they know how lucky they are," she says while clearly blushing.'
 
-		act 'Continue':gt 'KatjaHomeTalk'
+		act 'Continue':
+			if $loc = 'Katja_dorm':
+				gt 'katja_dorm', 'talk'
+			else
+				gt 'KatjaHomeTalk'
+			end
+		end
 	end
 end
 
@@ -764,44 +818,100 @@ if $ARGS[0] = 'katjaknows1':
 		'"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 & gt 'KatjaHomeTalk'
+		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 & gt 'KatjaHomeTalk'
+		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 & gt 'KatjaHomeTalk'
+		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 & gt 'KatjaHomeTalk'
+		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 & gt 'KatjaHomeTalk'
+		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 & gt 'KatjaHomeTalk'
+		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 & gt 'KatjaHomeTalk'
+		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 & gt 'KatjaHomeTalk'
+		act 'Continue':
+			minut += 10
+			if $loc = 'Katja_dorm':
+				gt 'katja_dorm', 'talk'
+			else
+				gt 'KatjaHomeTalk'
+			end
+		end
 	end
 end
 
@@ -913,7 +1023,14 @@ if $ARGS[0] = 'Sextalk':
 				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 & gt 'KatjaHomeTalk'
+				act 'Further':
+					minut += 15
+					if $loc = 'Katja_dorm':
+						gt 'katja_dorm', 'talk'
+					else
+						gt 'KatjaHomeTalk'
+					end
+				end
 			end
 		end
 	elseif kattalkrand = 1:
@@ -934,7 +1051,14 @@ if $ARGS[0] = 'Sextalk':
 				'<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 & gt 'KatjaHomeTalk'
+				act 'Further':
+					minut += 15
+					if $loc = 'Katja_dorm':
+						gt 'katja_dorm', 'talk'
+					else
+						gt 'KatjaHomeTalk'
+					end
+				end
 			end
 		else
 			act 'No':
@@ -942,7 +1066,14 @@ if $ARGS[0] = 'Sextalk':
 				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 & gt 'KatjaHomeTalk'
+				act 'Further':
+					minut += 15
+					if $loc = 'Katja_dorm':
+						gt 'katja_dorm', 'talk'
+					else
+						gt 'KatjaHomeTalk'
+					end
+				end
 			end
 		end
 
@@ -964,7 +1095,14 @@ if $ARGS[0] = 'Sextalk':
 				'<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 & gt 'KatjaHomeTalk'
+				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':
@@ -972,7 +1110,14 @@ if $ARGS[0] = 'Sextalk':
 				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 & gt 'KatjaHomeTalk'
+				act 'Further':
+					minut += 15
+					if $loc = 'Katja_dorm':
+						gt 'katja_dorm', 'talk'
+					else
+						gt 'KatjaHomeTalk'
+					end
+				end
 			end
 		end
 	elseif kattalkrand = 3:
@@ -1011,16 +1156,34 @@ if $ARGS[0] = 'Sextalk':
 						'"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':
-							gs 'arousal', 'end'
+							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
-					act 'Ignore her':minut += 15 & gt 'KatjaHomeTalk'
 				else
-					act 'Further':minut += 15 & gt 'KatjaHomeTalk'
+					act 'Further':
+						minut += 15
+						if $loc = 'Katja_dorm':
+							gt 'katja_dorm', 'talk'
+						else
+							gt 'KatjaHomeTalk'
+						end
+					end
 				end
 			end
 		else
@@ -1029,7 +1192,14 @@ if $ARGS[0] = 'Sextalk':
 				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 & gt 'KatjaHomeTalk'
+				act 'Further':
+					minut += 15
+					if $loc = 'Katja_dorm':
+						gt 'katja_dorm', 'talk'
+					else
+						gt 'KatjaHomeTalk'
+					end
+				end
 			end
 		end
 	elseif kattalkrand = 4:
@@ -1049,7 +1219,14 @@ if $ARGS[0] = 'Sextalk':
 				'You tell Katja how you masturbate in the bathroom and she blushes and bites her lip.'
 
 				if katjaQW['masturbates'] = 0:
-					act 'Further':minut += 15 & gt 'KatjaHomeTalk'
+					act 'Further':
+						minut += 15
+						if $loc = 'Katja_dorm':
+							gt 'katja_dorm', 'talk'
+						else
+							gt 'KatjaHomeTalk'
+						end
+					end
 				else
 					act 'Further':
 						cls
@@ -1058,7 +1235,14 @@ if $ARGS[0] = 'Sextalk':
 						'<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 & gt 'KatjaHomeTalk'
+						act 'Further':
+							minut += 15
+							if $loc = 'Katja_dorm':
+								gt 'katja_dorm', 'talk'
+							else
+								gt 'KatjaHomeTalk'
+							end
+						end
 					end
 				end
 			end
@@ -1080,7 +1264,11 @@ if $ARGS[0] = 'Sextalk':
 							gt 'katjaHomeTalk', 'fisting_ask'
 						else
 							minut += 15
-							gt 'KatjaHomeTalk'
+							if $loc = 'Katja_dorm':
+								gt 'katja_dorm', 'talk'
+							else
+								gt 'KatjaHomeTalk'
+							end
 						end
 					end
 				end
@@ -1100,7 +1288,11 @@ if $ARGS[0] = 'Sextalk':
 
 					act 'Further':
 						minut += 15
-						gt 'KatjaHomeTalk'
+						if $loc = 'Katja_dorm':
+							gt 'katja_dorm', 'talk'
+						else
+							gt 'KatjaHomeTalk'
+						end
 					end
 				end
 			end
@@ -1110,7 +1302,14 @@ if $ARGS[0] = 'Sextalk':
 				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 & gt 'KatjaHomeTalk'
+				act 'Further':
+					minut += 15
+					if $loc = 'Katja_dorm':
+						gt 'katja_dorm', 'talk'
+					else
+						gt 'KatjaHomeTalk'
+					end
+				end
 			end
 		end
 	end
@@ -1120,7 +1319,14 @@ if $ARGS[0] = 'Sextalk':
 		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 & gt 'KatjaHomeTalk'
+		act 'Further':
+			minut += 15
+			if $loc = 'Katja_dorm':
+				gt 'katja_dorm', 'talk'
+			else
+				gt 'KatjaHomeTalk'
+			end
+		end
 	end
 end
 
@@ -1139,7 +1345,14 @@ if $ARGS[0] = 'bj_talk1':
 				'<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 & gt 'KatjaHomeTalk'
+				act 'Continue':
+					minut += 15
+					if $loc = 'Katja_dorm':
+						gt 'katja_dorm', 'talk'
+					else
+						gt 'KatjaHomeTalk'
+					end
+				end
 			end
 			act'Yes':
 				cla & *clr
@@ -1162,7 +1375,14 @@ if $ARGS[0] = 'bj_talk1':
 			'<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 & gt 'KatjaHomeTalk'
+			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
@@ -1173,14 +1393,28 @@ if $ARGS[0] = 'bj_talk2':
 		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 & gt 'KatjaHomeTalk'
+		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 & gt 'KatjaHomeTalk'
+		act 'Continue':
+			minut += 15
+			if $loc = 'Katja_dorm':
+				gt 'katja_dorm', 'talk'
+			else
+				gt 'KatjaHomeTalk'
+			end
+		end
 	end
 	
 	act'It''s whatever':
@@ -1188,21 +1422,42 @@ if $ARGS[0] = 'bj_talk2':
 		'"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 & gt 'KatjaHomeTalk'
+		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 & gt 'KatjaHomeTalk'
+		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 & gt 'KatjaHomeTalk'
+		act 'Continue':
+			minut += 15
+			if $loc = 'Katja_dorm':
+				gt 'katja_dorm', 'talk'
+			else
+				gt 'KatjaHomeTalk'
+			end
+		end
 	end	
 end
 
@@ -1223,7 +1478,14 @@ if $ARGS[0] = 'hornykiss':
 				katjaQW['horny'] += 5
 				'Katja giggles and pushes your face away from her.'
 
-				act 'Change the subject':minut += 15 & gt 'KatjaHomeTalk'
+				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':
@@ -1283,8 +1545,16 @@ if $ARGS[0] = 'tender_kiss':
 					'<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 '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'
@@ -1323,9 +1593,17 @@ if $ARGS[0] = 'tender_kiss':
 					'<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'
+					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
@@ -1653,8 +1931,16 @@ if $ARGS[0] = 'preventation_talk':
 	'"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': gt 'KatjaHomeTalk'
-	if mey_vika['key'] = 1:
+	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'
@@ -1854,15 +2140,16 @@ 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.' 
+		'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. You then spend the next few minutes talking excitedly about what you know about the program.'
+		'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'
@@ -1881,8 +2168,16 @@ if $ARGS[0] = 'boy_no':
 	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': gt 'KatjaHomeTalk'
-	if mey_vika['key'] = 1:
+	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'
@@ -1897,8 +2192,16 @@ if $ARGS[0] = 'boy_yes':
 	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': gt 'KatjaHomeTalk'
-	if mey_vika['key'] = 1:
+	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'
@@ -1916,7 +2219,9 @@ if $ARGS[0] = 'fisting_ask':
 		*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 mey_vika['key'] = 1:
+		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'

+ 134 - 31
locations/katjaEvDin.qsrc

@@ -50,7 +50,13 @@ if $ARGS[0] = 'kiss':
 				'<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'
+				act 'Further':
+					if $loc = 'Katja_dorm':
+						gt 'katja_dorm', 'talk'
+					else
+						gt 'KatjaHomeTalk'
+					end
+				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>'
@@ -72,7 +78,11 @@ if $ARGS[0] = 'kiss':
 				act 'Accept Katja''s decision':
 					gs 'arousal', 'end'
 					gs 'stat'
-					gt 'KatjaHomeTalk'
+					if $loc = 'Katja_dorm':
+						gt 'katja_dorm', 'talk'
+					else
+						gt 'KatjaHomeTalk'
+					end
 				end
 
 				gs 'willpower', 'sex', 'force', 'hard'
@@ -91,7 +101,9 @@ if $ARGS[0] = 'kiss':
 							gs 'stat'
 							'Katja pushes your arms apart and pulls away, you understand that she doesn''t want more.'
 
-							if mey_vika['key'] = 1:
+							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'
@@ -161,7 +173,13 @@ if $ARGS[0] = 'kiss':
 							'<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'
+							act 'Further':
+								if $loc = 'Katja_dorm':
+									gt 'katja_dorm', 'talk'
+								else
+									gt 'KatjaHomeTalk'
+								end
+							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>'
@@ -174,8 +192,16 @@ if $ARGS[0] = 'kiss':
 		gs 'stat'
 		'Katja turns and begins collecting books, pretending that nothing has happened.'
 
-		act 'Talk about something else': gt 'KatjaHomeTalk'
-		if mey_vika['key'] = 1:
+		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 'Smile and leave the room': gt 'mey_home', 'start'
 		else
 			act 'Say goodbye and leave':gt 'pav_residential'
@@ -221,17 +247,24 @@ if $ARGS[0] = 'strapon_main':
 	end
 
 	if katjaQW['horny'] < 0:katjaQW['horny'] = 0
+	gs 'arousal', 'end'
 
-	act 'Get dressed  and talk about something else': gt 'KatjaHomeTalk'
-	if mey_vika['key'] = 1:
+	act 'Get dressed  and 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 '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
@@ -407,19 +440,23 @@ if $ARGS[0] = 'sex':
 			katjaQW['slut'] += 1
 			katjaQW['horny'] = min(katjaQW['horny'], 40)
 			'Katja is embarrassed and pulls her hand away from you.'
+			gs 'arousal', 'end'
 
 			act 'Talk about something else':
-				gs 'arousal', 'end'
-				gt 'KatjaHomeTalk'
+				if $loc = 'Katja_dorm':
+					gt 'katja_dorm', 'talk'
+				else
+					gt 'KatjaHomeTalk'
+				end
 			end
-			if mey_vika['key'] = 1:
+			if $loc = 'katja_dorm':
+				act 'Stop talking': gt 'katja_dorm', 'start'
+			elseif mey_vika['key'] = 1:
 				act 'Leave the room': 
-					gs 'arousal', 'end'
 					gt 'mey_home', 'start'
 				end
 			else
 				act 'Say goodbye and go home':
-					gs 'arousal', 'end'
 					gt 'pav_residential'
 				end
 			end
@@ -447,9 +484,18 @@ if $ARGS[0] = 'sex':
 
 			act 'Talk about something else':
 				gs 'arousal', 'end'
-				gt 'KatjaHomeTalk'
+				if $loc = 'Katja_dorm':
+					gt 'katja_dorm', 'talk'
+				else
+					gt 'KatjaHomeTalk'
+				end
 			end
-			if mey_vika['key'] = 1:
+			if $loc = 'katja_dorm':
+				act 'Stop talking': 
+					gs 'arousal', 'end'
+					gt 'katja_dorm', 'start'
+				end
+			elseif mey_vika['key'] = 1:
 				act 'Leave the room': 
 					gs 'arousal', 'end'
 					gt 'mey_home', 'start'
@@ -499,9 +545,18 @@ if $ARGS[0] = 'kuni':
 	else
 		act 'Talk about something else':
 			gs 'arousal', 'end'
-			gt 'KatjaHomeTalk'
+			if $loc = 'Katja_dorm':
+				gt 'katja_dorm', 'talk'
+			else
+				gt 'KatjaHomeTalk'
+			end
 		end
-		if mey_vika['key'] = 1:
+		if $loc = 'katja_dorm':
+			act 'Stop talking': 
+				gs 'arousal', 'end'
+				gt 'katja_dorm', 'start'
+			end
+		elseif mey_vika['key'] = 1:
 			act 'Leave the room': 
 				gs 'arousal', 'end'
 				gt 'mey_home', 'start'
@@ -541,9 +596,18 @@ if $ARGS[0] = 'fisting':
 	else
 		act 'Talk about something else':
 			gs 'arousal', 'end'
-			gt 'KatjaHomeTalk'
+			if $loc = 'Katja_dorm':
+				gt 'katja_dorm', 'talk'
+			else
+				gt 'KatjaHomeTalk'
+			end
 		end
-		if mey_vika['key'] = 1:
+		if $loc = 'katja_dorm':
+			act 'Stop talking':
+				gs 'arousal', 'end'
+				gt 'katja_dorm', 'start'
+			end
+		elseif mey_vika['key'] = 1:
 			act 'Leave the room': 
 				gs 'arousal', 'end'
 				gt 'mey_home', 'start'
@@ -580,9 +644,18 @@ if $ARGS[0] = 'kuni_p':
 	else
 		act 'Talk about something else':
 			gs 'arousal', 'end'
-			gt 'KatjaHomeTalk'
+			if $loc = 'Katja_dorm':
+				gt 'katja_dorm', 'talk'
+			else
+				gt 'KatjaHomeTalk'
+			end
 		end
-		if mey_vika['key'] = 1:
+		if $loc = 'katja_dorm':
+			act 'Stop talking':
+				gs 'arousal', 'end'
+				gt 'katja_dorm', 'start'
+			end
+		elseif mey_vika['key'] = 1:
 			act 'Leave the room': 
 				gs 'arousal', 'end'
 				gt 'mey_home', 'start'
@@ -627,7 +700,11 @@ if $ARGS[0] = 'kuni_dom':
 					gs 'arousal', 'end'
 					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
-					gt 'pav_residential'
+					if $loc = 'katja_dorm':
+						gt 'uni_dorm', 'second_floor'
+					else
+						gt 'pav_residential'
+					end
 				end
 			else
 				act 'Say goodbye and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -647,7 +724,11 @@ if $ARGS[0] = 'kuni_dom':
 						gs 'arousal', 'end'
 						gs 'willpower', 'pay', 'resist'
 						gs 'stat'
-						gt 'pav_residential'
+						if $loc = 'katja_dorm':
+							gt 'uni_dorm', 'second_floor'
+						else
+							gt 'pav_residential'
+						end
 					end
 				else
 					act 'Decline and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -678,7 +759,11 @@ if $ARGS[0] = 'kuni_dom':
 								gs 'arousal', 'end'
 								gs 'willpower', 'pay', 'resist'
 								gs 'stat'
-								gt 'pav_residential'
+								if $loc = 'katja_dorm':
+									gt 'uni_dorm', 'second_floor'
+								else
+									gt 'pav_residential'
+								end
 							end
 						else
 							act 'Decline and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -704,7 +789,11 @@ if $ARGS[0] = 'kuni_dom':
 									gs 'arousal', 'end'
 									gs 'willpower', 'pay', 'resist'
 									gs 'stat'
-									gt 'pav_residential'
+									if $loc = 'katja_dorm':
+										gt 'uni_dorm', 'second_floor'
+									else
+										gt 'pav_residential'
+									end
 								end
 							else
 								act 'Decline and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -733,8 +822,16 @@ if $ARGS[0] = 'kuni_dom':
 								'You take the time to rest and relax yourself, coming down from the pounding you just received. A few minutes later, she kisses your back and your neck before climbing off you and pulling the dildo out slowly. Getting up yourself, you see her taking the harness off and tossing it aside. You notice that her thighs are slick with sweat and her own juices. She grabs you by the neck and gives you a passionate, deep and very long kiss. "My god <<$pcs_nickname>>, that was amazing! I hope I didn''t hurt you too much and you enjoyed it as much as I did. No wonder boys fuck us like that, that was amazing!" she says upon breaking the kiss.'
 								'She falls back on her bed, still breathing hard and looking at you with a somewhat possessive look as you lie down next to her. "It was wonderful. I''m glad you enjoyed it too, even if you were a little rough at times." She leans over and gives you another kiss. "Sorry, but that was beyond description. We''re going to have to do that again sometime." The two of you lay quietly for a while, basking in the aftermath. You know something in your relationship has changed and you think for the better. After a while, you get up and get dressed.'
 
-								act 'Talk about something else': gt 'KatjaHomeTalk'
-								if mey_vika['key'] = 1:
+								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 go home':gt 'pav_residential'
@@ -747,8 +844,14 @@ if $ARGS[0] = 'kuni_dom':
 		end
 	else
 		gs 'arousal', 'end'
-		act 'Talk about something else': gt 'KatjaHomeTalk'
-		if mey_vika['key'] = 1:
+		if $loc = 'Katja_dorm':
+			gt 'katja_dorm', 'talk'
+		else
+			gt 'KatjaHomeTalk'
+		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 go home':gt 'pav_residential'