Add admin Erase verb, add checkbox to erase from the ban panel (#20985)

Content.Shared/Chat/MsgChatMessage.cs

@@ -1,9 +1,9 @@
+using System.IO;
 using JetBrains.Annotations;
 using Lidgren.Network;
 using Robust.Shared.Network;
 using Robust.Shared.Serialization;
 using Robust.Shared.Utility;
-using System.IO;
 
 namespace Content.Shared.Chat
 {
@@ -14,6 +14,14 @@ namespace Content.Shared.Chat
         public string Message;
         public string WrappedMessage;
         public NetEntity SenderEntity;
+
+        /// <summary>
+        ///     Identifier sent when <see cref="SenderEntity"/> is <see cref="NetEntity.Invalid"/>
+        ///     if this was sent by a player to assign a key to the sender of this message.
+        ///     This is unique per sender.
+        /// </summary>
+        public int? SenderKey;
+
         public bool HideChat;
         public Color? MessageColorOverride;
         public string? AudioPath;
@@ -22,12 +30,13 @@ namespace Content.Shared.Chat
         [NonSerialized]
         public bool Read;
 
-        public ChatMessage(ChatChannel channel, string message, string wrappedMessage, NetEntity source, bool hideChat = false, Color? colorOverride = null, string? audioPath = null, float audioVolume = 0)
+        public ChatMessage(ChatChannel channel, string message, string wrappedMessage, NetEntity source, int? senderKey, bool hideChat = false, Color? colorOverride = null, string? audioPath = null, float audioVolume = 0)
         {
             Channel = channel;
             Message = message;
             WrappedMessage = wrappedMessage;
             SenderEntity = source;
+            SenderKey = senderKey;
             HideChat = hideChat;
             MessageColorOverride = colorOverride;
             AudioPath = audioPath;

Content.Shared/Chat/MsgDeleteChatMessagesBy.cs

@@ -0,0 +1,37 @@
+using Lidgren.Network;
+using Robust.Shared.Network;
+using Robust.Shared.Serialization;
+
+namespace Content.Shared.Chat;
+
+public sealed class MsgDeleteChatMessagesBy : NetMessage
+{
+    public override MsgGroups MsgGroup => MsgGroups.Command;
+
+    public int Key;
+    public HashSet<NetEntity> Entities = default!;
+
+    public override void ReadFromBuffer(NetIncomingMessage buffer, IRobustSerializer serializer)
+    {
+        Key = buffer.ReadInt32();
+
+        var entities = buffer.ReadInt32();
+        Entities = new HashSet<NetEntity>(entities);
+
+        for (var i = 0; i < entities; i++)
+        {
+            Entities.Add(buffer.ReadNetEntity());
+        }
+    }
+
+    public override void WriteToBuffer(NetOutgoingMessage buffer, IRobustSerializer serializer)
+    {
+        buffer.Write(Key);
+
+        buffer.Write(Entities.Count);
+        foreach (var ent in Entities)
+        {
+            buffer.Write(ent);
+        }
+    }
+}