Added sperm list and fertilization chance

locations/mod_pregtest_options.qsrc

@@ -22,11 +22,11 @@ end
 '<b>Children: <<kid>></b>'
 $mod_pregtestPrint = ''
 mod_pregtestN = 0
-:loop_ChildThFath
+:loop_ptChildThFath
 if mod_pregtestN < arrsize('$ChildThFath'):
-	'<b><<mod_pregtestN + 1>>. child dad:</b><<$ChildThFath[mod_pregtestN]>> <b>AKA:</b><<$npc_usedname[$ChildThFath[mod_pregtestN]]>> <b>Real dad:</b><<$ChildFath[mod_pregtestN]>> <b>AKA:</b><<$npc_usedname[$ChildFath[mod_pregtestN]]>> '
+	'<b><<mod_pregtestN + 1>>.</b> <<$kidname[mod_pregtestN]>> <b>Dad:</b><<$ChildThFath[mod_pregtestN]>> <b>AKA:</b><<$npc_usedname[$ChildThFath[mod_pregtestN]]>> <b>Real dad:</b><<$ChildFath[mod_pregtestN]>> <b>AKA:</b><<$npc_usedname[$ChildFath[mod_pregtestN]]>> <<$childtype[mod_pregtestN]>>'
 	mod_pregtestN += 1
-	jump 'loop_ChildThFath'
+	jump 'loop_ptChildThFath'
 end
 *nl
 
@@ -34,17 +34,42 @@ end
 'Unfertilized eggs:<<UnfertEgg>> Fertilized eggs:<<FertEgg>> Implanted embryos:<<babyembryo>>'
 $mod_pregtestPrint = ''
 mod_pregtestN = 0
-:loop_wombpotfath
+:loop_ptwombpotfath
 if mod_pregtestN < arrsize('$wombpotfath'):
 	$mod_pregtestPrint += '<b><<mod_pregtestN + 1>>. potential dad:</b><<$wombpotfath[mod_pregtestN]>> <b>AKA:</b><<$npc_usedname[$wombpotfath[mod_pregtestN]]>> '
 	mod_pregtestN += 1
-	jump 'loop_wombpotfath'
+	jump 'loop_ptwombpotfath'
 end
 $mod_pregtestPrint
 *nl
+'<b>Fertilization info</b>'
+iif(arrsize('$cumarrnam') > 0,'Sperm in you:', '')
+mod_pregtestCum = 0
+$mod_pregtestPrint = ''
+mod_pregtestN = 0
+:loop_ptCumin
+if mod_pregtestN < arrsize('$cumarrnam'):
+	'<<mod_pregtestN + 1>>. ID:<<cumarrcnt[mod_pregtestN]>> Owner:<<$cumarrnam[mod_pregtestN]>>:<<$npc_usedname[$cumarrnam[mod_pregtestN]]>> Potency:<<cumarrcpt[mod_pregtestN]>>/<<cumarrppt[mod_pregtestN]>> Age(h):<<cumarrage[mod_pregtestN]>> Delivery:<<cumarrdel[mod_pregtestN]>> Contraception:<<cumarrcon[mod_pregtestN]>> Knowledge:<<cumarrkno[mod_pregtestN]>>'
+	mod_pregtestCum += cumarrcpt[mod_pregtestN]
+	mod_pregtestN += 1
+	jump 'loop_ptCumin'
+end
+'Total sperm volume:<<mod_pregtestCum>>'
+*nl
+if broodcurse > 0: 'You have been <font color="purple">cursed with increased fertility</font> by the Stallion</b>'
+if mod_pregtestCum > 0:
+	mod_pregtestOdds = mod_pregtestCum / 250
+	if broodcurse > 0: mod_pregtestOdds = mod_pregtestOdds * 2
+else
+	mod_pregtestOdds = 0
+end
+'Hourly egg fertilization chance: <b><<mod_pregtestOdds>>‰</b> (per mille)'
+'Contraception power:<<pillcon>>'
+'<i>Above 7000 means greatly reduced ovulation chance, above 26000 means 1/400 chance of ovulation even if ovulation hormones were sufficient.</i>'
+*nl
 
 '<b>Cycle data</b>'
-'(0 Menstruation, 1 Follicular, 2 Ovulation, 3 Luteal, 4 Pregnancy recovery, 5 Pregnant, 6 Menopause)'
+'<i>(0 Menstruation, 1 Follicular, 2 Ovulation, 3 Luteal, 4 Pregnancy recovery, 5 Pregnant, 6 Menopause)</i>'
 'Current cycle phase: <<cycle>>'
 iif(cycle = 0, '<b>', '') + 'Phase 0 variables: Hours of menstruation:<<mesec>>' + iif(cycle = 0, '</b>', '')
 iif(cycle = 1, '<b>', '') + 'Phase 1 variables: Egg release hormone:<<EggRH>> Hours until ovulation:<<FocH_Max - FocH>> - <<FocH>>/<<FocH_Max>>' + iif(cycle = 1, '</b>', '')