rjw-genes/1.6/Source/Genes/ExtraGenitalia/Gene_NoPenis.cs

using Verse;
using rjw;
using RimWorld;

namespace RJW_Genes
{
    public class Gene_NoPenis : RJW_Gene
    {

        internal Hediff removed_penis;

        public override void PostMake()
        {
            base.PostMake();

            // Penis are only removed for male pawns!
            if (GenderUtility.IsMale(pawn) && removed_penis == null)
            {
                RemoveButStorePenis();
            }
        }
        
        public override void PostAdd()
        {
            if (pawn.kindDef == null) return;   //Added to catch Rimworld creating statues of pawns.
            base.PostAdd();

            // Penis are only removed for male pawns!
            if (GenderUtility.IsMale(pawn) && removed_penis == null)
            {
                RemoveButStorePenis();
            }
        }

        public override void PostRemove()
        {
            base.PostRemove();
            if(removed_penis != null)    
                pawn.health.AddHediff(removed_penis);
        }

        internal void RemoveButStorePenis()
        {
            var partBPR = Genital_Helper.get_genitalsBPR(pawn);
            Hediff penisToRemove = Genital_Helper.get_AllPartsHediffList(pawn).FindLast(x => Genital_Helper.is_penis(x));

            if(penisToRemove != null)
            {
                removed_penis = penisToRemove;
                pawn.health.RemoveHediff(penisToRemove);
            }
        }

    }
}