Myopia

Content.Shared/ADT/Glasses/GlassesComponent.cs

@@ -0,0 +1,13 @@
+using Robust.Shared.GameStates;
+
+namespace Content.Shared.Traits.Assorted;
+
+/// <summary>
+/// This is used for making something blind forever.
+/// </summary>
+[RegisterComponent, NetworkedComponent]
+public sealed partial class GlassesComponent : Component
+{
+
+}
+

Content.Shared/ADT/Glasses/GlassesSystem.cs

@@ -0,0 +1,49 @@
+using Content.Shared.Damage.Components;
+using Content.Shared.Examine;
+using Content.Shared.Eye.Blinding.Components;
+using Content.Shared.Eye.Blinding.Systems;
+using Content.Shared.IdentityManagement;
+using Robust.Shared.Network;
+using Content.Shared.Inventory.Events;
+using Content.Shared.Inventory;
+using Content.Shared.Traits.Assorted;
+
+namespace Content.Shared.Traits.Assorted;
+
+/// <summary>
+/// This handles permanent blindness, both the examine and the actual effect.
+/// </summary>
+public sealed class GlassesSystem : EntitySystem
+{
+    [Dependency] private readonly INetManager _net = default!;
+    [Dependency] private readonly IEntityManager _entityManager = default!;
+    [Dependency] private readonly BlindableSystem _blinding = default!;
+
+    /// <inheritdoc/>
+    public override void Initialize()
+    {
+        SubscribeLocalEvent<GlassesComponent, GotEquippedEvent>(Equipped);
+        SubscribeLocalEvent<GlassesComponent, GotUnequippedEvent>(Unequipped);
+
+    }
+
+    private void Equipped(EntityUid uid, GlassesComponent component, ref GotEquippedEvent args)
+    {
+        if (!TryComp<MyopiaComponent>(args.Equipee, out var myopia))
+            return;
+        myopia.Active = false;
+        if (!TryComp<BlindableComponent>(args.Equipee, out var blindable))
+            return;
+        _blinding.AdjustEyeDamage((args.Equipee, blindable), -myopia.EyeDamage);
+    }
+
+    private void Unequipped(EntityUid uid, GlassesComponent component, ref GotUnequippedEvent args)
+    {
+        if (!TryComp<MyopiaComponent>(args.Equipee, out var myopia))
+            return;
+        myopia.Active = true;
+        if (!TryComp<BlindableComponent>(args.Equipee, out var blindable))
+            return;
+        _blinding.AdjustEyeDamage((args.Equipee, blindable), myopia.EyeDamage);
+    }
+}

Content.Shared/ADT/Traits/Assorted/MyopiaComponent.cs

@@ -0,0 +1,16 @@
+using Robust.Shared.GameStates;
+
+namespace Content.Shared.Traits.Assorted;
+
+/// <summary>
+/// This is used for making something blind forever.
+/// </summary>
+[RegisterComponent, NetworkedComponent]
+public sealed partial class MyopiaComponent : Component
+{
+    [DataField]
+    public int EyeDamage = 3;
+
+    public bool Active = true;
+}
+

Content.Shared/ADT/Traits/Assorted/MyopiaSystem.cs

@@ -0,0 +1,52 @@
+using Content.Shared.Damage.Components;
+using Content.Shared.Examine;
+using Content.Shared.Eye.Blinding.Components;
+using Content.Shared.Eye.Blinding.Systems;
+using Content.Shared.IdentityManagement;
+using Robust.Shared.Network;
+
+namespace Content.Shared.Traits.Assorted;
+
+/// <summary>
+/// This handles permanent blindness, both the examine and the actual effect.
+/// </summary>
+public sealed class MyopiaSystem : EntitySystem
+{
+    [Dependency] private readonly INetManager _net = default!;
+    [Dependency] private readonly IEntityManager _entityManager = default!;
+    [Dependency] private readonly BlindableSystem _blinding = default!;
+
+    /// <inheritdoc/>
+    public override void Initialize()
+    {
+        SubscribeLocalEvent<MyopiaComponent, ComponentStartup>(OnStartup);
+        SubscribeLocalEvent<MyopiaComponent, ComponentShutdown>(OnShutdown);
+        SubscribeLocalEvent<MyopiaComponent, EyeDamageChangedEvent>(OnDamageChanged);
+
+    }
+
+    private void OnStartup(EntityUid uid, MyopiaComponent component, ComponentStartup args)
+    {
+        if (!TryComp<BlindableComponent>(uid, out var blindable))
+            return;
+        _blinding.AdjustEyeDamage((uid, blindable), component.EyeDamage);
+    }
+
+    private void OnShutdown(EntityUid uid, MyopiaComponent component, ComponentShutdown args)
+    {
+        if (!TryComp<BlindableComponent>(uid, out var blindable))
+            return;
+        _blinding.AdjustEyeDamage((uid, blindable), -component.EyeDamage);
+    }
+
+    private void OnDamageChanged(EntityUid uid, MyopiaComponent component, ref EyeDamageChangedEvent args)
+    {
+        if (!TryComp<BlindableComponent>(uid, out var blindable))
+            return;
+        if (!component.Active)
+            return;
+        if (blindable.EyeDamage < component.EyeDamage)
+            _blinding.AdjustEyeDamage((uid, blindable), (component.EyeDamage - blindable.EyeDamage));
+
+    }
+}

Resources/Prototypes/ADT/Traits/neutral.yml

@@ -3,4 +3,11 @@
   name: trait-moth-accent-name
   description: trait-moth-accent-desc
   components:
-    - type: MothAccent
+    - type: MothAccent
+
+- type: trait
+  id: ADTMyopia
+  name: trait-nearsighted-name
+  description: trait-nearsighted-description
+  components:
+    - type: Myopia

Resources/Prototypes/Entities/Clothing/Eyes/glasses.yml

@@ -70,6 +70,7 @@
   name: glasses
   description: A pair of spectacular spectacles with prescription lenses.
   components:
+  - type: Glasses
   - type: Sprite
     sprite: Clothing/Eyes/Glasses/glasses.rsi
   - type: Clothing