[fixed] pregnancy: father empty name

locations/cum_call.qsrc

@@ -29,6 +29,7 @@ gs 'cum_call', 'anus' - for an unknown partner named "unknown", or
 gs 'cum_call', 'anus', 'plumber' - for an unknown partner named "plumber"}
 
 if $ARGS[0] ! 'precum':
+	$cumboy = $boy
 
 	if $boy ! $ARGS[1] and $ARGS[1] ! '': $boy = $ARGS[1]
 
@@ -51,8 +52,6 @@ if $ARGS[0] ! 'precum':
 		gs 'boyStat', $ARGS[1]
 	end
 
-	$cumboy = $boy
-
 	sexvolume  = iif(ARGS[5] ! 0,  ARGS[5], 40)
 	sexspecpot = iif(ARGS[4] ! 0,  ARGS[4], 0)
 	sexcontra  = max(0, min(7, ARGS[3]), sexcontra)
@@ -116,6 +115,7 @@ if $ARGS[0] ! 'precum':
 	$boy = $cumboy
 
 	sexcontra = 0
+	killvar '$cumboy'
 else
 	!This is to check for pregnancy and stds from precum. It is added for readability when it is used in the code.
 	!It will call cum_call with potency of 1 40th of what it would be for a normal call.

locations/femcyc.qsrc

@@ -763,7 +763,7 @@ if $ARGS[0] = 'cyc3':
 	:implant_loop
 	if implant_idx < implant_sz:
 
-		if Babyptype[implant_idx] = 0:
+		if Babyptype[implant_idx] = 0 and $ChildFath[implant_idx] ! '':
 			imp_rand = rand(0,120000)
 
 			if ferteggage < 120 and broodcurse <= 0: