using Server.Accounting;
using Server.ContextMenus;
using Server.Gumps;
using Server.Network;
using Server.Regions;
using System;
using System.Collections.Generic;
using System.Net;
using System.Text;

namespace Server.Items
{
    public enum HouseRaffleState
    {
        Inactive,
        Active,
        Completed
    }

    public enum HouseRaffleExpireAction
    {
        None,
        HideStone,
        DeleteStone
    }

    public class RaffleEntry
    {
        private readonly Mobile m_From;
        private readonly IPAddress m_Address;
        private readonly DateTime m_Date;
        public RaffleEntry(Mobile from)
        {
            m_From = from;

            if (m_From.NetState != null)
                m_Address = m_From.NetState.Address;
            else
                m_Address = IPAddress.None;

            m_Date = DateTime.UtcNow;
        }

        public RaffleEntry(GenericReader reader, int version)
        {
            switch (version)
            {
                case 3: // HouseRaffleStone version changes
                case 2:
                case 1:
                case 0:
                    {
                        m_From = reader.ReadMobile();
                        m_Address = Utility.Intern(reader.ReadIPAddress());
                        m_Date = reader.ReadDateTime();

                        break;
                    }
            }
        }

        public Mobile From => m_From;
        public IPAddress Address => m_Address;
        public DateTime Date => m_Date;
        public void Serialize(GenericWriter writer)
        {
            writer.Write(m_From);
            writer.Write(m_Address);
            writer.Write(m_Date);
        }
    }

    [Flipable(0xEDD, 0xEDE)]
    public class HouseRaffleStone : Item
    {
        public static readonly TimeSpan DefaultDuration = TimeSpan.FromDays(7.0);
        public static readonly TimeSpan ExpirationTime = TimeSpan.FromDays(30.0);
        private static readonly List<HouseRaffleStone> m_AllStones = new List<HouseRaffleStone>();
        private const int EntryLimitPerIP = 4;
        private const int DefaultTicketPrice = 5000;
        private const int MessageHue = 1153;
        private HouseRaffleRegion m_Region;
        private Rectangle2D m_Bounds;
        private Map m_Facet;
        private Mobile m_Winner;
        private HouseRaffleDeed m_Deed;
        private HouseRaffleState m_State;
        private DateTime m_Started;
        private TimeSpan m_Duration;
        private HouseRaffleExpireAction m_ExpireAction;
        private int m_TicketPrice;
        private List<RaffleEntry> m_Entries;
        [Constructable]
        public HouseRaffleStone()
            : base(0xEDD)
        {
            m_Region = null;
            m_Bounds = new Rectangle2D();
            m_Facet = null;

            m_Winner = null;
            m_Deed = null;

            m_State = HouseRaffleState.Inactive;
            m_Started = DateTime.MinValue;
            m_Duration = DefaultDuration;
            m_ExpireAction = HouseRaffleExpireAction.None;
            m_TicketPrice = DefaultTicketPrice;

            m_Entries = new List<RaffleEntry>();

            Movable = false;

            m_AllStones.Add(this);
        }

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

