[revert] Changes to Nat from HS reversed by request as incomplete

glife.qproj

@@ -748,7 +748,6 @@
 		<Location name="arturQW"/>
 	</Folder>
 	<Folder name="Natasha Belova">
-		<Location name="natbel_init"/>
 		<Location name="natbel_chat"/>
 		<Location name="natbel_cp_1"/>
 		<Location name="natbel_friend"/>

locations/journal_quests.qsrc

@@ -291,16 +291,34 @@ if $ARGS[0] = 'start':
 		*nl
 		'<center><h3>Natasha Belova</h3></center>'
 		*nl
-		'<b>Natasha''s paths ahave been re-organised to add new content, so please report bugs with save points for the attention of Hooded Silence on our Discord group.</b>'
-		
-		if NatbelQW['Debt'] > 0:
-			*nl
-			gs 'natbel_init', 'nat_debt_timer'
-			$StatusM
-		end
+		'<b>Natasha''s paths are being updated, there is new content avaialble but the quest hints will be completed for next release.</b>'
 		*nl
-		!! pull journal status
-		gs 'natbel_init', 'journal'
+		!! This might need a note about debt required for most actions to be available, was not sure how to handle that part though.
+		if NatbelQW['QWstage'] >= 11:
+			'This is the end of Natasha''s quest line, for now.'
+		elseif NatbelQW['QWstage'] = 10:
+			'I should check Natasha''s fridge. I''m sure there''s something I can use to keep corrupting her. It would be a good time to do this when she is in the laundry room.'
+		elseif NatbelQW['QWstage'] = 9:
+			'I bet Olu would love to give Natasha a ride. I should see what he thinks of other girls joining us. If I haven''t had sex with him yet, I will need to do that first.'
+		elseif NatbelQW['QWstage'] = 8:
+			'Kolka seems pretty horny these days. I could invite him over to Natasha''s apartment in the afternoon. I should talk to him about it, after teasing him in the mornings when I have her carry my books.'
+		elseif NatbelQW['QWstage'] = 7:
+			'I think Natasha could learn to please me. I should have her practice with her tongue when I am in her room.'
+		elseif NatbelQW['QWstage'] = 6:
+			'Natasha has a kinky side, she just doesn''t realize it yet. Next time I''m in her bedroom, I should see how she handles bodily fluids in her mouth.'
+		elseif NatbelQW['QWstage'] = 5:
+			'Natasha is pretty much my slave now. Let''s see how well she can handle worshipping my feet the next time I''m in her bedroom.'
+		elseif NatbelQW['QWstage'] = 4:
+			'I need to have Natasha carry my books to school if I want to keep corrupting her. I can do that before school, in the hallway of my parents apartment.'
+		elseif NatbelQW['QWstage'] = 3:
+			'Since Natasha cannot seem to pay back her debt to me, I should start forcing her to do things for me. Making her do my homework seems like a good place to start. I will let her do that for me a few times, and see what else I can get her to do.'
+		elseif NatbelQW['QWstage'] = 2:
+			'Natasha has borrowed money from me. In return, she has to do my homework whenever I tell her. Once her 30 days are up, I should ask for my money back and see where it goes because I don''t actually expect her to be able to pay it back.'
+		elseif NatbelQW['QWstage'] = 1:
+			'Natasha agreed to help me with my homework. I just need to visit her in her apartment after school. I should chat with her a few times before bringing up anything involving money though.'
+		else
+			'Natasha seems really smart. I should try to befriend her to help me with my grades. During school breaks seems like a good time to chat her up. It might take a lot of effort for her to trust me though.'
+		end
 		*nl
 		*nl
 		'<center><h3>Volleyball</h3></center>'

locations/korrPar.qsrc

@@ -142,7 +142,7 @@ if nodimkaK >= rand(7,10) and DimkaWarnedToday = 0 and DimaRudeBlock = 0:
 end
 
 !! Natasha Belova quest checks
-gs 'natbel_init', 'quests'
+!!gs 'natbel_init', 'quests'
 
 
 if func('homes_properties', 'is_current_home') = 0:

locations/natbelEv.qsrc

@@ -1,4 +1,42 @@
 # natbelEv
+!!2022/06/19
+
+!! Events concerning Natasha Belova (and her mother)
+
+!!Natasha Schedule - a new one needed at a later time but for now this will work - Alaratt
+!!NatashaLoc tells us where Natasha is located
+!!----------------------------------------------
+!!NatashaLoc = 0 (Natasha not home)
+!!NatashaLoc = 1 (Natasha in the hallway)
+!!NatashaLoc = 2 (Natasha in her room)
+!!NatashaLoc = 3 (Natasha in the kitchen)
+!!NatashaLoc = 4 (Natasha in the livingroom)
+!!NatashaLoc = 5 (Natasha in her mother''s room)
+!!NatashaLoc = 6 (Natasha in the bathroom)
+!!NatashaLoc = 7 (Natasha in the laundry room)
+!!---------------------------------------------
+if $ARGS[0] = 'nat_schedule':
+	NatashaShower = 0
+	NatashaLoc = rand(0,7)
+	if NatashaLoc = 0:
+		$NatashaLocMsg = 'Natasha isn''t home right now.'
+	elseif NatashaLoc = 1:
+		$NatashaLocMsg = 'Oh, here''s Natasha. I''ll leave you two to it.'
+	elseif NatashaLoc = 2:
+		$NatashaLocMsg = 'Natasha is in her room. You know the way.'
+	elseif NatashaLoc = 3:
+		$NatashaLocMsg = 'Natasha is in the kitchen. You know the way.'
+	elseif NatashaLoc = 4:
+		$NatashaLocMsg = 'Natasha is in the living room. You know the way.'
+	elseif NatashaLoc = 5:
+		$NatashaLocMsg = 'Natasha was in her room just a little while ago. You''ll have to go and look for her.'
+	elseif NatashaLoc = 6:
+		NatashaShower = 1
+		$NatashaLocMsg = 'Natasha is busy taking a shower at the moment. You can wait in her room or come sit with me in the living room if you''d like.'
+	elseif NatashaLoc = 7:
+		$NatashaLocMsg = 'Natasha is doing some laundry. You know the way.'
+	end
+end
 
 !! Event handling for Natasha''s storyline
 if $ARGS[0] = 'natbelQuest':
@@ -65,6 +103,7 @@ if $ARGS[0] = 'natbelQuest':
 		end
 	end
 end
+
 if $ARGS[0] = 'natbel_go':
 	menu_off = 1
 	*clr & cla
@@ -80,9 +119,16 @@ if $ARGS[0] = 'natbel_go':
 		'<center><b><font color="maroon"><<$npc_firstname[''A16'']>> <<$npc_lastname[''A16'']>></font></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big16.jpg"></center>'
 		'It takes you 10 minutes to walk to Natasha''s apartment. You discuss all the small stuff in your lives that amuse you.'
-		gs 'natbel_init', 'trackers'
+
+		if NatbelQW['QWstage'] < 2:
+			act 'Go into the apartment': gt 'natbelEv', 'study_together'
+		else
+			act 'Study together': gt 'natbelEv', 'study_together'
+			if NatbelQW['FriendLover'] = 0: gs 'natbel_cp_1', 'make_her_do_homework'
+		end
 	end
 end
+
 if $ARGS[0] = 'study_together':
 	*clr & cla
 	menu_off = 1
@@ -306,7 +352,10 @@ if $ARGS[0] = 'carrybooks':
 		'Natasha grabs both of your bags and you head to school.'
 		act 'Go to school': gt 'gschool_grounds', 'main'	
 	end
-	act 'Go to school': gt 'gschool_grounds', 'main'	
+	act 'Go to school': 
+		minut += 9
+		gt 'gschool_grounds', 'main'	
+	end
 end
 
 if $ARGS[0] = 'schoolwalk':
@@ -317,6 +366,7 @@ if $ARGS[0] = 'schoolwalk':
 		'As you reach the bottom of the stairs, you notice Kolka coming down as well.'
 		'Deciding to tease him a bit you grab the bottom of Natasha''s skirt and pull it up while you bend over yourself to show him both of your asses.'
 		'Natasha quickly slaps your hand away and the two of you resume your walk to school. As you exit the hall you can''t hear Kolka''s footsteps. He must have stopped in his tracks at the sight.'
+		minut += 5
 		act 'Continue on to school': gt 'gschool_grounds', 'main'
 	else
 		gt 'gschool_grounds', 'main'

locations/natbel_chat.qsrc

@@ -47,7 +47,7 @@ if $ARGS[0] = 'chat':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/bedtalk.jpg"></center>'
 				'"You''re pregnant? Who''s the father?"'
-				if $wombthfath = '':
+				if $wombthfath = '' or $wombthfathID = 'unknown':
 					'"Honestly, I don''t even know."'
 					'"Really? That''s crazy." Natasha whispers, rubbing her midriff longingly.'
 
@@ -98,24 +98,187 @@ if $ARGS[0] = 'chat':
 			end
 		end
 	end
-
-	if NatbelQW['chrispaid'] <= 3 and NatbelQW['QWstage'] ! 99:
+	if NatbelQW['chrispaid'] <= 3:
 		act 'Talk about money':
 			minut += 15
 			gs 'stat'
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/bedtalk.jpg"></center>'
 			'You talk about the price of clothes and cosmetics for a while. Natasha seems to know a lot about the latest fashion, even though she can''t afford it.'
