Bläddra i källkod

Commit the files as provided by Hooded Silence

HotMike 1 år sedan
förälder
incheckning
1788329eaf

+ 1 - 1
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:

+ 2 - 52
locations/natbelEv.qsrc

@@ -1,42 +1,4 @@
 # 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':
@@ -103,7 +65,6 @@ if $ARGS[0] = 'natbelQuest':
 		end
 	end
 end
-
 if $ARGS[0] = 'natbel_go':
 	menu_off = 1
 	*clr & cla
@@ -119,16 +80,9 @@ 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.'
-
-		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
+		gs 'natbel_init', 'trackers'
 	end
 end
-
 if $ARGS[0] = 'study_together':
 	*clr & cla
 	menu_off = 1
@@ -352,10 +306,7 @@ 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': 
-		minut += 9
-		gt 'gschool_grounds', 'main'	
-	end
+	act 'Go to school': gt 'gschool_grounds', 'main'	
 end
 
 if $ARGS[0] = 'schoolwalk':
@@ -366,7 +317,6 @@ 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 - 264
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 = '' or $wombthfathID = 'unknown':
+				if $wombthfath = '':
 					'"Honestly, I don''t even know."'
 					'"Really? That''s crazy." Natasha whispers, rubbing her midriff longingly.'
 
@@ -98,187 +98,24 @@ if $ARGS[0] = 'chat':
 			end
 		end
 	end
-	if NatbelQW['chrispaid'] <= 3:
+
+	if NatbelQW['chrispaid'] <= 3 and NatbelQW['QWstage'] ! 99:
 		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.'
-			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
+			!! 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'
 			end
 		end
-	end
+	end		
 	if NatbelQW['chrispaid'] = 4:
 		act 'Hangout':
 
@@ -367,16 +204,16 @@ if $ARGS[0] = 'chat':
 			end
 		end
 
-		if (NatbelQW['evt_day'] + 7 <= daystart) and NatbelQW['shopping'] = 2 and disco_invite = 0:
+		if (NatbelQW['evt_day'] + 7 <= daystart) and NatbelQW['shopping'] = 2 and NatbelQW['disco_invite'] = 0:
 			act 'Talk about shopping spree': gt 'natbel_friend', 'love_jct'
 		end
-		if disco_invite = 1 :
+		if NatbelQW['disco_invite'] = 1 :
 			act 'Arrange a disco date': gt 'natbel_friend', 'disco_1'
 		end
-		if disco_invite = 2 and week = 6 and (hour >= 19 and hour <= 20):
+		if NatbelQW['disco_invite'] = 2 and week = 6 and (hour >= 19 and hour <= 20):
 			act 'Go to disco' : gt 'natbel_friend', 'disco_2'
 		end
-		if disco_invite = 3 and NatbelQW['FriendLover'] ! 2:
+		if NatbelQW['disco_invite'] = 3 and NatbelQW['FriendLover'] ! 2:
 			act 'Kiss Natasha' : gt 'natbel_friend', 'kissing_games'
 		end
 
@@ -443,7 +280,7 @@ if $ARGS[0] = 'chat':
 		act 'Follow her':gt 'natbelEv', 'snack'
 	end
 
-	if NatbelQW['FriendLover'] >= 1 and disco_invite < 1:
+	if NatbelQW['FriendLover'] >= 1 and NatbelQW['disco_invite'] < 1:
 		act 'Kiss her':
 			gs 'npc_relationship', 'modify', 'A16', 'like'
 			gs 'stat'
@@ -468,12 +305,12 @@ if $ARGS[0] = 'natknows':
 		'"So, who''s the father?"'
 	end
 	*nl
-	if $wombthfathID = 'A34' and npc_rel['A34'] > 50:
+	if $wombthfath = 'Kolka' 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 = '' or $wombthfathID = 'unknown':
+	elseif $wombthfath = '':
 		'"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
