Merge remote-tracking branch 'maankamara/master'

locations/KatjaHomeTalk.qsrc

@@ -561,7 +561,7 @@ if $ARGS[0] = 'katjaknows':
 	cla
 	npc_pregtalk['A14'] = 1
 	*nl
-	if katjaQW['slut'] < 60 and $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
+	if katjaQW['slut'] < 60 and $wombthfathID = 'A34' and npc_rel['A34'] > 50:
 		minut += 10
 		'"So, who''s the baby-daddy?" Katja teases.'
 		*nl
@@ -570,7 +570,7 @@ if $ARGS[0] = 'katjaknows':
 		'"I wouldn''t be pregnant if he wasn''t," you laugh. "I only let the best cock inside me."'
 		'Katja blushes and you give her a quick kiss before she can react.'
 
-	elseif katjaQW['slut'] < 60 and $wombthfath = 'Stepfather' and npc_rel['A28'] > 50:
+	elseif katjaQW['slut'] < 60 and $wombthfathID = 'A28' and npc_rel['A28'] > 50:
 		minut += 10
 		'"So, who''s the baby-daddy?" Katja teases.'
 		*nl
@@ -578,7 +578,7 @@ if $ARGS[0] = 'katjaknows':
 		'"You were knocked up by your step-dad!? That''s so crazy!"'
 		'Katja blushes and you give her a quick kiss before she can react.'
 
-	elseif katjaQW['slut'] < 60 and $wombthfath = 'Biological Father' and npc_rel['A29'] > 50:
+	elseif katjaQW['slut'] < 60 and $wombthfathID = 'A29' and npc_rel['A29'] > 50:
 		minut += 10
 		'"So, who''s the baby-daddy?" Katja teases.'
 		*nl
@@ -586,7 +586,7 @@ if $ARGS[0] = 'katjaknows':
 		'"You were knocked up by your own father!? That''s so crazy!"'
 		'Katja blushes and you give her a quick kiss before she can react.'
 
-	elseif katjaQW['slut'] < 60 and $wombthfath = '':
+	elseif katjaQW['slut'] < 60 and ($wombthfath = '' or $wombthfathID = 'unknown'):
 		minut += 10
 		'"So, who''s the baby-daddy?" Katja teases.'
 		*nl
@@ -596,7 +596,7 @@ if $ARGS[0] = 'katjaknows':
 		'Katja places a hand on your shoulder "<<$pcs_nickname>>, if I can do anything to make your life a little easier, please let me know."'
 		'You blush and thank her before planting a quick kiss on her cheek.'
 
-	elseif katjaQW['slut'] >= 60 and $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
+	elseif katjaQW['slut'] >= 60 and $wombthfathID = 'A34' and npc_rel['A34'] > 50:
 		minut += 10
 		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
 		*nl
@@ -606,7 +606,7 @@ if $ARGS[0] = 'katjaknows':
 		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions revolve around riding your brother''s dick."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
 
-	elseif katjaQW['slut'] >= 60 and $wombthfath = 'Stepfather' and npc_rel['A28'] > 50:
+	elseif katjaQW['slut'] >= 60 and $wombthfathID = 'A28' and npc_rel['A28'] > 50:
 		minut += 10
 		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
 		*nl
@@ -616,7 +616,7 @@ if $ARGS[0] = 'katjaknows':
 		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions are part of an Electra complex."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
 
-	elseif katjaQW['slut'] >= 60 and $wombthfath = 'Biological Father' and npc_rel['A29'] > 50:
+	elseif katjaQW['slut'] >= 60 and $wombthfathID = 'A29' and npc_rel['A29'] > 50:
 		minut += 10
 		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
 		*nl
@@ -626,7 +626,7 @@ if $ARGS[0] = 'katjaknows':
 		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions are part of an Electra complex."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
 
-	elseif katjaQW['slut'] >= 60 and $wombthfath = '':
+	elseif katjaQW['slut'] >= 60 and ($wombthfath = '' or $wombthfathID = 'unknown'):
 		minut += 10
 		'"Who''d you let dump their load into that wonderful body of yours?" Katja asks while biting her bottom lip.'
 		*nl
@@ -640,7 +640,7 @@ if $ARGS[0] = 'katjaknows':
 		minut += 10
 		'"So, who''s the baby-daddy?" Katja teases.'
 		*nl
-		iif( $wombthfath = '', '"I don''t know who the father is "', '"It looks like I got knocked up by <<$wombthfath>>"')
+		iif( ($wombthfath = '' or $wombthfathID = 'unknown'), '"I don''t know who the father is "', '"It looks like I got knocked up by <<$wombthfath>>"')
 		'"I hope they know how lucky they are," she says while clearly blushing.'
 	end
 	act 'Continue':
@@ -661,48 +661,56 @@ if $ARGS[0] = 'katjaknows1':
 		'"Fuck, I love seeing you pregnant. I hope you''re up for having lots of babies." She blushes intensely and kisses you. "So, who put this one into you?"'
 	end
 	*nl
-	if katjaQW['slut'] < 60 and arrpos('$ChildThFath',$wombthfath) >= 0 and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1 and (($wombthfath = 'Kolka' and npc_rel['A34'] > 50) or ($wombthfath = 'Stepfather' and npc_rel['A28'] > 50) or ($wombthfath = 'Biological Father' and npc_rel['A29'] > 50)):
-		'You tell Katja that <<$wombthfath>> got you pregnant again.'
-		'"Damn, I never thought I''d meet someone who wanted to be an incest baby factory."'
-		'"I just hope he makes you happy. It''s sometimes hard to believe that you''re the woman I fell in love with." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
-
-	elseif katjaQW['slut'] >= 60 and arrpos('$ChildThFath',$wombthfath) >= 0 and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1 and (($wombthfath = 'Kolka' and npc_rel['A34'] > 50) or ($wombthfath = 'Stepfather' and npc_rel['A28'] > 50) or ($wombthfath = 'Biological Father' and npc_rel['A29'] > 50)):
-		'You tell Katja that <<$wombthfath>> got you pregnant again.'
-		'"Damn, I never thought I''d meet someone who wanted to be an incest baby factory."'
-		'"God, you''re the hottest bitch I know. I didn''t think I could be any more in love with you." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
-		'After a few minutes, she breaks the kiss, but keeps her lips inches from yours. "Don''t let this distract from my wanting you to become his breeding bitch. I want him to keep you pregnant. I need something to masturbate about when you’re not around." As soon as she finishes speaking, her lips are magnetically pulled back to yours.'
-
-	elseif katjaQW['slut'] < 60 and arrpos('$ChildThFath',$wombthfath) = arrsize('$ChildThFath')-1 and (($wombthfath = 'Kolka' and npc_rel['A34'] > 50) or ($wombthfath = 'Stepfather' and npc_rel['A28'] > 50) or ($wombthfath = 'Biological Father' and npc_rel['A29'] > 50)):
-		'Blushing, you tell Katja that a member of your family impregnated you, but this time it was <<$wombthfath>>.'
-		'Her eyes widen. "wow, your family must be really close," she giggles.'
-		'"To think I''d fall in love with a woman who lets multiple members of her own family knock her up." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
-
-	elseif katjaQW['slut'] >= 60 and arrpos('$ChildThFath',$wombthfath) = arrsize('$ChildThFath')-1 and (($wombthfath = 'Kolka' and npc_rel['A34'] > 50) or ($wombthfath = 'Stepfather' and npc_rel['A28'] > 50) or ($wombthfath = 'Biological Father' and npc_rel['A29'] > 50)):
-		'Blushing, you tell Katja that a member of your family impregnated you, but this time it was <<$wombthfath>>.'
-		'Her eyes widen. "Wow, your family must be really close," she giggles.'
-		'"Shit, ''which of your family members did you like being knocked up by the most?'' might be the hottest question anyone has ever made me think of. Just when I started thinking I couldn''t love you any more." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
-		'After a few minutes, she breaks the kiss, but keeps her lips inches from yours. "Don''t think I''ll forget the image of you being passed around your family like a good little slut. I need something to masturbate about when you''re not around." As soon as she finishes speaking, her lips are magnetically pulled back to yours.'
-
-	elseif arrpos('$ChildThFath',$wombthfath) >= 0 and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1 and ($wombthfath ! 'Kolka' and $wombthfath ! 'Stepfather' and $wombthfath ! 'Biological Father'):
-		'You tell Katja that you don''t that the father is <<$wombthfath>> again.'
-		'"I hope he makes you happy. And that he doesn''t mind sharing you with me," she blushes. "I would hate to completely lose the woman I love." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
-
-	elseif arrpos('$ChildThFath',$wombthfath) = arrsize('$ChildThFath')-1 and ($wombthfath ! 'Kolka' and $wombthfath ! 'Stepfather' and $wombthfath ! 'Biological Father'):
-		'You tell Katja that you don''t that the father is <<$wombthfath>>.'
-		'"I''m glad you realize you''re too special to limit yourself to one man. I love you too much to let you do anything less." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
-
-	elseif katjaQW['slut'] >= 60 and $wombthfath = '':
-		'You tell Katja that you don''t know you the father is.'
-		'"Seems like you had a little too much fun then," she chuckles.'
-		'"I hope you''ll include me next time."'
-
-	elseif katjaQW['slut'] < 60 and npc_rel['A14'] >= 40 and $wombthfath = '':
-		'You tell Katja that you don''t know you the father is.'
-		'"Seems like you had a little too much fun then," she chuckles.'
+!!The family reactions
+	if ($wombthfathID = 'A34' and npc_rel['A34'] > 50) or ($wombthfathID = 'A28' and npc_rel['A28'] > 50) or ($wombthfathID = 'A29' and npc_rel['A29'] > 50):
+		if $wombthfathID = $ChildThFath[kid-1]:
+			if katjaQW['slut'] >= 60:
+				'You tell Katja that <<$wombthfath>> got you pregnant again.'
+				'"Damn, I never thought I''d meet someone who wanted to be an incest baby factory."'
+				'"God, you''re the hottest bitch I know. I didn''t think I could be any more in love with you." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
+				'After a few minutes, she breaks the kiss, but keeps her lips inches from yours. "Don''t let this distract from my wanting you to become his breeding bitch. I want him to keep you pregnant. I need something to masturbate about when you’re not around." As soon as she finishes speaking, her lips are magnetically pulled back to yours.'
+			else
+				'You tell Katja that <<$wombthfath>> got you pregnant again.'
+				'"Damn, I never thought I''d meet someone who wanted to be an incest baby factory."'
+				'"I just hope he makes you happy. It''s sometimes hard to believe that you''re the woman I fell in love with." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
+			end
+		else
+			if katjaQW['slut'] >= 60:
+				'Blushing, you tell Katja that a member of your family impregnated you, but this time it was <<$wombthfath>>.'
+				'Her eyes widen. "Wow, your family must be really close," she giggles.'
+				'"Shit, ''which of your family members did you like being knocked up by the most?'' might be the hottest question anyone has ever made me think of. Just when I started thinking I couldn''t love you any more." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
+				'After a few minutes, she breaks the kiss, but keeps her lips inches from yours. "Don''t think I''ll forget the image of you being passed around your family like a good little slut. I need something to masturbate about when you''re not around." As soon as she finishes speaking, her lips are magnetically pulled back to yours.'
+			else
+				'Blushing, you tell Katja that a member of your family impregnated you, but this time it was <<$wombthfath>>.'
+				'Her eyes widen. "wow, your family must be really close," she giggles.'
+				'"To think I''d fall in love with a woman who lets multiple members of her own family knock her up." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
+			end
+		end
+!!The non-family reactions
 	else