-			!! set up gates:
-			if NatbelQW['QWstage'] = 1:
-				'Natasha looks down in embarrassment. "<<$pcs_nickname>>, you have lots of money. Could you lend me 5000 <b>₽</b>? I will pay it back, I give you my word."'
-				gs 'natbel_chat', 'debttalk'
-			elseif NatbelQW['QWstage'] >= 2:
-				'Suddenly Natasha says: "Hey <<$pcs_nickname>>, you seem to have tons of cash, could you lend me some money, please? I swear I''ll pay you back before you even miss it."'
-				gs 'natbel_chat', 'debttalk'
+			if NatbelQW['FriendLover'] = 0:
+				if NatbelQW['QWstage'] = 1 and NatbelQW['BestFriend'] >= 3 and NatbelQW['Debt'] = 0 and money >= 5000:
+					'Natasha looks down in embarrassment. "<<$pcs_nickname>>, you have lots of money. Could you lend me 5000 <b>₽</b>? I will pay it back, I give you my word."'
+
+					act 'Don''t give her the money': gt 'natbel_chat', 'chat'
+					act 'Lend Natasha the 5000 <b>₽</b>':
+						*clr & cla
+						if NatbelQW['QWstage'] = 1: NatbelQW['QWstage'] = 2
+						minut += 5
+						NatbelQW['Debt'] = 5000
+						money -= 5000
+						NatbelQW['MoneyGivenTimes'] += 1
+						NatbelQW['DebtDay'] = daystart + 30
+						NatbelQW['BestFriend'] += 1
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/bedtalk.jpg"></center>'
+						'"Hmmm. Ok, but you have to do my homework whenever I ask, and you still have to pay me back."'
+						'You get your purse and give Natasha the money. Natasha is delighted and says that she will pay it back in a month.'
+
+						act 'Keep talking': gt 'natbel_chat', 'chat'
+						act 'Stop talking': gt 'natbelapt', 'natroom'
+					end
+				elseif NatbelQW['QWstage'] >= 2 and NatbelQW['Debt'] = 0 and money >= 2000:
+					'Suddenly Natasha says: "Hey <<$pcs_nickname>>, you seem to have tons of cash, could you lend me some money, please? I swear I''ll pay you back before you even miss it."'
+
+					act 'Don''t give her the money': gt 'natbel_chat', 'chat'
+					act 'Give her the money (2000 <b>₽</b>)':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/bedtalk.jpg"></center>'
+						NatbelQW['Debt'] = 2000
+						money -= 2000
+						NatbelQW['MoneyGivenTimes'] += 1
+						gs 'stat'
+						if NatbelQW['MoneyGivenTimes'] < 4:
+							!!set timer for repayment
+							NatbelQW['DebtDay'] = daystart + 30
+							gs 'stat'
+							'"Ok. I am sure I can think of more things for you to do for me." You get your purse and give Natasha the money.'
+							'"Thank you <<$pcs_nickname>>, you''re the best. I promise you''ll have it back within a month."'
+
+							act 'Keep talking': gt 'natbel_chat', 'chat'
+							act 'Stop talking': gt 'natbelapt', 'natroom'
+						elseif NatbelQW['MoneyGivenTimes'] < 7:
+							'"Or I could ...uhm... I could do those things again for you to... to repay you."'
+							'"Ok. I am sure I can think of more things for you to do for me." You get your purse and give Natasha the money.'
+							'"Thank you <<$pcs_nickname>>, you''re the best. I promise you won''t regret it."'
+
+							act 'Keep talking': gt 'natbel_chat', 'chat'
+							act 'Stop talking': gt 'natbelapt', 'natroom'
+						else
+							'You get your purse and give Natasha the money.'
+							'"I see someone wants to be my little bitch again. You''re going to do whatever I want until you''ve worked off that debt."'
+							'"You know I will, I''ve proven that haven''t I?"'
+
+							act 'Keep talking': gt 'natbel_chat', 'chat'
+							act 'Stop talking': gt 'natbelapt', 'natroom'
+						end
+					end
+				elseif NatbelQW['Debt'] <= 0 and ((money < 2000 and NatbelQW['BestFriend'] < 3) or (money < 5000 and NatbelQW['BestFriend'] >= 3)):
+					'Suddenly Natasha says: "Hey <<$pcs_nickname>>, you seem to have tons of cash, could you lend me '+iif(NatbelQW['BestFriend'] >= 3, '5000', '2000')+', please? I swear I''ll pay you back before you even miss it."'
+					'You shake your head. "Sorry Natasha, I don''t have that much money with me."'
+
+					act 'Keep talking': gt 'natbel_chat', 'chat'
+					act 'Stop talking': gt 'natbelapt', 'natroom'
+				elseif NatbelQW['Debt'] > 0 and NatbelQW['DebtDay'] > daystart:
+					'Natasha promises you to repay the <<NatbelQW[''Debt'']>><b>₽</b> in <<NatbelQW[''DebtDay'']-daystart>> days.'
+
+					act 'Keep talking': gt 'natbel_chat', 'chat'
+					act 'Stop talking': gt 'natbelapt', 'natroom'
+				elseif NatbelQW['Debt'] > 0 and NatbelQW['DebtDay'] <= daystart:
+					'Natasha looks at the floor, "<<$pcs_nickname>>, I... I''m sorry, I don''t have your money."'
+					if NatbelQW['QWstage'] = 2:
+						act 'Demand repayment':
+							NatbelQW['QWstage'] = 3
+							minut += 5
+							gs 'stat'
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/bedtalk.jpg"></center>'
+							'You decide not to reduce Natasha''s debt. You angrily confront her, demanding that she return the money to you, one way or another. Natasha curls up into a ball on her bed: "<<$pcs_nickname>>, I''m so sorry! I will do anything you say! Anything!"'
+							*nl
+							'Natasha looks at you with fearful eyes, and you''re getting some ideas as to how you could "use" her. She did say "anything," after all...'
+							'You snarl at her with an evil hiss: "You''ll be my little pet until you''ve worked off every last Kopeck. And don''t you dare tell anyone about this!"'
+							'You give her a soft slap on the cheek to test your newfound power over her rather than to hurt her, but she flinches and nods profusely. Looks like you''ve got your own little slave now.'
+							if lernHome > 0:
+								gs 'natbel_cp_1', 'make_her_do_homework'
+							else
+								*clr & cla
+								minut += 60
+								menu_off = 1
+								NatbelQW['homework'] += 1
+								gs 'stat'
+								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/study.jpg"></center>'
+								'Natasha sighs with a resigned look as she nods meekly.'
+								'"I should make you do my homework but I''ve already done it, so instead you can write out some lines for me. Write ''I will do as <<$pcs_firstname>> tells me'' one thousand times."'
+								'You relax on her bed and start daydreaming for a while.'
+								'You are woken out of your daydream by Natasha saying: "It''s done <<$pcs_nickname>>."'
+								'"Good, let me have a look at it."'
+								'You tear the paper up and throw the pieces in the bin.'
+								act 'Let''s hope she learned her lesson': gt 'natbelapt', 'natroom'
+							end
+						end
+					else
+						act 'Demand repayment':
+							minut += 5
+							gs 'stat'
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/bedtalk.jpg"></center>'
+							if NatbelQW['MoneyGivenTimes'] < 4:
+								'You decide not to reduce Natasha''s debt. You angrily confront her, demanding that she return the money to you, one way or another. Natasha curls up into a ball on her bed: "<<$pcs_nickname>>, I''m so sorry! I will do anything you say! Anything!"'
+								*nl
+								'Natasha looks at you with fearful eyes, and you are getting some more ideas as to how you could "use" her this time. She did say "anything," after all...'
+								'You snarl at her with an evil hiss: "You''ll be my little pet again until you''ve worked off every last Kopeck. And don''t you dare tell anyone about this!"'
+								'You give her a soft slap on the cheek to test your newfound power over her rather than to hurt her, but she flinches and nods profusely. Looks like you''ve got your own little slave now.'
+
+								act 'Keep talking': gt 'natbel_chat', 'chat'
+								act 'Stop talking': gt 'natbelapt', 'natroom'
+							else
+								'"Well, you did agree to be my toy again if you couldn''t pay me back. I guess we''re going to have some more fun very soon Natasha."'
+
+								act 'Keep talking': gt 'natbel_chat', 'chat'
+								act 'Stop talking': gt 'natbelapt', 'natroom'
+							end
+						end
+					end
+						gs 'natbel_chat', 'debt_forgive'
+					else
+					act 'Keep talking': gt 'natbel_chat', 'chat'
+					act 'Stop talking': gt 'natbelapt', 'natroom'
+				end
+			else
+				act 'Keep talking': gt 'natbel_chat', 'chat'
+				act 'Stop talking': gt 'natbelapt', 'natroom'
+				if NatbelQW['chrispaid'] = 1  and (NatbelQW['evt_day'] + 1) <= daystart:
+					act 'Natasha repaid Christina''s debt':
+						*clr & cla
+						minut += 5
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha1.jpg"></center>'
+						'"Have you repaid Christina yet?" you ask Natasha.'
+						'At the mere mention of Christina''s name, Natasha''s eyes go wide and she covers her face with her hands. Remaining silent not trusting her voice, she simply nods her head to confirm that she did.'
+						'You look at her with concern, "Did something else happen with her?"'
+						'"No, nothing happened," she says with a sigh. "She''s just such a bully, she frightens me!"'
+						'You give her a reassuring smile, "I''m sorry. If I''d realized that she worried you so much, I''d have offered to deal with her for you."'
+						'Natasha shakes her head, "No, I wouldn''t have asked you to do that! I know she picks on you just as much as she does me if not more, and besides it was my debt to pay back. But it was still so nerve-wracking!"'
+						'"Well, it''s done now," you answer. "So let''s put it behind us. Just don''t borrow money from her - or anyone - anymore, okay?"'
+						'Natasha looks at you with a weak smile, "Don''t worry, <<$pcs_nickname>>. I''ve learned my lesson! And thank you for helping me clear all my debts; it was such a worry."'
+						'Your smile widens, "I''m glad I could help." After a brief pause you continue "I need to think about how to deal with Christina..."'
+						'A worried looking Natasha pleads with you. "Don''t do anything and get hurt because of me."'
+						'Giving her a reassuring smile you reply. "Don''t worry about me with Christina, she''s my problem to deal with. Okay?"'		
+						'Natasha nods in confirmation.'
+
+						NatbelQW['chrispaid'] = 4
+						act 'Return to her room': gt 'natbelapt', 'natroom'
+					end
+				elseif NatbelQW['chrispaid'] = 3 and (NatbelQW['evt_day'] + 1) <= daystart:
+					act 'You paid the debt to Christina':
+						*clr & cla
+						NatbelQW['chrispaid'] = 4
+						gs 'npc_relationship', 'modify', 'A16', 'adore'
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha1.jpg"></center>'
+						'"I just wanted to check that there aren''t any more debts," you say to her. "You haven''t forgotten any, have you?"'
+						'Natasha shakes her head. "No, there are no more debts, <<$pcs_nickname>>."'
+						'You give her a quizzical look, "Any more problems with Christina?"'
+						'Hearing her name, Natasha shudders. "No, but I''m doing everything I can to keep my distance from that bully!"'
+						'You nod, "Yeah, that''s a good plan for now. I really need to find a way to deal with her. I''m tired of her and her shit."'
+						'"Please, be careful, <<$pcs_nickname>>. I don''t want to see you getting hurt because of me," Natasha pleads.'
+						'"I will, you don''t have to worry about me," you respond. "She''s my problem to solve."'
+
+						act 'Return to her room': gt 'natbelapt', 'natroom'
+					end
+				end
 			end
 		end