@@ -493,106 +330,119 @@ if $ARGS[0] = 'natknows1':
 		'"Is it the same father as last time?"'
 	end
 	*nl
-!! 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
-	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.'
+	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.'
 		end
-	end
 	act 'Continue':gt 'natbelapt', 'natroom'
 end
 
-if $ARGS[0] = 'debt_forgive':
-	if NatbelQW['Debt'] > 0 and NatbelQW['DebtDay'] <= daystart:
-		if NatbelQW['QWstage'] = 2:
-			act 'Forgive Natasha''s debt':
-				NatbelQW['Debt'] = 0
-				NatbelQW['DebtDay'] = 0
-				NatbelQW['BestFriend'] += 10
-				gs 'npc_relationship', 'modify', 'A16', 'adore'
+
+!! 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:
+			if NatbelQW['MoneyGivenTimes'] =3:
+				$flagwarning = 'Give her the money (2000 <b>₽</b>) <font color="red">This option will block the Natasha love path.</font>'
+			else
+				$flagwarning = 'Give her the money (2000 <b>₽</b>)'
+			end
+			act $flagwarning:
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha1.jpg"></center>'
-				'You look at her and it is clear that she is close to tears, probably having feared the worst. Feeling for her, you try to comfort her, "Come on, Natasha. Did you really think I expected you to be able to repay me? I... hear about the gossip at school. You''ve been a good friend to me and helped me with my homework when I was struggling, so let me help you too."'
-				'Overcome with relief, Natasha starts sobbing. "I''m just so grateful. I really didn''t expect you to do that. I really want to repay you, however I can."'
-				'You lift up her chin, kiss her on the cheek and give her a big hug. "Let''s see where our journey takes us," you say to her as her tears subside.'
-				act 'Keep talking': gt 'natbel_chat', 'chat'
-				act 'Stop talking': gt 'natbelapt', 'natroom'
-				act 'Ask her about what she bought <br><font color="red">This option will block the Natasha submissive path.</font>':
-					*clr & cla
-					menu_off = 1
-					NatbelQW['FriendLover'] = 1
-					minut += 5
-					gs 'stat'
-					
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha1.jpg"></center>'
-					'"So Natasha, do you want to show me what you bought with the money I lent you? I''ve been looking forward to seeing it."'
-					'Natasha looks worried again and with a very croaky voice replies, "I''m sorry <<$pcs_nickname>>, I didn''t manage to get anything!"'
-					'You are a bit confused. "Sorry, Natasha. I gave you five thousand rubles! I thought you could treat yourself to a new outfit or two?"'
-					'The girl can''t hold back her tears and starts sobbing again. A little exasperated, you give her another hug. "Look, Natasha. Please stop crying. I''m not mad at you, I just want to know what happened. You''re my friend and I want to help if I can."'
-					'Natasha responds, "You''ve already helped me more than I could imagine. I couldn''t hope for more."'
-					'"Look, enough with the tears and the apologies. Please, just tell me."'
-					'Natasha looks at you and is clearly worried. She takes a deep breath, "I had a few debts I had to repay as I was getting chased and then I had to help my mum so there''s nothing left..."'
-					'You nod your head, "Right, okay. So did you get all your debts repaid?"'
-					'She shakes her head. "No. I still owe Christina 500 rubles."'
-					'"And that''s the last debt you owe?" you ask her.'
-					'"Yeah, that''s the last one."'
-					act 'Let her deal with the last debt':
-						*clr & cla
-						NatbelQW['chrispaid'] = 1
-						NatbelQW['evt_day'] = daystart
-						
-						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha2.jpg"></center>'
-						'"Okay, well, that''s not too bad. I think you can handle that one by yourself," you say.'
-						'She nods her head slowly.'
-						act 'Keep talking': gt 'natbel_chat', 'chat'
-						act 'Stop talking': gt 'natbelapt', 'natroom'
-					end
-					act 'Offer to repay Christina':
-						*clr & cla
-						NatbelQW['chrispaid'] = 2
-						gs 'npc_relationship', 'modify', 'A16', 'like'
-						gs 'stat'
-						
-						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha3.jpg"></center>'
-						'You look at Natasha, who is now slumped on the floor with her head in her hands. You contemplate what she said and how much she''s clearly terrified of Christina. "Um... Okay."'
-						'A confused Natasha looks at you, "Uh? Sorry, what do you mean?"'
-						'"I mean, leave it to me. I''ll pay back your debt to Christina. Just try and keep out of her way until then."'
-						'Natasha simply nods, clearly not trusting herself to speak.'
-						'"Okay, Natasha, I''m going to leave now. See you soon and don''t worry, just steer clear of Christina for a while!"'
-						act 'Stop talking': gt 'natbelapt', 'natroom'
-					end
+				killvar '$flagwarning'
+				'<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
-		else
+			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).'
+		
+		end
+	end
+	
+	act 'Keep talking': gt 'natbel_chat', 'chat'
+	act 'Stop talking': gt 'natbelapt', 'natroom'
+end
+if $ARGS[0] = 'debt_forgive':
+	if NatbelQW['Debt'] > 0 and NatbelQW['DebtDay'] <= daystart:
+		if NatbelQW['QWstage'] = 2:
 			act 'Forgive Natasha''s debt':
 				NatbelQW['Debt'] = 0
 				NatbelQW['DebtDay'] = 0
 				NatbelQW['BestFriend'] += 10