-		'You tell Katja that you prefer not to say who the father is.'
-		'"Seems like you had a little too much fun then," she chuckles.'
+		if $wombthfathID = $ChildThFath[kid-1]:
+			'You tell Katja that <<$wombthfath>> is the father again.'
+			'"I hope he makes you happy. And that he doesn''t mind sharing you with me," she blushes. "I would hate to completely lose the woman I love." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
+		elseif $wombthfath = '' or $wombthfathID = 'unknown':
+			if katjaQW['slut'] >= 60:
+				'You tell Katja that you don''t know you the father is.'
+				'"Seems like you had a little too much fun then," she chuckles.'
+				'"I hope you''ll include me next time."'
+			else
+				if npc_rel['A14'] >= 40:
+					'You tell Katja that you don''t know you the father is.'
+					'"Seems like you had a little too much fun then," she chuckles.'
+				else
+					'You tell Katja that you prefer not to say who the father is.'
+					'"Seems like you had a little too much fun then," she chuckles.'
+				end
+			end
+		else
+			'You tell Katja that the father is <<$wombthfath>>.'
+			'"I''m glad you realize you''re too special to limit yourself to one man. I love you too much to let you do anything less." Her eyes widen and her cheeks redden at the realization that she just admitted she loves you. Before you can respond, she cuts you off with a passionate kiss.'
+		end
 	end
+
 	act 'Continue':
 		minut += 10
 		if $loc = 'katja_dorm':

locations/brother.qsrc

@@ -1516,10 +1516,10 @@ if $ARGS[0] = 'pregreact':
 			cla
 			'Surprised, your brother looks at your stomach, "Are you really pregnant? It... it''s not mine, is it?"'
 			*nl
-			if $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
+			if $wombthfathID = 'A34' and npc_rel['A34'] > 50:
 				act 'Yes (Happy)':gt 'brother', 'brotherknows1'
 				act 'Yes (Angry)':gt 'brother', 'brotherknows2'