-	end		
+	end
 	if NatbelQW['chrispaid'] = 4:
 		act 'Hangout':
 
@@ -204,16 +367,16 @@ if $ARGS[0] = 'chat':
 			end
 		end
 
-		if (NatbelQW['evt_day'] + 7 <= daystart) and NatbelQW['shopping'] = 2 and NatbelQW['disco_invite'] = 0:
+		if (NatbelQW['evt_day'] + 7 <= daystart) and NatbelQW['shopping'] = 2 and disco_invite = 0:
 			act 'Talk about shopping spree': gt 'natbel_friend', 'love_jct'
 		end
-		if NatbelQW['disco_invite'] = 1 :
+		if disco_invite = 1 :
 			act 'Arrange a disco date': gt 'natbel_friend', 'disco_1'
 		end
-		if NatbelQW['disco_invite'] = 2 and week = 6 and (hour >= 19 and hour <= 20):
+		if disco_invite = 2 and week = 6 and (hour >= 19 and hour <= 20):
 			act 'Go to disco' : gt 'natbel_friend', 'disco_2'
 		end
-		if NatbelQW['disco_invite'] = 3 and NatbelQW['FriendLover'] ! 2:
+		if disco_invite = 3 and NatbelQW['FriendLover'] ! 2:
 			act 'Kiss Natasha' : gt 'natbel_friend', 'kissing_games'
 		end
 
@@ -280,7 +443,7 @@ if $ARGS[0] = 'chat':
 		act 'Follow her':gt 'natbelEv', 'snack'
 	end
 
-	if NatbelQW['FriendLover'] >= 1 and NatbelQW['disco_invite'] < 1:
+	if NatbelQW['FriendLover'] >= 1 and disco_invite < 1:
 		act 'Kiss her':
 			gs 'npc_relationship', 'modify', 'A16', 'like'
 			gs 'stat'
@@ -305,12 +468,12 @@ if $ARGS[0] = 'natknows':
 		'"So, who''s the father?"'
 	end
 	*nl
-	if $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
+	if $wombthfathID = 'A34' and npc_rel['A34'] > 50:
 		'You smile. "I''m sure you won''t be surprised to hear that Kolka got me pregnant."'
 		'"Wow. He really has a thing for knocking girls up." She says while touching her own pregnant belly. "I didn''t expect that to extend to his own sister, though."'
 		'"Yeah, you know how it is. Some men just want to conquer as many wombs as they can, it doesn''t matter who they''re attached to," you reply. "But don''t worry, he still has a permanent claim on yours. We''ll make sure he has plenty of opportunities to keep getting you pregnant. Who knows how many of his children you''ll have before he''s finished."'
 		'Natasha''s face goes completely red with embarrassment, and she starts to mumble something before you cut her off with a passionate kiss. When you finally break the kiss, she is still visibly red, but she isn''t protesting your suggestion. You know what she wants.'
-	elseif $wombthfath = '':
+	elseif $wombthfath = '' or $wombthfathID = 'unknown':
 		'"I don''t actually know." You laugh. "I guess my life has gotten a little out of hand recently."'
 		'"Yeah, it sounds like it has." She smiles. "Regardless, I''m glad I won''t be going through pregnancy alone."'
 	else
@@ -330,87 +493,32 @@ if $ARGS[0] = 'natknows1':
 		'"Is it the same father as last time?"'
 	end
 	*nl
-	if $wombthfath = 'Kolka' and npc_rel['A34'] > 50 and arrpos('$ChildThFath',$wombthfath) >= 0 and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1:
-		'"Yeah, I think you''re right. I''m not sure if I''ll let him get me pregnant again after this though." You pull your face as close to Natasha''s as you can without actually touching her and sultrily whisper, "You, on the other hand, are going to be his personal breeding bitch. There won''t be a single moment where your womb doesn''t contain either his baby or his cum. He is going to keep you knocked up until he gets bored with you and leaves you a single mother."'
-		'As soon as you finish speaking, you give Natasha a deep, passionate kiss. You pull away, a string of saliva still hanging between you. Natasha just stares at you, unable to respond, but very visibly aroused.'
-	elseif arrpos('$ChildThFath','Kolka') = arrsize('$ChildThFath')-1:
-		'"Not this time. My body is far too fantastic to limit myself. My brother can''t be the only person to put a baby in me," you joke. "Plus, he already has a baby factory. That''s your job." You punctuate your sentence by kissing Natasha. After you pull away, she stares at you in silence, face red, trying to determine if you were serious.'
-	elseif $wombthfath = 'Kolka' and npc_rel['A34'] > 50 and arrpos('$ChildThFath',$wombthfath) = arrsize('$ChildThFath')-1:
-		'"No, this time it''s Kolka''s," you inform her.'
-		'"Wow. He really has a thing for knocking girls up," she says.'
-		'"Yeah, it seems like he does," you reply. "But don''t worry, we''ll make sure he has plenty of opportunities to keep getting you pregnant. Who knows how many of his children you''ll have before he''s finished."'
-		'Natasha''s face goes completely red with embarrassment, and she starts to mumble something before you cut her off with a passionate kiss. When you finally break the kiss, she is still visibly red, but she isn''t protesting your suggestion. You know what she wants.'
-	elseif $wombthfath ! 'Kolka' and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1:
-		'"Yeah. I guess I needed him to give me another baby before I could be satisfied," you say jokingly.'
-		'"Well, I hope you find satisfaction," she laughs.'
-	elseif $wombthfath ! 'Kolka' and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1:
-		'"No, I needed to test drive someone else before I could decide what father I like best."'
-		'"If you''re going that route, you might as well keep shopping around." You laugh together for a while before moving on to another topic.'
+!! testing if believed same dad as last born kid
+	if $wombthfathID = $ChildThFath[kid-1]:
+		if $wombthfathID = 'A34':
+			'"Yeah, I''m not sure if I''ll let him get me pregnant again after this though." You pull your face as close to Natasha''s as you can without actually touching her and sultrily whisper, "You, on the other hand, are going to be his personal breeding bitch. There won''t be a single moment where your womb doesn''t contain either his baby or his cum. He is going to keep you knocked up until he gets bored with you and leaves you a single mother."'
+			'As soon as you finish speaking, you give Natasha a deep, passionate kiss. You pull away, a string of saliva still hanging between you. Natasha just stares at you, unable to respond, but very visibly aroused.'
+		else
+			'"Yeah. I guess I needed him to give me another baby before I could be satisfied," you say jokingly.'
+			'"Well, I hope you find satisfaction," she laughs.'
 		end
-	act 'Continue':gt 'natbelapt', 'natroom'
-end
-
-
-!! Debt dialogue:
-
-if $ARGS[0] = 'debttalk':
-	if NatbelQW['Debt'] = 0 and NatbelQW['MoneyGivenTimes'] <= 3:
-		act 'Don''t give her the money': gt 'natbel_chat', 'chat'  
-		if money >= 5000:
-			act 'Lend Natasha the 5000 <b>₽</b>':
-				*clr & cla
-				if NatbelQW['QWstage'] = 1: NatbelQW['QWstage'] = 2
-				minut += 5
-				NatbelQW['Debt'] = 5000
-				money -= 5000
-				NatbelQW['MoneyGivenTimes'] += 1
-				!!set timer for repayment
-				NatbelQW['DebtDay'] = daystart + 30
-				NatbelQW['BestFriend'] += 1
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/bedtalk.jpg"></center>'
-				'"Hmmm. Ok, but you have to do my homework whenever I ask, and you still have to pay me back."'
-				'You get your purse and give Natasha the money. Natasha is delighted and says that she will pay it back in a month.'
-			end
-		elseif money >= 2000:
-			act 'Give her the money (2000 <b>₽</b>)':
-				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/bedtalk.jpg"></center>'
-				NatbelQW['Debt'] = 2000
-				money -= 2000
-				NatbelQW['DebtDay'] = daystart + 30
-				NatbelQW['MoneyGivenTimes'] += 1
-				gs 'stat'
-				if NatbelQW['MoneyGivenTimes'] > 7:
-					'You get your purse and give Natasha the money.'
-					'"I see someone wants to be my little bitch again. You''re going to do whatever I want until you''ve worked off that debt."'
-					'"You know I will, I''ve proven that haven''t I?"'
-				elseif NatbelQW['MoneyGivenTimes'] > 5:
-					'"Or I could ...uhm... I could do those things again for you to... to repay you."'
-					'"Ok. I am sure I can think of more things for you to do for me." You get your purse and give Natasha the money.'
-					'"Thank you <<$pcs_nickname>>, you''re the best. I promise you won''t regret it."'
-				else
-					'"Ok. I am sure I can think of more things for you to do for me." You get your purse and give Natasha the money.'
-					'"Thank you <<$pcs_nickname>>, you''re the best. I promise you''ll have it back within a month."'
-
-				end
-			end				
-		elseif NatbelQW['Debt'] <= 0 and ((money < 2000 and NatbelQW['BestFriend'] < 3) or (money < 5000 and NatbelQW['BestFriend'] >= 3)):
-				'Suddenly Natasha says: "Hey <<$pcs_nickname>>, you seem to have tons of cash, could you lend me '+iif(NatbelQW['BestFriend'] >= 3, '5000', '2000')+', please? I swear I''ll pay you back before you even miss it."'
-				'You shake your head. "Sorry Natasha, I don''t have that much money with me."'
-		elseif NatbelQW['Debt'] > 0 and NatbelQW['DebtDay'] > daystart:
-				'Natasha promises you to repay the <<NatbelQW[''Debt'']>><b>₽</b> in <<NatbelQW[''DebtDay'']-daystart>> day(s).'
-		
+	else
+!! reactions of different dads
+		if $wombthfathID = 'A34':
+			'"No, this time it''s Kolka''s," you inform her.'
+			'"Wow. He really has a thing for knocking girls up," she says.'
+			'"Yeah, it seems like he does," you reply. "But don''t worry, we''ll make sure he has plenty of opportunities to keep getting you pregnant. Who knows how many of his children you''ll have before he''s finished."'
+			'Natasha''s face goes completely red with embarrassment, and she starts to mumble something before you cut her off with a passionate kiss. When you finally break the kiss, she is still visibly red, but she isn''t protesting your suggestion. You know what she wants.'
+		elseif $ChildThFath[kid-1] = 'A34':
+			'"Not this time. My body is far too fantastic to limit myself. My brother can''t be the only person to put a baby in me," you joke. "Plus, he already has a baby factory. That''s your job." You punctuate your sentence by kissing Natasha. After you pull away, she stares at you in silence, face red, trying to determine if you were serious.'
+		else
+			'"No, I needed to test drive someone else before I could decide what father I like best."'
+			'"If you''re going that route, you might as well keep shopping around." You laugh together for a while before moving on to another topic.'
 		end
 	end
-	!!if NatbelQW['MoneyGivenTimes'] = 0:
-
-	!!elseif NatbelQW['MoneyGivenTimes'] = 1:
-	!!elseif NatbelQW['MoneyGivenTimes'] = 2:
-	!!end
-	act 'Keep talking': gt 'natbel_chat', 'chat'
-	act 'Stop talking': gt 'natbelapt', 'natroom'
+	act 'Continue':gt 'natbelapt', 'natroom'
 end
+
 if $ARGS[0] = 'debt_forgive':
 	if NatbelQW['Debt'] > 0 and NatbelQW['DebtDay'] <= daystart:
 		if NatbelQW['QWstage'] = 2:

locations/natbel_cp_1.qsrc

@@ -36,18 +36,30 @@ NatbelQW['panty_stuff_day'] is set to daystart each morning you stuff Natasha''s
 }
 
 
-!! This is the book carrying event in Natasha''s questline -- needs a check to see if it isn''t a holiday
-
+if $ARGS[0] = 'nat_debt_timer':
+	if NatbelQW['QWstage'] >= 2 and NatbelQW['Debt'] > 0:
+		*nl
+		NatbelQW['DebtTimeLeft'] = NatbelQW['DebtDay'] - daystart
+		if NatbelQW['DebtTimeLeft'] > 0:
+			'Natasha has promised to pay you back in <<NatbelQW[''DebtTimeLeft'']>> day(s).'
+		else
+			'Natasha promised to pay you back by now, maybe you should talk to her about it.'
+		end
+	end
+end
 
+!! This is the book carrying event in Natasha''s questline -- needs a check to see if it isn''t a holiday
 if $ARGS[0] = 'carrybooks':
+	minut += 4
 	menu_off = 1
-	if NatbelQW['corruption'] = 4: NatbelQW['corruption'] = 5
+	gs 'stat'
+	if NatbelQW['QWstage'] = 4: NatbelQW['QWstage'] = 5
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/natgetreadyschool.jpg"></center>'
 	'When you head over to Natasha''s apartment to pick her up her mother opens the door and tells you she''s in her room getting ready so you go there.'
 	'As you open the door you see Natasha sitting on her small sofa, pulling up her stockings'
 	'"Ready to go?" You ask her, as you put your bag next to her.'
-	if NatbelQW['corruption'] >= 7:
+	if NatbelQW['QWstage'] >= 7:
 		gs 'willpower', 'exhib', 'force', 'easy'
 		if will_cost <= pcs_willpwr:
 			act 'Lift her skirt (<<will_cost>> Willpower)':
@@ -60,6 +72,7 @@ if $ARGS[0] = 'carrybooks':
 				'"We have some time before school." You tell her while you start pulling off her skirt and panties.'
 				'"Today you''ll be wearing them a little differently." You say, pushing her back on the couch. "Open your legs."'
 				'Natasha obediently opens her legs for you. Showing off her pretty pussy. Not wasting any time you start playing with her, first rubbing her lips, then focussing more on her clit as you watch closely while Natasha''s pussy gets wetter and wetter.'
+				minut += 5 
 				act 'Stuff her panties':
 					*clr & cla
 					NatbelQW['panty_stuff_day'] = daystart
@@ -69,13 +82,15 @@ if $ARGS[0] = 'carrybooks':
 					'When there''s only enough left to easily grab on in case you''d want to pull them out she stops and looks at you expectantly. "Like this <<$pcs_nickname>>?"'
 					'You reach down and push the last bit inside as well, holding them in with your finger for a bit before pulling your finger out again.'
 					'"This is how you''ll wear your panties for me at school today Natasha." You tell her. "Now put your skirt back on or we''ll be late.'
+					minut += 3
+					gs 'stat'
 					act 'Go to school': gt 'natbelEv', 'schoolwalk'
 				end
 			end
 		else
 			act 'Lift her skirt (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
-	elseif NatbelQW['corruption']> 5:
+	elseif NatbelQW['QWstage'] > 5:
 		gs 'willpower', 'exhib', 'force', 'easy'
 		if will_cost <= pcs_willpwr:
 			act 'Lift her skirt (<<will_cost>> Willpower)':
@@ -95,7 +110,10 @@ if $ARGS[0] = 'carrybooks':
 		'Natasha grabs both of your bags and you head to school.'
 		act 'Go to school': gt 'gschool_grounds', 'main'	
 	end
-	act 'Go to school': gt 'gschool_grounds', 'main'	
+	act 'Go to school': 
+		minut += 9
+		gt 'gschool_grounds', 'main'
+	end	
 end
 
 if $ARGS[0] = 'schoolwalk':
@@ -106,6 +124,7 @@ if $ARGS[0] = 'schoolwalk':
 		'As you reach the bottom of the stairs, you notice Kolka coming down as well.'
 		'Deciding to tease him a bit you grab the bottom of Natasha''s skirt and pull it up while you bend over yourself to show him both of your asses.'
 		'Natasha quickly slaps your hand away and the two of you resume your walk to school. As you exit the hall you can''t hear Kolka''s footsteps. He must have stopped in his tracks at the sight.'
+		minut += 5
 		act 'Continue on to school': gt 'gschool_grounds', 'main'
 	else
 		gt 'gschool_grounds', 'main'
@@ -114,23 +133,23 @@ end
 
 ! Only if Natasha owes you money
 if $ARGS[0] = 'make_her_do_homework':
-	if NatbelQW['corruption']>= 1  and lernHome > 0 and NatbelQW['Debt'] > 0:
+	if NatbelQW['QWstage'] >= 2 and lernHome > 0 and NatbelQW['Debt'] > 0:
 		act 'Make her do your homework':
 			*clr & cla
 			minut += 60
 			menu_off = 1
 			gs 'grades', 'homework', 'school', 'yes', 1, 2, 'A16'
 			NatbelQW['homework'] += 1
-			if NatbelQW['homework'] >= 3 and NatbelQW['corruption']= 3: NatbelQW['corruption']= 4
+			if NatbelQW['homework'] >= 3 and NatbelQW['QWstage'] = 3: NatbelQW['QWstage'] = 4
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/study.jpg"></center>'
-			if NatbelQW['corruption']= 3:
+			if NatbelQW['QWstage'] = 3:
 				'"Well Natasha, since I won''t be seeing my money anytime soon I think it''s best for now if you repay me by doing my homework for me." You tell her in a threatening voice.'
-			elseif NatbelQW['corruption']= 4:
+			elseif NatbelQW['QWstage'] = 4:
 				'"Well Natasha, on top of doing my homework for me, you''ll be carrying my books to school in the morning from now on." You tell her in a threatening voice.'
 			end
 			'Natasha sighs with a resigned look as she nods meekly and starts working on your homework as well as hers.'
-			if NatbelQW['corruption']> 5:
+			if NatbelQW['QWstage'] > 5:
 				act 'Continue': gt 'natbel_cp_1', 'hwundress'
 			else
 				'You relax on her bed and start daydreaming for a while.'