+				gs 'npc_relationship', 'modify', 'A16', 'adore'
 				minut += 5
 				gs 'stat'
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/events/bullied/natasha1.jpg"></center>'
-				'You decide to forgive Natasha''s debt. She is delighted and thanks you with all her heart.'
+				if NatbelQW['MoneyGivenTimes'] = 1:
+					'You take a moment to consider Natasha''s request as you''ve already lent her 5,000 roubles which she couldn''t repay leading to you forgiving the debt as you didn''t want to impose penalty conditions on her. Although you consider her a very good friend you are concerned that she won''t be able to repay this loan either so you weigh up your options.'
+					'"You know I value you as a friend but I''ve already forgiven one debt of 5,000 roubles; are you in some trouble as if so I may be able to help you?"'
+					'Natasha looks a little downcast momentarily and stumbles over her response. "Well." She pauses. "Erm.. no <<$pcs_nickname>> I''ll be fine, thanks for asking and I promise to repay you in full this time."'
+				elseif NatbelQW['MoneyGivenTimes'] = 2:
+					'You look at her questioningly but as she gives no indication that she is going to say anything else you sigh but decide to agree to her request. "Well okay but as before, you have to do my homework whenever I ask, and you still have to pay me back."'
+					'Natasha smiles and nods her acceptance and says. "Of course <<$pcs_nickname>>, but you know with the homework, whilst I can do it for you if we did it together I can also show you how to do the parts you don''t understand."'
+					!!Note to coder: If they do the HW together than this will count towards the 'likes learning' trait, however, if Sveta makes Natasha do it then that counts as if she hasn''t done it.
+					'You smile and nod then get your purse and give Natasha the money. Natasha is delighted and says that she will pay it back in a month.'
+				elseif NatbelQW['MoneyGivenTimes'] = 3:
+					'"Really Natasha you know that you are a very good friend and I''ve already had to forgive you a total of 7,000 roubles! Why should I lend you more now? I ask you again are you in some sort of trouble? If so perhaps I can help you? I really can''t keep lending you money which you can''t repay."'
+					'Natasha looks downcast and replies with a croaky voice. "Well. Erm.. I got myself into debt with some others and well... I had to repay them as they were threatening me with some nasty stuff." She perks up a bit. "However it should be fine now as I think I''ve sorted most of them. Thanks for your concern but I really don''t want to burden you further and I definitely promise to repay you in full this time."'
+					'You look at her questioningly. "Really Natasha? As I said if you are in any trouble please let me know."'
+					'She pauses then shakes her head slowly. "No <<$pcs_nickname>> I should be okay."'
+					'She doesn''t give any indication that she is going to say anything else you sigh but decide to agree to her request. "Well okay but as before, you have to do my homework whenever I ask and I do remember what you said about the benefit about explaining stuff to me if we do it together. Also you still have to pay me back. Also this I can''t keep forgiving your debt so I''ll only lend it to you if you are sure."'
+					!Note to coder: If they do the HW together than this will count towards the 'likes learning' trait, however, if Sveta makes Natasha do it then that counts as if she hasn''t done it.
+					'Natasha smiles and nods her acceptance.'
 
