Merge remote-tracking branch 'Lusticon/master'

locations/brother.qsrc

@@ -48,6 +48,10 @@ if npc_QW['A34'] > 20 and npc_QW['A34'] < 25: npc_QW['A34'] = 20
 !! npc_breastfeed_by_sveta['A34'] = 0 or 1 - Kolka was not/was breastfeed by sveta
 !! npc_tasted_sveta_milk['A34'] = 0 or 1 - Does Kolka know how svetas breast milk taste? 0 = no, 1 = yes
 
+if npc_pregtalk['A34'] = 0 and brother_pregreact <> 1 and ($ARGS[0] = 'start' or $ARGS[0] = 'showbody' or $ARGS[0] = 'kiss_talk' or $ARGS[0] = 'homework'):
+	gs 'brother', 'pregreact'
+	if brother_pregreact = 1: exit
+end
 
 if $ARGS[0] = 'start':
 	menu_off = 1
@@ -214,7 +218,6 @@ if $ARGS[0] = 'start':
 	end
 
 	if $loc = 'sitrPar':
-		if npc_pregtalk['A34'] = 0: gs 'brother', 'pregreact'
 		gs 'brother', 'brotherSexCount'
 
 		if locat['Fam_inGad'] = 0 and $clothingworntype ! 'nude' and brothersawpirsF=0 and locat['Stepdad'] ! 10 and npc_rel['A34'] > 85 and hour >= 18 and hour < 23 and pirsF > 0:
@@ -282,7 +285,7 @@ if $ARGS[0] = 'start':
 
 		if locat['Fam_inGad'] = 0 and brotherSexCount > 0 and brotherDay = daystart:
 			brotherrand = rand(0,10)
-			if hour < 6:
+			if  hour < 6 or hour = 23:
 				'You look at your brother sleeping peacefully on the couch.'
 			elseif hour < 7 and brotherMorningSex ! daystart:
 				'You look at your brother sleeping peacefully on the couch.'
@@ -304,7 +307,7 @@ if $ARGS[0] = 'start':
 				'Your brother is playing video games.'
 			end
 
-			if hour >= 23 and brotherSex > 4 and brotherNightSex ! daystart and locat['Mother'] ! 19:
+			if hour > 0 and hour < 4 and brotherSex > 4 and brotherNightSex ! daystart and locat['Mother'] ! 19:
 				'As you approach your sleeping brother, he suddenly opens his eyes and looks at you.'
 				'He points to the mound under his blanket, "Sis, I can''t get any sleep, can you help?"'
 				cla
@@ -322,9 +325,7 @@ if $ARGS[0] = 'start':
 					act 'Leave':gt 'sitrPar'
 					exit
 				end
-			end
-
-			if locat['Stepdad'] ! 10 and hour >= 18 and hour < 23 and brotherSex > 4 and brotherEvSex ! daystart and locat['Mother'] ! 19:
+			elseif locat['Stepdad'] ! 10 and hour >= 18 and hour < 23 and brotherSex > 4 and brotherEvSex ! daystart and locat['Mother'] ! 19:
 				'When you get close, Kolka turns to you.'
 				'"Sis, I''ve got a problem," he points to the lump in his pants. "Can you help me solve it?"'
 				cla
@@ -1286,7 +1287,6 @@ if $ARGS[0] = 'brother_voyeur_ev6':
 	end
 end
 
-
 if $ARGS[0] = 'brother_voyeur_ev7':
 	*clr & cla
 	menu_off = 1
@@ -1498,37 +1498,50 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 end
 
 if $ARGS[0] = 'pregreact':
+	killvar 'brother_pregreact'
+	if npc_pregtalk['A34'] = 1: exit
+	if $loc = 'sitrPar':
+		if hour < 6: exit
+		if hour < 7 and brotherMorningSex ! daystart: exit
+		if hour >= 23: exit
+	end
+
+	*clr
+	brother_pregreact = 1
+	'<center><b><font color="maroon">Kolka</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
+
 	if knowpreg = 1 and kid = 0 and FUNC('body_din','pregnancyVisibility') = 1:
 		if $clothingworntype = 'nude' and brotherSex < 7:
+			cla
 			'Surprised, your brother looks at your stomach. "<<$pcs_nickname>>, are you pregnant? <<$npc_nickname[''A29'']>> and dad are going to be pissed!" After a moments pause he adds, "You do still look good, though."'
 			npc_pregtalk['A34'] = 1
 
 			act 'Continue' :gt 'sitrPar'
-		exit
-
+			exit
 		elseif $clothingworntype ! 'nude' and brotherSex < 7:
+			cla
 			'Surprised, your brother looks at your stomach, "<<$pcs_nickname>>, why didn''t you tell me I''m going to be an uncle?"'
 			npc_pregtalk['A34'] = 1
 
 			act 'Continue' :gt 'sitrPar'
 			exit
-
 		elseif brotherSex >= 7 and npc_pregtalk['A29'] = 0:
 			cla
 			'Surprised, your brother looks at your stomach, "Are you really pregnant? It... it''s not mine, is it?"'
-			*nl
 			if $wombthfathID = 'A34' and npc_rel['A34'] > 50:
-				act 'Yes (Happy)':gt 'brother', 'brotherknows1'
-				act 'Yes (Angry)':gt 'brother', 'brotherknows2'
+				act 'Yes (Happy)':gs 'brother', 'brotherknows1'
+				act 'Yes (Angry)':gs 'brother', 'brotherknows2'
 			elseif arrpos('$wombpotfath', 'A34') >= 0:
