[fixed] forced go home events when living with katja. Home hours for katja from 5pm to 3pm.

[changed] leave house time from 15 minutes to 5. Renamed several actions for uniformity.
[removed] non-functional underwear removal action from bedroom menu (use bathroom)
[added] sleep action to bedroom menu. improved bedroom alarm display.

locations/KatjaHome.qsrc

@@ -4,7 +4,7 @@ cla
 *clr
 gs 'stat'
 '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_home.jpg"></center>'
-if hour >= 17 and week < 6 and kanikuli = 0 and hour < 20 or hour >= 9 and week >= 6 and kanikuli = 0 and hour < 20 or hour >= 9 and kanikuli > 0 and hour < 20:
+if (hour >= 15 and week < 6 and kanikuli = 0 and hour < 20) or (hour >= 9 and week >= 6 and kanikuli = 0 and hour < 20) or (hour >= 9 and kanikuli > 0 and hour < 20):
 	'The door is opened by Katjas mother. "Hello <<$pcs_nickname>>. Katja is in her room. Come in."'
 
 	act 'Go to Katjas room':

locations/KatjaHomeTalk.qsrc

@@ -143,11 +143,11 @@ if $ARGS[0] = '':
 	!					act 'Further': gt 'katja_sex','park'
 	!				end
 	!			end
-				if flag_KissEV = 2: 
+				if flag_KissEV = 2:
 					'"Who do you think kissed more of the boys?" she asked.'
 					Act 'Not to argue':
 						*clr & cla
-						flag_KissEV = 0 
+						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 readily agreed. Kate breathed a sigh of relief.'
 						'"I shouldn''t have asked anyways." she said, kissing you with gratitude. '
@@ -187,7 +187,7 @@ if $ARGS[0] = '':
 
 				act 'Further':gt 'KatjaHomeTalk'
 			end
-			
+
 			if npc_sex['A14'] = 1 and pcs_dom >= KatjaDom:
 				act 'Offer to take a walk in the Park':
 					pcs_dom-=1
@@ -236,7 +236,11 @@ if $ARGS[0] = '':
 			KatConCheck = daystart
 			'"Are you pregnant? Why didn''t you tell me? I thought we were closer than that. I told you that I was pregnant. I need to think. We''ll talk later"'
 
-			act 'Say goodbye and go home':gt 'pavResidential'
+			if mey_vika['key'] = 1:
+				Act 'Leave the room': gt 'mey_home', 'start'
+			else
+				act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+			end
 		elseif knowKatjaPreg = 1 and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				cls
@@ -254,7 +258,11 @@ if $ARGS[0] = '':
 			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"'
 
-			act 'Say goodbye and go home':gt 'pavResidential'
+			if mey_vika['key'] = 1:
+				Act 'Leave the room': gt 'mey_home', 'start'
+			else
+				act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+			end
 		elseif KatjaPreg = 0 and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				cls
@@ -275,7 +283,11 @@ if $ARGS[0] = '':
 			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. "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."'
-			act 'Say goodbye and go home':gt 'pavResidential'
+			if mey_vika['key'] = 1:
+				Act 'Leave the room': gt 'mey_home', 'start'
+			else
+				act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+			end
 		elseif knowKatjaPreg = 1 and knowpreg = 1 and pregchem > 0 and (KatjaConflict = 0 or katjaconflict = 2) and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				cls
@@ -317,19 +329,23 @@ if $ARGS[0] = '':
 		end
 	end
 
-	act 'Say goodbye and go home':gt 'pavResidential'
+	if mey_vika['key'] = 1:
+		Act 'Leave the room': gt 'mey_home', 'start'
+	else
+		act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+	end
 end
 
 if $ARGS[0] = 'katjaknows':
-   cla
-   npc_pregtalk['A14'] = 1
+	cla
+	npc_pregtalk['A14'] = 1
 	*nl
 	if KatjaSlut < 60 and $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
 		minut += 10
 		'"So, who''s the baby-daddy?" Katja teases.'
 		''
 		'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?"' 
+		'"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 of me."'
 		'Katja blushes and you give her a quick kiss before she can react.'
 
@@ -421,7 +437,7 @@ end
 if $ARGS[0] = 'katjaknows1':
 	cla
 	npc_pregtalk['A14'] = 1
-	if KatjaSlut < 60: 
+	if KatjaSlut < 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?"'
@@ -432,11 +448,11 @@ 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 & gt 'KatjaHomeTalk'
 	elseif KatjaSlut >= 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.'  
