Reduce cumin chance for avoid pregnancy approach

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

@@ -68,6 +68,7 @@ namespace RJW_Menstruation
         const int tickInterval = GenDate.TicksPerHour;
         const int maxImplantDelayHours = 30 * 24;
         const int minImplantAgeHours = 3 * 24;
+        const float pulloutSuccessRate = 0.8f;
 
         public CompProperties_Menstruation Props;
         public Stage curStage = Stage.Follicular;
@@ -739,6 +740,7 @@ 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 (Pawn.HasIUD()) fertility /= 100f;
             float cumd = TotalCumPercent;
             float tmp = TotalCum + volume;

changelogs.txt

@@ -1,5 +1,6 @@
 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.
  - Babies born from multiple pregnancy will properly produce the prompt to name them.
 
 Version 1.0.8.4