+				end
 				act 'Keep talking': gt 'natbel_chat', 'chat'
 				act 'Stop talking': gt 'natbelapt', 'natroom'
 			end

+ 25 - 44
locations/natbel_cp_1.qsrc

@@ -36,30 +36,18 @@ NatbelQW['panty_stuff_day'] is set to daystart each morning you stuff Natasha''s
 }
 
 
-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
-	gs 'stat'
-	if NatbelQW['QWstage'] = 4: NatbelQW['QWstage'] = 5
+	if NatbelQW['corruption'] = 4: NatbelQW['corruption'] = 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['QWstage'] >= 7:
+	if NatbelQW['corruption'] >= 7:
 		gs 'willpower', 'exhib', 'force', 'easy'
 		if will_cost <= pcs_willpwr:
 			act 'Lift her skirt (<<will_cost>> Willpower)':
@@ -72,7 +60,6 @@ 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
@@ -82,15 +69,13 @@ 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['QWstage'] > 5:
+	elseif NatbelQW['corruption']> 5:
 		gs 'willpower', 'exhib', 'force', 'easy'
 		if will_cost <= pcs_willpwr:
 			act 'Lift her skirt (<<will_cost>> Willpower)':
@@ -110,10 +95,7 @@ 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': 
-		minut += 9
-		gt 'gschool_grounds', 'main'
-	end	
+	act 'Go to school': gt 'gschool_grounds', 'main'	
 end
 
 if $ARGS[0] = 'schoolwalk':
@@ -124,7 +106,6 @@ 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'
@@ -133,23 +114,23 @@ end
 
 ! Only if Natasha owes you money
 if $ARGS[0] = 'make_her_do_homework':
-	if NatbelQW['QWstage'] >= 2 and lernHome > 0 and NatbelQW['Debt'] > 0:
+	if NatbelQW['corruption']>= 1  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['QWstage'] = 3: NatbelQW['QWstage'] = 4
+			if NatbelQW['homework'] >= 3 and NatbelQW['corruption']= 3: NatbelQW['corruption']= 4
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/study.jpg"></center>'
-			if NatbelQW['QWstage'] = 3:
+			if NatbelQW['corruption']= 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['QWstage'] = 4:
+			elseif NatbelQW['corruption']= 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['QWstage'] > 5:
+			if NatbelQW['corruption']> 5:
 				act 'Continue': gt 'natbel_cp_1', 'hwundress'
 			else
 				'You relax on her bed and start daydreaming for a while.'
@@ -278,7 +259,7 @@ if $ARGS[0] = 'afterhomework':
 	end
 
 	gs 'willpower', 'cuni', 'force', 'easy'
-	if NatbelQW['QWstage'] >= 8 and will_cost <= pcs_willpwr:
+	if NatbelQW['corruption']>= 8 and will_cost <= pcs_willpwr:
 		act 'Take off your own clothes (<<will_cost>> Willpower)':
 			cla
 			gs 'willpower', 'pay', 'self'
@@ -286,7 +267,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['QWstage'] >= 8 and will_cost > pcs_willpwr:
+	elseif NatbelQW['corruption']>= 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:
@@ -360,7 +341,7 @@ end
 
 if $ARGS[0] = 'corrupt_choices':
 	if NatbelQW['Debt'] > 0 and NatbelQW['DebtDay'] <= daystart:
-		if NatbelQW['QWstage'] >= 5:
+		if NatbelQW['corruption']>= 5:
 			gs 'willpower', 'humiliation', 'force', 'easy'
 			if will_cost <= pcs_willpwr:
 				act 'Make her lick your feet (<<will_cost>> Willpower)':
@@ -372,7 +353,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['QWstage'] >= 6:
+		if NatbelQW['corruption']>= 6:
 			gs 'willpower', 'humiliation', 'force', 'easy'
 			if will_cost <= pcs_willpwr:
 				act 'Spit in face (<<will_cost>> Willpower)':
@@ -384,7 +365,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['QWstage'] >= 7:
+		if NatbelQW['corruption']>= 7:
 			gs 'willpower', 'cuni', 'force', 'easy'
 			if will_cost <= pcs_willpwr:
 				act 'Make her lick your pussy (<<will_cost>> Willpower)':
@@ -396,7 +377,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['QWstage'] >= 8 and hour >= 18 and hour < 21 and NatbelQW['KolkaFuckDay'] < daystart and NatbelQW['KolkaWantsNat'] = 1:
+		if NatbelQW['corruption']>= 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)':
@@ -408,7 +389,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['QWstage'] >= 9 and OluQW['sex'] = 1:
+		if NatbelQW['corruption']>= 8 and OluQW['sex'] = 1:
 			gs 'willpower', 'anal', 'force', 'easy'
 			if will_cost <= pcs_willpwr:
 				act 'Take her to see Olu (<<will_cost>> Willpower)':
@@ -426,7 +407,7 @@ end
 if $ARGS[0] = 'lick_feet':
 	*clr & cla
 	minut += 5
-	if NatbelQW['QWstage'] = 5: NatbelQW['QWstage'] = 6
+	if NatbelQW['corruption']= 5: NatbelQW['corruption']= 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.'
@@ -465,7 +446,7 @@ end
 if $ARGS[0] = 'spit_face':
 	*clr & cla
 	minut += 5
-	if NatbelQW['QWstage'] = 6: NatbelQW['QWstage'] = 7
+	if NatbelQW['corruption']= 6: NatbelQW['corruption']= 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.'
@@ -496,8 +477,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['QWstage'] >= 8:
-		if NatbelQW['QWstage'] = 7: NatbelQW['QWstage'] = 8
+	if NatbelQW['training'] > 3 or NatbelQW['corruption']>= 8:
+		if NatbelQW['corruption']= 7: NatbelQW['corruption']= 8
 		act 'Lie down and open your legs':
 			gt 'natbel_cp_1', 'openlegs'
 		end
@@ -608,7 +589,7 @@ if $ARGS[0] = 'nat_after_shower':
 			gs 'arousal', 'kiss', 5, 'dom', 'lesbian'
 			gs 'stat'
 
-			if NatbelQW['QWstage'] > 7:
+			if NatbelQW['corruption']> 7:
 				act 'Bare her breasts':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natbedroomsex02.jpg"></center>'
@@ -716,13 +697,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['QWstage'] >= 10:
+	if NatashaLoc = 7 and NatbelQW['cucumber'] = 1 and NatbelQW['corruption']>= 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['QWstage'] = 10: NatbelQW['QWstage'] = 11
+				if NatbelQW['corruption']= 10: NatbelQW['corruption']= 11
 				NatbelQW['cucumber'] = 0
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/natbelapt/sex/natashacucumber01.jpg"></center>'