+		'"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 millimeters 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'
@@ -481,12 +497,12 @@ if $ARGS[0] = 'shower_kiss_home':
 	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 begins to rub it.'
-	
+
 	gs 'arousal', 'kiss', 10, 'dom', 'lesbian'
 	gs 'arousal', 'vaginal_finger', 10, 'dom', 'lesbian'
 	minut -= 10
 	gs 'stat'
-	
+
 	if KatjaSlut >= 10:
 		'Katja, gently but firmly puts you on the edge of the tub.'
 	elseif KatjaSlut < 10:
@@ -500,7 +516,7 @@ if $ARGS[0] = 'shower_kiss_home':
 		KatjaSlut += 1
 
 		if npc_sex['A14'] = 0:npc_sex['A14'] = 1 & girl += 1 & KatjaSlut += 5 & KatjaLust += 5
-		
+
 		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.'
@@ -511,7 +527,7 @@ if $ARGS[0] = 'shower_kiss_home':
 		$orgasm_or = 'yes'
 		gs 'arousal', 'cuni', 10, 'dom', 'lesbian'
 		gs 'stat'
-	
+
 		act 'Get out of the shower':
 			gs 'arousal', 'end'
 			gt 'KatjaHomeTalk'
@@ -639,7 +655,7 @@ if $ARGS[0] = 'Sextalk':
 
 						gs 'arousal', 'cuni_give', 15, 'sub', 'lesbian'
 						gs 'stat'
-						
+
 						act 'Further':
 							gs 'arousal', 'end'
 							gt 'KatjaHomeTalk'

locations/Katja_Tanga.qsrc

@@ -245,7 +245,7 @@ if $ARGS[0] = 'dance':
 				'Katja unbuttons her shirt and exposes her pretty bra.'
 			end
 		elseif KatjaSlut <= 80:
-			if 	KatjaHorny > 70:
+			if	KatjaHorny > 70:
 				pcs_horny += 10
 				KatjaHorny += 10
 				KatjaSlut += 1
@@ -262,7 +262,7 @@ if $ARGS[0] = 'dance':
 				act 'Tease her':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_disco6_3.jpg"></center>'
-					'You pull at the edge of your dress, exposing just a bit of one of your nipples. Katja indignant squeaks."Hey I showed you mine.",  You responded with a laugh "I already showed you my pussy, so that makes us even."'
+					'You pull at the edge of your dress, exposing just a bit of one of your nipples. Katja indignant squeaks."Hey I showed you mine.",	You responded with a laugh "I already showed you my pussy, so that makes us even."'
 					act 'Move away': gt'gdkin'
 				end
 			else

locations/katjaEv.qsrc

@@ -18,9 +18,9 @@ if $ARGS[0] = '':
 		'KatjaMastr - <<KatjaMastr>>'
 	end
 
-	act 'Say goodbye and go home':gt 'pavResidential'
+	act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
 
-	act 'Go with Katja': gt 'katjaEv', '1'
+	act 'Go with Katja': minut += 5 & gt 'katjaEv', '1'
 end
 
 if $ARGS[0] = '1':
@@ -80,7 +80,11 @@ if $ARGS[0] = '3':
 
 	if katjaLernTimes >= 10: gs 'katjaEv', 'learning'
 
-	act 'Say goodbye and go home':minut += 15 & gt 'pavResidential'
+	if mey_vika['key'] = 1:
+		Act 'Leave the room': gt 'mey_home', 'start'
+	else
+		act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+	end
 end
 
 if $ARGS[0] = 'learning':
@@ -118,7 +122,11 @@ if $ARGS[0] = '5':
 			'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
 			'You refuse to kiss Katja and she gets mad at you.'
 
-			act 'Say goodbye and go home':minut += 15 & gt 'pavResidential'
+			if mey_vika['key'] = 1:
+				Act 'Leave the room': gt 'mey_home', 'start'
+			else
+				act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+			end
 		end
 	end
 
@@ -136,7 +144,11 @@ if $ARGS[0] = '5':
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
 			'You refuse to kiss Katja and she gets mad at you.'
-			act 'Say goodbye and go home':minut += 15 & gt 'pavResidential'
+			if mey_vika['key'] = 1:
+				Act 'Leave the room': gt 'mey_home', 'start'
+			else
+				act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+			end
 		end
 	end
 end
