|
|
@@ -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>', '')
|
