Merge branch 'forceTwinDrug' into 'dev'

Add drug forcing enzygotic twin creation

See merge request lutepickle/rjw_menstruation!9

1.5/Defs/Drugs/Pills_Menstruation.xml

@@ -91,6 +91,48 @@
 		</comps>
 	</ThingDef>
 	
+	<ThingDef ParentName="MakeableDrugPillBase">
+		<defName>Doublex</defName>
+		<label>doublex</label>
+		<description>Glittertech drug that causes fertilized eggs to produce enzygotic twins.</description>
+		<graphicData>
+			<texPath>Things/Item/SIA</texPath>
+			<graphicClass>Graphic_StackCount</graphicClass>
+		</graphicData>
+		<rotatable>false</rotatable>
+		<statBases>
+			<WorkToMake>800</WorkToMake>
+			<MarketValue>250</MarketValue>
+			<Mass>0.01</Mass>
+		</statBases>
+		<techLevel>Ultra</techLevel>
+		<ingestible>
+			<drugCategory>Medical</drugCategory>
+			<outcomeDoers>
+				<li Class="IngestionOutcomeDoer_GiveHediff">
+					<hediffDef>Hediff_Doublex</hediffDef>
+					<severity>1.0</severity>
+				</li>
+			</outcomeDoers>
+		</ingestible>
+		<recipeMaker>
+			<researchPrerequisite>DrugProduction</researchPrerequisite>
+			<recipeUsers>
+				<li>DrugLab</li>
+			</recipeUsers>
+		</recipeMaker>
+		<costList>
+			<MedicineUltratech>3</MedicineUltratech>
+			<Neutroamine>2</Neutroamine>
+		</costList>
+		<comps>
+			<li Class="CompProperties_Drug">
+			<addictiveness>0</addictiveness>
+			<listOrder>1000</listOrder>
+			</li>
+		</comps>
+	</ThingDef>
+	
 	<ThingDef ParentName="MakeableDrugPillBase">
 		<defName>PainReliever</defName>
 		<label>Pain reliever</label>

1.5/Defs/HediffDef/Hediffs_Menstruation.xml

@@ -165,6 +165,32 @@
   </HediffDef>
   
   	
+	<HediffDef Name="Hediff_Doublex">
+		<hediffClass>HediffWithComps</hediffClass>
+		<defName>Hediff_Doublex</defName>
+		<label>Doublex</label>
+		<labelNoun>doublex</labelNoun>
+		<description>Ultratech drug that causes fertilized eggs to split resulting in identical twins.</description>
+		<defaultLabelColor>(0.75,0.75,1.0)</defaultLabelColor>	
+		<isBad>false</isBad>
+		<tendable>false</tendable>
+		<makesSickThought>false</makesSickThought>
+		<makesAlert>false</makesAlert>	
+		<maxSeverity>5</maxSeverity>
+		<initialSeverity>1.0</initialSeverity>
+		<stages>
+			<li>
+				<becomeVisible>true</becomeVisible>
+			</li>
+		</stages>	
+		<comps>
+			<li Class="HediffCompProperties_SeverityPerDay">
+				<severityPerDay>-0.5</severityPerDay>
+			</li>
+		</comps>
+	</HediffDef>
+  
+	
 	<HediffDef Name="Hediff_PainReliever">
 		<hediffClass>HediffWithComps</hediffClass>
 		<defName>Hediff_PainReliever</defName>

1.5/source/RJW_Menstruation/RJW_Menstruation/HediffComps/HediffComp_Menstruation.cs

@@ -639,10 +639,14 @@ namespace RJW_Menstruation
             if (Scribe.mode == LoadSaveMode.PostLoadInit)
             {
                 Initialize();
-                if (pregnancy is HediffWithParents vanillaPreg && vanillaPreg.Mother == vanillaPreg.Father)   // Fix mother == father issue
+                // Biotech labor errors if the mother is also the father, so don't let that happen
+                if (pregnancy is HediffWithParents vanillaPreg && vanillaPreg.Mother == vanillaPreg.Father && vanillaPreg.Mother != null)
+                {
+                    Log.Warning($"Pregnancy of {Pawn} has same mother and father, setting father to null");
                     vanillaPreg.SetParents(vanillaPreg.Mother, null, vanillaPreg.geneSet);
                 }
             }
+        }
 
 
         public override void CompPostPostAdd(DamageInfo? dinfo)
@@ -790,7 +794,7 @@ namespace RJW_Menstruation
         {
             get
             {
-                if (Pawn.Dead) return null;
+                if (Pawn.Dead || !Pawn.ShouldCycle()) return null;
                 StringBuilder tip = new StringBuilder();
                 tip.Append(Translations.Dialog_WombInfo01);
                 tip.Append(": ");
@@ -812,7 +816,11 @@ namespace RJW_Menstruation
 
         public override string CompDebugString()
         {
-            if (Pawn.Dead || curStage == Stage.None || curStage == Stage.Infertile || curStage == Stage.Pregnant) return null;
+            if (Pawn.Dead ||
+                !Pawn.ShouldCycle() ||
+                curStage == Stage.None ||
+                curStage == Stage.Infertile ||
+                curStage == Stage.Pregnant) return null;
             StringBuilder debugString = new StringBuilder();
             debugString.Append($"Time to next state: ");
             debugString.Append(GenDate.ToStringTicksToPeriod(TicksToNextStage()));

1.5/source/RJW_Menstruation/RJW_Menstruation/HediffComps/MenstruationUtility.cs

@@ -242,7 +242,7 @@ namespace RJW_Menstruation
             bool isInduced = comp is HediffComp_InducedOvulator;
             if (comp.curStage == HediffComp_Menstruation.Stage.Follicular &&
                 isInduced &&
-                comp.Pawn.jobs.curDriver is JobDriver_Sex job &&
+                comp.Pawn.jobs?.curDriver is JobDriver_Sex job &&
                 job.Sexprops != null &&
                 !UsingCondom(comp.Pawn, job.Partner) &&
                 (job.Sexprops.sexType == xxx.rjwSextype.Vaginal || job.Sexprops.sexType == xxx.rjwSextype.DoublePenetration))

1.5/source/RJW_Menstruation/RJW_Menstruation/Hediff_MultiplePregnancy.cs

@@ -320,7 +320,20 @@ namespace RJW_Menstruation
             Pawn firstbaby = null;
             int traitSeed = Rand.Int;
             List<Trait> parentTraits = GetInheritableTraits(mother, father);
-            while (Rand.Chance(Configurations.EnzygoticTwinsChance) && division < Configurations.MaxEnzygoticTwins) division++;
+
+            //TODO: turn this into a proper function that can handle genes, fertility boosts, genital type effects etc.
+            float eTwinChance = Configurations.EnzygoticTwinsChance;
+            //Log.Message($"RJW_Menstration :: Configurations.EnzygoticTwinsChance = {Configurations.EnzygoticTwinsChance}");
+            if (mother.health.hediffSet.HasHediff(VariousDefOf.Hediff_Doublex))
+            {
+                division++;
+                eTwinChance = eTwinChance + (1 - eTwinChance) / 4;
+            }
+
+            //Log.Message($"RJW_Menstration :: TwinChance = {eTwinChance}");
+            while (Rand.Chance(eTwinChance) && division < Configurations.MaxEnzygoticTwins) division++;
+            //Log.Message($"RJW_Menstration :: division = {division}");
+
             for (int i = 0; i < division; i++)
             {
                 Pawn baby = GenerateBaby(request, mother, father, parentTraits, traitSeed);

1.5/source/RJW_Menstruation/RJW_Menstruation/Patch/Pawn_Patch.cs

@@ -33,10 +33,14 @@ namespace RJW_Menstruation
 
             foreach (LocalTargetInfo t in selftargets)
             {
-                if (t.Pawn == pawn && pawn.HasMenstruationComp()) opts.AddDistinct(MakeSelfMenu(pawn, t));
+                if (t.Pawn == pawn)
+                {
+                    if (pawn.HasMenstruationComp() && pawn.ShouldCycle())
+                        opts.AddDistinct(MakeSelfMenu(pawn, t));
                     break;
                 }
             }
+        }
 
         public static FloatMenuOption MakeSelfMenu(Pawn pawn, LocalTargetInfo target)
         {

1.5/source/RJW_Menstruation/RJW_Menstruation/VariousDefOf.cs

@@ -22,6 +22,7 @@ namespace RJW_Menstruation
         public static readonly HediffDef Hediff_Estrus_Concealed = DefDatabase<HediffDef>.GetNamed("Hediff_Estrus_Concealed");
         public static readonly HediffDef Hediff_AffectedByPheromones = DefDatabase<HediffDef>.GetNamed("Hediff_AffectedByPheromones");
         public static readonly HediffDef Hediff_ASA = DefDatabase<HediffDef>.GetNamed("Hediff_ASA");
+        public static readonly HediffDef Hediff_Doublex = DefDatabase<HediffDef>.GetNamed("Hediff_Doublex");
         public static readonly StatDef MaxAbsorbable = DefDatabase<StatDef>.GetNamed("MaxAbsorbable");
         public static readonly NeedDef SexNeed = DefDatabase<NeedDef>.GetNamed("Sex");
         public static readonly JobDef VaginaWashing = DefDatabase<JobDef>.GetNamed("VaginaWashing");