@@ -146,8 +158,11 @@ if $ARGS[0] = '6':
 
 	if katjaDeystRand = 0:
 		gs 'KatjaHomeTalk', 'hornykiss'
-
-		act 'Say goodbye and go home':minut += 15 & KatjaHorny -= 5 & gt 'pavResidential'
+		if mey_vika['key'] = 1:
+			Act 'Leave the room': gt 'mey_home', 'start'
+		else
+			act 'Say goodbye and leave':minut += 5 & KatjaHorny -= 5 & gt 'pavResidential'
+		end
 
 		exit
 	elseif katjaDeystRand = 1:
@@ -176,7 +191,7 @@ if $ARGS[0] = '6':
 				gt 'placer'
 			end
 
-			act 'Refuse and go home':minut += 15 & KatjaHorny -= 5 & gt 'pavResidential'
+			act 'Refuse and go home':minut += 5 & KatjaHorny -= 5 & gt 'pavResidential'
 
 			exit
 		elseif npc_sex['A14'] = 0:
@@ -184,10 +199,10 @@ if $ARGS[0] = '6':
 			KatjaLust += 1
 			'Katja starts chatting about boys, cosmetics and school with you.'
 
-			act 'Say goodbye and go home':minut += 15 & gt 'pavResidential'
+			act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
 		end
 	elseif katjaDeystRand = 2 and pcs_sweat >= 20:
-		'Katja wrinkled her nose "<<$pcs_nickname>>, you''re all sweaty. Do you want to use my shower?"'
+		'Katja wrinkled her nose "<<$pcs_nickname>>, you''re all sweaty. Do you want to take shower?"'
 
 		act 'Have a shower':
 			cls
@@ -219,7 +234,11 @@ if $ARGS[0] = '6':
 						'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
 						'You leave the shower and walk into the Katjas room. You chat with Katja, but she seems suddenly busy with other things.'
 
-						act 'Say goodbye and go home':minut += 15 & gt 'pavResidential'
+						if mey_vika['key'] = 1:
+							Act 'leave the room': gt 'mey_home', 'start'
+						else
+							act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+						end
 					end
 				end
 
@@ -262,7 +281,11 @@ if $ARGS[0] = '6':
 										'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
 										'You leave the shower and walk into the Katjas room. You chat with Katja, but she seems to have things to do.'
 
-										act 'Say goodbye and go home':minut += 15 & gt 'pavResidential'
+										if mey_vika['key'] = 1:
+											Act 'Smile and leave the room': gt 'mey_home', 'start'
+										else
+											act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+										end
 									end
 								end
 								if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
@@ -292,7 +315,11 @@ if $ARGS[0] = '6':
 										'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
 										'You leave the shower and walk into the Katjas room. You chat with Katja, but she seems to have things to do.'
 
-										act 'Say goodbye and go home':minut += 15 & gt 'pavResidential'
+										if mey_vika['key'] = 1:
+											Act 'Smile and leave the room': gt 'mey_home', 'start'
+										else
+											act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+										end
 									end
 								end
 								if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
@@ -320,12 +347,19 @@ if $ARGS[0] = '6':
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
 					'You leave the shower and walk into the Katjas room. You chat with Katja, but she seems to have things to do.'
-					act 'Say goodbye and go home':minut += 15 & gt 'pavResidential'
+					if mey_vika['key'] = 1:
+						Act 'Smile and leave the room': gt 'mey_home', 'start'
+					else
+						act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+					end
 				end
 			end
 		end
-
-		act 'Refuse and go home':minut += 15 & KatjaHorny -= 5 & gt 'pavResidential'
+		if mey_vika['key'] = 1:
+			Act 'Refuse leave the room': gt 'mey_home', 'start'
+		else
+			act 'Refuse and go home':minut += 5 & KatjaHorny -= 5 & gt 'pavResidential'
+		end
 
 		exit
 	elseif katjaDeystRand = 2 and pcs_sweat < 20:
@@ -390,7 +424,11 @@ if $ARGS[0] = 'kiss':
 						if pcs_dom < KatjaDom:
 							'Katja pushes your arms apart and pulls away, you understand that she doesn''t want more.'
 
-							act 'Say goodbye and go home':minut += 15 & gt 'pavResidential'
+							if mey_vika['key'] = 1:
+								Act 'Leave the room': gt 'mey_home', 'start'
+							else
+								act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+							end
 						else
 							'Katja freezes in your arms and you stroke her body and kiss her neck.'
 