@@ -259,7 +278,7 @@ if $ARGS[0] = 'afterhomework':
 	end
 
 	gs 'willpower', 'cuni', 'force', 'easy'
-	if NatbelQW['corruption']>= 8 and will_cost <= pcs_willpwr:
+	if NatbelQW['QWstage'] >= 8 and will_cost <= pcs_willpwr:
 		act 'Take off your own clothes (<<will_cost>> Willpower)':
 			cla
 			gs 'willpower', 'pay', 'self'
@@ -267,7 +286,7 @@ if $ARGS[0] = 'afterhomework':
 			act 'Lie down and open your legs': gt 'natbel_cp_1', 'openlegs'
 			act 'Straddle her face': gt 'natbel_cp_1', 'straddleface'
 		end
-	elseif NatbelQW['corruption']>= 8 and will_cost > pcs_willpwr:
+	elseif NatbelQW['QWstage'] >= 8 and will_cost > pcs_willpwr:
 		act 'Take off your own clothes (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 	if NatbelQW['seethrough'] = 1:
@@ -341,7 +360,7 @@ end
 
 if $ARGS[0] = 'corrupt_choices':
 	if NatbelQW['Debt'] > 0 and NatbelQW['DebtDay'] <= daystart:
-		if NatbelQW['corruption']>= 5:
+		if NatbelQW['QWstage'] >= 5:
 			gs 'willpower', 'humiliation', 'force', 'easy'
 			if will_cost <= pcs_willpwr:
 				act 'Make her lick your feet (<<will_cost>> Willpower)':
@@ -353,7 +372,7 @@ if $ARGS[0] = 'corrupt_choices':
 				act 'Make her lick your feet (<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 NatbelQW['corruption']>= 6:
+		if NatbelQW['QWstage'] >= 6:
 			gs 'willpower', 'humiliation', 'force', 'easy'
 			if will_cost <= pcs_willpwr:
 				act 'Spit in face (<<will_cost>> Willpower)':
@@ -365,7 +384,7 @@ if $ARGS[0] = 'corrupt_choices':
 				act 'Spit in face (<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 NatbelQW['corruption']>= 7:
+		if NatbelQW['QWstage'] >= 7:
 			gs 'willpower', 'cuni', 'force', 'easy'
 			if will_cost <= pcs_willpwr:
 				act 'Make her lick your pussy (<<will_cost>> Willpower)':
@@ -377,7 +396,7 @@ if $ARGS[0] = 'corrupt_choices':
 				act 'Make her lick your pussy (<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 NatbelQW['corruption']>= 8 and hour >= 18 and hour < 21 and NatbelQW['KolkaFuckDay'] < daystart and NatbelQW['KolkaWantsNat'] = 1:
+		if NatbelQW['QWstage'] >= 8 and hour >= 18 and hour < 21 and NatbelQW['KolkaFuckDay'] < daystart and NatbelQW['KolkaWantsNat'] = 1:
 			gs 'willpower', 'sex', 'force', 'easy'
 			if will_cost <= pcs_willpwr:
 				act 'Make her fuck Kolka (<<will_cost>> Willpower)':
@@ -389,7 +408,7 @@ if $ARGS[0] = 'corrupt_choices':
 				act 'Make her fuck Kolka (<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 NatbelQW['corruption']>= 8 and OluQW['sex'] = 1:
+		if NatbelQW['QWstage'] >= 9 and OluQW['sex'] = 1:
 			gs 'willpower', 'anal', 'force', 'easy'
 			if will_cost <= pcs_willpwr:
 				act 'Take her to see Olu (<<will_cost>> Willpower)':
@@ -407,7 +426,7 @@ end
 if $ARGS[0] = 'lick_feet':
 	*clr & cla
 	minut += 5
-	if NatbelQW['corruption']= 5: NatbelQW['corruption']= 6
+	if NatbelQW['QWstage'] = 5: NatbelQW['QWstage'] = 6
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/lickfeet1.jpg"></center>'
 	'"My feet have been killing me today. Take off my shoes for me and lick my feet until I feel better." You bark at Natasha.'
@@ -446,7 +465,7 @@ end
 if $ARGS[0] = 'spit_face':
 	*clr & cla
 	minut += 5
-	if NatbelQW['corruption']= 6: NatbelQW['corruption']= 7
+	if NatbelQW['QWstage'] = 6: NatbelQW['QWstage'] = 7
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natknee.jpg"></center>'
 	'You bark at Natasha to get on her knees. She immediately kneels down at your feet and obediently opens her mouth.'
@@ -477,8 +496,8 @@ if $ARGS[0] = 'lick_pussy':
 	'You force Natasha to undress you and then watch as she undresses herself before she returns to kneeling at your feet. You pull her face into your pussy and snarl at her, "Now lick!". Natasha fearfully starts to work.'
 	
 	!! You need to train her a bit before she does a good job
-	if NatbelQW['training'] > 3 or NatbelQW['corruption']>= 8:
-		if NatbelQW['corruption']= 7: NatbelQW['corruption']= 8
+	if NatbelQW['training'] > 3 or NatbelQW['QWstage'] >= 8:
+		if NatbelQW['QWstage'] = 7: NatbelQW['QWstage'] = 8
 		act 'Lie down and open your legs':
 			gt 'natbel_cp_1', 'openlegs'
 		end
@@ -589,7 +608,7 @@ if $ARGS[0] = 'nat_after_shower':
 			gs 'arousal', 'kiss', 5, 'dom', 'lesbian'
 			gs 'stat'
 
-			if NatbelQW['corruption']> 7:
+			if NatbelQW['QWstage'] > 7:
 				act 'Bare her breasts':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natbedroomsex02.jpg"></center>'
@@ -697,13 +716,13 @@ if $ARGS[0] = 'laundry':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/natbelapt/sex/natlaundry.jpg"></center>'
 	'You walk in and see Natasha just turning on the machine. She turns around and sees you in the doorway.'
 	
-	if NatashaLoc = 7 and NatbelQW['cucumber'] = 1 and NatbelQW['corruption']>= 10:
+	if NatashaLoc = 7 and NatbelQW['cucumber'] = 1 and NatbelQW['QWstage'] >= 10:
 		gs 'willpower', 'mast', 'force', 'easy'
 		if will_cost <= pcs_willpwr:
 			act 'Make her play with a cucumber (<<will_cost>> Willpower)':
 				gs 'willpower', 'pay', 'force'
 				
-				if NatbelQW['corruption']= 10: NatbelQW['corruption']= 11
+				if NatbelQW['QWstage'] = 10: NatbelQW['QWstage'] = 11
 				NatbelQW['cucumber'] = 0
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/natbelapt/sex/natashacucumber01.jpg"></center>'

locations/natbel_friend.qsrc

@@ -116,7 +116,7 @@ if $ARGS[0] = 'go_to_park':
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/friends/park4.jpg"></center>'
 		'You smile at her and agree, "Yeah, I can''t disagree with you there. Most are assholes! They can be cruel at times which I know isn''t what you need if you''re feeling down in the first place!"'
 		'Natasha is a little surprised at your response and looks at you. "You know what, <<$pcs_nickname>>? I know this may sound horrible, and it''s not meant that way, but it''s comforting to know I''m not the only one!"'
-		'You ponder that you both feel in the same place and slowly respond, "Look, Natasha, clearly I don''t feel that way about you; maybe we can help each other get into a better place..." You continue ""So how come you''re in the nerd group? You''re clever, but you''re not a "typical" nerd... I can''t think of any of them other than Julia who''d like fashion, and even she doesn''t seem to use makeup much. You''re not into the games they play and don''t want to spend all your free time studying... That doesn''t sound like a nerd to me!"'
+		'You ponder that you both feel in the same place and slowly respond, "Look, Natasha, clearly I don''t feel that way about you; maybe we can help each other get into a better place..." You continue "So how come you''re in the nerd group? You''re clever, but you''re not a "typical" nerd... I can''t think of any of them other than Julia who''d like fashion, and even she doesn''t seem to use makeup much. You''re not into the games they play and don''t want to spend all your free time studying... That doesn''t sound like a nerd to me!"'
 
 		act 'Continue':
 			*clr & cla
@@ -261,7 +261,7 @@ if $ARGS[0] = 'shopping_spree':
 						minut += 30
 						money -= 1300
 						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/Natasha11.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha11.jpg"></center>'
 						'The two of you make your way to G&M and start looking for clothes, with a focus on dresses.'
 						'You spend several minutes picking and choosing between various outfits until you have a small assortment of clothes that you can both agree on. Finally, Natasha steps into the dressing room to change, showing off each dress.'
 						'Natasha has difficulty choosing between three outfits and asks you to make the final choice. Finally, you decide on a lovely party dress. "Okay, <<$pcs_nickname>>," she says, smiling. "Then that''s the one. It''ll look much nicer than what I currently have at home."'
@@ -326,7 +326,7 @@ if $ARGS[0] = 'love_jct':
 	*clr & cla
 	minut += 5
 	NatbelQW['evt_day'] = daystart
-	NatbelQW['disco_invite'] = 1
+	disco_invite = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha15.jpg"></center>'
 	'You smile at Natasha, "Okay, first off, I really like you and enjoyed our shopping trip. Hopefully, you did too?"'
@@ -391,7 +391,7 @@ if $ARGS[0] = 'disco_1':
 	*clr & cla
 	minut += 10
 	NatbelQW['evt_day'] = daystart
-	NatbelQW['disco_invite'] = 2
+	disco_invite = 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha18.jpg"></center>'
 	'After some general chat, you ask Natasha to go to the disco next Saturday so you can see her in her new dress. "So Natasha, how about I pick you up next Saturday evening, and we go to the disco together?"'
@@ -430,7 +430,7 @@ if $ARGS[0] = 'disco_2':
 	*clr & cla
 	minut += 120
 	! temp variable to set up kissing
-	NatbelQW['disco_invite'] = 3
+	disco_invite = 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha19.jpg"></center>'
 	'You see that Natasha is wearing her dress. "Yep, that was definitely the right choice, Natasha. It looks great on you."'

locations/natbel_init.qsrc

@@ -1,271 +0,0 @@
-# natbel_init
-!! Natasha Quest Initiator - This is the trigger file for all quests and events associated with Natasha
-!! Set up apartment variable calls and trackers
-!! Events concerning Natasha Belova (and her mother)
-!!Natasha Schedule - a new one needed at a later time but for now this will work - Alaratt
-!!NatashaLoc tells us where Natasha is located
-!!----------------------------------------------
-!!NatashaLoc = 0 (Natasha not home)
-!!NatashaLoc = 1 (Natasha in the hallway)
-!!NatashaLoc = 2 (Natasha in her room)
-!!NatashaLoc = 3 (Natasha in the kitchen)
-!!NatashaLoc = 4 (Natasha in the livingroom)
-!!NatashaLoc = 5 (Natasha in her mother''s room)
-!!NatashaLoc = 6 (Natasha in the bathroom)
-!!NatashaLoc = 7 (Natasha in the laundry room)
-!!---------------------------------------------
-
-
-!! Migrated variables
-!! disco_invite = NatbelQW['disco_invite']
-
-if $ARGS[0] = 'trackers':
-    gs 'natbel_init', 'nat_schedule'
-    gs 'natbel_init', 'nat_debt_timer'
-    gs 'stat'
-
-    if NatashaHomeDay ! daystart:
-        NatashaHomeDay = daystart
-        NatashaLoc = 0
-    end
-
-    !Natasha''s pregnancy status
-    if NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) > (280 + rand(-2,2)):
-        !!baby born
-        NatbelQW['babycount'] += 1
-        NatbelQW['pregday'] = 0
-    end
-
-	!! If Natasha will be in her room if she is wearing the seethrough clothes and her mother is home. 
-	if NatbelQW['seethroughwearing'] = 1 and NatbelQW['MotherHome'] = 1: 
-		NatbelQW['MotherDoor'] = 1
-		NatashaLoc = 2
-		$NatashaLocMsg = 'Natasha is in her room. She has been there since your visit earlier today.'
-	end
-end
-
-if $ARGS[0] = 'nat_debt_timer':
-	if NatbelQW['QWstage'] >= 2 and NatbelQW['Debt'] > 0: 
-		*nl
-		NatbelQW['DebtTimeLeft'] = NatbelQW['DebtDay'] - daystart
-		if NatbelQW['DebtTimeLeft'] > 0:
-			$StatusM = 'Natasha owes you <<func(''agentned'', ''format_price_string'', NatbelQW[''Debt''])>><b>₽</b> and is due in <<NatbelQW[''DebtTimeLeft'']>> day(s) '
-		else
-			$StatusM = 'Natasha promised to pay you back by now, maybe you should talk to her about it.'
-		end
-	end
-end
-
-if $ARGS[0] = 'nat_schedule':
-		NatashaShower = 0
-		NatashaLoc = rand(0,7)
-		if NatashaLoc = 0:
-			$NatashaLocMsg = 'Natasha isn''t home right now.'
-		elseif NatashaLoc = 1:
-			$NatashaLocMsg = 'Oh, here''s Natasha. I''ll leave you two to it.'
-		elseif NatashaLoc = 2:
-			$NatashaLocMsg = 'Natasha is in her room. You know the way.'
-		elseif NatashaLoc = 3:
-			$NatashaLocMsg = 'Natasha is in the kitchen. You know the way.'
-		elseif NatashaLoc = 4:
-			$NatashaLocMsg = 'Natasha is in the living room. You know the way.'
-		elseif NatashaLoc = 5:
-			$NatashaLocMsg = 'Natasha was in her room just a little while ago. You''ll have to go and look for her.'
-		elseif NatashaLoc = 6:
-			NatashaShower = 1
-			$NatashaLocMsg = 'Natasha is busy taking a shower at the moment. You can wait in her room or come sit with me in the living room if you''d like.'
-		elseif NatashaLoc = 7:
-			$NatashaLocMsg = 'Natasha is doing some laundry. You know the way.'
-		end
-end
-
-!! Set up door greeting and images.
-
-if $ARGS[0] = 'door_setup':
-    if NatbelQW['pregday'] = 0 or (NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) <= 90):
-        '<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big16.jpg"></center>'
-    elseif NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) > 90 and (daystart-NatbelQW['pregday']) < 200:
-        '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/16(2).jpg" width="356"></center>'
-    elseif NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) >= 200:
-        '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/16(3).jpg" width="356"></center>'
-    end
-    'You stand outside the Belova household, knocking on the door. After a few moments, Natasha opens the door.'
-    if NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) > 90 and (daystart-NatbelQW['pregday']) < 200:
-        'Looking at Natasha, her pregnant belly is starting to show. You have a strong suspicion that she carries your niece or nephew.'
-    elseif NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) >= 200:
-        'Looking at Natasha, it is clear that she is pregnant. You have a strong suspicion that she carries your niece or nephew.'
-    end
-    if NatbelQW['QWstage'] > 10:
-        'Natasha sees it''s you at the door, and she immediately lowers her head slightly, not quite looking you in the eye, but you notice she''s pleased to see you.'
-        '"Oh, hi <<$pcs_nickname>>. Come in."'
-    elseif NatbelQW['QWstage'] > 5:
-        'Natasha sees it''s you at the door and you see her shoulders slump a little as she starts looking at your feet rather than at your face.'
-        '"Oh, uhm, hi <<$pcs_nickname>>. Come in."'
-    else
-        'Natasha sees it''s you at the door and greets you with a warm hug.'
-        '"Hi <<$pcs_nickname>>. Come in."'
-    end
-
-    !! Quest Checks:
-
-end
-
-!! Quest checks
-
-
-!! Init Branch
-
-if $ARGS[0] ='quests': 
-    if $loc_arg = 'natroom':
-        if NatbelQW['pregday'] > 0 and daystart-NatbelQW['pregday'] > 90 and NatbelQW['askedbaby'] ! daystart:
-			gs 'natbel_init'. 'pregnancy'
-		end
-	if $loc_arg = 'natroom' and NatbelQW['QWstage'] > 1 :
-        if lernHome > 0:  act 'Study together': gs 'natbelEv', 'study_together'
-		act 'Talk with her': gs 'natbel_chat', 'chat'
-    end
-    !! check for quest divergence
-    if NatbelQW['corruption'] = 0 or NatbelQW['love'] = 0:
-        If NatbelQW['QWstage']  = 0:
-            gs 'natbel_init', 'stage_0'
-        end
-        !! Stage 1 
-        If NatbelQW['QWstage'] = 1:
-            gs 'natbel_init', 'stage_1'
-        end
-        !! Stage 2 
-        If NatbelQW['QWstage'] = 2:
-            gs 'natbel_init', 'stage_2'
-        end
-        !! Stage 3
-        If NatbelQW['QWstage'] = 3:
-            gs 'natbel_init', 'stage_3'
-        end
-        !! Stage 4 - Breakpoint this is where the content splits for Natasha depending on choices made by player. 
-        If NatbelQW['QWstage'] = 4:
-            gs 'natbel_init', 'stage_4'
-        end
-    end
-
-    !! Corruption path events
-    if NatbelQW['corruption'] >= 1: 
-        gs 'natbel_init', 'corrupted'
-    end
-
-    !! Love Path events
-    if NatbelQW['love'] >= 1: gs 'natbel_init', 'lovers'
-        gs 'natbel_init', 'lovers'
-    end
-end
-
-
-!! Stage 0 - Introit
-if $ARGS[0]='stage_0': 
-end
-
-if $ARGS[0]='stage_2': 
-	gs 'natbelEv', 'debt_forgive'
-end
-
-!! Define Natasha''s fate
-if $ARGS[0]='stage_4':
-    !! Set quest tracker to MC chosen path
-   !! NatbelQW['QWstage'] = -1
-    !!if corrupted:
-        !! use 4 to main legacy code
-      !!  NatbelQW['corruption'] = 1
-    !!if bff:
-      !!  NatbelQW['lover'] = 1
-    !!end
-end
-!! Stage 1 - Corruption
-
-!!
-if $ARGS[0] = 'corrupted':
-    if $loc = 'korrPar':
-        if week < 6 and (hour = 6 or hour = 7) and kanikuli = 0 and SchoolAtestat = 0 and SchoolBlock = 0 and (PCloStyle2 = 4 or Enable_sforma = 1):
-            *nl
-            'You could go to Natasha''s apartment and get her to carry your books to school.'
-            act 'Go to Natasha''s apartment': gt 'natbel_cp_1', 'carrybooks'
-        end
-    end
-    if $loc_arg = 'natroom':
-        gs 'natbel_cp_1', 'make_her_do_homework'
-        gs 'natbel_cp_1', 'corrupt_choices'
-    end
-    if NatbelQW['corruption'] = 1:
-		NatbelQW['QWstage'] = 99
-        gs 'natbel_cp_1', 'stage1'
-    end
-    if NatbelQW['corruption'] = 2:
-    end
-    if NatbelQW['corruption'] = 3:
-    end
-    if NatbelQW['corruption'] = 4:
-    end
-    if NatbelQW['corruption'] = 5:
-    end
-    if NatbelQW['corruption'] = 6:
-    end
-    if NatbelQW['corruption'] = 7:
-    end
-    if NatbelQW['corruption'] = 8:
-    end
-    if NatbelQW['corruption'] = 9:
-    end
-    if NatbelQW['corruption'] = 10:
-    end
-end
-
-!! Stage 1 - Companion
-if $ARGS[0] = 'lovers':
-    if NatbelQW['love'] = 1:
-		NatbelQW['QWstage'] = 99
-    end
-    if NatbelQW['love'] = 2:
-    end
-    if NatbelQW['love'] = 3:
-    end
-    if NatbelQW['love'] = 4:
-    end
-    if NatbelQW['love'] = 5:
-    end
-    if NatbelQW['love'] = 6:
-    end
-    if NatbelQW['love'] = 7:
-    end
-    if NatbelQW['love'] = 8:
-    end
-    if NatbelQW['love'] = 9:
-    end
-    if NatbelQW['love'] = 10:
-    end
-end
-
-!! Journal Entries. 
-if $ARGS[0] ='journal':
-    if NatbelQW['qwstage'] <= 4 or (NatbelQW['corrupt'] = 0 or NatbelQW['love'] = 0):
-        if  NatbelQW['QWstage'] = 1:
-            'Natasha agreed to help me with my homework. I just need to visit her in her apartment after school. I should chat with her a few times before bringing up anything involving money though.'
-        elseif NatbelQW['QWstage'] = 2:
-            'Natasha has borrowed money from me. In return, she has to do my homework whenever I tell her. Once her 30 days are up, I should ask for my money back and see where it goes because I don''t actually expect her to be able to pay it back.'
-        end
-
-    elseif NatbelQW['corrupt'] > 0 and NatbelQW['qwstage'] = 99:
-    elseif NatbelQW['love'] > 0 and NatbelQW['qwstage'] = 99:
-    end
-end
-
-
-!! Quest variabes reset or deletion
-
-if $ARGS[0] = 'delvar':
-    if $ARGS[1] = 'reset':
-    end
-    if $ARGS[1] = 'corruption':
-    end
-    if $ARGS[1] = 'love':
-    end
-end
-
---- natbel_init ---------------------------------