-			elseif $wombthfath = '':
+			elseif arrpos('$wombpotfath', 'A34') >= 0:
 				act 'Maybe (Happy)':gt 'brother', 'brotherknows3'
 				act 'Maybe (Angry)':gt 'brother', 'brotherknows4'
 			else
@@ -1541,10 +1541,10 @@ if $ARGS[0] = 'pregreact':
 		cla
 		'Kolka looks at your stomach for moment before asking, "Wow, you''re pregnant again? Is it mine?"'
 		*nl
-		if $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
-			act 'Yes':gt 'brother', 'brotherknows6'
-		elseif $wombthfath = '':
+
+		if arrpos('$wombpotfath', 'A34') >= 0:
 			act 'Maybe':gt 'brother', 'brotherknows7'
+			if $wombthfathID = 'A34' and npc_rel['A34'] > 50: act 'Yes':gt 'brother', 'brotherknows6'
 		else
 			act 'No':gt 'brother', 'brotherknows8'
 		end
@@ -1641,7 +1641,7 @@ end
 if $ARGS[0] = 'brotherknows6':
 	npc_pregtalk['A34'] = 1
 	*nl
-	if arrpos('$ChildThFath','Kolka') >= 0 and arrpos('$ChildThFath','Kolka') ! arrsize('$ChildThFath')-1 and BrotherHappy = 1:
+	if arrpos('$ChildThFath','A34') >= 0 and BrotherHappy = 1:
 		cla
 		'"Yeah, you knocked me up again," you smile at him. "I think you''re doing this on purpose." You walk closer to your brother and straddle his lap. You affectionately wrap your arms around his neck and lean your face close to his, "You like knocking up your sister, don''t you? You just love that this belly shows the whole world that I let my own brother fuck me, huh?"'
 		'Kolka stares into your <<$pcs_eyecol>> eyes, his face bright red and a bulge growing in his pants.'
@@ -1684,7 +1684,7 @@ if $ARGS[0] = 'brotherknows6':
 
 			act 'Continue':minut += 10 & gt 'sitrPar'
 		end
-	elseif arrpos('$ChildThFath','Kolka') >= 0 and arrpos('$ChildThFath','Kolka') ! arrsize('$ChildThFath')-1 and BrotherAngry = 1:
+	elseif arrpos('$ChildThFath','A34') >= 0 and BrotherAngry = 1:
 		cla
 		'"Yeah, it''s yours. I can''t believe you got me pregnant again." You shake your head, "I don''t know why the hell I thought you''d be more careful after the first time."'
 		'"You thought I''d be more careful? It takes two, sweetheart." He chuckles, "And besides, I didn''t hear you complaining while we were fucking."'
@@ -1705,7 +1705,7 @@ if $ARGS[0] = 'brotherknows6':
 
 			act 'Continue':minut += 10 & gt 'sitrPar'
 		end
-	elseif arrpos('$ChildThFath','Kolka') >= 0 and arrpos('$ChildThFath','Kolka') ! arrsize('$ChildThFath')-1 and BrotherHappy = 1:
+	elseif $wombthfathID = 'A34' and BrotherHappy = 1:
 		cla
 		act 'Happy':gt 'brother', 'brotherknows1'
 		act 'Angry':gt 'brother', 'brotherknows2'
@@ -1713,7 +1713,7 @@ if $ARGS[0] = 'brotherknows6':
 		cla
 		*pl
 		'If you see this text, report it please as a bug and remember a few variables:'
-		'arrposkolka = <<arrpos(''$ChildThFath'',''Kolka'')>>'
+		'arrposkolka = <<arrpos(''$ChildThFath'',''A34'')>>'
 		'arrsizeChild = <<arrsize(''$ChildThFath'')-1>>'
 		'momKnowsKolka = <<momKnowsKolka>>'
 		'brotherBlackmail = <<brotherBlackmail>>'
@@ -1727,18 +1727,19 @@ if $ARGS[0] = 'brotherknows7':
 	cla
 	npc_pregtalk['A34'] = 1
 	*nl
-	if arrpos('$ChildThFath','Kolka') >= 0 and arrpos('$ChildThFath','Kolka') ! arrsize('$ChildThFath')-1 and BrotherHappy = 1:
+!! $ChildThFath gets applied in labor so it is relatively good way to check if you think you already have babies with somebody
+	if arrpos('$ChildThFath','A34') >= 0 and BrotherHappy = 1:
 		'"It could be, I''m still not sure yet. I just wanted to give you a heads up." You then add with a wink, "Honestly, I''m kind of hoping it is. I would love to be carrying another one of my brother''s children."'
 		'"I hope so, too," he states just a little too eagerly. He then quickly moves his lips to yours and you share a passionate kiss.'
 
 		act 'Continue' :gt 'sitrPar'
