[Bounty] Impstation sacrifice rework, and the Infinite Archives

Content.Client/_Imp/Heretic/UI/HellMemoryEui.cs

@@ -0,0 +1,25 @@
+using Content.Client.Eui;
+
+namespace Content.Client._Imp.Heretic.UI;
+
+public sealed class HellMemoryEui : BaseEui
+{
+    private readonly HellMemoryMenu _menu;
+
+    public HellMemoryEui()
+    {
+        _menu = new HellMemoryMenu();
+    }
+
+    public override void Opened()
+    {
+        _menu.OpenCentered();
+    }
+
+    public override void Closed()
+    {
+        base.Closed();
+
+        _menu.Close();
+    }
+}

Content.Client/_Imp/Heretic/UI/HellMemoryMenu.xaml

@@ -0,0 +1,10 @@
+<controls:FancyWindow xmlns="https://spacestation14.io"
+                      xmlns:controls="clr-namespace:Content.Client.UserInterface.Controls"
+                      Title="{Loc 'hell-memory-title'}">
+    <BoxContainer Orientation="Vertical" Margin="5">
+        <RichTextLabel Name="MemoryNotif"/>
+        <BoxContainer Orientation="Horizontal" Align="Center">
+            <Button Name="ConfirmButton" Text="{Loc 'hell-memory-confirm'}"/>
+        </BoxContainer>
+    </BoxContainer>
+</controls:FancyWindow>

Content.Client/_Imp/Heretic/UI/HellMemoryMenu.xaml.cs

@@ -0,0 +1,20 @@
+using Content.Client.UserInterface.Controls;
+using Content.Client.Message;
+using Robust.Client.AutoGenerated;
+using Robust.Client.UserInterface.XAML;
+
+namespace Content.Client._Imp.Heretic.UI;
+
+
+[GenerateTypedNameReferences]
+public sealed partial class HellMemoryMenu : FancyWindow
+{
+    public HellMemoryMenu()
+    {
+        RobustXamlLoader.Load(this);
+
+        MemoryNotif.SetMarkup(Loc.GetString("hell-memory-text"));
+
+        ConfirmButton.OnPressed += _ => Close();
+    }
+}

Content.Server/_DV/StationEvents/Components/MidRoundAntagRuleComponent.cs

@@ -0,0 +1,10 @@
+namespace Content.Server.StationEvents.Components;
+
+// Impstation this is MIT code licenced under Nyanotrasen namespace
+
+/// <summary>
+/// Spawns any antags at random midround antag spawnpoints, falls back to vent critter spawners.
+/// Requires <c>AntagSelection</c>.
+/// </summary>
+[RegisterComponent]
+public sealed partial class MidRoundAntagRuleComponent : Component;

Content.Server/_DV/StationEvents/Components/MidRoundAntagSpawnLocationComponent.cs

@@ -0,0 +1,6 @@
+namespace Content.Server.StationEvents;
+
+// Impstation this is MIT code licenced under Nyanotrasen namespace
+
+[RegisterComponent]
+public sealed partial class MidRoundAntagSpawnLocationComponent : Component;

Content.Server/_DV/StationEvents/Events/MidRoundAntagRule.cs

@@ -0,0 +1,63 @@
+using Content.Server.Antag;
+using Content.Server.StationEvents.Components;
+using Robust.Shared.Map;
+
+namespace Content.Server.StationEvents.Events;
+
+// Impstation heads up, this is MIT code, not AGPL. Licenced under Nyanotrasen namespace
+
+/// <summary>
+/// Makes antags spawn at a random midround antag or vent critter spawner.
+/// </summary>
+public sealed class MidRoundAntagRule : StationEventSystem<MidRoundAntagRuleComponent>
+{
+    [Dependency] private readonly SharedTransformSystem _xform = default!;
+
+    public override void Initialize()
+    {
+        base.Initialize();
+
+        SubscribeLocalEvent<MidRoundAntagRuleComponent, AntagSelectLocationEvent>(OnSelectLocation);
+    }
+
+    private void OnSelectLocation(Entity<MidRoundAntagRuleComponent> ent, ref AntagSelectLocationEvent args)
+    {
+        if (!TryGetRandomStation(out var station))
+            return;
+
+        var spawns = FindSpawns(station.Value);
+        if (spawns.Count == 0)
+        {
+            Log.Warning($"Couldn't find any suitable midround antag spawners for {ToPrettyString(ent):rule}");
+            return;
+        }
+
+        args.Coordinates.AddRange(spawns);
+    }
+
+    private List<MapCoordinates> FindSpawns(EntityUid station)
+    {
+        var spawns = new List<MapCoordinates>();
+        var query = EntityQueryEnumerator<MidRoundAntagSpawnLocationComponent, TransformComponent>();
+        while (query.MoveNext(out var uid, out _, out var xform))
+        {
+            if (StationSystem.GetOwningStation(uid, xform) == station && xform.GridUid != null)
+                spawns.Add(_xform.GetMapCoordinates(xform));
+        }
+
+        // if there are any midround antag spawns mapped, use them
+        if (spawns.Count > 0)
+            return spawns;
+
+        // otherwise, fall back to vent critter spawns
+        Log.Info($"Station {ToPrettyString(station):station} has no midround antag spawnpoints mapped, falling back. Please map them!");
+        var fallbackQuery = EntityQueryEnumerator<VentCritterSpawnLocationComponent, TransformComponent>();
+        while (fallbackQuery.MoveNext(out var uid, out _, out var xform))
+        {
+            if (StationSystem.GetOwningStation(uid, xform) == station && xform.GridUid != null)
+                spawns.Add(_xform.GetMapCoordinates(xform));
+        }
+
+        return spawns;
+    }
+}

