Deduct an egg from a pawn's ovaries upon extraction

1.4/source/RJW_Menstruation/RJW_Menstruation/Patch/Biotech_Patch.cs

@@ -85,4 +85,17 @@ namespace RJW_Menstruation
             return;
         }
     }
+
+    [HarmonyPatch(typeof(Recipe_ExtractOvum), "OnSurgerySuccess")]
+    public class ExtractOvum_OnSurgerySuccess_Patch
+    {
+        public static void PostFix(Pawn pawn)
+        {
+            List<HediffComp_Menstruation> comps = pawn.GetMenstruationComps().ToList();
+            if (!comps.Any()) return;
+            HediffComp_Menstruation mostEggs = comps.MaxBy(comp => comp.ovarypower);
+            if (mostEggs.ovarypower <= 0) return;   // Shouldn't happen
+            mostEggs.ovarypower--;
+        }
+    }
 }

changelogs.txt

@@ -1,5 +1,6 @@
 Version 1.0.8.2
  - Updated race support patches for new and removed vaginas.
+ - The Biotech extract ovum operation will now remove an egg from a pawn's ovaries.
 
 Version 1.0.8.1
  - Added the option for humans to start Biotech pregnancies if the DLC is enabled. If set, non-humans will use the old multiple pregnancy instead.