@@ -461,9 +499,9 @@ if $ARGS[0] = 'kiss':
 		'Katja turns and begins collecting books, pretending that nothing has happened.'
 
 		if mey_vika['key'] = 1:
-			Act 'Smile thoughtfully and leave the room': gt 'mey_home', 'start'
+			Act 'Smile and leave the room': gt 'mey_home', 'start'
 		else
-			act 'Say goodbye and go home':gt 'pavResidential'
+			act 'Say goodbye and leave':gt 'pavResidential'
 		end
 	end
 end

locations/katjaEvDin.qsrc

@@ -27,9 +27,17 @@ if $ARGS[0] = 'strapon_main':
 
 	if katjahorny < 0:katjahorny = 0
 
-	act 'Say goodbye and go home':
-		gs 'arousal', 'end'
-		gt'pavResidential'
+	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 'pavResidential'
+		end
 	end
 end
 
@@ -40,19 +48,19 @@ if $ARGS[0] = 'strapon_bj':
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon_bj.jpg"></center>'
 	'You grab a handful of Katja red hair and keep a good hold on it. You pull her face over to the strap-on and smack her lips with it a couple of times till she opens her mouth. Once her mouth is open you slide it in and let her suck it for a bit. Then you buck your hips forward and start fucking her mouth and throat with the strap-on, your hand in her hair holding her head in place as you do.'
-	
+
 	gs 'arousal', 'foreplay', 5, 'dom', 'lesbian'
 	gs 'stat'
-	
+
 	if KatjaThroat >= 30:
 		KatjaSlut += 1
 		katjahorny += 5
 		'Katja expertly swallows the strap-on to the base, Her eyes moistened, but she''s very practiced at deep throating and easily takes the dildo all the way down her throat.'
-		
+
 		gs 'arousal', 'foreplay', 5, 'dom', 'lesbian'
 		gs 'stat'
 	end
-		
+
 	if KatjaThroat >= 10 and KatjaThroat < 30:
 		katjahorny -= 5
 		'Katja tries to accommodate the dildo plunging down her throat but she keeps gagging a little, her eyes shed tears and a bit of saliva drips from her mouth but she is able to take it.'
@@ -61,14 +69,14 @@ if $ARGS[0] = 'strapon_bj':
 		katjahorny -= 10
 		'Katja tries to accommodate the dildo plunging down her throat but she keeps gagging, her eyes shed tears, snot runs from her nose, saliva drips from her mouth.'
 	end
-	
+
 	if katjahorny >= 100:
 		katjahorny = 0
 		KatjaSlut += 5
 		KatjaOrgasm = daystart
 		'Katja moans and bites her lip looking like she is already about to orgasm just from sucking the strap-on. "You look so pretty with that big cock slamming home in your throat baby." You say to her. Katja''s hand darts to her clit and she starts to rub herself furiously. In mere seconds she pushes herself over the edge and starts to tremble violently, all the while moaning around the big cock still pumping her throat.'
 	end
-	
+
 	act'Further':gt 'KatjaEvDin', 'strapon_main'
 end
 
@@ -82,10 +90,10 @@ if $ARGS[0] = 'strapon_miss':
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon_miss.jpg"></center>'
 	'You lay Katja on her back and spread her legs. You crawl between her legs, rubbing the dildo against her wet pussy. Then you slip it into her and start to fuck her, you slowly work the strap-on balls deep into her, as you start to fuck her hard.'
-	
+
 	gs 'arousal', 'vaginal_strap_give', 5, 'lesbian', 'dom'
 	gs 'stat'
-	
+
 	gs 'npcbreeder', 'insert'
 	if npcbrokehymen = 1:
 		'Katja groans and bites her lip in pain as the strap-on enters her. You notice visible blood on the strap-on, you just popped Katja''s cherry.'
@@ -109,17 +117,17 @@ if $ARGS[0] = 'strapon_miss':
 			'You fuck Katja hard and fast, she moans in an excited voice "Faster, harder, deeper, yes fuck me!"'
 		end
 		KatjaSlut+=1
-	end	
-	
+	end
+
 	KatjaSex += 1
-	
+
 	if katjahorny >= 100:
 		katjahorny = 0
 		KatjaSlut += 5
 		KatjaOrgasm = daystart
 		'Katja moans and bites her lip looking like she is already about to orgasm. You lock gazes with her while you increase the pace of your thrusts. After only a few seconds you feel her starting to tremble violently. You let her ride out her orgasm while you slowly push the strap-on in and out of her a few more times listening to her sweet moaning while she tries to regain her breath.'
 	end
