Impregnation fetishists are less likely to pull out

1.4/source/RJW_Menstruation/RJW_Menstruation/HediffComps/HediffComp_Menstruation.cs

@@ -69,6 +69,7 @@ namespace RJW_Menstruation
         const int maxImplantDelayHours = 30 * 24;
         const int minImplantAgeHours = 3 * 24;
         const float pulloutSuccessRate = 0.8f;
+        const float fetishPulloutSuccessModifier = 0.25f;
 
         public CompProperties_Menstruation Props;
         public Stage curStage = Stage.Follicular;
@@ -740,7 +741,13 @@ namespace RJW_Menstruation
         public void CumIn(Pawn pawn, float volume, float fertility = 1.0f, ThingDef filthdef = null)
         {
             if (volume <= 0) return;
-            if (fertility > 0 && pawn.relations.GetPregnancyApproachForPartner(Pawn) == PregnancyApproach.AvoidPregnancy && Rand.Chance(pulloutSuccessRate)) return;
+            if (fertility > 0 && IsDangerDay && pawn.relations.GetPregnancyApproachForPartner(Pawn) == PregnancyApproach.AvoidPregnancy)
+            {
+                float successChance = pulloutSuccessRate;
+                if (pawn.Has(Quirk.ImpregnationFetish)) successChance *= fetishPulloutSuccessModifier;
+                if (Pawn.Has(Quirk.ImpregnationFetish)) successChance *= fetishPulloutSuccessModifier;
+                if (Rand.Chance(successChance)) return;
+            }
             if (Pawn.HasIUD()) fertility /= 100f;
             float cumd = TotalCumPercent;
             float tmp = TotalCum + volume;

changelogs.txt

@@ -1,6 +1,7 @@
 Version 1.0.8.5
  - Added biosculpter recipe to restore 1 year's worth of eggs.
- - Vaginal sex with the "avoid pregnancy" relation will (usually) prevent cum from entering the womb.
+ - Vaginal sex with the "avoid pregnancy" relation will (usually) pull out prevent cum from entering the womb if there's a risk of pregnancy.
+ - Impregnation fetishists are significantly less likely to pull out.
  - Babies born from multiple pregnancy will properly produce the prompt to name them.
 
 Version 1.0.8.4