-	elseif arrpos('$ChildThFath','Kolka') >= 0 and arrpos('$ChildThFath','Kolka') ! arrsize('$ChildThFath')-1 and BrotherAngry = 1:
+	elseif arrpos('$ChildThFath','A34') >= 0 and BrotherAngry = 1:
 		'"I''m still not sure," you say. "But if it is, you had better take responsibility."'
 		'Your brother rolls his eyes, "Then I really hope it''s someone else''s problem."'
 		'"Fuck off! If it''s yours then I''ll make sure you take responsibility!" You then storm away, leaving Kolka to stew.'
 
 		act 'Continue' :gt 'sitrPar'
-	elseif $wombthfath ! 'Kolka' and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1:
+	else
 		act 'Happy':gt 'brother', 'brotherknows3'
 		act 'Angry':gt 'brother', 'brotherknows4'
 	end
@@ -1748,19 +1749,27 @@ if $ARGS[0] = 'brotherknows8':
 	cla
 	npc_pregtalk['A34'] = 1
 	*nl
-	if arrpos('$ChildThFath','Kolka') = arrsize('$ChildThFath')-1:
+	if $wombthfathID ! 'A34' and arrpos('$ChildThFath','A34') >= 0 and $wombthfathID ! 'unknown':
 		'"Not this time. It''s actually <<$wombthfath>>''s. Why, were you hoping you''d give me more children? Sorry, but this body is just too good to limit myself to one man, even if that man is my cute younger brother," you giggle.'
 		'Kolka licks his lips, "Well, you do have a great body, so I''ll concede that point."'
 		'"You know I love you, but please don''t take this as an invitation to try to get me pregnant again. I don''t know if I''m ready for more kids." Your brother nods, clearly disappointed. "Hey, you can still fuck me, you just have to be careful."'
 
 		act 'Continue' :gt 'sitrPar'
-	elseif $wombthfath ! 'Kolka' and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1:
+	elseif $wombthfathID ! 'A34' and arrpos('$ChildThFath','A34') < 0 and $wombthfathID ! 'unknown':
 		'You shake your head, "No, not this time either. It''s actually <<$wombthfath>>''s."'
 		'"Oh, congratulations again, then." You still catch disappointment in his voice.'
 		'You question him, "You weren''t trying to get me pregnant, were you?"'
 		'"Wh-what? No, of course not. I''m really happy for you." You''re pretty sure he''s lying, but you''re not going to push the subject. He''s lucky he''s cute.'
 		'"Hey, you''re my brother and I''ll love you no matter what happens. But don''t try to get me pregnant after I give birth this time. I am really not ready for more children." He nods in agreement.'
 
+		act 'Continue' :gt 'sitrPar'
+	else
+	!! Somebody with writing skills should add flavor.
+		'No, it is not.'
+		if $wombthfathID = 'unknown':
+			'I actually have no idea whose this one is.'
+		end
+
 		act 'Continue' :gt 'sitrPar'
 	end
 end

locations/femcyc.qsrc

@@ -15,11 +15,12 @@
 !!
 !!------------------------------------------------------------------------------------------------------------
 !!
-!!	$ChildFath : array for names of the childs biological father
+!!	$ChildFath : array for names of the childs biological father. This should be the absolute truth, not readily available information for the characters.
 !!	$ChildFathDNA : array for the DNA of the childs father
-!!	$ChildThFath : array for the names of the childs believed father (can be different from the biological father)
+!!	$ChildThFath : array for the IDs of the childs believed father (can be different from the biological father and should be in form of ID ie. 'A34' or 'unknown' if Sveta has no idea) Do not use for pregnancy events as it is only updated when going to labor. This is probably the variable you want to work with when doing paternity tests, or if father reacts to physical traits not matching despite Sveta claiming they are the dad.
+!!		arrpos('$ChildThFath', 'A34') >= 0 can be used to test if the person 'A34' (Kolka, for example) has already had a child with you
 !!	$childtype : child type. single child, fraternal twin, identical twin ...
-!!	$cumfthname : the name of the father if sveta is sure
+!!	$cumfthname : Array of IDs of the possible fathers (conscious acts) 'unknown' if otherwise empty
 !!	$cycreport_txt : Text for the current menstruation cycle. e.g. In labour.
 !!	$d_cycreport_update : Dynamic variable to update cycle report
 !!	$d_pregmovement : Dynamic variable for kid movement