-				act 'Maybe (Happy)':gt 'brother', 'brotherknows3'
-				act 'Maybe (Angry)':gt 'brother', 'brotherknows4'
+				act 'Maybe (Happy)':gs 'brother', 'brotherknows3'
+				act 'Maybe (Angry)':gs 'brother', 'brotherknows4'
 			else
-				act 'No':gt 'brother', 'brotherknows5'
+				act 'No':gs 'brother', 'brotherknows5'
 			end
 			exit
 		end
 	elseif brotherSex < 7 and kid > 0 and FUNC('body_din','pregnancyVisibility') = 1:
+		cla
 		'"You''re already pregnant again? This is starting to look like a new hobby," he laughs.'
 		'"You know what? Maybe it is," you joke back. "Some girls play sports, I get serially impregnated."'
 		'Kolka pokes his tongue out at you, "Well, congratulations on taking home the gold in getting knocked up."'
@@ -1538,24 +1551,26 @@ if $ARGS[0] = 'pregreact':
 		'You leave your brother to what he was doing before, glad that the two of you have the relationship that you do.'
 
 		act 'Continue' :npc_pregtalk['A34'] = 1 & gt 'sitrPar'
+		exit
 	elseif brotherSex >= 7 and kid > 0 and npc_pregtalk['A29'] = 0 and FUNC('body_din','pregnancyVisibility') = 1:
 		cla
 		'Kolka looks at your stomach for moment before asking, "Wow, you''re pregnant again? Is it mine?"'
-		*nl
-
 		if arrpos('$wombpotfath', 'A34') >= 0:
-			act 'Maybe':gt 'brother', 'brotherknows7'
-			if $wombthfathID = 'A34' and npc_rel['A34'] > 50: act 'Yes':gt 'brother', 'brotherknows6'
+			act 'Maybe':gs 'brother', 'brotherknows7'
+			if $wombthfathID = 'A34' and npc_rel['A34'] > 50: act 'Yes':gs 'brother', 'brotherknows6'
 		else
-			act 'No':gt 'brother', 'brotherknows8'
+			act 'No':gs 'brother', 'brotherknows8'
 		end
+		exit
 	end
+
+	brother_pregreact = 0
+	*clr
 end
 
 if $ARGS[0] = 'brotherknows1':
 	cla
 	npc_pregtalk['A34'] = 1
-	*nl
 	'"Yeah, this baby is yours," you say, rubbing your belly. "And after it''s born, I might let you help me make another one," you add before giving your brother a kiss. You look down at him and notice a lump starting to form in his pants.'
 	'Kolka''s eyes suddenly go wide, "Wait! You''re not going to tell <<$npc_nickname[''A29'']>> I got you pregnant, are you?"'
 
@@ -1584,7 +1599,6 @@ end
 if $ARGS[0] = 'brotherknows2':
 	cla
 	npc_pregtalk['A34'] = 1
-	*nl
 	'"Yes, it is and you''re going to take responsibility. I am not going to be a single mother raising this child on my own."'
 	'Kolka stares at you in shock, "But I don''t know anything about raising a kid!"'
 	'"Well, you should have thought of that before knocking me up! You''re going to have to figure it out," your brother is clearly crestfallen as you walk away.'
@@ -1610,7 +1624,6 @@ end
 if $ARGS[0] = 'brotherknows3':
 	cla
 	npc_pregtalk['A34'] = 1
-	*nl
 	'"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 kind of hope it is."'
 	'"Me too," he states just a little too eagerly. He then quickly moves his lips to yours and you share a passionate kiss.'
 
@@ -1620,7 +1633,6 @@ end
 if $ARGS[0] = 'brotherknows4':
 	cla
 	npc_pregtalk['A34'] = 1
-	*nl
 	'"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.'
@@ -1631,7 +1643,6 @@ end
 if $ARGS[0] = 'brotherknows5':
 	cla
 	npc_pregtalk['A34'] = 1
-	*nl
 	'"No, you got lucky this time. It''s actually <<$wombthfath>>''s," you tell him. "I just wanted to share the news with my little brother."'
 	'"Oh, well congratulations!" He tries to sound happy, but you detect a note of disappointment in his voice.'
 
@@ -1641,7 +1652,6 @@ end
 !Once pregnancy fetish is added, these will be expanded
 if $ARGS[0] = 'brotherknows6':
 	npc_pregtalk['A34'] = 1
-	*nl
 	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?"'
@@ -1727,7 +1737,6 @@ end
 if $ARGS[0] = 'brotherknows7':
 	cla
 	npc_pregtalk['A34'] = 1
-	*nl
 !! $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."'
@@ -1749,14 +1758,13 @@ end
 if $ARGS[0] = 'brotherknows8':
 	cla
 	npc_pregtalk['A34'] = 1
-	*nl
-	if $wombthfathID ! 'A34' and arrpos('$ChildThFath','A34') >= 0 and $wombthfathID ! 'unknown':
+	if $wombthfathID ! 'A34' and arrpos('$ChildThFath','A34') >= 0 and $wombthfathID ! 'unknown' and $wombthfathID ! '':
 		'"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 $wombthfathID ! 'A34' and arrpos('$ChildThFath','A34') < 0 and $wombthfathID ! 'unknown':
+	elseif $wombthfathID ! 'A34' and arrpos('$ChildThFath','A34') < 0 and $wombthfathID ! 'unknown' and $wombthfathID ! '':
 		'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?"'
@@ -1767,7 +1775,7 @@ if $ARGS[0] = 'brotherknows8':
 	else
 	!! Somebody with writing skills should add flavor.
 		'No, it is not.'
-		if $wombthfathID = 'unknown':
+		if $wombthfathID = 'unknown' or $wombthfathID = '':
 			'I actually have no idea whose this one is.'
 		end