        [CommandProperty(AccessLevel.GameMaster, AccessLevel.Seer)]
        public HouseRaffleState CurrentState
        {
            get
            {
                return m_State;
            }
            set
            {
                if (m_State != value)
                {
                    if (value == HouseRaffleState.Active)
                    {
                        m_Entries.Clear();
                        m_Winner = null;
                        m_Deed = null;
                        m_Started = DateTime.UtcNow;
                    }

                    m_State = value;
                    InvalidateProperties();
                }
            }
        }
        [CommandProperty(AccessLevel.GameMaster, AccessLevel.Seer)]
        public Rectangle2D PlotBounds
        {
            get
            {
                return m_Bounds;
            }
            set
            {
                m_Bounds = value;

                InvalidateRegion();
                InvalidateProperties();
            }
        }
        [CommandProperty(AccessLevel.GameMaster, AccessLevel.Seer)]
        public Map PlotFacet
        {
            get
            {
                return m_Facet;
            }
            set
            {
                m_Facet = value;

                InvalidateRegion();
                InvalidateProperties();
            }
        }
        [CommandProperty(AccessLevel.GameMaster, AccessLevel.Seer)]
        public Mobile Winner
        {
            get
            {
                return m_Winner;
            }
            set
            {
                m_Winner = value;
                InvalidateProperties();
            }
        }
        [CommandProperty(AccessLevel.GameMaster, AccessLevel.Seer)]
        public HouseRaffleDeed Deed
        {
            get
            {
                return m_Deed;
            }
            set
            {
                m_Deed = value;
            }
        }
        [CommandProperty(AccessLevel.GameMaster, AccessLevel.Seer)]
        public DateTime Started
        {
            get
            {
                return m_Started;
            }
            set
            {
                m_Started = value;
                InvalidateProperties();
            }
        }
        [CommandProperty(AccessLevel.GameMaster, AccessLevel.Seer)]
        public TimeSpan Duration
        {
            get
            {
                return m_Duration;
            }
            set
            {
                m_Duration = value;
                InvalidateProperties();
            }
        }
        [CommandProperty(AccessLevel.GameMaster)]
        public bool IsExpired
        {
            get
            {
                if (m_State != HouseRaffleState.Completed)
                    return false;

                return (m_Started + m_Duration + ExpirationTime <= DateTime.UtcNow);
            }
        }
        [CommandProperty(AccessLevel.GameMaster, AccessLevel.Seer)]
        public HouseRaffleExpireAction ExpireAction
        {
            get
            {
                return m_ExpireAction;
            }
            set
            {
                m_ExpireAction = value;
            }
        }
        [CommandProperty(AccessLevel.GameMaster, AccessLevel.Seer)]
        public int TicketPrice
        {
            get
            {
                return m_TicketPrice;
            }
            set
            {
                m_TicketPrice = Math.Max(0, value);
                InvalidateProperties();
            }
        }
        public List<RaffleEntry> Entries => m_Entries;
        public override string DefaultName => "a house raffle stone";
        public override bool DisplayWeight => false;
        public static void CheckEnd_OnTick()
        {
            for (int i = 0; i < m_AllStones.Count; i++)
                m_AllStones[i].CheckEnd();
        }

        public static void Initialize()
        {
            for (int i = m_AllStones.Count - 1; i >= 0; i--)
            {
                HouseRaffleStone stone = m_AllStones[i];

                if (stone.IsExpired)
                {
                    switch (stone.ExpireAction)
                    {
                        case HouseRaffleExpireAction.HideStone:
                            {
                                if (stone.Visible)
                                {
                                    stone.Visible = false;
                                    stone.ItemID = 0x1B7B; // Non-blocking ItemID
                                }

                                break;
                            }
                        case HouseRaffleExpireAction.DeleteStone:
                            {
                                stone.Delete();
                                break;
                            }
                    }
                }
            }

            Timer.DelayCall(TimeSpan.FromMinutes(1.0), TimeSpan.FromMinutes(1.0), CheckEnd_OnTick);
        }

        public static string FormatLocation(Point3D loc, Map map, bool displayMap)
        {
            StringBuilder result = new StringBuilder();

            int xLong = 0, yLat = 0;
            int xMins = 0, yMins = 0;
            bool xEast = false, ySouth = false;

            if (Sextant.Format(loc, map, ref xLong, ref yLat, ref xMins, ref yMins, ref xEast, ref ySouth))
                result.AppendFormat("{0}°{1}'{2},{3}°{4}'{5}", yLat, yMins, ySouth ? "S" : "N", xLong, xMins, xEast ? "E" : "W");
            else
                result.AppendFormat("{0},{1}", loc.X, loc.Y);

            if (displayMap)
                result.AppendFormat(" ({0})", map);

            return result.ToString();
        }

        public bool ValidLocation()
        {
            return (m_Bounds.Start != Point2D.Zero && m_Bounds.End != Point2D.Zero && m_Facet != null && m_Facet != Map.Internal);
        }

        public Point3D GetPlotCenter()
        {
            int x = m_Bounds.X + m_Bounds.Width / 2;
            int y = m_Bounds.Y + m_Bounds.Height / 2;
            int z = (m_Facet == null) ? 0 : m_Facet.GetAverageZ(x, y);

            return new Point3D(x, y, z);
        }

        public string FormatLocation()
        {
            if (!ValidLocation())
                return "no location set";

            return FormatLocation(GetPlotCenter(), m_Facet, true);
        }

        public string FormatPrice()
        {
            if (m_TicketPrice == 0)
                return "FREE";
            else
                return string.Format("{0} gold", m_TicketPrice);
        }

        public override void GetProperties(ObjectPropertyList list)
        {
            base.GetProperties(list);

            if (ValidLocation())
                list.Add(FormatLocation());

            switch (m_State)
            {
                case HouseRaffleState.Active:
                    {
                        list.Add(1060658, "ticket price\t{0}", FormatPrice()); // ~1_val~: ~2_val~
                        list.Add(1060659, "ends\t{0}", m_Started + m_Duration); // ~1_val~: ~2_val~
                        break;
                    }
                case HouseRaffleState.Completed:
                    {
                        list.Add(1060658, "winner\t{0}", (m_Winner == null) ? "unknown" : m_Winner.Name); // ~1_val~: ~2_val~
                        break;
                    }
            }
        }

        public override void GetContextMenuEntries(Mobile from, List<ContextMenuEntry> list)
        {
            base.GetContextMenuEntries(from, list);

            if (from.AccessLevel >= AccessLevel.Seer)
            {
                list.Add(new EditEntry(from, this));

                if (m_State == HouseRaffleState.Inactive)
                    list.Add(new ActivateEntry(from, this));
                else
                    list.Add(new ManagementEntry(from, this));
            }
        }

        public override void OnDoubleClick(Mobile from)
        {
            if (m_State != HouseRaffleState.Active || !from.CheckAlive())
                return;

            if (!from.InRange(GetWorldLocation(), 2))
            {
                from.LocalOverheadMessage(MessageType.Regular, 0x3B2, 1019045); // I can't reach that.
                return;
            }

            if (HasEntered(from))
            {
                from.SendMessage(MessageHue, "You have already entered this plot's raffle.");
            }
            else if (IsAtIPLimit(from))
            {
                from.SendMessage(MessageHue, "You may not enter this plot's raffle.");
            }
            else
            {
                from.SendGump(new WarningGump(1150470, 0x7F00, string.Format("You are about to purchase a raffle ticket for the house plot located at {0}.  The ticket price is {1}.  Tickets are non-refundable and you can only purchase one ticket per account.  Do you wish to continue?", FormatLocation(), FormatPrice()), 0xFFFFFF, 420, 280, Purchase_Callback, null)); // CONFIRM TICKET PURCHASE
            }
        }

        public void Purchase_Callback(Mobile from, bool okay, object state)
        {
            if (Deleted || m_State != HouseRaffleState.Active || !from.CheckAlive() || HasEntered(from) || IsAtIPLimit(from))
                return;

            Account acc = from.Account as Account;

            if (acc == null)
                return;

            if (okay)
            {
                Container bank = from.FindBankNoCreate();

                if (m_TicketPrice == 0 || (from.Backpack != null && from.Backpack.ConsumeTotal(typeof(Gold), m_TicketPrice)) || Mobiles.Banker.Withdraw(from, m_TicketPrice, true))
                {
                    m_Entries.Add(new RaffleEntry(from));

                    from.SendMessage(MessageHue, "You have successfully entered the plot's raffle.");
                }
                else
                {
                    from.SendMessage(MessageHue, "You do not have the {0} required to enter the raffle.", FormatPrice());
                }
            }
            else
            {
                from.SendMessage(MessageHue, "You have chosen not to enter the raffle.");
            }
        }

        public void CheckEnd()
        {
            if (m_State != HouseRaffleState.Active || m_Started + m_Duration > DateTime.UtcNow)
                return;

            m_State = HouseRaffleState.Completed;

            if (m_Region != null && m_Entries.Count != 0)
            {
                int winner = Utility.Random(m_Entries.Count);

                m_Winner = m_Entries[winner].From;

                if (m_Winner != null)
                {
                    m_Deed = new HouseRaffleDeed(this, m_Winner);

                    m_Winner.SendMessage(MessageHue, "Congratulations, {0}!  You have won the raffle for the plot located at {1}.", m_Winner.Name, FormatLocation());

                    if (m_Winner.AddToBackpack(m_Deed))
                    {
                        m_Winner.SendMessage(MessageHue, "The writ of lease has been placed in your backpack.");
                    }
                    else
                    {
                        m_Winner.BankBox.DropItem(m_Deed);
                        m_Winner.SendMessage(MessageHue, "As your backpack is full, the writ of lease has been placed in your bank box.");
                    }
                }
            }

            InvalidateProperties();
        }

        public override void OnDelete()
        {
            if (m_Region != null)
            {
                m_Region.Unregister();
                m_Region = null;
            }

            m_AllStones.Remove(this);

            base.OnDelete();
        }

        public override void Serialize(GenericWriter writer)
        {
            base.Serialize(writer);

            writer.Write(3); // version

            writer.WriteEncodedInt((int)m_State);
            writer.WriteEncodedInt((int)m_ExpireAction);

            writer.Write(m_Deed);

            writer.Write(m_Bounds);
            writer.Write(m_Facet);

            writer.Write(m_Winner);

            writer.Write(m_TicketPrice);
            writer.Write(m_Started);
            writer.Write(m_Duration);

            writer.Write(m_Entries.Count);

            foreach (RaffleEntry entry in m_Entries)
                entry.Serialize(writer);
        }

        public override void Deserialize(GenericReader reader)
        {
            base.Deserialize(reader);

            int version = reader.ReadInt();

            switch (version)
            {
                case 3:
                    {
                        m_State = (HouseRaffleState)reader.ReadEncodedInt();

                        goto case 2;
                    }
                case 2:
                    {
                        m_ExpireAction = (HouseRaffleExpireAction)reader.ReadEncodedInt();

                        goto case 1;
                    }
                case 1:
                    {
                        m_Deed = reader.ReadItem<HouseRaffleDeed>();

                        goto case 0;
                    }
                case 0:
                    {
                        bool oldActive = (version < 3) ? reader.ReadBool() : false;

                        m_Bounds = reader.ReadRect2D();
                        m_Facet = reader.ReadMap();

                        m_Winner = reader.ReadMobile();

                        m_TicketPrice = reader.ReadInt();
                        m_Started = reader.ReadDateTime();
                        m_Duration = reader.ReadTimeSpan();

                        int entryCount = reader.ReadInt();
                        m_Entries = new List<RaffleEntry>(entryCount);

                        for (int i = 0; i < entryCount; i++)
                        {
                            RaffleEntry entry = new RaffleEntry(reader, version);

                            if (entry.From == null)
                                continue; // Character was deleted

                            m_Entries.Add(entry);
                        }

                        InvalidateRegion();

                        m_AllStones.Add(this);

                        if (version < 3)
                        {
                            if (oldActive)
                                m_State = HouseRaffleState.Active;
                            else if (m_Winner != null)
                                m_State = HouseRaffleState.Completed;
                            else
                                m_State = HouseRaffleState.Inactive;
                        }

                        break;
                    }
            }
        }

        private void InvalidateRegion()
        {
            if (m_Region != null)
            {
                m_Region.Unregister();
                m_Region = null;
            }

            if (ValidLocation())
            {
                m_Region = new HouseRaffleRegion(this);
                m_Region.Register();
            }
        }

        private bool HasEntered(Mobile from)
        {
            Account acc = from.Account as Account;

            if (acc == null)
                return false;

            foreach (RaffleEntry entry in m_Entries)
            {
                if (entry.From != null)
                {
                    Account entryAcc = entry.From.Account as Account;

                    if (entryAcc == acc)
                        return true;
                }
            }

            return false;
        }

        private bool IsAtIPLimit(Mobile from)
        {
            if (from.NetState == null)
                return false;

            IPAddress address = from.NetState.Address;
            int tickets = 0;

            foreach (RaffleEntry entry in m_Entries)
            {
                if (Utility.IPMatchClassC(entry.Address, address))
                {
                    if (++tickets >= EntryLimitPerIP)
                        return true;
                }
            }

            return false;
        }

        private class RaffleContextMenuEntry : ContextMenuEntry
        {
            protected readonly Mobile m_From;
            protected readonly HouseRaffleStone m_Stone;
            public RaffleContextMenuEntry(Mobile from, HouseRaffleStone stone, int label)
                : base(label)
            {
                m_From = from;
                m_Stone = stone;
            }
        }

        private class EditEntry : RaffleContextMenuEntry
        {
            public EditEntry(Mobile from, HouseRaffleStone stone)
                : base(from, stone, 5101)// Edit
            {
            }

            public override void OnClick()
            {
                if (m_Stone.Deleted || m_From.AccessLevel < AccessLevel.Seer)
                    return;

                m_From.SendGump(new PropertiesGump(m_From, m_Stone));
            }
        }

        private class ActivateEntry : RaffleContextMenuEntry
        {
            public ActivateEntry(Mobile from, HouseRaffleStone stone)
                : base(from, stone, 5113)// Start
            {
                if (!stone.ValidLocation())
                    Flags |= CMEFlags.Disabled;
            }

            public override void OnClick()
            {
                if (m_Stone.Deleted || m_From.AccessLevel < AccessLevel.Seer || !m_Stone.ValidLocation())
                    return;

                m_Stone.CurrentState = HouseRaffleState.Active;
            }
        }

        private class ManagementEntry : RaffleContextMenuEntry
        {
            public ManagementEntry(Mobile from, HouseRaffleStone stone)
                : base(from, stone, 5032)// Game Monitor
            {
            }

            public override void OnClick()
            {
                if (m_Stone.Deleted || m_From.AccessLevel < AccessLevel.Seer)
                    return;

                m_From.SendGump(new HouseRaffleManagementGump(m_Stone));
            }
        }
    }
}