+ 5 - 5
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
-	disco_invite = 1
+	NatbelQW['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
-	disco_invite = 2
+	NatbelQW['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
-	disco_invite = 3
+	NatbelQW['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."'

+ 271 - 0
locations/natbel_init.qsrc

@@ -0,0 +1,271 @@
+# 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 ---------------------------------

+ 60 - 0
locations/natbel_pregnancy.qsrc

@@ -0,0 +1,60 @@
+!! 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

+ 28 - 162
locations/natbelapt.qsrc

@@ -36,44 +36,18 @@ 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 '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 'themes', 'indoors'	
+	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
+	$location_type = 'private'	
 	gs 'natbelEv', 'natmomhome'
-	gs 'natbelEv', 'nat_mother_state'
+    gs 'natbelEv', 'nat_mother_state'
+	gs 'natbel_init', 'nat_schedule'
+	gs 'natbel_init', 'trackers'
+	gs 'stat'
 
 	! Random to check who opens the door: 0 = Natasha, 1 = Mother
 	if NatbelQW['MotherHome'] = 1:
@@ -82,13 +56,6 @@ 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
 
@@ -105,29 +72,7 @@ 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
-		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
+		gs 'natbel_init', 'door_setup'
 		NatashaLoc = 1
 		act 'Go inside':gt'natbelapt', 'hallway'
 		act 'Move away from the door':gt 'pod_ezd', 'etaj_4'
@@ -178,21 +123,15 @@ if $ARGS[0] = 'leave_apartment':
 end
 
 if $ARGS[0] = 'hallway':
-	$loc = 'natbelapt'
-	$loc_arg = 'hallway'
-	$menu_loc = 'natbelapt'
-	$menu_arg = 'hallway'
-	$locM = 'natbelapt'
-	$locM_arg = 'hallway'
+	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
 	$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
@@ -233,12 +172,12 @@ if $ARGS[0] = 'hallway':
 end
 
 if $ARGS[0] = 'livingroom':
-	$menu_loc = 'natbelapt'
-	$menu_arg = 'livingroom'
+	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
+	$locclass = 'livingr'
+	gs 'natbel_init', 'trackers'
 	menu_off = 0
-	CLOSE ALL
 	*clr & cla
-	$locclass = 'livingr'
+	
 	minut += 1
 	gs 'stat'
 	'<center><b><font color = maroon>Living room</font></b></center>'
@@ -394,15 +333,12 @@ if $ARGS[0] = 'livingroom':
 end
 
 if $ARGS[0] = 'kitchen':
-	$loc = 'natbelapt'
-	$loc_arg = 'kitchen'
-	$menu_loc = 'natbelapt'
-	$menu_arg = 'kitchen'
+	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
+	$locclass = 'kitr'
 	menu_off = 0
-	CLOSE ALL
 	*clr & cla
 	minut += 1
-	$locclass = 'kitr'
+	gs 'natbel_init', 'trackers'
 	gs 'kit_din'
 	gs 'stat'
 	'<center><b><font color = maroon>Kitchen</font></b></center>'
@@ -490,17 +426,11 @@ if $ARGS[0] = 'fridge':
 end
 
 if $ARGS[0] = 'bathroom':
-	CLOSE ALL
-	$loc = 'natbelapt'
-	$loc_arg = 'bathroom'
-	$menu_loc = 'natbelapt'
-	$menu_arg = 'bathroom'
-	$locM = 'natbelapt'
-	$locM_arg = 'bathroom'
+	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
 	$location_type = 'bathroom'
-
 	menu_off = 0
 	minut += 1
+	gs 'natbel_init', 'trackers'
 	gs 'stat'
 	
 	*clr & cla
@@ -540,14 +470,12 @@ 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
+	*clr & cla	
+	gs 'shortgs', 'setloc', 'natbelapt', $ARGS[0]
+	$locclass = 'bedr'
 	minut += 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Natasha''s Room</font></h4></center>'
@@ -595,73 +523,12 @@ 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
@@ -712,12 +579,10 @@ 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>'
@@ -943,4 +808,5 @@ if $ARGS[0] = 'nat_mother_room':
 	end
 end
 
+
 --- natbelapt ---------------------------------