-	
+
 	act'Further':gt 'KatjaEvDin', 'strapon_main'
 end
 
@@ -128,10 +136,10 @@ if $ARGS[0] = 'strapon_anal':
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon_anal.jpg"></center>'
 	'You roll Katja onto her stomach and spread her legs, spreading her ass cheeks with your hands you being to rub her anus with your fingers. Grabbing a bottle of lube you lube up your fingers and slide one then a second one into her ass, working it a bit and lubing it up. Then you stop and lube up the strap-on. Once it is good and lubed you lean over her and slip the strap-on in her ass and being anally fucking her.'
-	
+
 	gs 'arousal', 'anal_strap_give', 5, 'lesbian', 'dom'
 	gs 'stat'
-	
+
 	if KatjaAnus >= 30:
 		katjahorny += 10
 		KatjaSlut += 1
@@ -156,14 +164,14 @@ if $ARGS[0] = 'strapon_anal':
 		'Katja squeals when you push the strap-on in her very tight ass, even with all the lube it is very tight and slow going to work it balls deep into her. She cries out in pain, wincing, with tears flowing from her eyes as you fuck her ass.'
 	end
 	KatjaAnus += 1
-	
+
 	if katjahorny >= 100:
 		katjahorny = 0
 		KatjaSlut += 5
 		KatjaOrgasm = daystart
 		'Katja moans and bites her lip looking like she is already about to orgasm. You lock gazes with her while you increase the pace of your thrusts. After only a few seconds you feel her starting to tremble violently. You let her ride out her orgasm while you slowly push the strap-on in and out of her a few more times listening to her sweet moaning while she tries to regain her breath.'
 	end
-	
+
 	act'Further':gt 'KatjaEvDin', 'strapon_main'
 end
 
@@ -199,9 +207,9 @@ if $ARGS[0] = 'shower_kiss':
 
 	gs 'arousal', 'kiss', 5, 'lesbian', 'dom'
 	gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'dom'
-	minut -= 5	
+	minut -= 5
 	gs 'stat'
-	
+
 	if KatjaSlut >= 10:
 		'Katja, gently but firmly puts you on the edge of the tub.'
 	elseif KatjaSlut < 10:
@@ -215,7 +223,7 @@ if $ARGS[0] = 'shower_kiss':
 		KatjaSlut += 1
 
 		if npc_sex['A14'] = 0:npc_sex['A14'] = 1 & girl += 1 & KatjaSlut += 5 & KatjaLust += 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.'
@@ -226,10 +234,18 @@ if $ARGS[0] = 'shower_kiss':
 		$orgasm_or = 'yes'
 		gs 'arousal', 'cuni', 5, 'lesbian', 'dom'
 		gs 'stat'
-		
-		act 'Say goodbye and go home':
-			gs 'arousal', 'end'
-			gt 'pavResidential'
+
+		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 'pavResidential'
+			end
 		end
 	end
 
@@ -259,12 +275,12 @@ if $ARGS[0] = 'sex':
 		if KatjaSlut >= 20:
 			KatjaSlut += 1
 			'Katja puts her hand between your legs. You become aroused and your pussy becomes wet.'
-			
+
 			gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'dom'
 			gs 'stat'
 
 			act 'Spread your legs': gt 'KatjaEvDin', 'kuni_p'
-			
+
 		else
 			KatjaLust += 1
 			'Katja is embarrassed and pulls her hand away from you.'
@@ -286,11 +302,11 @@ if $ARGS[0] = 'sex':
 			KatjaSlut += 1
 			KatjaLust += 1
 			'You put your hand between her legs, feeling Katja''s hot and wet pussy under her panties.'
-			
+
 			gs 'arousal', 'vaginal_finger_give', 5, 'lesbian', 'dom'
 			gs 'stat'
 
-			act 'Lick Katja': gt 'KatjaEvDin', 'kuni'			
+			act 'Lick Katja': gt 'KatjaEvDin', 'kuni'
 		else
 			KatjaSlut += 1
 			KatjaLust += 1
@@ -328,7 +344,7 @@ if $ARGS[0] = 'kuni':
 
 	gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
 	gs 'stat'
-		
+
 	if pcs_horny >= 50:
 		'Katja smiles at you "That was great <<$pcs_nickname>>. Spread your legs."'
 		act 'Spread your legs': gt 'KatjaEvDin', 'kuni_p'
