Added Elasticity Gene and Zoophile Trait Gene

Source/GeneDefOf.cs

@@ -6,8 +6,10 @@ namespace RJW_Genes
 	[DefOf]
 	public static class GeneDefOf
 	{
-		public static readonly GeneCategoryDef rjw_genes_genitalia;
+		public static readonly GeneCategoryDef rjw_genes_genitalia_type;
+		public static readonly GeneCategoryDef rjw_genes_genitalia_size;
 		public static readonly GeneCategoryDef rjw_genes_gender;
+		public static readonly GeneCategoryDef rjw_genes_breeding;
 
 		// Base Genitalia Types
 		public static readonly GeneDef rjw_genes_human_genitalia;
@@ -53,14 +55,19 @@ namespace RJW_Genes
 		public static readonly GeneDef rjw_genes_insectincubator;
 		public static readonly GeneDef rjw_genes_insectbreeder;
 
-		//Cum 
+		// Cum 
 		public static readonly GeneDef rjw_genes_no_cum;
 		public static readonly GeneDef rjw_genes_much_cum;
 		public static readonly GeneDef rjw_genes_very_much_cum;
 		[MayRequire("LustLicentia.RJWLabs")] public static readonly GeneDef rjw_genes_likes_cumflation;
-		//[MayRequire("LustLicentia.RJWLabs")] public static readonly GeneDef rjw_genes_cumflation_immunity; //Does currently not work like this
+		[MayRequire("LustLicentia.RJWLabs")] public static readonly GeneDef rjw_genes_cumflation_immunity; //Does currently not work like this
 
-		//Reproduction 
+		// Reproduction 
 		public static readonly GeneDef rjw_genes_hypersexual;
+		public static readonly GeneDef rjw_genes_rapist;
+		public static readonly GeneDef rjw_genes_zoophile;
+
+		// Damage & Side Effects 
+		[MayRequire("LustLicentia.RJWLabs")] public static readonly GeneDef rjw_genes_elasticity;
 	}
 }

Source/Genes/Breeding/PatchPawnExtensions.cs

@@ -17,7 +17,7 @@ namespace RJW_Genes
         {
             if (!__result)
             {
-                __result = GeneUtility.isInsectBreeder(pawn);
+                __result = GeneUtility.IsInsectBreeder(pawn);
             }
         }
     }

Source/Genes/Cum/Patch_Cumflation.cs

@@ -0,0 +1,38 @@
+using System;
+using System.Collections.Generic;
+using System.Reflection;
+using System.Reflection.Emit;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using HarmonyLib;
+using rjw;
+using RimWorld;
+using Verse;
+using LicentiaLabs;
+
+namespace RJW_Genes
+{
+    /// <summary>
+    /// Changes LicentiaLabs (if Present) to not cumflate pawns that are cumflation immune. 
+    /// This code is exercised / loaded in the HarmonyInit.
+    /// </summary>
+    /// 
+    class Patch_Cumflation
+    {
+        // This patch does not need the normal Harmony Targetting, 
+        // as it needs to be added only on demand (See HarmonyInit.cs)
+        public static bool Prefix(SexProps props)
+        {
+            // Harmony Logic skips the original Method after Prefix when "false" is returned 
+            // See https://harmony.pardeike.net/articles/execution.html 
+
+            // We skip the whole Cumflation Logic when the Partner is Cumflation Immune
+            if (props != null && props.partner != null && GeneUtility.IsCumflationImmune(props.partner))
+            {
+                return false;
+            }
+            return true;
+        }
+    }
+}

Source/Genes/Damage/Gene_Elasticity.cs

@@ -0,0 +1,35 @@
+using LicentiaLabs;
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using Verse;
+
+namespace RJW_Genes
+{
+    /// <summary>
+    /// This Gene adds Licentia-Labs Elasticised Hediff to a Pawn. 
+    /// Important: I had a HarmonyPatch first, similar to skipping cumflation, but the Stretching Logic is called quite a lot and for both pawns actually.
+    /// Hence, I think choosing the Elasticiced Hediff was good as then everything is covered by "Licentia-Logic". 
+    /// </summary>
+    public class Gene_Elasticity : Gene
+    {
+
+        public override void PostAdd()
+        {
+            base.PostAdd();
+            this.pawn.health.AddHediff(Licentia.HediffDefs.Elasticised);
+        }
+
+        public override void PostRemove()
+        {
+            Hediff candidate = pawn.health.hediffSet.GetFirstHediffOfDef(Licentia.HediffDefs.Elasticised);
+            if (candidate != null)
+            {
+                pawn.health.RemoveHediff(candidate);
+            }
+            base.PostRemove();
+        }
+    }
+}

