AblativeAbsolute
/
rjw-genes
mirror of https://github.com/vegapnk/RJW-Genes.git
1
0
Fork 0
Code Issues 1 Packages Projects Releases Wiki Activity

Drafted Orgasmic Mytosis Gene and Behaviour

This commit is contained in:
Vegapnk 2023-06-05 15:51:15 +02:00
parent 2ad91a1076
commit 04c27a1913
7 changed files with 475 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
CHANGELOG.md
View File

@ -4,6 +4,8 @@
- Fix of icon-names (#36)
- Changes to the scenario (more building items, throne for start). Wealth is now at 12k, which is the same as crashlanded and lost tribe.
- Added the Orgasmic Mytosis Draft
- Many touches on the Halamyr Hive Logic and Fertilizitation (#37,#38)
**Changes:**
@ -15,6 +17,7 @@
- Custom background icons when Vanilla-Expanded-Framework is loaded
- Sexual Age Drainer & Youth Fountain now change age as configured in XML
- Draft for a Hive-Start Scenario
- Added Orgasmic Mytosis Gene: On Multiple Orgasms, spawn an identical copy of a pawn. Items and Implants are not copied.
**Internal:**

11
Common/Defs/GeneDefs/GeneDefs_SexSpecial.xml
View File

@ -67,4 +67,15 @@
<biostatMet>1</biostatMet>
</GeneDef>
<GeneDef ParentName="SpecialBase">
<defName>rjw_genes_sexual_mytosis</defName>
<label>Orgasmic Mytosis</label>
<!-- <geneClass>RJW_Genes.Gene_Aphrodisiac_Pheromones</geneClass> -->
<description>Carriers of this gene grow more unstable with ongoing multiple orgasms - climaxing in a process of mytosis. This will result in an (biologically) identical pawn and both twins are set in a regenerative state. Also, the pawn can have multiple orgasms: In a state of higher unstableness, they come quicker.</description>
<iconPath>UI/Icons/Genes/Gene_PsychicBonding</iconPath>
<displayOrderInCategory>5</displayOrderInCategory>
<biostatCpx>5</biostatCpx>
<biostatMet>-7</biostatMet>
</GeneDef>
</Defs>

136
Common/Defs/HediffDefs/Hediffs_OrgasmicMytosis.xml Normal file
View File

@ -0,0 +1,136 @@
<?xml version="1.0" encoding="utf-8" ?>
<Defs>
<HediffDef>
<defName>rjw_genes_orgasmic_mytosis_hediff</defName>
<hediffClass>HediffWithComps</hediffClass>
<label>Orgasmic Instability</label>
<description>Xenotypes with this Gene grow more unstable on orgasm - upon reaching critical level they will initate a process of mytosis.</description>
<defaultLabelColor>(240,200,110)</defaultLabelColor>
<scenarioCanAdd>false</scenarioCanAdd>
<maxSeverity>1.0</maxSeverity>
<isBad>false</isBad>
<tendable>false</tendable>
<comps>
<li Class="HediffCompProperties_SeverityPerDay">
<severityPerDay>-0.9</severityPerDay>
</li>
</comps>
<stages>
<li>
<label>stable</label>
<capMods>
<li>
<capacity>Moving</capacity>
<offset>0.05</offset>
</li>
<li>
<capacity>Consciousness</capacity>
<offset>0.08</offset>
</li>
</capMods>
</li>
<li>
<label>agitated</label>
<minSeverity>0.4</minSeverity>
<capMods>
<li>
<capacity>Moving</capacity>
<offset>0.15</offset>
</li>
<li>
<capacity>Consciousness</capacity>
<offset>0.15</offset>
</li>
</capMods>
</li>
<li>
<label>unstable</label>
<minSeverity>0.7</minSeverity>
<capMods>
<li>
<capacity>Moving</capacity>
<offset>-0.1</offset>
</li>
<li>
<capacity>Consciousness</capacity>
<offset>-0.1</offset>
</li>
<li>
<capacity>BloodPumping</capacity>
<offset>+0.2</offset>
</li>
</capMods>
</li>
<li>
<label>critical</label>
<minSeverity>0.9</minSeverity>
<capMods>
<li>
<capacity>Moving</capacity>
<offset>-0.25</offset>
</li>
<li>
<capacity>Consciousness</capacity>
<offset>-0.25</offset>
</li>
<li>
<capacity>BloodPumping</capacity>
<offset>+0.5</offset>
</li>
</capMods>
</li>
</stages>
</HediffDef>
<HediffDef>
<defName>rjw_genes_mytosis_shock_hediff</defName>
<hediffClass>HediffWithComps</hediffClass>
<label>Mytosis Shock</label>
<description>Recently underwent (successful) mytosis. As this is a taxing process, some time for regeneration is required. While regenerating, no new mytosis can be started.</description>
<defaultLabelColor>(240,200,110)</defaultLabelColor>
<scenarioCanAdd>false</scenarioCanAdd>
<maxSeverity>1.0</maxSeverity>
<isBad>true</isBad>
<tendable>false</tendable>
<comps>
<li Class="HediffCompProperties_SeverityPerDay">
<severityPerDay>-0.20</severityPerDay>
</li>
</comps>
<stages>
<li>
<label>wearing off</label>
<capMods>
<li>
<capacity>Moving</capacity>
<offset>-0.25</offset>
</li>
<li>
<capacity>Consciousness</capacity>
<offset>-0.25</offset>
</li>
</capMods>
</li>
<li>
<label>fresh</label>
<minSeverity>0.6</minSeverity>
<capMods>
<li>
<capacity>Moving</capacity>
<offset>-0.50</offset>
</li>
<li>
<capacity>Consciousness</capacity>
<offset>-0.7</offset>
</li>
</capMods>
</li>
</stages>
</HediffDef>
</Defs>

5
Source/GeneDefOf.cs
View File

@ -76,9 +76,10 @@ namespace RJW_Genes
public static readonly GeneDef rjw_genes_youth_fountain;
public static readonly GeneDef rjw_genes_sex_age_drain;
public static readonly GeneDef rjw_genes_aphrodisiac_pheromones;
public static readonly GeneDef rjw_genes_sexual_mytosis;
// LifeForce
public static readonly GeneDef rjw_genes_lifeforce;
// LifeForce
public static readonly GeneDef rjw_genes_lifeforce;
public static readonly GeneDef rjw_genes_pussyhealing;
public static readonly GeneDef rjw_genes_lifeforce_drain;
public static readonly GeneDef rjw_genes_cum_eater;

318
Source/Genes/Special/Patch_OrgasmMytosis.cs Normal file
View File

@ -0,0 +1,318 @@
using HarmonyLib;
using RimWorld;
using RimWorld.QuestGen;
using rjw;
using rjw.Modules.Shared.Extensions;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using Verse;
namespace RJW_Genes
{
[HarmonyPatch(typeof(JobDriver_Sex), nameof(JobDriver_Sex.Roll_Orgasm_Duration_Reset))]
public static class Patch_OrgasmMytosis
{
private const float SEVERITY_INCREASE_PER_ORGASM = 0.10f;
public static void Postfix(JobDriver_Sex __instance, ref int __result)
{
Pawn orgasmingPawn = __instance.pawn;
if (orgasmingPawn != null && GeneUtility.HasGeneNullCheck(orgasmingPawn, GeneDefOf.rjw_genes_sexual_mytosis) && ! orgasmingPawn.health.hediffSet.HasHediff(HediffDefOf.rjw_genes_mytosis_shock_hediff))
{
var mytosisHediff = GetOrgasmMytosisHediff(orgasmingPawn);
mytosisHediff.Severity += SEVERITY_INCREASE_PER_ORGASM;
if (mytosisHediff.Severity >= 1.0)
{
orgasmingPawn.health.RemoveHediff(mytosisHediff);
var copy = Multiply(orgasmingPawn);
ApplyMytosisShock(copy);
ApplyMytosisShock(orgasmingPawn);
orgasmingPawn.Strip();
}
else
{
float reduction = Math.Max(1.0f - mytosisHediff.Severity, 0.1f);
__result = (int)(reduction * __result);
}
}
}
private static void ApplyMytosisShock(Pawn copy)
{
var stunA = HediffMaker.MakeHediff(HediffDefOf.rjw_genes_mytosis_shock_hediff, copy);
stunA.Severity = 1;
copy.health.AddHediff(stunA);
}
/// <summary>
/// Helps to get the Orgasm Mytosis Hediff of a Pawn. If it does not exist, one is added.
/// </summary>
/// <param name="orgasmed">The pawn that had the orgasm, for which a hediff is looked up or created.</param>
/// <returns></returns>
public static Hediff GetOrgasmMytosisHediff(Pawn orgasmed)
{
Hediff orgasmicMytosisHediff = orgasmed.health.hediffSet.GetFirstHediffOfDef(HediffDefOf.rjw_genes_orgasmic_mytosis_hediff);
if (orgasmicMytosisHediff == null)
{
orgasmicMytosisHediff = HediffMaker.MakeHediff(HediffDefOf.rjw_genes_orgasmic_mytosis_hediff, orgasmed);
orgasmicMytosisHediff.Severity = 0;
orgasmed.health.AddHediff(orgasmicMytosisHediff);
}
return orgasmicMytosisHediff;
}
public static Pawn Multiply(Pawn toMultiply)
{
ModLog.Message("Hitting Multiply of Mytosis Pawn!");
PawnGenerationRequest request = new PawnGenerationRequest(
kind: toMultiply.kindDef,
faction: toMultiply.Faction,
forceGenerateNewPawn: true,
developmentalStages: DevelopmentalStage.Adult,
allowDowned: true,
canGeneratePawnRelations: false,
colonistRelationChanceFactor: 0,
allowFood: false,
allowAddictions: false,
relationWithExtraPawnChanceFactor: 0,
forbidAnyTitle: true,
forceNoBackstory: true,
fixedGender: toMultiply.gender
);
/*
* Devnote: Adding these will lead to deadly issues!
fixedBiologicalAge: toMultiply.ageTracker.AgeBiologicalTicks,
fixedChronologicalAge: toMultiply.ageTracker.AgeChronologicalTicks,
*/
Pawn copy = PawnGenerator.GeneratePawn(request);
copy.gender = toMultiply.gender;
copy.ageTracker = toMultiply.ageTracker;
copy.Name = CreateCloneName(toMultiply,2);
copy.health = CopyRelevantHediffs(copy, toMultiply);
copy.genes = CopyGeneTracker(copy,toMultiply.genes);
copy.ideo = toMultiply.ideo;
copy.records = new Pawn_RecordsTracker(copy);
copy.outfits = toMultiply.outfits;
copy.relations = toMultiply.relations;
copy.skills = CopySkillTracker(copy,toMultiply.skills);
copy.equipment.DestroyAllEquipment();
copy.apparel.DestroyAll();
//TODO:
// Birthmother doesn't show as relation (See log below)
// It is not blue :(
PawnUtility.TrySpawnHatchedOrBornPawn(copy, toMultiply);
// Move the copy in front of the origin, rather than on top
if (toMultiply.Spawned)
if (toMultiply.CurrentBed() != null)
{
copy.Position = copy.Position + new IntVec3(0, 0, 1).RotatedBy(toMultiply.CurrentBed().Rotation);
}
copy.relations.AddDirectRelation(PawnRelationDefOf.ParentBirth, toMultiply);
copy.style = CopyStyleTracker(copy, toMultiply.style);
copy.story = CopyStoryTracker(copy, toMultiply.story);
copy.Draw();
return copy;
}
private static Name CreateCloneName(Pawn toCopyFrom, int additions=1)
{
if (toCopyFrom.Name is NameTriple)
{
NameTriple casted = (NameTriple)toCopyFrom.Name;
String Postfix = " " + RandomNamePostFix(additions);
Name newName = new NameTriple(first:casted.First + Postfix, nick: casted.Nick + Postfix, last: casted.Last);
if (newName.UsedThisGame)
return CreateCloneName(toCopyFrom, additions);
return newName;
}
return toCopyFrom.Name;
}
private static Pawn_GeneTracker CopyGeneTracker(Pawn toCopyTo, Pawn_GeneTracker toCopyFrom)
{
var tracker = new Pawn_GeneTracker(toCopyTo);
// Due to Overwrite logics, we first add Endogenes and then a second pass on xenogenes
// Pass 1: Endogenes
foreach (Gene gene in toCopyFrom.GenesListForReading) {
GeneDef def = gene.def;
if (!toCopyFrom.Xenogenes.Contains(gene))
tracker.AddGene(def, false);
}
// Pass 2: Xenogenes
foreach (Gene gene in toCopyFrom.GenesListForReading)
{
GeneDef def = gene.def;
if (toCopyFrom.Xenogenes.Contains(gene))
tracker.AddGene(def, true);
}
tracker.Reset();
var skin = tracker.GetMelaninGene();
var hair = tracker.GetHairColorGene();
ModLog.Message($"{toCopyTo} had Skin {skin.defName} and {hair.defName} as colour-genes");
return tracker;
}
private static Pawn_StoryTracker CopyStoryTracker(Pawn toCopyTo, Pawn_StoryTracker toCopyFrom)
{
var tracker = new Pawn_StoryTracker(toCopyTo);
tracker.Childhood = toCopyFrom.Childhood;
tracker.Adulthood = toCopyFrom.Adulthood;
tracker.headType = toCopyFrom.headType;
tracker.bodyType = toCopyFrom.bodyType;
tracker.hairDef = toCopyFrom.hairDef;
tracker.furDef = toCopyFrom.furDef;
tracker.traits = toCopyFrom.traits;
tracker.skinColorOverride = toCopyFrom.skinColorOverride;
tracker.HairColor = toCopyFrom.HairColor;
return tracker;
}
private static Pawn_SkillTracker CopySkillTracker(Pawn toCopyTo, Pawn_SkillTracker toCopyFrom)
{
var tracker = new Pawn_SkillTracker(toCopyTo);
tracker.skills = toCopyFrom.skills;
return tracker;
}
private static Pawn_HealthTracker CopyRelevantHediffs(Pawn toCopyTo, Pawn copiedFrom)
{
var toCopyFrom = copiedFrom.health;
var tracker = toCopyTo.health;
// Step 0: Remove everything, Reset
tracker.RemoveAllHediffs();
tracker.Reset();
// Step 1: Copy ALL Hediffs
foreach (Hediff hed in toCopyFrom.hediffSet.hediffs)
{
// DevNote: There were a lot of issues around bodyparts:
// Some Hediffs really need to know their bodypart, e.g. an implanted arm can either be left or right.
// Ignoring this will lead to many errors, mostly around nullpointers.
BodyPartRecord originalBPR = hed.Part;
if (originalBPR != null) {
BodyPartRecord copyBPR = toCopyTo.RaceProps?.body.AllParts.Find(bpr => bpr.def == originalBPR.def);
if (copyBPR != null && !copyBPR.IsMissingForPawn(toCopyTo)) {
Hediff copiedHediff = HediffMaker.MakeHediff(hed.def, toCopyTo, copyBPR);
tracker.AddHediff(copiedHediff);
}
} else
{
Hediff copiedHediff = HediffMaker.MakeHediff(hed.def, toCopyTo);
tracker.AddHediff(copiedHediff);
}
}
// Step 2: Remove all Artifical Parts
List<Hediff> hediffsToRemove = new List<Hediff>();
foreach (Hediff hed in tracker.hediffSet.hediffs)
{
if (hed is Hediff_AddedPart && ((Hediff_AddedPart)hed).def.countsAsAddedPartOrImplant)
{
hediffsToRemove.Add(hed);
}
}
tracker.hediffSet.hediffs.RemoveAll(x => hediffsToRemove.Contains(x));
// Step 3: Tend issues from Removal
foreach (Hediff copiedHediff in tracker.hediffSet.hediffs)
{
if (copiedHediff.Bleeding)
copiedHediff.Tended(1.0f,1.0f);
}
return tracker;
}
private static Pawn_StyleTracker CopyStyleTracker(Pawn toCopyTo, Pawn_StyleTracker toCopyFrom)
{
var tracker = new Pawn_StyleTracker(toCopyTo);
tracker.beardDef = toCopyFrom.beardDef;
tracker.BodyTattoo = toCopyFrom.BodyTattoo;
tracker.FaceTattoo = toCopyFrom.FaceTattoo;
return tracker;
}
private static String RandomNamePostFix(int numberOfParts)
{
List<String> additions = new List<String>()
{
"A","B","C","D","E","F","X","Y","Z",
"Two",
"Alpha","Beta","Gamma","Delta","Epsilon","Zeta","Eta","Theta","Iota","Kappa","Lambda","Mu","Nu","Xi","Omicron","Pi","Rho","Sigma","Tau","Upsilon","Phi","Chi","Psi","Omega"
};
additions.Shuffle();
return String.Join(" ",additions.Take(numberOfParts));
}
}
}
/*
*
*Warning:
*Tried to add pawn relation ParentBirth with self, pawn=Henri
UnityEngine.StackTraceUtility:ExtractStackTrace ()
Verse.Log:Warning (string)
RimWorld.Pawn_RelationsTracker:AddDirectRelation (RimWorld.PawnRelationDef,Verse.Pawn)
RJW_Genes.Patch_OrgasmMytosis:Multiply (Verse.Pawn)
RJW_Genes.Patch_OrgasmMytosis:Postfix (rjw.JobDriver_Sex,int&)
(wrapper dynamic-method) rjw.JobDriver_Sex:rjw.JobDriver_Sex.Roll_Orgasm_Duration_Reset_Patch1 (rjw.JobDriver_Sex)
(wrapper dynamic-method) rjw.JobDriver_Sex:rjw.JobDriver_Sex.Orgasm_Patch2 (rjw.JobDriver_Sex)
(wrapper dynamic-method) rjw.JobDriver_Sex:rjw.JobDriver_Sex.SexTick_Patch1 (rjw.JobDriver_Sex,Verse.Pawn,Verse.Thing,bool,bool)
rjw.JobDriver_Rape/<>c__DisplayClass1_0:<MakeNewToils>b__6 ()
(wrapper dynamic-method) Verse.AI.JobDriver:Verse.AI.JobDriver.DriverTick_Patch0 (Verse.AI.JobDriver)
Verse.AI.Pawn_JobTracker:JobTrackerTick ()
Verse.Pawn:Tick ()
Verse.TickList:Tick ()
(wrapper dynamic-method) Verse.TickManager:Verse.TickManager.DoSingleTick_Patch2 (Verse.TickManager)
Verse.TickManager:TickManagerUpdate ()
Verse.Game:UpdatePlay ()
Verse.Root_Play:Update ()
*/

3
Source/HediffDefOf.cs
View File

@ -16,5 +16,8 @@ namespace RJW_Genes
public static readonly HediffDef rjw_genes_succubus_drained;
public static readonly HediffDef rjw_genes_orgasm_rush_hediff;
public static readonly HediffDef rjw_genes_fertilin_craving;
public static readonly HediffDef rjw_genes_orgasmic_mytosis_hediff;
public static readonly HediffDef rjw_genes_mytosis_shock_hediff;
}
}

1
Source/Rjw-Genes.csproj
View File

@ -141,6 +141,7 @@
<Compile Include="Genes\Patch_AddNotifyOnGeneration.cs" />
<Compile Include="Genes\Special\AgeTransferExtension.cs" />
<Compile Include="Genes\Special\Patch_AgeDrain.cs" />
<Compile Include="Genes\Special\Patch_OrgasmMytosis.cs" />
<Compile Include="Interactions\SuccubusTailjob\CompAbility_SexInteractionRequirements.cs" />
<Compile Include="Genes\Life_Force\Abilities\CompAbilityEffect_PussyHeal.cs" />
<Compile Include="Genes\Life_Force\Abilities\CompProperties_AbilityLifeForceCost.cs" />