@@ -357,7 +373,7 @@ if $ARGS[0] = 'kuni_p':
 	$orgasm_or = 'yes'
 	gs 'arousal', 'cuni', 5, 'lesbian', 'dom'
 	gs 'stat'
-	
+
 	if katjahorny > 0:
 		'Katja smiles at you "That was great <<$pcs_nickname>>. Come on now, my turn."'
 		act 'Lick Katja': gt 'KatjaEvDin', 'kuni'
@@ -385,10 +401,10 @@ if $ARGS[0] = 'kuni_dom':
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/kuni2.jpg"></center>'
 	'You lean in between Katja''s legs and begin to lick her pussy, Katja moans and closes her eyes, enjoying your tongue. After a while Katja shivers and her pussy starts to contract rhythmically.'
 	'Katja clutches your hair, no longer able to hold back, she moans loudly as she orgasms. Then she pushes your head away from her.'
-	
+
 	gs 'arousal', 'cuni_give', 5, 'lesbian', 'sub'
 	gs 'stat'
-	
+
 	if pcs_horny >= 50:
 		if rand(0,1) = 0:
 			'Katja smiles at you "That was great <<$pcs_nickname>>, spread your legs."'
@@ -399,7 +415,7 @@ if $ARGS[0] = 'kuni_dom':
 			act 'Say goodbye and go home':
 				gt 'pavResidential'
 			end
-			
+
 			act 'Beg her to give you a turn.':
 				*clr & cla
 				pcs_horny += 5
@@ -410,7 +426,7 @@ if $ARGS[0] = 'kuni_dom':
 				act 'Decline and go home':
 					gt 'pavResidential'
 				end
-				
+
 				act 'Agree':
 					*clr & cla
 					pcs_horny += 10
@@ -429,7 +445,7 @@ if $ARGS[0] = 'kuni_dom':
 
 						gs 'arousal', 'bj', 5, 'lesbian', 'sub', 'rough', 'deepthroat'
 						gs 'stat'
-			
+
 						if pcs_dom - sub + 30 > KatjaDom: act 'Decline and go home':gt 'pavResidential'
 						act 'Agree to round two':
 							*clr & cla
@@ -445,7 +461,7 @@ if $ARGS[0] = 'kuni_dom':
 
 							gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub', 'rough'
 							gs 'stat'
-						
+
 							if pcs_dom - sub + 30 > KatjaDom: act 'Decline and go home':gt 'pavResidential'
 							act 'Surrender your ass':
 								*clr & cla
@@ -454,10 +470,10 @@ if $ARGS[0] = 'kuni_dom':
 								'You do as she says. You grab your butt cheeks and pull them apart. Almost at once you feel the head of the dildo pressing against your asshole as she says. "That''s my good little butt slut. We will have you trained in no time."'
 								'With only the lubrication from your own pussy on the dildo she slips it into your ass. She is gentle at first, working it in slowly. She strokes in and out at this slow steady pace, as she works it deeper and deeper into your ass. Once she has pushes it the full length in your ass and there is no more to push in, she starts to pick up the pace and fuck you harder. You start moaning in a mixture of pleasure and pain. It hurts a little but you also love it, not just the feeling but also being used like this.'
 								'She keeps picking up speed, soon the sounds of the skin from her hips slapping against your butt can be heard over your moaning. She seems to lose herself in the act. She stops paying attention to you. You don''t even think she would notice if you orgasmed. After a long time she starts panting. You can tell she is starting to get physically tired and worn out.'
-								
+
 								gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub', 'rough'
 								gs 'stat'
-							
+
 								if pcs_horny = 100:
 									analorgasm += 1
 									$orgasm_or = 'custom'

locations/mey_home.qsrc

@@ -16,16 +16,18 @@ if $args[0] = 'door':
 	gs'stat'
 	'<center><h4><font color="maroon">Meynold''s house</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/mey_home.jpg"></center>'
+	*nl
 
 	if mey_vika['key'] = 1:
 		'You open the door with your key and enter the house.'
 
 		act 'Enter': gt 'mey_home', 'start'
