using System;
using System.Collections.Generic;
using Server.Engines.CannedEvil;
using Server.Engines.PartySystem;
using Server.Factions;
using Server.Guilds;
using Server.Items;
using Server.Regions;

namespace Server.Spells.Necromancy
{
    public class ExorcismSpell : NecromancerSpell
    {
        private static readonly SpellInfo m_Info = new SpellInfo(
            "Exorcism", "Ort Corp Grav",
            203,
            9031,
            Reagent.NoxCrystal,
            Reagent.GraveDust);
        private static readonly int Range = (Core.ML ? 48 : 18);
        private static readonly Point3D[] m_BritanniaLocs = new Point3D[]
        {
            new Point3D(1470, 843, 0),
            new Point3D(1857, 865, -1),
            new Point3D(4220, 563, 36),
            new Point3D(1732, 3528, 0),
            new Point3D(1300, 644, 8),
            new Point3D(3355, 302, 9),
            new Point3D(1606, 2490, 5),
            new Point3D(2500, 3931, 3),
            new Point3D(4264, 3707, 0)
        };
        private static readonly Point3D[] m_IllshLocs = new Point3D[]
        {
            new Point3D(1222, 474, -17),
            new Point3D(718, 1360, -60),
            new Point3D(297, 1014, -19),
            new Point3D(986, 1006, -36),
            new Point3D(1180, 1288, -30),
            new Point3D(1538, 1341, -3),
            new Point3D(528, 223, -38)
        };
        private static readonly Point3D[] m_MalasLocs = new Point3D[]
        {
            new Point3D(976, 517, -30)
        };
        private static readonly Point3D[] m_TokunoLocs = new Point3D[]
        {
            new Point3D(710, 1162, 25),
            new Point3D(1034, 515, 18),
            new Point3D(295, 712, 55)
        };
        public ExorcismSpell(Mobile caster, Item scroll)
            : base(caster, scroll, m_Info)
        {
        }

        public override TimeSpan CastDelayBase
        {
            get
            {
                return TimeSpan.FromSeconds(2.0);
            }
        }
        public override double RequiredSkill
        {
            get
            {
                return 80.0;
            }
        }
        public override int RequiredMana
        {
            get
            {
                return 40;
            }
        }
        public override bool DelayedDamage
        {
            get
            {
                return false;
            }
        }
        public override bool CheckCast()
        {
            if (Caster.Skills.SpiritSpeak.Value < 100.0)
            {
                Caster.SendLocalizedMessage(1072112); // You must have GM Spirit Speak to use this spell
                return false;
            }

            return base.CheckCast();
        }

        public override int ComputeKarmaAward()
        {
            return 0;	//no karma lost from this spell!
        }

        public override void OnCast()
        {
            ChampionSpawnRegion r = Caster.Region.GetRegion(typeof(ChampionSpawnRegion)) as ChampionSpawnRegion;

            if (r == null || !Caster.InRange(r.ChampionSpawn, Range))
            {
                Caster.SendLocalizedMessage(1072111); // You are not in a valid exorcism region.
            }
            else if (CheckSequence())
            {
                Map map = Caster.Map;

                if (map != null)
                {
                    List<Mobile> targets = new List<Mobile>();
                    IPooledEnumerable eable = r.ChampionSpawn.GetMobilesInRange(Range);

                    foreach (Mobile m in eable)
                        if (IsValidTarget(m))
                            targets.Add(m);

                    eable.Free();

                    for (int i = 0; i < targets.Count; ++i)
                    {
                        Mobile m = targets[i];

                        //Suprisingly, no sparkle type effects
                        Point3D p = GetNearestShrine(m, ref map);

                        m.MoveToWorld(p, map);
                    }
                }
            }

            FinishSequence();
        }

        public static Point3D GetNearestShrine(Mobile m, ref Map map)
        {
            Point3D[] locList;

            if (map == Map.Felucca || map == Map.Trammel)
                locList = m_BritanniaLocs;
            else if (map == Map.Ilshenar)
                locList = m_IllshLocs;
            else if (map == Map.Tokuno)
                locList = m_TokunoLocs;
            else if (map == Map.Malas)
                locList = m_MalasLocs;
            else
            {
                // No map, lets use trammel
                locList = m_BritanniaLocs;
                map = Map.Trammel;
            }

            Point3D closest = Point3D.Zero;
            double minDist = double.MaxValue;

            for (int i = 0; i < locList.Length; i++)
            {
                Point3D p = locList[i];

                double dist = m.GetDistanceToSqrt(p);
                if (minDist > dist)
                {
                    closest = p;
                    minDist = dist;
                }
            }

            return closest;
        }

        private bool IsValidTarget(Mobile m)
        {
            if (!m.Player || m.Alive)
                return false;

            Corpse c = m.Corpse as Corpse;
            Map map = m.Map;

            if (c != null && !c.Deleted && map != null && c.Map == map)
            {
                if (SpellHelper.IsAnyT2A(map, c.Location) && SpellHelper.IsAnyT2A(map, m.Location))
                    return false;	//Same Map, both in T2A, ie, same 'sub server'.

                if (m.Region.IsPartOf<DungeonRegion>() == Region.Find(c.Location, map).IsPartOf<DungeonRegion>())
                    return false; //Same Map, both in Dungeon region OR They're both NOT in a dungeon region.
                //Just an approximation cause RunUO doens't divide up the world the same way OSI does ;p
            }

            Party p = Party.Get(m);

            if (p != null && p.Contains(Caster))
                return false;

            if (m.Guild != null && Caster.Guild != null)
            {
                Guild mGuild = m.Guild as Guild;
                Guild cGuild = Caster.Guild as Guild;

                if (mGuild.IsAlly(cGuild))
                    return false;

                if (mGuild == cGuild)
                    return false;
            }

            Faction f = Faction.Find(m);

            if (Faction.Facet == m.Map && f != null && f == Faction.Find(Caster))
                return false;

            return true;
        }
    }
}