@@ -29,7 +30,10 @@
 !!	$pcs_dna : Svetas DNA
 !!	$wombDNA : sperm in womb potent enough to cause pregnancy
 !!	$wombName : the identifier of the NPC
-!!	$wombpotfath : the used name of the potential father, if sveta is not sure
+!!	$wombpotfath : the array of IDs of the potential fathers
+!!	$wombthfath : The name of the person Sveta believes to be the father of ongoing pregnancy, updated from the cycle menu decision.
+!!	$wombthfathID : The ID of the person Sveta believes to be the father of ongoing pregnancy, updated from the cycle menu decision. - Might be best variable for pregnancy events with the dad
+!!		arrpos('$wombpotfath', 'A34') >= 0  can be used to test if the person 'A34' (Kolka, for example) is in the list of potential fathers
 !!	arrmodtmp : temp array used in pregnancy progression
 !!	babyembryo : used during implant phase. if the fertegg successfully nests, babyembryo is +1. BabyEmbryo is for how many unborn babies are inside Sveta.
 !!	Babyptype : pregnancy type of unborn babies. they might be unimplanted 0, healthy 1, or Ectopic 2.
@@ -112,7 +116,6 @@
 !!	succubusflag : used for succubus story arc. If Sveta is a succubus, the sperm will be absorbed
 !!	succubxp : succubus experience
 !!	succycletmp : succubus cycle temp var. Used during sperm absorption function.
-!!	tempbabyi : temp var for baby variable removal.
 !!	tempovbonus : temp var for ovulation bonus. Fertility bonus.
 !!	temprand : used as temp var for randomizer
 !!	tempwbbonus : temp variable for womb bonus during egg implant function
@@ -139,10 +142,10 @@
 !!
 !!	sparrloc : Location of the sperm, as per cumarrdel
 !!	sparrnam : Spatter Owner
-!!	sparrppt : Spatter Potential Potency (Used to increase potency if you don't clean yourself out)
+!!	sparrppt : Spatter Potential Potency (Used to increase potency if you do not clean yourself out)
 !!	sparridt : Did you know/realize who did it?
 !!	sparrvol : Volume of the spatter. 40 is average.
-!!	sparrslc : Spread status of the spatter. High volume can spread the contaminant from it's starting place.
+!!	sparrslc : Spread status of the spatter. High volume can spread the contaminant from it is starting place.
 !!	sparrcnt : Unique identifier of the exact which time the MC has had this spatter incident occur.
 !!
 !!	Values of 'cumarrdel' as defined by the cum_arr (taken from Cum_Manage.qsrc):
@@ -545,7 +548,6 @@ if $ARGS[0] = 'cyc2':
 				$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
 				wombAmount[y] = cumarrcpt[can_idx]
 				$wombName[y] = $cumarrnam[can_idx]
-
 			else
 				!! This DNA is in the womb, but does it belong to the same guy?
 				x = 0
@@ -580,8 +582,8 @@ if $ARGS[0] = 'cyc2':
 			end
 
 			cum_total += cumarrcpt[can_idx]
-
-		if can_idx < can_sz:can_idx += 1 & jump 'FatherCumAnalyze'
+		can_idx += 1 
+		if can_idx < can_sz: jump 'FatherCumAnalyze'
 
 		!! setting the default believed father if there is no difficult choice or there is no choice
 		if arrsize('$cumfthname') = 2 and cumtime[0] = 0:
@@ -641,11 +643,6 @@ if $ARGS[0] = 'cyc2':
 				$kid_dna[nextbaby] = func('DNA', 'generate', $pcs_dna, $npc_dna[$cumfathlotto[lotto_idx]])
 				$ChildFath[nextbaby] = $cumfathlotto[lotto_idx]
 				$ChildFathDNA[nextbaby] = $cumfatherDNA[lotto_idx]
-				if arrsize('$wombpotfath') = 1:
-					$ChildThFath[nextbaby] = $wombpotfath[0]
-				else
-					$ChildThFath[nextbaby] = 'unknown'
-				end
 				hairkid[nextbaby] = rand(0, 3)
 				eyeskid[nextbaby] = rand(0, 3)
 				ChildConType[nextbaby] = cumarrcon[nextbaby]
@@ -787,18 +784,17 @@ if $ARGS[0] = 'cyc3':
 		:lutcycloop
 		if rej_idx < rej_sz:
 			if Babyptype[rej_idx] = 0:
-				killvar 'polkid',tempbabyi
-				killvar '$kidname',tempbabyi
-				killvar 'kidage',tempbabyi
-				killvar 'daykid',tempbabyi
-				killvar 'monthkid',tempbabyi
-				killvar 'yearkid',tempbabyi
-				killvar 'Babyptype',tempbabyi
-				killvar '$ChildFath',tempbabyi
-				killvar '$ChildThFath',tempbabyi
-				killvar 'hairkid',tempbabyi
-				killvar 'eyeskid',tempbabyi
-				killvar 'cumarrcon',tempbabyi
+				killvar 'polkid',rej_idx
+				killvar '$kidname',rej_idx
+				killvar 'kidage',rej_idx
+				killvar 'daykid',rej_idx
+				killvar 'monthkid',rej_idx
+				killvar 'yearkid',rej_idx
+				killvar 'Babyptype',rej_idx
+				killvar '$ChildFath',rej_idx
+				killvar 'hairkid',rej_idx
+				killvar 'eyeskid',rej_idx
+				killvar 'cumarrcon',rej_idx
 				FertEgg -= 1
 			end
 			rej_idx += 1
@@ -902,11 +898,19 @@ if $ARGS[0] = 'preg':
 		if lactation['active'] < 1: func('lact_lib','lact_switch')
 		$cycreport_txt = 'In labour'
 		arrmodtmp = arrsize('$ChildFath')
-		arrmodtmp -= (babyembryo+1)
+		arrmodtmp -= (babyembryo)
 		:babyfinalpreploop
 		if arrmodtmp < arrsize('$ChildFath') and daykid[arrmodtmp] = 0:
 			daykid[arrmodtmp] = 42
-			$ChildThFath[arrmodtmp] = $wombthfath
+			!! $wombthfathID is the ID of the character Sveta has chosen as believed father in the cycle menu
+			!! checking the there is a valid ID that resolves into a name, if yes then applying that ID as believed father
+			if $npc_usedname[$wombthfathID] ! '':
+				$ChildThFath[arrmodtmp] = $wombthfathID
+			else
+			!! if the ID does not resolve into a name then it is probably some legacy event father
+			!! like 'A sperm donor' or else 'unknown'. In either case it should not cause issues if all outliers are designated 'unknown'
+				$ChildThFath[arrmodtmp] = 'unknown'
+			end
 			arrmodtmp += 1
 			jump 'babyfinalpreploop'
 		end

locations/fertility.qsrc

@@ -484,10 +484,10 @@ if $ARGS[0] = 'cum_arrcheat':
 			$cycletemp[4] = 'improperly defined'
 		end
 		$cycletemp[5] = $npc_usedname[$ChildFath[cycletemp]]
-		if $ChildThFath[cycletemp] ! 'unknown':
+		if $npc_usedname[$ChildThFath[cycletemp]] ! '':
 			$cycletemp[7] = $npc_usedname[$ChildThFath[cycletemp]]
 		else
-			$cycletemp[7] = ''
+			$cycletemp[7] = $ChildThFath[cycletemp]
 		end
 		!'Index number: <<cycletemp>>. Name of the kid: <<$kidname[cycletemp]>>. Age of the kid: <<kidage[cycletemp]>>. Born(M/D/Y): <<monthkid[cycletemp]>> / <<daykid[cycletemp]>> / <<yearkid[cycletemp]>>. Sex: <<$cycletemp[2]>>. Pregnancy Type: <<$cycletemp[3]>>. Biological Father: <<$ChildFath[cycletemp]>>. Believed Father: <<$ChildThFath[cycletemp]>>. Child Eye Color: <<eyeskid[cycletemp]>>. Child Hair Color: <<hairkid[cycletemp]>>. Child Type: <<$childtype[cycletemp]>>. Child Contraceptive Type: <<$cycletemp[4]>>'
 		*P '<TR><TD><<cycletemp>></TD><TD><<$kidname[cycletemp]>></TD><TD><<kidage[cycletemp]>></TD><TD><<monthkid[cycletemp]>> / <<daykid[cycletemp]>> / <<yearkid[cycletemp]>></TD><TD><<$cycletemp[2]>></TD><TD><<$cycletemp[3]>></TD><TD><<$ChildFath[cycletemp]>> - <<$cycletemp[5]>></TD><TD><<$ChildThFath[cycletemp]>> - <<$cycletemp[7]>></TD><TD><<eyeskid[cycletemp]>></TD><TD><<hairkid[cycletemp]>></TD><td><<$childtype[cycletemp]>></td><TD><<$cycletemp[4]>></TD><TD><<$kid_dna[cycletemp]>></TD></TR>'

locations/mother.qsrc

@@ -1076,7 +1076,7 @@ end
 if $ARGS[0] = 'pregreact1':
 	menu_off = 1
 	*nl
-	if $wombthfath = 'Kolka' and npc_rel['A34'] > 50 and brotherSecret = 1 and momKnowsKolka = 0:
+	if $wombthfathID = 'A34' and npc_rel['A34'] > 50 and brotherSecret = 1 and momKnowsKolka = 0:
 		'"I... I don''t actually know. I was," you stammer as you struggle to get the next word out. "I was raped."'
 		'"What? Are you okay? Why did''t you tell me sooner?"'
 		'"I was scared and ashamed and I didn''t know how you would react." Your lip quivers as tears begin to flow down your face. "I''m sorry. I should have said something."'
@@ -1096,9 +1096,9 @@ if $ARGS[0] = 'pregreact1':
 
 			act 'Continue':gt 'mother', 'pregreactbrother'
 		end
-	elseif $wombthfath = 'Kolka' and npc_rel['A34'] > 50 and brotherSecret = 0 and momKnowsKolka = 0:
+	elseif $wombthfathID = 'A34' and npc_rel['A34'] > 50 and brotherSecret = 0 and momKnowsKolka = 0:
 		gt 'mother', 'pregreactbrother'
-	elseif $wombthfath = 'Vladimir' and npc_rel['A28'] > 50 and stepdadSecret = 1 and momKnowsVladimir = 0:
+	elseif $wombthfathID = 'A28' and npc_rel['A28'] > 50 and stepdadSecret = 1 and momKnowsVladimir = 0:
 		'"I... I don''t actually know. I was," you stammer as you struggle to get the next word out. "I got jumped one night, I tried to fight back but they were too strong. They raped me..."'
 		'"What? Are you okay? Why did''t you tell me sooner?"'
 		'"I was scared and ashamed and I didn''t know how you would react." Your lip quivers as tears begin to flow down your face. "I''m sorry. I should have said something earlier."'
@@ -1118,9 +1118,9 @@ if $ARGS[0] = 'pregreact1':
 
 			act 'Continue':gt 'mother', 'pregreactstepdad'
 		end
-	elseif $wombthfath = 'Vladimir' and npc_rel['A28'] > 50 and stepdadSecret = 0 and momKnowsVladimir = 0:
+	elseif $wombthfathID = 'A28' and npc_rel['A28'] > 50 and stepdadSecret = 0 and momKnowsVladimir = 0:
 		gt 'mother', 'pregreactstepdad'
-	elseif $wombthfath = '':
+	elseif $wombthfath = '' or $wombthfathID = 'unknown':
 		cla
 		if stat['think_virgin'] = 1:
 			'"I don''t know!", you wail, freaking out a bit. "I did not have sex, ever!"'

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.'
 
@@ -468,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
@@ -493,23 +493,29 @@ 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
+	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
 	act 'Continue':gt 'natbelapt', 'natroom'
 end
 

locations/natbelapt.qsrc

@@ -628,7 +628,7 @@ if $ARGS[0] = 'natroom':
 							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?"'
+								if $wombthfathID = 'A34': 'With a tinge of wonder Natasha mumbles "Your little brother makes some energetic children, doesn''t he?"'
 							end
 						end
 					end
@@ -648,7 +648,7 @@ if $ARGS[0] = 'natroom':
 							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?"'
+								if $wombthfathID = 'A34': 'You see Natasha blush slightly before she says with a wink "Just like their dad, huh?"'
 							end
 						end
 					end

locations/pattest.qsrc

@@ -1,6 +1,11 @@
 # pattest
 !! It is called like "gs 'pattest','Kolka'", or "gs 'pattest',$boy"
 !! It needs some automatic call, usable when a named guy has cum in or on you, and only his cum is in/on the area (do not call this with "rapist", "unknown" or "gopnik")
+!! Calls should be done with unique IDs 'A34' for Kolka etc.
+!!	$ChildFath : array for names of the childs biological father. This should be the absolute truth, not readily available information for the characters.
+!!	$ChildFathDNA : array for the DNA of the childs father
+!!	$ChildThFath : array for the IDs of the childs believed father (can be different from the biological father and should be in form of ID ie. 'A34' or 'unknown' if Sveta has no idea) Do not use for pregnancy events as it is only updated when going to labor. This is probably the variable you want to work with when doing paternity tests, or if father reacts to physical traits not matching despite Sveta claiming they are the dad.
+
 !! There needs to be an option to call it selectively when certain circumstances are met ($boy gives sample voluntarily).
 
 if ARGS[1] ! 1 and pattest > 0: