Frankenstein update 2

Content.Server/SS220/AutoEngrave/AutoEngravingComponent.cs

@@ -0,0 +1,10 @@
+namespace Content.Server.SS220.AutoEngrave;
+
+[RegisterComponent]
+public sealed class AutoEngravingComponent : Component
+{
+    [ViewVariables(VVAccess.ReadWrite), DataField("autoEngraveLocKey")]
+    public string? AutoEngraveLocKey;
+    [ViewVariables(VVAccess.ReadWrite), DataField("engravedText")]
+    public string EngravedText = "";
+}

Content.Server/SS220/AutoEngrave/AutoEngravingSystem.cs

@@ -0,0 +1,21 @@
+// © SS220, An EULA/CLA with a hosting restriction, full text: https://raw.githubusercontent.com/SerbiaStrong-220/space-station-14/master/CLA.txt
+using Content.Shared.Examine;
+
+namespace Content.Server.SS220.AutoEngrave;
+
+public sealed class AutoEngravingSystem : EntitySystem
+{
+    /// <inheritdoc/>
+    public override void Initialize()
+    {
+        SubscribeLocalEvent<AutoEngravingComponent, ExaminedEvent>(OnExamine);
+    }
+
+    private void OnExamine(EntityUid uid, AutoEngravingComponent component, ExaminedEvent args)
+    {
+        if (component.AutoEngraveLocKey is null)
+            return;
+
+        args.PushMarkup(Loc.GetString(component.AutoEngraveLocKey, ("engraved", component.EngravedText)));
+    }
+}

Content.Server/SS220/AutoEngrave/EngraveNameOnOpenComponent.cs

@@ -0,0 +1,14 @@
+namespace Content.Server.SS220.AutoEngrave;
+
+[RegisterComponent]
+public sealed class EngraveNameOnOpenComponent : Component
+{
+    [ViewVariables(VVAccess.ReadWrite), DataField("activated")]
+    public bool Activated;
+
+    [ViewVariables(VVAccess.ReadWrite), DataField("autoEngraveLocKey")]
+    public string? AutoEngraveLocKey;
+
+    [ViewVariables(VVAccess.ReadWrite), DataField("toEngrave")]
+    public HashSet<string> ToEngrave = new();
+}

Content.Server/SS220/AutoEngrave/EngraveNameOnOpenSystem.cs

@@ -0,0 +1,55 @@
+// © SS220, An EULA/CLA with a hosting restriction, full text: https://raw.githubusercontent.com/SerbiaStrong-220/space-station-14/master/CLA.txt
+using Content.Server.Storage.Components;
+using Content.Shared.Access.Systems;
+using Content.Shared.Interaction;
+
+namespace Content.Server.SS220.AutoEngrave;
+
+public sealed class EngraveNameOnOpenSystem : EntitySystem
+{
+    [Dependency] private readonly AccessReaderSystem _accessReader = default!;
+
+    /// <inheritdoc/>
+    public override void Initialize()
+    {
+        SubscribeLocalEvent<EngraveNameOnOpenComponent, ActivateInWorldEvent>(OnActivate);
+    }
+
+    private void OnActivate(EntityUid uid, EngraveNameOnOpenComponent component, ActivateInWorldEvent args)
+    {
+        if (!TryComp<ServerStorageComponent>(uid, out var storageComp))
+            return;
+
+        var character = args.User;
+
+        if (!_accessReader.IsAllowed(character, uid))
+            return;
+
+        TryEngrave(character, storageComp, component);
+    }
+
+    private void TryEngrave(EntityUid user, ServerStorageComponent storageComp, EngraveNameOnOpenComponent engraveComp)
+    {
+        if (engraveComp.Activated)
+            return;
+
+        if (storageComp.StoredEntities is null)
+            return;
+
+        foreach (var item in storageComp.StoredEntities)
+        {
+            var id = MetaData(item).EntityPrototype?.ID;
+            if (id is null)
+                continue;
+
+            if (!engraveComp.ToEngrave.Contains(id))
+                continue;
+
+            var engraving = AddComp<AutoEngravingComponent>(item);
+            engraving.AutoEngraveLocKey = engraveComp.AutoEngraveLocKey;
+            engraving.EngravedText = MetaData(user).EntityName;
+
+            engraveComp.Activated = true;
+        }
+    }
+}

Resources/Locale/ru-RU/ss220/auto-engravings.ftl

@@ -0,0 +1 @@
+mateba-name-engraving = [italic]На стволе револьвера выгравировано: "{$engraved}".[/italic]