Bladeren bron

[fixed] Converted pregnancy reaction checks from pregtime to pregchem, and increase first seeing bump reactions from day 90 to day 112 to be in line with images

jhawkkaw 5 jaren geleden
bovenliggende
commit
59b62694d8

+ 6 - 6
locations/Cheatmenu_din.qsrc

@@ -241,27 +241,27 @@ $cheatmenu['bodyMod'] = {
 			''
 		end
 		if (pregchem >= 3696 and pregchem < 4200) = 0:
-			'<a href="exec:pregchem = 3696 & pregtime = 133 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
+			'<a href="exec:pregchem = 3696 & pregtime = 154 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
 			''
 		end
 		if (pregchem >= 4200 and pregchem < 4704) = 0:
-			'<a href="exec:pregchem = 4200 & pregtime = 154 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
+			'<a href="exec:pregchem = 4200 & pregtime = 175 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
 			''
 		end
 		if (pregchem >= 4704 and pregchem < 5208) = 0:
-			'<a href="exec:pregchem = 4704 & pregtime = 175 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
+			'<a href="exec:pregchem = 4704 & pregtime = 196 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
 			''
 		end
 		if (pregchem >= 5208 and pregchem < 5712) = 0:
-			'<a href="exec:pregchem = 5208 & pregtime = 196 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
+			'<a href="exec:pregchem = 5208 & pregtime = 217 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
 			''
 		end
 		if (pregchem >= 5712 and pregchem < 6216) = 0:
-			'<a href="exec:pregchem = 5712 & pregtime = 217 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
+			'<a href="exec:pregchem = 5712 & pregtime = 238 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
 			''
 		end
 		if (pregchem >= 6216) = 0:
-			'<a href="exec:pregchem = 6216 & pregtime = 238 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 8)]>></a>'
+			'<a href="exec:pregchem = 6216 & pregtime = 259 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 8)]>></a>'
 			''
 		end
 	end

+ 1 - 1
locations/Gnpc.qsrc

@@ -214,7 +214,7 @@ act 'Take a walk through the park':
 	end
 end
 
-if preg = 1 and pregtime <= 80 and pregTalk[numnpc] = 0 and gnpcSex[numnpc] > 0 and knowpreg = 1:
+if preg = 1 and pregchem <= 1920 and pregTalk[numnpc] = 0 and gnpcSex[numnpc] > 0 and knowpreg = 1:
 	if $father ! $nameBoyfrend[numnpc]:
 		$pregLie = '(Lie) '
 	else

+ 2 - 2
locations/HotelHole.qsrc

@@ -382,7 +382,7 @@ if $ARGS[0] = 'Pavlin' :
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/pavlin/pavlin.jpg"></center>'
 			'"<<$pcs_firstname>>, today I received a request for a pregnant girl. A Pregnant Girl! How the hell am I going to find a girl that is pregnant and willing to do this shit." he says, shaking his head.'
-			if knowpreg = 1 and pregtime >= 150:
+			if knowpreg = 1 and pregchem >= 3600:
 				cla
 				'You feel anger towards <<$npc_nickname[''A217'']>> rising up inside you. "Do you ever pay attention to me? Can''t you see I am pregnant?" You ask, gesturing at your obviously swollen belly.'
 				'"Of course I know that!" <<$npc_nickname[''A217'']>>''s brows furrow, letting you know he''s getting mad. Butterflies flutter in your stomach, fear trying to match up with the anger.'
@@ -395,7 +395,7 @@ if $ARGS[0] = 'Pavlin' :
 				end
 				act '"Of course I am, for the right price..."': gt 'HotelHole','PregBDSM'
 			end
-			if knowpreg = 1 and pregtime < 150:
+			if knowpreg = 1 and pregchem < 3600:
 				cla
 				'"Actually I am pregnant but unfortunately not really showing yet."'
 				'"That''s great, Once you are showing come to me again and I''ll introduce you."'

+ 6 - 6
locations/KatjaHomeTalk.qsrc

@@ -224,7 +224,7 @@ if $ARGS[0] = '':
 	end
 
 	if pregTalkKatja = 0 and KatjaConflict = 0 and kid = 0:
-		if knowKatjaPreg = 1 and pregtime >= 150:
+		if knowKatjaPreg = 1 and pregchem >= 3600:
 			cla
 			gs 'stat'
 			minut += 5
@@ -233,7 +233,7 @@ if $ARGS[0] = '':
 			'"Are you pregnant? Why didn''t you tell me? I thought we were closer than that. I told you that I was pregnant. I need to think. We''ll talk later"'
 
 			act 'Say goodbye and go home':gt 'pavResidential'
-		elseif knowKatjaPreg = 1 and knowpreg = 1 and pregtime > 0 and pregtime < 150:
+		elseif knowKatjaPreg = 1 and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				cls
 				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
@@ -242,7 +242,7 @@ if $ARGS[0] = '':
 				*nl
 				act 'Next':gt 'KatjaHomeTalk', 'katjaknows'
 			end
-		elseif KatjaPreg = 0 and pregtime >= 150:
+		elseif KatjaPreg = 0 and pregchem >= 3600:
 			cla
 			*nl
 			minut += 5
@@ -251,7 +251,7 @@ if $ARGS[0] = '':
 			'"Are you pregnant? Why didn''t you tell me? I thought we were closer than that. I need to think. We''ll talk later"'
 
 			act 'Say goodbye and go home':gt 'pavResidential'
-		elseif KatjaPreg = 0 and knowpreg = 1 and pregtime > 0 and pregtime < 150:
+		elseif KatjaPreg = 0 and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				cls
 				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
@@ -264,7 +264,7 @@ if $ARGS[0] = '':
 	end
 
 	if pregTalkKatja = 0 and (KatjaConflict = 0 or katjaconflict = 2) and kid > 0:
-		if knowKatjaPreg = 1 and pregtime >= 150:
+		if knowKatjaPreg = 1 and pregchem >= 3600:
 			cla
 			gs 'stat'
 			minut += 5
@@ -272,7 +272,7 @@ if $ARGS[0] = '':
 			KatConCheck = daystart
 			'"You''re pregnant again?" Her face turns red and her expression is far angrier than you''ve ever seen her. "After everything, you still didn''t trust me enough to tell me," she screams. "I thought there was something special between us." Tears begin rolling down her cheeks. "Just leave me alone, I don''t even want to see you right now."'
 			act 'Say goodbye and go home':gt 'pavResidential'
-		elseif knowKatjaPreg = 1 and knowpreg = 1 and pregtime > 0 and (KatjaConflict = 0 or katjaconflict = 2) and pregtime < 150:
+		elseif knowKatjaPreg = 1 and knowpreg = 1 and pregchem > 0 and (KatjaConflict = 0 or katjaconflict = 2) and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				cls
 				gs 'stat'

+ 8 - 8
locations/NatBelHome.qsrc

@@ -476,13 +476,13 @@ elseif lernHome = 0:
 end
 
 if pregTalkNat = 0 and kid = 0:
-	if natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and pregtime >= 150:
+	if natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and pregchem >= 3600:
 		*clr & cla
 		gs 'stat'
 		'"<<$pcs_nickname>>, are you pregnant, too? Well, I guess I don''t have to worry about being the only pregnant girl at school," she giggles.'
 
 		act 'Next':gt 'NatBelhome', 'natknows'
-	elseif natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and knowpreg = 1 and pregtime > 0 and pregtime < 150:
+	elseif natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 		act 'Tell her you''re pregnant':
 			*clr & cla
 			'"If you were worried about being the only pregnant girl at school, that won''t be a problem anymore." You smirk while rubbing your midriff. "It looks like I got myself knocked up as well."'
@@ -490,7 +490,7 @@ if pregTalkNat = 0 and kid = 0:
 			*nl
 			act 'Next':gt 'NatBelhome', 'natknows'
 		end
-	elseif pregtime > 0 and knowpreg = 1 and natsub = 0 and (daystart-natpregday) < 84:
+	elseif pregchem > 0 and knowpreg = 1 and natsub = 0 and (daystart-natpregday) < 84:
 		act 'Tell her you''re pregnant':
 			cla
 			*nl
@@ -498,7 +498,7 @@ if pregTalkNat = 0 and kid = 0:
 			act 'Continue' :gt 'NatBelhome'
 			pregTalkNat = 1
 		end
-	elseif pregtime > 0 and knowpreg = 1 and natsub > 0 and (daystart-natpregday) < 84:
+	elseif pregchem > 0 and knowpreg = 1 and natsub > 0 and (daystart-natpregday) < 84:
 		act 'Tell her you''re pregnant':
 			cla
 			*nl
@@ -521,13 +521,13 @@ if pregTalkNat = 0 and kid = 0:
 end
 
 if pregTalkNat = 0 and kid > 0:
-	if (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and pregtime >= 150:
+	if (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and pregchem >= 3600:
 		*clr & cla
 		gs 'stat'
 		'"Wow, <<$pcs_nickname>>, you''re pregnant again? You''re really committed to making sure I''m not the only young mother around here, huh?" She playfully smiles and puts a hand on your shoulder. "It''s good to know you''re looking out for me."'
 
 		act 'Next':gt 'NatBelhome', 'natknows1'
-	elseif (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and knowpreg = 1 and pregtime > 0 and pregtime < 150:
+	elseif (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 		act 'Tell her you''re pregnant':
 			*clr & cla
 			'"Hey, guess who''s pregnant again. You know, I''m glad I forced you to let Kolka impregnate you so that I could have someone I can relate to."'
@@ -535,7 +535,7 @@ if pregTalkNat = 0 and kid > 0:
 			*nl
 			act 'Next':gt 'NatBelhome', 'natknows1'
 		end
-	elseif pregtime > 0 and natsub = 0 and knowpreg = 1:
+	elseif pregchem > 0 and natsub = 0 and knowpreg = 1:
 		act 'Tell her you''re pregnant':
 			*clr & cla
 			*nl
@@ -543,7 +543,7 @@ if pregTalkNat = 0 and kid > 0:
 			act 'Continue' :gt 'NatBelhome'
 			pregTalkNat = 1
 		end
-	elseif pregtime > 0 and natsub > 0 and (daystart-natpregday) < 84 and knowpreg = 1:
+	elseif pregchem > 0 and natsub > 0 and (daystart-natpregday) < 84 and knowpreg = 1:
 		act 'Tell her you''re pregnant':
 			*clr & cla
 			*nl

+ 1 - 1
locations/bass.qsrc

@@ -143,7 +143,7 @@ if $ARGS[0] = 'a':
 		gs 'exercise', 'tier1', 60, 'stren_exp'
 		pcs_sweat = 10 + rand(0,4)
 		if pcs_inhib < 50:inhib_exp += rand(1,2)
-		if pregtime < 150:	
+		if pregchem < 3600:	
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/pool/poolswim.jpg"></center>'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/pool/poolswimpreg.jpg"></center>'

+ 2 - 2
locations/cikl.qsrc

@@ -701,7 +701,7 @@ else
 			elseif preg > 0:
 				razeba = 6
 
-				if pcs_horny < 100:pcs_horny += pregtime / 10
+				if pcs_horny < 100:pcs_horny += pregchem / 240
 			end
 		end
 	end
@@ -765,7 +765,7 @@ elseif nark > 0:
 	nark -= 1
 end
 
-if pregtime > 10:fat += 1
+if pregchem > 240:fat += 1
 
 !!------------------------------------------------------------------------------------------------------------
 !!	Pain

+ 2 - 2
locations/dinsister.qsrc

@@ -114,9 +114,9 @@ $sischecks = {
 		'Your sister takes a good look at your eyebrow piercing and says, "Nice, but be careful, don''t accidentally get it caught on something!"'
 	end
 	
-	if pregTalkSister = 0 and (($clothingworntype = 'nude' and pregtime > 90) or ($clothingworntype ! 'nude' and pregtime > 150)):
+	if pregTalkSister = 0 and (($clothingworntype = 'nude' and pregchem > 2688) or ($clothingworntype ! 'nude' and pregchem > 3600)):
 		pregTalkSister = 1
-		if $clothingworntype ! 'nude' and pregtime > 150:
+		if $clothingworntype ! 'nude' and pregchem > 3600:
 			'With surprise your sister says, "You''re pregnant, <<$pcs_nickname>>!"'
 			'"How the hell can you tell?"'
 			'With a smile, she says, "I have a bionic eye." As she reaches out and rubs your protruding belly, "So, do you know who the father is?"'

+ 2 - 2
locations/father.qsrc

@@ -134,14 +134,14 @@ if tatlip>0 and fatherTatLip=0 and npc_rel['A28']>=60:
     end
 end
 
-if $clothingworntype = 'nude' and pregTalkFather = 0 and pregtime > 90:
+if $clothingworntype = 'nude' and pregTalkFather = 0 and pregchem > 2688:
     'Your stepfather looks at your belly with a surprised look on his face: "<<$pcs_nickname>>, you''re pregnant?"'
     if npc_sex['A28']!0:
         'You see him hesitate for a second, as if weighing whether he should say something or not. He finally does: "It''s not mine, I hope?"'
     end
     pregTalkFather = 1
     
-elseif $clothingworntype ! 'nude' and pregTalkFather = 0 and pregtime > 150:
+elseif $clothingworntype ! 'nude' and pregTalkFather = 0 and pregchem > 3600:
     'Your stepfather looks at your belly with a surprised look on his face: "<<$pcs_nickname>>, you''re pregnant?"'
     if npc_sex['A28']!0:
         'You see him hesitate for a second, as if weighing whether he should say something or not. He finally does: "It''s not mine, I hope?"'

+ 3 - 3
locations/mother.qsrc

@@ -754,7 +754,7 @@ if $ARGS[0] = 'pregreact':
 	menu_off = 1
 	*nl
 	if pregTalkFamily = 0 and pregtalkmom = 0 and kid = 0:
-		if ($clothingworntype = 'nude' and pregtime > 90) or ($clothingworntype ! 'nude' and pregtime > 150):
+		if ($clothingworntype = 'nude' and pregchem > 2688) or ($clothingworntype ! 'nude' and pregchem > 3600):
 			cla
 			gs 'stat'
 			minut += 5
@@ -769,7 +769,7 @@ if $ARGS[0] = 'pregreact':
 
 				act 'Go get dressed':pregTalkFamily = 1 & pregTalkMom = 1 & gt 'mother', 'pregreactnude'
 			end
-		elseif knowpreg = 1 and $clothingworntype ! 'nude' and pregtime <= 150:
+		elseif knowpreg = 1 and $clothingworntype ! 'nude' and pregchem <= 3600:
 			act 'Tell your mother you are pregnant':
 				*clr & cla
 				minut += 5
@@ -789,7 +789,7 @@ if $ARGS[0] = 'pregreact':
 
 				act 'Tell her':pregTalkFamily = 1 & pregTalkMom = 1 & gt 'mother', 'pregreact1'
 			end
-		elseif knowpreg = 1 and $clothingworntype = 'nude' and pregtime <= 90:
+		elseif knowpreg = 1 and $clothingworntype = 'nude' and pregchem <= 2688:
 			act 'Tell your mother you are pregnant':
 				*clr & cla
 				minut += 5

+ 9 - 9
locations/natbelapt.qsrc

@@ -229,7 +229,7 @@ if $ARGS[0] = 'ask_state':
 		'"<<$NatashaMotherNickname>>... You uhm... don''t look very pleased to see me. Did I... Is it something I did?"'
 		if (daystart-svetapregday) > 120:
 			'"Well <<$pcs_nickname>>, I''m still trying to adjust to the fact that my daughter is pregnant. Excuse me if I haven''t embraced that little fact yet."'
-			if pregtime > 150:
+			if pregchem > 3600:
 				'"I don''t know what you girls were thinking. The least you could have done was use protection. Getting pregnant when you''re <<age>>, you''re not ready to raise a baby!" She says angrily, looking at your obviously swollen belly.'
 				'You lower your head at the accusation in her tone and mumble "S-Sorry..." as you pass her into the hallway.'
 			else
@@ -1909,11 +1909,11 @@ if $ARGS[0] = 'chat':
 	act 'Stop talking': gt 'natbelapt','natroom'
 	
 	if pregTalkNat = 0 and kid = 0:
-		if natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and pregtime >= 150:
+		if natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and pregchem >= 3600:
 			*clr & cla
 			'"<<$pcs_nickname>>, are you pregnant, too? Well, I guess I don''t have to worry about being the only pregnant girl at school," she giggles.'
 			act 'Continue':gt 'natbelapt', 'natknows'
-		elseif natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and knowpreg = 1 and pregtime > 0 and pregtime < 150:
+		elseif natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				*clr & cla
 				'"If you were worried about being the only pregnant girl at school, that won''t be a problem anymore." You smirk while rubbing your midriff. "It looks like I got myself knocked up as well."'
@@ -1921,7 +1921,7 @@ if $ARGS[0] = 'chat':
 				*nl
 				act 'Continue':gt 'natbelapt', 'natknows'
 			end
-		elseif pregtime > 0 and knowpreg = 1 and natsub = 0 and (daystart-natpregday) < 84:
+		elseif pregchem > 0 and knowpreg = 1 and natsub = 0 and (daystart-natpregday) < 84:
 			act 'Tell her you''re pregnant':
 				cla
 				*nl
@@ -1929,7 +1929,7 @@ if $ARGS[0] = 'chat':
 				pregTalkNat = 1
 				act 'Continue' :gt 'natbelapt', 'natroom'
 			end
-		elseif pregtime > 0 and knowpreg = 1 and natsub > 0 and (daystart-natpregday) < 84:
+		elseif pregchem > 0 and knowpreg = 1 and natsub > 0 and (daystart-natpregday) < 84:
 			act 'Tell her you''re pregnant':
 				cla
 				*nl
@@ -1952,11 +1952,11 @@ if $ARGS[0] = 'chat':
 	end
 	
 	if pregTalkNat = 0 and kid > 0:
-		if (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and pregtime >= 150:
+		if (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and pregchem >= 3600:
 			*clr & cla
 			'"Wow, <<$pcs_nickname>>, you''re pregnant again? You''re really committed to making sure I''m not the only young mother around here, huh?" She playfully smiles and puts a hand on your shoulder. "It''s good to know you''re looking out for me."'
 			act 'Next':gt 'natbelapt', 'natknows1'
-		elseif (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and knowpreg = 1 and pregtime > 0 and pregtime < 150:
+		elseif (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				*clr & cla
 				'"Hey, guess who''s pregnant again. You know, I''m glad I forced you to let Kolka impregnate you so that I could have someone I can relate to."'
@@ -1964,7 +1964,7 @@ if $ARGS[0] = 'chat':
 				*nl
 				act 'Next':gt 'natbelapt', 'natknows1'
 			end
-		elseif pregtime > 0 and natsub = 0 and knowpreg = 1:
+		elseif pregchem > 0 and natsub = 0 and knowpreg = 1:
 			act 'Tell her you''re pregnant':
 				*clr & cla
 				*nl
@@ -1972,7 +1972,7 @@ if $ARGS[0] = 'chat':
 				pregTalkNat = 1
 				act 'Continue' :gt 'natbelapt', 'natroom'
 			end
-		elseif pregtime > 0 and natsub > 0 and (daystart-natpregday) < 84 and knowpreg = 1:
+		elseif pregchem > 0 and natsub > 0 and (daystart-natpregday) < 84 and knowpreg = 1:
 			act 'Tell her you''re pregnant':
 				*clr & cla
 				*nl

+ 10 - 10
locations/obj_din.qsrc

@@ -167,28 +167,28 @@ if $ARGS[0] = 'description':
 	'<<$nipplesize>>'
 	*nl
 	if preg = 1:
-		if denypreg = 1 and pregtime > 75:
+		if denypreg = 1 and pregchem > 2688:
 			'You seem to be putting on a bit of weight, your belly is definitely bigger.'
 			*nl
-		elseif pregtime > 196:
+		elseif pregchem > 4704:
 			'You''re rapidly approaching the finish line and have entered the third trimester. Your belly is so big now that you can barely remember what your toes look like. Your back hurts most of the time and it is a struggle to get to your feet if you sit down. The baby seems to think that your bladder makes a nice punching bag.'
 			*nl
-		elseif pregtime > 130:
+		elseif pregchem > 3696:
 			'Your belly is quite swollen now and shows under even the loosest of clothes. You find yourself constantly caressing your belly without realizing it.'
 			*nl
-		elseif pregtime > 90 and knowpreg = 1:
+		elseif pregchem > 3192 and knowpreg = 1:
 			'You are showing for sure now. Your tummy is starting to become rounder as it grows larger each day, although you can still wear baggy clothes to hide it. At least the morning sickness and nausea seem to have gone away for the most part.'
 			*nl
-		elseif pregtime > 90 and knowpreg = 0:
+		elseif pregchem > 3192 and knowpreg = 0:
 			'You can''t seem to stop gaining weight and your belly looks like it is getting bigger everyday, although you can still wear baggy clothes to hide it. At least the flu you''ve been fighting lately seems to have finally gone away for the most part.'
 			*nl
-		elseif pregtime > 75 and knowpreg = 1:
-			'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach. Speaking of your stomach, you can definitely feel a baby bump now, although it is still hard to see.'
+		elseif pregchem > 1800 and knowpreg = 1:
+			'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach.'
 			*nl
-		elseif pregtime > 75 and knowpreg = 0:
-			'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach. Speaking of your stomach, you have developed a bit of a paunch, although it is still hard to see.'
+		elseif pregchem > 1800 and knowpreg = 0:
+			'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach.'
 			*nl
-		elseif pregtime > 50:
+		elseif pregchem > 1200:
 			'You''ve noticed that your breasts seem firmer lately and your nipples seem to be sticking out more.'
 			*nl
 		end

+ 1 - 1
locations/pornstudio.qsrc

@@ -328,7 +328,7 @@ if $ARGS[0] = 'manager':
 
 	if firstkasting = 0:gt 'pornstudio', 'first'
 
-	if pregtime >= 90 and pregtalkpornstudio = 0:gt 'pornstudio', 'pregreact'
+	if pregchem >= 2688 and pregtalkpornstudio = 0:gt 'pornstudio', 'pregreact'
 
 	if pfilmNO = 1:
 	! Banned from shooting porn

+ 3 - 6
locations/telefon.qsrc

@@ -295,7 +295,7 @@ if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 0:
 		'"Pretty good, you?"'
 		'<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"'
 
-		if pregtime <= lover_days and knowpreg = 1 and pregtalk = 0:
+		if (pregchem / 24) <= lover_days and knowpreg = 1 and pregtalk = 0:
 			act 'Tell him he''s going to be a dad':
 				cla
 				pregtalk = 1
@@ -351,7 +351,7 @@ if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 0:
 					act 'Hang up':gt 'telefon', 'fin'
 				end
 			end
-		elseif pregtime > lover_days and knowpreg = 1 and pregtalk = 0:
+		elseif (pregchem / 24) > lover_days and knowpreg = 1 and pregtalk = 0:
 			act 'Honey, you will soon become a dad':
 				cla
 				loverrelation[lover_number] = 0
@@ -669,7 +669,6 @@ if $ARGS[0] = 'Phone_notebook':
 	rent4 = -1
 	if home_owned[1] > 0 and ArendHouseSL > 0:rent1 = ArendHouseSL
 	if home_owned[4] > 0 and ArendHouseSL4 > 0:rent4 = ArendHouseSL4
-	preg1 = pregtime
 	d1 = day
 	w1 = week
 	m1 = month
@@ -708,7 +707,7 @@ if $ARGS[0] = 'Phone_notebook':
 
 		if daynum >= lastmens+28 and daynum < lastmens+31:$calendarday += $list + '<font color=''red''><b>Menstruation!</b></font>'
 		if daynum >= lastmens+12 and daynum < lastmens+14:$calendarday += $list + '<font color=#336600><b>Ovulation!</b></font>'
-		if preg1 = 280:$calendarday += $list + '<font color=''red''><b>Birthing day!</b></font>'
+		if pregchem >= 6720:$calendarday += $list + '<font color=''red''><b>Birthing day!</b></font>'
 
 		if w1 < 5 and (workSec >= 1 or PersSecWork = 1):$calendarday += $list + 'Working as a secretary. <i>(9:00 - 17:00)</i>'
 		if w1 < 5 and workFabrika = 1:
@@ -744,7 +743,6 @@ if $ARGS[0] = 'Phone_notebook':
 			pl $calendarday
 		end
 	if i < 14:
-		preg1 += 1
 		rent1 -= 1
 		rent4 -= 1
 		i += 1
@@ -760,7 +758,6 @@ if $ARGS[0] = 'Phone_notebook':
 	killvar 'calendarday'
 	killvar 'rent1'
 	killvar 'rent4'
-	killvar 'preg1'
 	killvar 'd1'
 	killvar 'w1'
 	killvar 'm1'