locations/natbel_pregnancy.qsrc

@@ -1,60 +0,0 @@
-!! Pregnancy storyline:
-
-if $ARGS[0]='pregnancy':
-    act 'Touch her belly':
-        *clr & cla
-        minut += 5
-        NatbelQW['askedbaby'] = daystart
-        gs 'npc_relationship', 'modify', 'A16', 'like'
-        gs 'stat'
-        '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/natbelapt/touch_belly'+iif(npc_pregtalk['A16'] = 1,'_preg','')+'.jpg"></center>'
-        if daystart-NatbelQW['pregday'] < 120:
-            'She looks at you with a strange smile.'
-            '"Yes," she answers the question you didn''t voice, "your little brother has actually knocked me up. I hope you are happy with that because I can''t afford an abortion."'
-            'Her tone is a lot less accusing than you''d expected. In fact, she seems... happy.'
-            if npc_pregtalk['A16'] = 1: '"It''s really reassuring to know I won''t be going through this alone though," she says softly and gives you a hug.'
-        elseif daystart-NatbelQW['pregday'] < 190:
-            '"I felt the baby kick earlier today!" she says with a big smile on her face, "keep your hands there for a bit, maybe it''ll happen again."'
-            if rand(0,20) = 0: 'About a minute later you do indeed feel a tiny kick from inside Natasha''s belly, making both of you jump a little.'
-            if NatbelQW['KolkaSex'] > 20 and rand(0,2) = 1: 'With a beet-red face and a dreamy look in her eyes she adds "Don''t tell Kolka, but every time we have our little... fun... it gets really active in there."'
-            *nl
-            if npc_pregtalk['A16'] = 1:
-                'A few moments later she asks "What about yours, felt anything yet?"'
-                if pregtime < 120:
-                    '"I don''t think so," you respond, slightly sad about the fact for some reason.'
-                    'Natasha quickly picks up on that and tries to cheer you up "Don''t worry, you''re just not far along yet. It''ll make you so happy when it happens for the first time, you''ll see!"'
-                elseif pregtime < 190:
-                    '"Yep, I feel it kicking in the morning sometimes," which prompts Natasha to start rubbing your belly too.'
-                else
-                    '"Oh yeah, it''s gotten quite lively in there lately," which prompts Natasha to start rubbing your belly too.'
-                    if rand(0,7) = 0:
-                        dynamic $d_pregmovement
-                        '"As if on queue..." you happily muse aloud.'
-                        if $wombthfath = 'Kolka': 'With a tinge of wonder Natasha mumbles "Your little brother makes some energetic children, doesn''t he?"'
-                    end
-                end
-            end
-        else
-            '"The baby''s really restless lately. Turned my belly button into an outie with all that kicking," she says jokingly, barely keeping back her giggling.'
-            if rand(0,7) = 0: 'Natasha has barely finished her joke, before you feel a kick coming from within.<br>"There we go again, see?"'
-            *nl
-            if npc_pregtalk['A16'] = 1:
-                'She puts her hands on your belly a moment later and asks "How is your pregnancy going <<$pcs_nickname>>?"'
-                if pregtime < 120:
-                    '"Oh, you know... I keep getting morning sickness, but it''s not as bad as I read it would be. And luckily my belly doesn''t show much for now, '+iif(npc_pregtalk['A29'] = 1, 'so people at school haven''t noticed yet."', 'so my <<$npc_nickname[''A29'']>> hasn''t found out I''m pregnant yet. I really don''t know what I''ll do when she does though..."')
-                    'Natasha gives you a reassuring hug, telling you it''s all going to be alright and that she''s there for you.'
-                elseif pregtime < 190:
-                    '"I feel the baby kicking in the morning sometimes," you say with a smile.'
-                else
-                    '"Tell me about it, it''s like there''s a constant party going on in there."'
-                    if rand(0,7) = 0:
-                        dynamic $d_pregmovement
-                        '"As if on queue..." you happily muse aloud.'
-                        if $wombthfath = 'Kolka': 'You see Natasha blush slightly before she says with a wink "Just like their dad, huh?"'
-                    end
-                end
-            end
-        end
-        act 'Continue': gt 'natbelapt', 'natroom'
-    end
-end

locations/natbelapt.qsrc

@@ -36,19 +36,45 @@ NatbelQW['evt_day'] day tracker for events, set to daystart used to control ques
 
 !!this is the text and chances anyone is at Natasha''s apartment.
 if $ARGS[0] = 'home':
+	$loc = 'natbelapt'
+	$loc_arg = 'home'
+	$menu_loc = 'natbelapt'
+	$menu_arg = 'home'
+	$locM = 'natbelapt'
+	$locM_arg = 'home'
+	$location_type = 'private'
+
 	$track_loop = ''
+	CLOSE ALL
 	if sound = 0:PLAY 'sound/korr.mp3',30
+
+	!! To Do - Track these to figure out what they are and where they are used - Alaratt
+	popolaini = 0
+	saunaYouRoom = 0
+	boycherdaksex = 0
+	bonusZ = 0
+
 	minut += 1
 	menu_off = 0
-	gs 'themes', 'indoors'	
-	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
-	$location_type = 'private'	
-	gs 'natbelEv', 'natmomhome'
-    gs 'natbelEv', 'nat_mother_state'
-	gs 'natbel_init', 'nat_schedule'
-	gs 'natbel_init', 'trackers'
+	gs 'themes', 'indoors'
 	gs 'stat'
 
+	if NatashaHomeDay ! daystart:
+		NatashaHomeDay = daystart
+		NatashaLoc = 0
+	end
+
+	!Natasha''s pregnancy status
+	if NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) > (280 + rand(-2,2)):
+		!!baby born
+		NatbelQW['babycount'] += 1
+		NatbelQW['pregday'] = 0
+	end
+
+	gs 'natbelEv', 'nat_schedule'
+	gs 'natbelEv', 'natmomhome'
+	gs 'natbelEv', 'nat_mother_state'
+
 	! Random to check who opens the door: 0 = Natasha, 1 = Mother
 	if NatbelQW['MotherHome'] = 1:
 		NatbelQW['MotherDoor'] = rand(0,1)
@@ -56,6 +82,13 @@ if $ARGS[0] = 'home':
 		NatbelQW['MotherDoor'] = 0
 	end
 	
+	!! If Natasha will be in her room if she is wearing the seethrough clothes and her mother is home. 
+	if NatbelQW['seethroughwearing'] = 1 and NatbelQW['MotherHome'] = 1: 
+		NatbelQW['MotherDoor'] = 1
+		NatashaLoc = 2
+		$NatashaLocMsg = 'Natasha is in her room. She has been there since your visit earlier today.'
+	end
+
 	! If Natasha is in the shower her mom will open the door
 	if (NatashaLoc = 6 or NatashaLoc = 7) and NatbelQW['MotherHome'] = 1: NatbelQW['MotherDoor'] = 1
 
@@ -72,7 +105,29 @@ if $ARGS[0] = 'home':
 		act 'Move away from the door':gt 'pod_ezd', 'etaj_4'
 	elseif ((hour >= 15 and hour < 21) or (week > 5 and hour >= 10 and hour < 21)) and NatbelQW['MotherDoor'] = 0 and NatashaLoc > 0 and NatashaLoc < 6:
 		*clr & cla
-		gs 'natbel_init', 'door_setup'
+		if NatbelQW['pregday'] = 0 or (NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) <= 90):
+			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big16.jpg"></center>'
+		elseif NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) > 90 and (daystart-NatbelQW['pregday']) < 200:
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/16(2).jpg" width="356"></center>'
+		elseif NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) >= 200:
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/16(3).jpg" width="356"></center>'
+		end
+		'You stand outside the Belova household, knocking on the door. After a few moments, Natasha opens the door.'
+		if NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) > 90 and (daystart-NatbelQW['pregday']) < 200:
+			'Looking at Natasha, her pregnant belly is starting to show. You have a strong suspicion that she carries your niece or nephew.'
+		elseif NatbelQW['pregday'] > 0 and (daystart-NatbelQW['pregday']) >= 200:
+			'Looking at Natasha, it is clear that she is pregnant. You have a strong suspicion that she carries your niece or nephew.'
+		end
+		if NatbelQW['QWstage'] > 10:
+			'Natasha sees it''s you at the door, and she immediately lowers her head slightly, not quite looking you in the eye, but you notice she''s pleased to see you.'
+			'"Oh, hi <<$pcs_nickname>>. Come in."'
+		elseif NatbelQW['QWstage'] > 5:
+			'Natasha sees it''s you at the door and you see her shoulders slump a little as she starts looking at your feet rather than at your face.'
+			'"Oh, uhm, hi <<$pcs_nickname>>. Come in."'
+		else
+			'Natasha sees it''s you at the door and greets you with a warm hug.'
+			'"Hi <<$pcs_nickname>>. Come in."'
+		end
 		NatashaLoc = 1
 		act 'Go inside':gt'natbelapt', 'hallway'
 		act 'Move away from the door':gt 'pod_ezd', 'etaj_4'
@@ -123,15 +178,21 @@ if $ARGS[0] = 'leave_apartment':
 end
 
 if $ARGS[0] = 'hallway':
-	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
+	$loc = 'natbelapt'
+	$loc_arg = 'hallway'
+	$menu_loc = 'natbelapt'
+	$menu_arg = 'hallway'
+	$locM = 'natbelapt'
+	$locM_arg = 'hallway'
 	$location_type = 'indoors'
 	killvar '$locclass'
+
+	CLOSE ALL
 	if sound = 0:PLAY 'sound/korr.mp3',30
 
 	menu_off = 0
 	minut += 1
 	gs 'natbelEv', 'natmomhome'
-	gs 'natbel_init', 'trackers'
 	gs 'stat'
 
 	*clr & cla
@@ -172,12 +233,12 @@ if $ARGS[0] = 'hallway':
 end
 
 if $ARGS[0] = 'livingroom':
-	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
-	$locclass = 'livingr'
-	gs 'natbel_init', 'trackers'
+	$menu_loc = 'natbelapt'
+	$menu_arg = 'livingroom'
 	menu_off = 0
+	CLOSE ALL
 	*clr & cla
-	
+	$locclass = 'livingr'
 	minut += 1
 	gs 'stat'
 	'<center><b><font color = maroon>Living room</font></b></center>'
@@ -333,12 +394,15 @@ if $ARGS[0] = 'livingroom':
 end
 
 if $ARGS[0] = 'kitchen':
-	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
-	$locclass = 'kitr'
+	$loc = 'natbelapt'
+	$loc_arg = 'kitchen'
+	$menu_loc = 'natbelapt'
+	$menu_arg = 'kitchen'
 	menu_off = 0
+	CLOSE ALL
 	*clr & cla
 	minut += 1
-	gs 'natbel_init', 'trackers'
+	$locclass = 'kitr'
 	gs 'kit_din'
 	gs 'stat'
 	'<center><b><font color = maroon>Kitchen</font></b></center>'
@@ -426,11 +490,17 @@ if $ARGS[0] = 'fridge':
 end
 
 if $ARGS[0] = 'bathroom':
-	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
+	CLOSE ALL
+	$loc = 'natbelapt'
+	$loc_arg = 'bathroom'
+	$menu_loc = 'natbelapt'
+	$menu_arg = 'bathroom'
+	$locM = 'natbelapt'
+	$locM_arg = 'bathroom'
 	$location_type = 'bathroom'
+
 	menu_off = 0
 	minut += 1
-	gs 'natbel_init', 'trackers'
 	gs 'stat'
 	
 	*clr & cla
@@ -470,12 +540,14 @@ if $ARGS[0] = 'bathroom':
 end
 
 if $ARGS[0] = 'natroom':
+	$menu_loc = 'natbelapt'
+	$menu_arg = 'natroom'
 	menu_off = 0
+	$locclass = 'bedr'
+	CLOSE ALL
 	$track_loop = ''
 	music_loop = 1
-	*clr & cla	
-	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
-	$locclass = 'bedr'
+	*clr & cla
 	minut += 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Natasha''s Room</font></h4></center>'
@@ -523,12 +595,73 @@ if $ARGS[0] = 'natroom':
 				gt 'natbelapt', 'livingroom'
 			end
 		end
-		gs 'natbel_init', 'nat_debt_timer'
-		$StatusM 
-		killvar '$statusM'
-		gs 'natbel_init', 'quests'
 
+		act 'Talk with her': gt 'natbel_chat', 'chat'
 
+		if NatbelQW['pregday'] > 0 and daystart-NatbelQW['pregday'] > 90 and NatbelQW['askedbaby'] ! daystart:
+			act 'Touch her belly':
+				*clr & cla
+				minut += 5
+				NatbelQW['askedbaby'] = daystart
+				gs 'npc_relationship', 'modify', 'A16', 'like'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/natbelapt/touch_belly'+iif(npc_pregtalk['A16'] = 1,'_preg','')+'.jpg"></center>'
+				if daystart-NatbelQW['pregday'] < 120:
+					'She looks at you with a strange smile.'
+					'"Yes," she answers the question you didn''t voice, "your little brother has actually knocked me up. I hope you are happy with that because I can''t afford an abortion."'
+					'Her tone is a lot less accusing than you''d expected. In fact, she seems... happy.'
+					if npc_pregtalk['A16'] = 1: '"It''s really reassuring to know I won''t be going through this alone though," she says softly and gives you a hug.'
+				elseif daystart-NatbelQW['pregday'] < 190:
+					'"I felt the baby kick earlier today!" she says with a big smile on her face, "keep your hands there for a bit, maybe it''ll happen again."'
+					if rand(0,20) = 0: 'About a minute later you do indeed feel a tiny kick from inside Natasha''s belly, making both of you jump a little.'
+					if NatbelQW['KolkaSex'] > 20 and rand(0,2) = 1: 'With a beet-red face and a dreamy look in her eyes she adds "Don''t tell Kolka, but every time we have our little... fun... it gets really active in there."'
+					*nl
+					if npc_pregtalk['A16'] = 1:
+						'A few moments later she asks "What about yours, felt anything yet?"'
+						if pregtime < 120:
+							'"I don''t think so," you respond, slightly sad about the fact for some reason.'
+							'Natasha quickly picks up on that and tries to cheer you up "Don''t worry, you''re just not far along yet. It''ll make you so happy when it happens for the first time, you''ll see!"'
+						elseif pregtime < 190:
+							'"Yep, I feel it kicking in the morning sometimes," which prompts Natasha to start rubbing your belly too.'
+						else
+							'"Oh yeah, it''s gotten quite lively in there lately," which prompts Natasha to start rubbing your belly too.'
+							if rand(0,7) = 0:
+								dynamic $d_pregmovement
+								'"As if on queue..." you happily muse aloud.'
+								if $wombthfathID = 'A34': 'With a tinge of wonder Natasha mumbles "Your little brother makes some energetic children, doesn''t he?"'
+							end
+						end
+					end
+				else
+					'"The baby''s really restless lately. Turned my belly button into an outie with all that kicking," she says jokingly, barely keeping back her giggling.'
+					if rand(0,7) = 0: 'Natasha has barely finished her joke, before you feel a kick coming from within.<br>"There we go again, see?"'
+					*nl
+					if npc_pregtalk['A16'] = 1:
+						'She puts her hands on your belly a moment later and asks "How is your pregnancy going <<$pcs_nickname>>?"'
+						if pregtime < 120:
+							'"Oh, you know... I keep getting morning sickness, but it''s not as bad as I read it would be. And luckily my belly doesn''t show much for now, '+iif(npc_pregtalk['A29'] = 1, 'so people at school haven''t noticed yet."', 'so my <<$npc_nickname[''A29'']>> hasn''t found out I''m pregnant yet. I really don''t know what I''ll do when she does though..."')
+							'Natasha gives you a reassuring hug, telling you it''s all going to be alright and that she''s there for you.'
+						elseif pregtime < 190:
+							'"I feel the baby kicking in the morning sometimes," you say with a smile.'
+						else
+							'"Tell me about it, it''s like there''s a constant party going on in there."'
+							if rand(0,7) = 0:
+								dynamic $d_pregmovement
+								'"As if on queue..." you happily muse aloud.'
+								if $wombthfathID = 'A34': 'You see Natasha blush slightly before she says with a wink "Just like their dad, huh?"'
+							end
+						end
+					end
+				end
+				act 'Continue': gt 'natbelapt', 'natroom'
+			end
+		end
+
+		if lernHome > 0: act 'Study together': gs 'natbelEv', 'study_together'
+
+		gs 'natbel_cp_1', 'make_her_do_homework'
+		gs 'natbel_cp_1', 'corrupt_choices'
+		gs 'natbel_cp_1', 'nat_debt_timer'
 	elseif NatashaShower = 1 and NatashaLoc ! 2:
 		*clr & cla
 		menu_off = 1
@@ -579,10 +712,12 @@ if $ARGS[0] = 'seethorugh_surprise':
 end
 
 if $ARGS[0] = 'nat_mother_room':
+	$menu_loc = 'natbelapt'
+	$menu_arg = 'nat_mother_room'
 	menu_off = 0
+	CLOSE ALL
 	*clr & cla
 	minut += 1
-	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
 	gs 'stat'
 	'<center><b><font color = maroon>Natasha''s mother''s room</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/natbelapt/momroom.jpg"></center>'
@@ -808,5 +943,4 @@ if $ARGS[0] = 'nat_mother_room':
 	end
 end
 
-
 --- natbelapt ---------------------------------