using System;
using System.Collections.Generic;

namespace Server.Spells.Second
{
  public class ProtectionSpell : MagerySpell
  {
    private static SpellInfo m_Info = new SpellInfo(
      "Protection", "Uus Sanct",
      236,
      9011,
      Reagent.Garlic,
      Reagent.Ginseng,
      Reagent.SulfurousAsh
    );

    private static Dictionary<Mobile, Tuple<ResistanceMod, DefaultSkillMod>> m_Table = new Dictionary<Mobile, Tuple<ResistanceMod, DefaultSkillMod>>();

    public ProtectionSpell(Mobile caster, Item scroll = null) : base(caster, scroll, m_Info)
    {
    }

    public static Dictionary<Mobile, double> Registry{ get; } = new Dictionary<Mobile, double>();

    public override SpellCircle Circle => SpellCircle.Second;

    public override bool CheckCast()
    {
      if (Core.AOS)
        return true;

      if (Registry.ContainsKey(Caster))
      {
        Caster.SendLocalizedMessage(1005559); // This spell is already in effect.
        return false;
      }

      if (Caster.CanBeginAction<DefensiveSpell>())
        return true;

      Caster.SendLocalizedMessage(1005385); // The spell will not adhere to you at this time.
      return false;

    }

    public static void Toggle(Mobile caster, Mobile target)
    {
      /* Players under the protection spell effect can no longer have their spells "disrupted" when hit.
       * Players under the protection spell have decreased physical resistance stat value (-15 + (Inscription/20),
       * a decreased "resisting spells" skill value by -35 + (Inscription/20),
       * and a slower casting speed modifier (technically, a negative "faster cast speed") of 2 points.
       * The protection spell has an indefinite duration, becoming active when cast, and deactivated when re-cast.
       * Reactive Armor, Protection, and Magic Reflection will stay on�even after logging out,
       * even after dying�until you �turn them off� by casting them again.
       */

      if (m_Table.TryGetValue(target, out Tuple<ResistanceMod, DefaultSkillMod> mods))
      {
        target.PlaySound(0x1E9);
        target.FixedParticles(0x375A, 9, 20, 5016, EffectLayer.Waist);

        mods = new Tuple<ResistanceMod, DefaultSkillMod>(
          new ResistanceMod(ResistanceType.Physical,
            -15 + Math.Min((int)(caster.Skills.Inscribe.Value / 20), 15)),
          new DefaultSkillMod(SkillName.MagicResist, true,
            -35 + Math.Min((int)(caster.Skills.Inscribe.Value / 20), 35))
        );

        m_Table[target] = mods;
        Registry[target] = 100.0;

        target.AddResistanceMod(mods.Item1);
        target.AddSkillMod(mods.Item2);

        int physloss = -15 + (int)(caster.Skills.Inscribe.Value / 20);
        int resistloss = -35 + (int)(caster.Skills.Inscribe.Value / 20);
        string args = $"{physloss}\t{resistloss}";
        BuffInfo.AddBuff(target, new BuffInfo(BuffIcon.Protection, 1075814, args));
      }
      else
      {
        target.PlaySound(0x1ED);
        target.FixedParticles(0x375A, 9, 20, 5016, EffectLayer.Waist);

        m_Table.Remove(target);
        Registry.Remove(target);

        target.RemoveResistanceMod(mods.Item1);
        target.RemoveSkillMod(mods.Item2);

        BuffInfo.RemoveBuff(target, BuffIcon.Protection);
      }
    }

    public static void EndProtection(Mobile m)
    {
      if (!m_Table.TryGetValue(m, out Tuple<ResistanceMod, DefaultSkillMod> mods))
        return;

      m_Table.Remove(m);
      Registry.Remove(m);

      m.RemoveResistanceMod(mods.Item1);
      m.RemoveSkillMod(mods.Item2);

      BuffInfo.RemoveBuff(m, BuffIcon.Protection);
    }

    public override void OnCast()
    {
      if (Core.AOS)
      {
        if (CheckSequence())
          Toggle(Caster, Caster);

        FinishSequence();
      }
      else
      {
        if (Registry.ContainsKey(Caster))
        {
          Caster.SendLocalizedMessage(1005559); // This spell is already in effect.
        }
        else if (!Caster.CanBeginAction<DefensiveSpell>())
        {
          Caster.SendLocalizedMessage(1005385); // The spell will not adhere to you at this time.
        }
        else if (CheckSequence())
        {
          if (Caster.BeginAction<DefensiveSpell>())
          {
            double value = (int)(Caster.Skills.EvalInt.Value +
                                 Caster.Skills.Meditation.Value +
                                 Caster.Skills.Inscribe.Value);
            value /= 4;

            if (value < 0)
              value = 0;
            else if (value > 75)
              value = 75.0;

            Registry.Add(Caster, value);
            new InternalTimer(Caster).Start();

            Caster.FixedParticles(0x375A, 9, 20, 5016, EffectLayer.Waist);
            Caster.PlaySound(0x1ED);
          }
          else
          {
            Caster.SendLocalizedMessage(1005385); // The spell will not adhere to you at this time.
          }
        }

        FinishSequence();
      }
    }

    private class InternalTimer : Timer
    {
      private Mobile m_Caster;

      public InternalTimer(Mobile caster) : base(TimeSpan.FromSeconds(0))
      {
        double val = caster.Skills.Magery.Value * 2.0;
        if (val < 15)
          val = 15;
        else if (val > 240)
          val = 240;

        m_Caster = caster;
        Delay = TimeSpan.FromSeconds(val);
        Priority = TimerPriority.OneSecond;
      }

      protected override void OnTick()
      {
        Registry.Remove(m_Caster);
        DefensiveSpell.Nullify(m_Caster);
      }
    }
  }
}