Antag menu (#9900)

* Refactor traitor generation code.

* RandomTraitorAlive no longer crashes when 1 traitor. Also cleaner/faster

* Add Antag menu for admins, add Traitor to the list.

* Add zombie to admin-antag menu

* Pirates, lone op, make traitor consistent with the rest.

* Add name strings

* cleaned usings.

* Cleanup.

Co-authored-by: drakewill <drake@drakewill-crl>
Co-authored-by: moonheart08 <moonheart08@users.noreply.github.com>

Content.Server/Administration/Systems/AdminVerbSystem.Antags.cs

@@ -0,0 +1,106 @@
+using Content.Server.GameTicking.Rules;
+using Content.Server.Mind.Components;
+using Content.Server.Zombies;
+using Content.Shared.Administration;
+using Content.Shared.Database;
+using Content.Shared.Verbs;
+using Robust.Server.GameObjects;
+using Robust.Shared.Configuration;
+
+namespace Content.Server.Administration.Systems;
+
+public sealed partial class AdminVerbSystem
+{
+    [Dependency] private readonly IConfigurationManager _cfg = default!;
+    [Dependency] private readonly ZombifyOnDeathSystem _zombify = default!;
+    [Dependency] private readonly TraitorRuleSystem _traitorRule = default!;
+    [Dependency] private readonly NukeopsRuleSystem _nukeopsRule = default!;
+    [Dependency] private readonly PiratesRuleSystem _piratesRule = default!;
+
+    // All antag verbs have names so invokeverb works.
+    private void AddAntagVerbs(GetVerbsEvent<Verb> args)
+    {
+        if (!EntityManager.TryGetComponent<ActorComponent?>(args.User, out var actor))
+            return;
+
+        var player = actor.PlayerSession;
+
+        if (!_adminManager.HasAdminFlag(player, AdminFlags.Fun))
+            return;
+
+        var targetHasMind = TryComp(args.Target, out MindComponent? targetMindComp);
+        if (!targetHasMind || targetMindComp == null)
+            return;
+
+        Verb traitor = new()
+        {
+            Text = "Make Traitor",
+            Category = VerbCategory.Antag,
+            IconTexture = "/Textures/Structures/Wallmounts/posters.rsi/poster5_contraband.png",
+            Act = () =>
+            {
+                if (targetMindComp.Mind == null || targetMindComp.Mind.Session == null)
+                    return;
+
+                _traitorRule.MakeTraitor(targetMindComp.Mind.Session);
+            },
+            Impact = LogImpact.High,
+            Message = Loc.GetString("admin-verb-make-traitor"),
+        };
+        args.Verbs.Add(traitor);
+
+        Verb zombie = new()
+        {
+            Text = "Make Zombie",
+            Category = VerbCategory.Antag,
+            IconTexture = "/Textures/Structures/Wallmounts/signs.rsi/bio.png",
+            Act = () =>
+            {
+                TryComp(args.Target, out MindComponent? mindComp);
+                if (mindComp == null || mindComp.Mind == null)
+                    return;
+
+                _zombify.ZombifyEntity(targetMindComp.Owner);
+            },
+            Impact = LogImpact.High,
+            Message = Loc.GetString("admin-verb-make-zombie"),
+        };
+        args.Verbs.Add(zombie);
+
+
+        Verb nukeOp = new()
+        {
+            Text = "Make nuclear operative",
+            Category = VerbCategory.Antag,
+            IconTexture = "/Textures/Structures/Wallmounts/signs.rsi/radiation.png",
+            Act = () =>
+            {
+                if (targetMindComp.Mind == null || targetMindComp.Mind.Session == null)
+                    return;
+
+                _nukeopsRule.MakeLoneNukie(targetMindComp.Mind);
+            },
+            Impact = LogImpact.High,
+            Message = Loc.GetString("admin-verb-make-nuclear-operative"),
+        };
+        args.Verbs.Add(nukeOp);
+
+        Verb pirate = new()
+        {
+            Text = "Make Pirate",
+            Category = VerbCategory.Antag,
+            IconTexture = "/Textures/Clothing/Head/Hats/pirate.rsi/icon.png",
+            Act = () =>
+            {
+                if (targetMindComp.Mind == null || targetMindComp.Mind.Session == null)
+                    return;
+
+                _piratesRule.MakePirate(targetMindComp.Mind);
+            },
+            Impact = LogImpact.High,
+            Message = Loc.GetString("admin-verb-make-pirate"),
+        };
+        args.Verbs.Add(pirate);
+
+    }
+}

Content.Server/Administration/Systems/AdminVerbSystem.cs

@@ -53,6 +53,7 @@ namespace Content.Server.Administration.Systems
             SubscribeLocalEvent<GetVerbsEvent<Verb>>(AddAdminVerbs);
             SubscribeLocalEvent<GetVerbsEvent<Verb>>(AddDebugVerbs);
             SubscribeLocalEvent<GetVerbsEvent<Verb>>(AddSmiteVerbs);
+            SubscribeLocalEvent<GetVerbsEvent<Verb>>(AddAntagVerbs);
             SubscribeLocalEvent<RoundRestartCleanupEvent>(Reset);
             SubscribeLocalEvent<SolutionContainerManagerComponent, SolutionChangedEvent>(OnSolutionChanged);
         }