# preg
if mesec = 0 and preg = 0 and tabletki = 0:
!нет месячных
Set pregrand = RAND(0,100)
	if pregrand + fertBonus >= 93:
	$father = $boy
	set preg = 1

	end
end
--- preg ---------------------------------