Content.Server/_Imp/Heretic/Components/HellSpawnPointComponent.cs

@@ -0,0 +1,6 @@
+namespace Content.Server._Imp.Heretic.Components;
+
+[RegisterComponent]
+public sealed partial class HellSpawnPointComponent : Component
+{
+}

Content.Server/_Imp/Heretic/Components/HellVictimComponent.cs

@@ -0,0 +1,46 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using Content.Shared.Humanoid.Prototypes;
+using Robust.Shared.Map;
+
+namespace Content.Server._Imp.Heretic.Components;
+
+[RegisterComponent]
+[AutoGenerateComponentPause]
+public sealed partial class HellVictimComponent : Component
+{
+    [DataField]
+    public bool AlreadyHelled = false;
+
+    [DataField]
+    public bool CleanupDone = false;
+
+    [ViewVariables]
+    [AutoPausedField]
+    public TimeSpan ExitHellTime = default!;
+
+    [DataField]
+    public EntityUid OriginalBody;
+
+    [ViewVariables(VVAccess.ReadOnly)]
+    public EntityCoordinates OriginalPosition;
+
+    [DataField]
+    public SpeciesPrototype? CloneProto;
+
+    [DataField]
+    public EntityUid? Mind;
+
+    [DataField]
+    public Boolean HasMind = false;
+
+    [DataField, AutoNetworkedField]
+    public TimeSpan HellDuration = TimeSpan.FromSeconds(30); // Omu - 15 seconds is an INCREDIBLY brief visit to hell
+
+    // Omu - The time that you are stunned for after exiting hell world
+    [DataField, AutoNetworkedField]
+    public TimeSpan StunTime = TimeSpan.FromSeconds(4);
+}

Content.Server/_Imp/Heretic/UI/HellMemoryEui.cs

@@ -0,0 +1,8 @@
+using Content.Server.EUI;
+
+namespace Content.Server._Imp.Heretic.UI;
+
+public sealed class HellMemoryEui : BaseEui
+{
+    // serverside does nothing!
+}

Content.Server/_Shitcode/GameTicking/Rules/HereticRuleSystem.cs

@@ -29,6 +29,7 @@
 using System.Text;
 using Content.Server.Station.Components;
 using Content.Server._Goobstation.Objectives.Components;
+using Content.Server._Goobstation.Heretic.EntitySystems; //imp
 
 namespace Content.Server.GameTicking.Rules;
 
@@ -40,6 +41,7 @@ public sealed class HereticRuleSystem : GameRuleSystem<HereticRuleComponent>
     [Dependency] private readonly NpcFactionSystem _npcFaction = default!;
     [Dependency] private readonly ObjectivesSystem _objective = default!;
     [Dependency] private readonly IRobustRandom _rand = default!;
+    [Dependency] private readonly HellWorldSystem _hell = default!; //imp
 
     public static readonly SoundSpecifier BriefingSound =
         new SoundPathSpecifier("/Audio/_Goobstation/Heretic/Ambience/Antag/Heretic/heretic_gain.ogg");
@@ -80,6 +82,7 @@ private void OnAntagSelect(Entity<HereticRuleComponent> ent, ref AfterAntagEntit
             if (TryFindTileOnGrid(grid.Value, out _, out var coords))
                 Spawn(ent.Comp.RealityShift, coords);
         }
+        _hell.MakeHell(); //imp
     }
 
     public bool TryMakeHeretic(EntityUid target, HereticRuleComponent rule)