Restructuring, some sorting into folders

Source/Genes/Life_Force/Events/SuccubusVisit/IncidentWorker_SuccubusDreamVisit.cs

@@ -0,0 +1,108 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using Verse;
+using Verse.AI;
+using Verse.AI.Group;
+using RimWorld;
+using rjw;
+namespace RJW_Genes
+{
+    public class IncidentWorker_SuccubusDreamVisit : IncidentWorker
+    {
+        //This incidint will only fire if there is a pawn asleep and sexneed is lower than 0.25
+        protected override bool CanFireNowSub(IncidentParms parms)
+        {
+            if (!base.CanFireNowSub(parms))
+            {
+                return false;
+            }
+            Map map = (Map)parms.target;
+            if (!map.mapTemperature.SeasonAcceptableFor(ThingDefOf.Human))
+            {
+                return false;
+            }
+            foreach (Pawn pawn in map.mapPawns.FreeColonistsAndPrisonersSpawned)
+            {
+                if (pawn.jobs.curDriver.asleep && xxx.need_some_sex(pawn) > 1f)
+                {
+                    return true;
+                }
+            }
+            return false;
+            
+        }
+
+        protected override bool TryExecuteWorker(IncidentParms parms)
+        {
+            Map map = (Map)parms.target;
+            Pawn victim = ValidVictims(map).RandomElement();
+            if (victim == null)
+            {
+                return false;
+            }
+            IntVec3 loc = victim.Position;
+            Faction faction;
+            if (!this.TryFindFormerFaction(out faction))
+            {
+                return false;
+            }
+
+            //Spawn succubus at pawn
+            Pawn succubus = PawnGenerator.GeneratePawn(new PawnGenerationRequest(PawnKindDef.Named("rjw_genes_succubus"), faction, PawnGenerationContext.NonPlayer, -1, 
+                false, false, false, true, false, 1f, false, true, false, true, true, false, false, false, false, 0f, 0f, null, 1f, null, null, 
+                null, null, null, null, null, null, null, null, null, null, false, false, false, false, null, null, null, null, null, 0f,
+                DevelopmentalStage.Adult, null, null, null, false));
+            succubus.SetFaction(null, null);
+            GenSpawn.Spawn(succubus, loc, map, WipeMode.Vanish);
+
+            //Set succubus behaviour
+            List<Pawn> list = new List<Pawn> {succubus};
+            LordMaker.MakeNewLord(parms.faction, this.CreateLordJob(parms, succubus, victim), map, list);
+
+            //Make succubus rape victim.
+            if (RJWSettings.rape_enabled)
+            {
+                succubus.pather.StopDead(); 
+                succubus.jobs.StopAll();
+                Job newJob = JobMaker.MakeJob(xxx.RapeRandom, victim);
+                succubus.jobs.StartJob(newJob, JobCondition.InterruptForced, null, false, true, null, null, false, false, null, false, true);
+            }
+
+            //Broken for now
+            //Sends letter
+            //string value = succubus.DevelopmentalStage.Child() ? "FeralChild".Translate().ToString() : succubus.KindLabel;
+            //TaggedString value2 = succubus.DevelopmentalStage.Child() ? "Child".Translate() : "Person".Translate();
+            //TaggedString baseLetterLabel = this.def.letterLabel.Formatted(value).CapitalizeFirst();
+            //TaggedString baseLetterText = this.def.letterText.Formatted(succubus.NameShortColored, value2, succubus.Named("PAWN")).AdjustedFor(succubus, "PAWN", true).CapitalizeFirst();
+            //PawnRelationUtility.TryAppendRelationsWithColonistsInfo(ref baseLetterText, ref baseLetterLabel, succubus);
+            //base.SendStandardLetter(baseLetterLabel, baseLetterText, this.def.letterDef, parms, succubus, Array.Empty<NamedArgument>());
+
+            return true;
+        }
+
+        private IEnumerable<Pawn> ValidVictims(Map map)
+        {
+            foreach (Pawn pawn in map.mapPawns.FreeColonistsAndPrisonersSpawned)
+            {
+                if (pawn.jobs.curDriver.asleep && xxx.need_some_sex(pawn) > 1f)
+                {
+                    yield return pawn;
+                }
+            }
+            yield break;
+        }
+
+        private bool TryFindFormerFaction(out Faction formerFaction)
+        {
+            return Find.FactionManager.TryGetRandomNonColonyHumanlikeFaction(out formerFaction, false, true, TechLevel.Undefined, false);
+        }
+
+        protected virtual LordJob_SuccubusVisit CreateLordJob(IncidentParms parms, Pawn succubus, Pawn target)
+        {
+            return new LordJob_SuccubusVisit(target);
+        }
+    }
+}

Source/Genes/Life_Force/Events/SuccubusVisit/LordJob_SuccubusVisit.cs

@@ -0,0 +1,90 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using Verse;
+using Verse.AI;
+using Verse.AI.Group;
+using RimWorld;
+namespace RJW_Genes
+{
+    //Based on LordJob_VisitColony
+    public class LordJob_SuccubusVisit : LordJob
+    {
+        public LordJob_SuccubusVisit()
+        {
+
+        }
+        public LordJob_SuccubusVisit(Pawn target)
+        {
+            this.target = target;
+        }
+
+        //
+        //Stategraph has lordtoils which say what a pawn should be doing
+        //Transitions say when active lordtoil for pawn should change
+        //
+        public override StateGraph CreateGraph()
+        {
+            StateGraph stateGraph = new StateGraph();
+
+            //Flirt
+            LordToil_Flirt lordToil_Flirt = new LordToil_Flirt(this.target, 7f);
+            stateGraph.AddToil(lordToil_Flirt);
+            stateGraph.StartingToil = lordToil_Flirt;
+
+            //Leave
+            LordToil_ExitMapRandom lordToil_ExitMapRandom = new LordToil_ExitMapRandom();
+            stateGraph.AddToil(lordToil_ExitMapRandom);
+            LordToil_ExitMapAndDefendSelf lordToil_ExitMapAndDefendSelf = new LordToil_ExitMapAndDefendSelf();
+            stateGraph.AddToil(lordToil_ExitMapAndDefendSelf);
+
+            //Leave after some time
+            Transition transition1 = new Transition(lordToil_Flirt, lordToil_ExitMapRandom, false, true);
+            int tickLimit;
+            if (this.durationTicks != null)
+            {
+                tickLimit = this.durationTicks.Value;
+            }
+            else
+            {
+                tickLimit = Rand.Range(60000, 180000); //~1-3 days
+            }
+            transition1.AddTrigger(new Trigger_TicksPassed(tickLimit));
+
+            transition1.AddPreAction(new TransitionAction_Message("SuccubusLeaving".Translate(), null, 1f));
+            stateGraph.AddTransition(transition1);
+
+            //If they become hostile
+            Transition transition3 = new Transition(lordToil_Flirt, lordToil_ExitMapAndDefendSelf, false, true);
+            transition3.AddSource(lordToil_ExitMapRandom); //Not sure what this does 
+            transition3.AddTrigger(new Trigger_BecamePlayerEnemy());
+            transition3.AddTrigger(new Trigger_PawnKilled());
+            transition3.AddPostAction(new TransitionAction_EndAllJobs());
+            stateGraph.AddTransition(transition3, false);
+
+            Transition transition4 = new Transition(lordToil_ExitMapRandom, lordToil_ExitMapAndDefendSelf, false, true);
+            transition4.AddSource(lordToil_Flirt); //Not sure what this does 
+            transition4.AddTrigger(new Trigger_PawnHarmed(1f, true, Faction.OfPlayer));
+            stateGraph.AddTransition(transition4, false);
+
+            return stateGraph;
+        }
+
+        //add toggleable gizmo to allow playes to have colonists sex the succubus into joining your colony
+        //comfort pawn? cooldown?
+        public override IEnumerable<Gizmo> GetPawnGizmos(Pawn p)
+        {
+            return base.GetPawnGizmos(p);
+        }
+
+        public override void ExposeData()
+        {
+            Scribe_Values.Look<int?>(ref this.durationTicks, "durationTicks", null, false);
+            Scribe_References.Look<Pawn>(ref this.target, "target", false);
+        }
+        public Pawn target;
+        private int? durationTicks;
+    }
+}