Source/Genes/GeneUtility.cs

@@ -1,4 +1,5 @@
-using Verse;
+using System;
+using Verse;
 
 namespace RJW_Genes
 {
@@ -22,7 +23,7 @@ namespace RJW_Genes
             return pawn.genes.HasGene(GeneDefOf.rjw_genes_insectincubator);
         }
 
-        public static bool isInsectBreeder(Pawn pawn)
+        public static bool IsInsectBreeder(Pawn pawn)
         {
             if (pawn.genes == null)
             {
@@ -40,5 +41,23 @@ namespace RJW_Genes
             }
             return MaxEggSize;
         }
+
+        internal static bool IsElastic(Pawn pawn)
+        {
+            if (pawn.genes == null)
+            {
+                return false;
+            }
+            return pawn.genes.HasGene(GeneDefOf.rjw_genes_elasticity);
+        }
+
+        public static bool IsCumflationImmune(Pawn pawn)
+        {
+            if (pawn.genes == null)
+            {
+                return false;
+            }
+            return pawn.genes.HasGene(GeneDefOf.rjw_genes_cumflation_immunity);
+        }
     }
 }

Source/HarmonyInit.cs

@@ -1,6 +1,6 @@
 using Verse;
 using HarmonyLib;
-
+using System;
 
 namespace RJW_Genes
 {
@@ -11,6 +11,25 @@ namespace RJW_Genes
         {
             Harmony harmony = new Harmony("rjw_genes");
             harmony.PatchAll();
+
+            // Patch Licentia, if Licentia exists
+            // Logic & Explanation taken from https://rimworldwiki.com/wiki/Modding_Tutorials/Compatibility_with_DLLs
+            // Adjusted to use ModsConfig (which makes it work, the example above does not run out of the box)
+            try
+            {
+                ((Action)(() =>
+                {
+                    if (ModsConfig.IsActive("LustLicentia.RJWLabs"))
+                    {
+                        // Gene: Cumflation Immunity
+                        harmony.Patch(AccessTools.Method(typeof(LicentiaLabs.CumflationHelper), nameof(LicentiaLabs.CumflationHelper.Cumflation)),
+                            prefix: new HarmonyMethod(typeof(Patch_Cumflation), nameof(Patch_Cumflation.Prefix)));
+                    }
+                }))();
+            }
+            catch (TypeLoadException ex) {
+                // To be expected for people without Licentia Labs
+            }
         }
     }
 }

Source/Rjw-Genes.csproj

@@ -29,6 +29,10 @@
       <HintPath>..\..\..\RimWorldWin64_Data\Managed\Assembly-CSharp.dll</HintPath>
       <Private>False</Private>
     </Reference>
+    <Reference Include="LicentiaLabs">
+      <HintPath>..\..\licentia-labs\Assemblies\LicentiaLabs.dll</HintPath>
+      <Private>False</Private>
+    </Reference>
     <Reference Include="RJW">
       <HintPath>..\..\rjw\1.4\Assemblies\RJW.dll</HintPath>
       <Private>False</Private>
@@ -60,6 +64,8 @@
     <Compile Include="Genes\Cum\Gene_VeryMuchCum.cs" />
     <Compile Include="Genes\Cum\Gene_MuchCum.cs" />
     <Compile Include="Genes\Cum\Gene_NoCum.cs" />
+    <Compile Include="Genes\Damage\Gene_Elasticity.cs" />
+    <Compile Include="Genes\Cum\Patch_Cumflation.cs" />
     <Compile Include="Genes\ExtraGenitalia\Gene_ExtraBreasts.cs" />
     <Compile Include="Genes\ExtraGenitalia\Gene_ExtraAnus.cs" />
     <Compile Include="Genes\ExtraGenitalia\Gene_Futa.cs" />