-	elseif hour < 20 and ((week < 6 and hour >= 17) or (week >= 6 and hour > 10)):
+	elseif hour < 20 and ((week < 6 and hour >= 15) or (week >= 6 and hour > 10)):
 		if mey_vika['mey_vika_qw'] = 27: gt 'mey_tamara_events', 'next_meet'
 		if mey_vika['mey_vika_qw'] > 27:
 			*clr
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_tea1.jpg"></center>'
+			*nl
 			'You walk up to the Meynolds residence and ring the doorbell...'
 			'After a short wait, you hear the lock click and you see Katja''s mother Kathy and sister Vicky standing by the door: <br><do>Oh hi, <<$pcs_nickname>>, welcome! Come in, make yourself at home.</do>'
 
@@ -47,7 +49,7 @@ if $args[0] = 'door':
 		'No one opens the door, it looks like nobody''s home or they are all asleep.'
 		'Maybe you should try again at a more sociable time?'
 
-		act 'Go back': minut += 10 & gt 'pavResidential'
+		act 'Leave': minut += 5 & gt 'pavResidential'
 	end
 end
 
@@ -63,10 +65,11 @@ if $ARGS[0] = 'start':
 	gs'stat'
 	'<center><h4><font color="maroon">Hall</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/corridor.jpg"></center>'
+	*nl
 	'A large and bright hall, this "hallway" stretches for quite a bit, you''ve never seen anything like this before! There is a mirror covering half of one of the walls. You see the kitchen from the hallway, there''s a big oval dining table.'
 	'There are stairs leading to the second floor. You can also see two doors where the signs say "Toilet" and "Bathroom".'
 
-	act '<b>Leave the house</b>': gt 'pavResidential'
+	act 'Leave the house':minut += 5 & gt 'pavResidential'
 
 	if mey_vika['mey_vika_qw'] = 30 and mey_vika['qw_day'] ! daystart and hour = 23: gs 'mey_vika_events', 'case_gift'
 	if week mod 2 ! 0 and mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! daystart and hour = 16 and minut >= 30: gs 'mey_vika_events', 'gym0'
@@ -142,6 +145,7 @@ if $ARGS[0] = '1':
 	gs 'stat'
 	'<center><h4><font color="maroon">Kitchen</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/kitchen.jpg"></center>'
+	*nl
 	'The kitchen is huge and luxurious. It is decorated in a minimalist high-tech style. An oval dining room table standing in the middle of the room. The appliances are all hidden. The kitchen is sparkling clean.'
 
 	act 'Return to hallway': gt 'mey_home', 'start'
@@ -195,6 +199,7 @@ if $ARGS[0] = '2':
 	$location_type = 'bathroom'
 	'<center><b><font color = maroon>Bathroom</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
+	*nl
 	'A luxurious bathroom looking like the five-star hotel bathrooms you read about in the magazines.'
 	'Above the beautiful vanity and sink there is a huge <a href="exec:gt ''mirror'',''start''">mirror</a>.'
 	!acts copy from [shulgabath]
@@ -216,14 +221,22 @@ if $ARGS[0] = '3':
 	gs 'stat'
 	'<center><h4><font color="maroon">Guest room</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/guestroom.jpg"></center>'
-	'It feels and looks like a standard room in a hotel. There is a <a href="exec:gt ''bed'', ''start''">bed</a> and an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a>, a small <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) and a desk.'
+	*nl
+	'It feels and looks like a standard room in a hotel.'
+	'There is a <a href="exec:gt ''bed'', ''start''">bed</a>, a small <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing), and a desk.'
+	if budilnikOn = 0:
+	'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & gt ''<<$loc>>''">off</a>.'
+else
+	'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & gt ''<<$loc>>''">on</a>.'
+end
 	'A <a href="exec:gt ''mirror'', ''start''">mirror</a> hangs on the wall near the front door.'
 	if komp = 1:'Your <a href="exec:gt ''Komp'',''start''">laptop</a> is on the desk.'
 
-	act 'Exit to hallway':
+	act 'Return to the hallway':
 		if ($clothingworntype = 'nude' or $clothingworntype = 'swimwear'):
 			*clr
 			'<center><img <<$set_imgh>> src="'+'images/pc/clothing/'+iif($pantyworntype = 'none','0','tanga')+'.jpg'+'"></center>'
+			*nl
 			'<center><font color=red><b>You can''t go out dressed like this!</b></font></center>'
 			exit
 		end
@@ -249,23 +262,13 @@ if $ARGS[0] = '3':
 			narkday = daystart
 			gs 'drugs', 'cocaine'
 			'<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
