using System;
using System.Collections.Generic;
using Server.Events.Halloween;
using Server.Items;
using Server.Mobiles;
using Server.Targeting;

namespace Server.Engines.Events
{
    public class TrickOrTreat
    {
        public static TimeSpan OneSecond = TimeSpan.FromSeconds(1);
        public static void Initialize()
        {
            DateTime now = DateTime.UtcNow;

            if (DateTime.UtcNow >= HolidaySettings.StartHalloween && DateTime.UtcNow <= HolidaySettings.FinishHalloween)
            {
                EventSink.Speech += new SpeechEventHandler(EventSink_Speech);
            }
        }

        public static void Bleeding(Mobile m_From)
        {
            if (TrickOrTreat.CheckMobile(m_From))
            {
                if (m_From.Location != Point3D.Zero)
                {
                    int amount = Utility.RandomMinMax(3, 7);

                    for (int i = 0; i < amount; i++)
                    {
                        new Blood(Utility.RandomMinMax(0x122C, 0x122F)).MoveToWorld(RandomPointOneAway(m_From.X, m_From.Y, m_From.Z, m_From.Map), m_From.Map);
                    }
                }
            }
        }

        public static void RemoveHueMod(Mobile target)
        {
            if (target != null && !target.Deleted)
            {
                target.SolidHueOverride = -1;
            }
        }

        public static void SolidHueMobile(Mobile target)
        {
            if (CheckMobile(target))
            {
                target.SolidHueOverride = Utility.RandomMinMax(2501, 2644);

                Timer.DelayCall<Mobile>(TimeSpan.FromSeconds(10), new TimerStateCallback<Mobile>(RemoveHueMod), target);
            }
        }

        public static void MakeTwin(Mobile m_From)
        {
            List<Item> m_Items = new List<Item>();

            if (CheckMobile(m_From))
            {
                Mobile twin = new NaughtyTwin(m_From);

                if (twin != null && !twin.Deleted)
                {
                    foreach (Item item in m_From.Items)
                    {
                        if (item.Layer != Layer.Backpack && item.Layer != Layer.Mount && item.Layer != Layer.Bank)
                        {
                            m_Items.Add(item);
                        }
                    }

                    if (m_Items.Count > 0)
                    {
                        for (int i = 0; i < m_Items.Count; i++) /* dupe exploits start out like this ... */
                        {
                            Item item = null;

                            try
                            {
                                item = Activator.CreateInstance(m_Items[i].GetType()) as Item;
                            }
                            catch { continue; }

                            if (item != null)
                            {
                                item.Hue = m_Items[i].Hue;
                                item.Name = m_Items[i].Name;
                                item.ItemID = m_Items[i].ItemID;
                                item.LootType = m_Items[i].LootType;

                                twin.AddItem(item);

                                if (item.Layer != Layer.Backpack && item.Layer != Layer.Mount && item.Layer != Layer.Bank)
                                {
                                    item.Movable = false;
                                }
                            }
                        }
                    }

                    twin.Hue = m_From.Hue;
                    twin.BodyValue = m_From.BodyValue;
                    twin.Kills = m_From.Kills;

                    Point3D point = RandomPointOneAway(m_From.X, m_From.Y, m_From.Z, m_From.Map);

                    twin.MoveToWorld(m_From.Map.CanSpawnMobile(point) ? point : m_From.Location, m_From.Map);

                    Timer.DelayCall(TimeSpan.FromSeconds(5), new TimerStateCallback<Mobile>(DeleteTwin), twin);
                }
            }
        }

        public static void DeleteTwin(Mobile m_Twin)
        {
            if (TrickOrTreat.CheckMobile(m_Twin))
            {
                m_Twin.Delete();
            }
        }

        public static Point3D RandomPointOneAway(int x, int y, int z, Map map)
        {
            Point3D loc = new Point3D(x + Utility.Random(-1, 3), y + Utility.Random(-1, 3), 0);

            loc.Z = (map.CanFit(loc, 0)) ? map.GetAverageZ(loc.X, loc.Y) : z;

            return loc;
        }

        public static bool CheckMobile(Mobile mobile)
        {
            return (mobile != null && mobile.Map != null && !mobile.Deleted && mobile.Alive && mobile.Map != Map.Internal);
        }

        private static void EventSink_Speech(SpeechEventArgs e)
        {
            if (Insensitive.Contains(e.Speech, "trick or treat"))
            {
                e.Mobile.Target = new TrickOrTreatTarget();

                e.Mobile.SendLocalizedMessage(1076764);  /* Pick someone to Trick or Treat. */
            }
        }

        private class TrickOrTreatTarget : Target
        {
            public TrickOrTreatTarget()
                : base(15, false, TargetFlags.None)
            {
            }

            protected override void OnTarget(Mobile from, object targ)
            {
                if (targ != null && CheckMobile(from))
                {
                    if (!(targ is Mobile))
                    {
                        from.SendLocalizedMessage(1076781); /* There is little chance of getting candy from that! */
                        return;
                    }
                    if (!(targ is BaseVendor) || ((BaseVendor)targ).Deleted)
                    {
                        from.SendLocalizedMessage(1076765); /* That doesn't look friendly. */
                        return;
                    }

                    DateTime now = DateTime.UtcNow;

                    BaseVendor m_Begged = targ as BaseVendor;

                    if (CheckMobile(m_Begged))
                    {
                        if (m_Begged.NextTrickOrTreat > now)
                        {
                            from.SendLocalizedMessage(1076767); /* That doesn't appear to have any more candy. */
                            return;
                        }

                        m_Begged.NextTrickOrTreat = now + TimeSpan.FromMinutes(Utility.RandomMinMax(5, 10));

                        if (from.Backpack != null && !from.Backpack.Deleted)
                        {
                            if (Utility.RandomDouble() > .10)
                            {
                                switch( Utility.Random(3) )
                                {
                                    case 0:
                                        m_Begged.Say(1076768);
                                        break; /* Oooooh, aren't you cute! */
                                    case 1:
                                        m_Begged.Say(1076779);
                                        break; /* All right...This better not spoil your dinner! */
                                    case 2:
                                        m_Begged.Say(1076778);
                                        break; /* Here you go! Enjoy! */
                                    default:
                                        break;
                                }

                                if (Utility.RandomDouble() <= .01 && from.Skills.Begging.Value >= 100)
                                {
                                    from.AddToBackpack(HolidaySettings.RandomGMBeggerItem);

                                    from.SendLocalizedMessage(1076777); /* You receive a special treat! */
                                }
                                else
                                {
                                    from.AddToBackpack(HolidaySettings.RandomTreat);

                                    from.SendLocalizedMessage(1076769);   /* You receive some candy. */
                                }
                            }
                            else
                            {
                                m_Begged.Say(1076770); /* TRICK! */

                                int m_Action = Utility.Random(4);

                                if (m_Action == 0)
                                {
                                    Timer.DelayCall<Mobile>(OneSecond, OneSecond, 10, new TimerStateCallback<Mobile>(Bleeding), from);
                                }
                                else if (m_Action == 1)
                                {
                                    Timer.DelayCall<Mobile>(TimeSpan.FromSeconds(2), new TimerStateCallback<Mobile>(SolidHueMobile), from);
                                }
                                else
                                {
                                    Timer.DelayCall<Mobile>(TimeSpan.FromSeconds(2), new TimerStateCallback<Mobile>(MakeTwin), from);
                                }
                            }
                        }
                    }
                }
            }
        }
    }

    public class NaughtyTwin : BaseCreature
    {
        private static readonly Point3D[] Felucca_Locations =
        {
            new Point3D(4467, 1283, 5), // Moonglow
            new Point3D(1336, 1997, 5), // Britain
            new Point3D(1499, 3771, 5), // Jhelom
            new Point3D(771, 752, 5), // Yew
            new Point3D(2701, 692, 5), // Minoc
            new Point3D(1828, 2948,-20), // Trinsic
            new Point3D(643, 2067, 5), // Skara Brae
            new Point3D(3563, 2139, Map.Trammel.GetAverageZ(3563, 2139)), // (New) Magincia
        };
        private static readonly Point3D[] Malas_Locations =
        {
            new Point3D(1015, 527, -65), // Luna
            new Point3D(1997, 1386, -85)// Umbra
        };
        private static readonly Point3D[] Ilshenar_Locations =
        {
            new Point3D(1215, 467, -13), // Compassion
            new Point3D(722, 1366, -60), // Honesty
            new Point3D(744, 724, -28), // Honor
            new Point3D(281, 1016, 0), // Humility
            new Point3D(987, 1011, -32), // Justice
            new Point3D(1174, 1286, -30), // Sacrifice
            new Point3D(1532, 1340, - 3), // Spirituality
            new Point3D(528, 216, -45), // Valor
            new Point3D(1721, 218, 96)// Chaos
        };
        private static readonly Point3D[] Tokuno_Locations =
        {
            new Point3D(1169, 998, 41), // Isamu-Jima
            new Point3D(802, 1204, 25), // Makoto-Jima
            new Point3D(270, 628, 15)// Homare-Jima
        };
		private static readonly Point3D[] TerMur_Locations =
        {
            new Point3D(851, 3525, -38)// Royal City
        };
        private readonly Mobile m_From;
        public NaughtyTwin(Mobile from)
            : base(AIType.AI_Melee, FightMode.None, 10, 1, 0.2, 0.4)
        {
            if (TrickOrTreat.CheckMobile(from))
            {
                this.Body = from.Body;

                this.m_From = from;
                this.Name = String.Format("{0}\'s Naughty Twin", from.Name);

                Timer.DelayCall<Mobile>(TrickOrTreat.OneSecond, Utility.RandomBool() ? new TimerStateCallback<Mobile>(StealCandy) : new TimerStateCallback<Mobile>(ToGate), this.m_From);
            }
        }

        public NaughtyTwin(Serial serial)
            : base(serial)
        {
        }

        public static Item FindCandyTypes(Mobile target)
        {
            Type[] types = { typeof(WrappedCandy), typeof(Lollipops), typeof(NougatSwirl), typeof(Taffy), typeof(JellyBeans) };

            if (TrickOrTreat.CheckMobile(target))
            {
                for (int i = 0; i < types.Length; i++)
                {
                    Item item = target.Backpack.FindItemByType(types[i]);

                    if (item != null)
                    {
                        return item;
                    }
                }
            }
            return null;
        }

        public static void StealCandy(Mobile target)
        {
            if (TrickOrTreat.CheckMobile(target))
            {
                Item item = FindCandyTypes(target);

                target.SendLocalizedMessage(1113967); /* Your naughty twin steals some of your candy. */

                if (item != null && !item.Deleted)
                {
                    item.Delete();
                }
            }
        }

        public static void ToGate(Mobile target)
        {
            if (TrickOrTreat.CheckMobile(target))
            {
                target.SendLocalizedMessage(1113972); /* Your naughty twin teleports you away with a naughty laugh! */

                target.MoveToWorld(RandomMoongate(target), target.Map);
            }
        }

        public static Point3D RandomMoongate(Mobile target)
        {
            Map map = target.Map;

            switch( target.Map.MapID )
            {
                case 2:
                    return Ilshenar_Locations[Utility.Random(Ilshenar_Locations.Length)];
                case 3:
                    return Malas_Locations[Utility.Random(Malas_Locations.Length)];
                case 4:
                    return Tokuno_Locations[Utility.Random(Tokuno_Locations.Length)];
				case 5:
                    return TerMur_Locations[Utility.Random(TerMur_Locations.Length)];
                default:
                    return Felucca_Locations[Utility.Random(Felucca_Locations.Length)];
            }
        }

        public override void OnThink()
        {
            if (this.m_From == null || this.m_From.Deleted)
            {
                this.Delete();
            }
        }

        public override void Serialize(GenericWriter writer)
        {
            base.Serialize(writer);
            writer.Write((int)0);
        }

        public override void Deserialize(GenericReader reader)
        {
            base.Deserialize(reader);
            int version = reader.ReadInt();
        }
    }
}