using System;
using System.Collections.Generic;
using ModernUO.Serialization;
using Server.Items;
using Server.Mobiles;
using Server.Spells;
using Server.Spells.Necromancy;
using Server.Spells.Ninjitsu;

namespace Server.Spells.Ninjitsu
{
    public class MirrorImage : NinjaSpell
    {
        private static readonly Dictionary<Mobile, int> _cloneCount = new();

        private static readonly SpellInfo _info = new(
            "Mirror Image",
            null,
            -1,
            9002
        );

        public MirrorImage(Mobile caster, Item scroll) : base(caster, scroll, _info)
        {
        }

        public override TimeSpan CastDelayBase => TimeSpan.FromSeconds(1.5);

        public override double RequiredSkill => Core.ML ? 20.0 : 40.0;
        public override int RequiredMana => 10;

        public override bool BlockedByAnimalForm => false;

        public static bool HasClone(Mobile m) => _cloneCount.ContainsKey(m);

        public static void AddClone(Mobile m)
        {
            if (m != null)
            {
                _cloneCount[m] = 1 + _cloneCount.GetValueOrDefault(m, 0);
            }
        }

        public static void RemoveClone(Mobile m)
        {
            _cloneCount.Remove(m, out var count);
            if (m == null || count <= 0)
            {
                return;
            }

            _cloneCount[m] = count - 1;
        }

        public override bool CheckCast()
        {
            if (Caster.Mounted)
            {
                Caster.SendLocalizedMessage(1063132); // You cannot use this ability while mounted.
                return false;
            }

            if (Caster.Followers + 1 > Caster.FollowersMax)
            {
                // You cannot summon a mirror image because you have too many followers.
                Caster.SendLocalizedMessage(1063133);
                return false;
            }

            if (TransformationSpellHelper.UnderTransformation(Caster, typeof(HorrificBeastSpell)))
            {
                Caster.SendLocalizedMessage(1061091); // You cannot cast that spell in this form.
                return false;
            }

            return base.CheckCast();
        }

        public override bool CheckDisturb(DisturbType type, bool firstCircle, bool resistable) => false;

        public override void OnBeginCast()
        {
            base.OnBeginCast();

            Caster.SendLocalizedMessage(1063134); // You begin to summon a mirror image of yourself.
        }

        public override void OnCast()
        {
            if (Caster.Mounted)
            {
                Caster.SendLocalizedMessage(1063132); // You cannot use this ability while mounted.
            }
            else if (Caster.Followers + 1 > Caster.FollowersMax)
            {
                // You cannot summon a mirror image because you have too many followers.
                Caster.SendLocalizedMessage(1063133);
            }
            else if (TransformationSpellHelper.UnderTransformation(Caster, typeof(HorrificBeastSpell)))
            {
                Caster.SendLocalizedMessage(1061091); // You cannot cast that spell in this form.
            }
            else if (CheckSequence())
            {
                Caster.FixedParticles(0x376A, 1, 14, 0x13B5, EffectLayer.Waist);
                Caster.PlaySound(0x511);

                new Clone(Caster).MoveToWorld(Caster.Location, Caster.Map);
            }

            FinishSequence();
        }
    }
}

namespace Server.Mobiles
{
    [SerializationGenerator(0)]
    public partial class Clone : BaseCreature
    {
        [SerializableField(0)]
        private Mobile _caster;

        public Clone(Mobile caster) : base(AIType.AI_Melee, FightMode.None)
        {
            _caster = caster;

            Body = caster.Body;

            Hue = caster.Hue;
            Female = caster.Female;

            Name = caster.Name;
            NameHue = caster.NameHue;

            Title = caster.Title;
            Kills = caster.Kills;

            HairItemID = caster.HairItemID;
            HairHue = caster.HairHue;

            FacialHairItemID = caster.FacialHairItemID;
            FacialHairHue = caster.FacialHairHue;

            for (var i = 0; i < caster.Skills.Length; ++i)
            {
                var skill = Skills[i];
                var casterSkill = caster.Skills[i];
                skill.Base = casterSkill.Base;
                skill.Cap = casterSkill.Cap;
            }

            for (var i = 0; i < caster.Items.Count; i++)
            {
                AddItem(CloneItem(caster.Items[i]));
            }

            Warmode = true;

            Summoned = true;
            SummonMaster = caster;

            ControlOrder = OrderType.Follow;
            ControlTarget = caster;

            AddClone();
        }

        private void AddClone()
        {
            var duration = TimeSpan.FromSeconds(30.0 + _caster.Skills.Ninjitsu.Value / 4.0);

            new UnsummonTimer(this, duration).Start();
            SummonEnd = Core.Now + duration;

            MirrorImage.AddClone(_caster);
        }

        protected override BaseAI ForcedAI => new CloneAI(this);

        public override bool DeleteCorpseOnDeath => true;

        public override bool IsDispellable => false;
        public override bool Commandable => false;

        public override bool IsHumanInTown() => false;

        private static Item CloneItem(Item item)
        {
            var newItem = new Item(item.ItemID);
            newItem.Hue = item.Hue;
            newItem.Layer = item.Layer;

            return newItem;
        }

        public override void OnDamage(int amount, Mobile from, bool willKill)
        {
            Delete();
        }

        public override void OnDelete()
        {
            Effects.SendLocationParticles(
                EffectItem.Create(Location, Map, EffectItem.DefaultDuration),
                0x3728,
                10,
                15,
                5042
            );

            base.OnDelete();
        }

        public override void OnAfterDelete()
        {
            MirrorImage.RemoveClone(_caster);
            base.OnAfterDelete();
        }

        [AfterDeserialization]
        private void AfterDeserialization()
        {
            AddClone();
        }
    }

    public class CloneAI : BaseAI
    {
        public CloneAI(Clone m) : base(m) => m.SetCurrentSpeedToActive();

        public override bool CanDetectHidden => false;

        public override bool Think()
        {
            // Clones only follow their owners
            var master = m_Mobile.SummonMaster;

            if (master?.Map == m_Mobile.Map && master?.InRange(m_Mobile, m_Mobile.RangePerception) == true)
            {
                var iCurrDist = (int)m_Mobile.GetDistanceToSqrt(master);
                var bRun = iCurrDist > 5;

                WalkMobileRange(master, 2, bRun, 0, 1);
            }
            else
            {
                WalkRandom(2, 2, 1);
            }

            return true;
        }
    }
}