+			*nl
 			'You snort some White Lady, feeling dizzy for a moment. After that you feel fantastic, and incredibly horny.'
 
 			act 'Continue':gt 'mey_home', '3'
 		end
 	end
-
-	if $pantyworntype = 'none':
-		act 'Wear underwear':
-			gs 'underwear', 'wear'
-			gt 'mey_home', '3'
-		end
-	elseif $pantyworntype ! 'none':
-		act 'Take off your underwear':
-			gs 'underwear', 'remove'
-			gt 'mey_home', '3'
-		end
-	end
+	act 'Relax on your bed': gt 'bed', 'start'
 
 	act 'Wait':gs 'obj_din', 'wait'
 
@@ -283,6 +286,7 @@ if $ARGS[0] = '4':
 	gs 'stat'
 	'<center><h4><font color="maroon">Lounge</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/hall.jpg"></center>'
+	*nl
 	'Spacious room with a sofa and armchairs, on the wall hangs a large plasma TV, located next to the bookcase, and on the opposite side is the fireplace, from the hall there is access to a bright garden, overgrown with grapes'
 
 	act 'Return to hallway': gt 'mey_home', 'start'
@@ -302,17 +306,18 @@ if $ARGS[0] = '5':
 	gs 'stat'
 	'<center><h4><font color="maroon">Katja''s room</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/katya_room.jpg"></center>'
+	*nl
 	'Katja''s room feels like someone is living there temporarily and will soon move out. The stuff in the room are in the perfect order, depicting the feeling off a "non-residential premise".'
 	'There are numerous flowers in the pots on the windowsill, there are pots hanging on the walls and there are even plants in pots on the floor giving the room a greenhouse feeling.'
 	'There is a computer desk in one of the corners, opposite of the bed. In another corner is a hidden wardrobe. Lastly a well hidden bookshelf can be seen in the room, but it is kinda hard to spot because of wildly overgrown plants.'
 	if katjaFirstKiss >= 1:
-		if hour >= 17 and week < 6 and kanikuli = 0 and hour < 20 or hour >= 9 and week >= 6 and kanikuli = 0 and hour < 20 or hour >= 9 and kanikuli > 0 and hour < 20:
+		if (hour >= 15 and week < 6 and kanikuli = 0 and hour < 20) or (hour >= 9 and week >= 6 and kanikuli = 0 and hour < 20) or (hour >= 9 and kanikuli > 0 and hour < 20):
 			act 'Chat with Katja': gt'KatjaHomeTalk'
 		end
 	else
 		'<font color=red>Your relationship with Katja is not good enough to just barge into her room, better leave as soon as possible.</font>'
 	end
-	act '<b>Leave</b>': gt 'mey_home', 'start'
+	act 'Return to the hallway': gt 'mey_home', 'start'
 end
 
 if $ARGS[0] = '6':
@@ -326,6 +331,7 @@ if $ARGS[0] = '6':
 	gs 'stat'
 	'<center><h4><font color="maroon">Vicky''s room</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/vika_room.jpg"></center>'
+	*nl
 	'Vicky''s room is always in a mess. It''s clean, but everything is scattered all over the place. There are soft toys laying around in enormous quantities, and all the walls are plastered with posters of pop stars and film actors.'
 	'There''s a laptop on the table by the window, it accidentally brings a sense of orderliness. The stacks of magazines resemble music speakers. The rooms centerpiece is the ginormous bed, next to it is a wardrobe. There''s a lone chair somewhere in the corner hidden under all the stuff.'
 
@@ -343,6 +349,7 @@ if $ARGS[0] = '7':
 	gs 'stat'
 	'<center><h4><font color="maroon">Tamara''s room</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara_room.jpg"></center>'
+	*nl
 	'You would say Tamara Mikhailovna''s room resembles an office, if it was not for the bed in the corner. There''s a computer on a desk, a wardrobe, and a big but a pretty modest bed. The room is quite small and cramped. There are no decorations but one, a sword hanging on the wall. It''s unclear what it''s doing there.'
 
 	act 'Return to hallway': gt 'mey_home', 'start'
@@ -360,6 +367,7 @@ if $ARGS[0] = '8':
 	gs 'stat'
 	'<center><h4><font color="maroon">Garden</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/courtyard.jpg"></center>'
+	*nl
 	'The garden is quite small for the house and overgrown, most of the space is taken up by a small pool.'
 	'A car belonging to Tamara Mikhailovna is parked on the drive next to the garden.'
 	if hour = 7 and minut >= 30 and week < 6: