[changed] natasha and katja events to use ID as part of the overhaul. Also few comment updates.

locations/KatjaHomeTalk.qsrc

@@ -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/femcyc.qsrc

@@ -18,6 +18,7 @@
 !!	$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) Don't 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.
+!!		if 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 : 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.
@@ -32,7 +33,7 @@
 !!	$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
-!!	if arrpos('$wombpotfath', 'A34') >= 0: can be tested to see if the person 'A34' (Kolka, for example) is in the list of potential fathers
+!!		if 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.

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/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/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) Don't 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: