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

namespace Server.Engines.Events
{
  public class HalloweenHauntings
  {
    public static Dictionary<PlayerMobile, ZombieSkeleton> ReAnimated { get; set; }

    private static Timer m_Timer;
    private static Timer m_ClearTimer;

    private static int m_TotalZombieLimit;
    private static int m_DeathQueueLimit;
    private static int m_QueueDelaySeconds;
    private static int m_QueueClearIntervalSeconds;

    private static List<PlayerMobile> m_DeathQueue;

    private static readonly Rectangle2D[] m_Cemetaries = {
      new Rectangle2D(1272, 3712, 30, 20), // Jhelom
      new Rectangle2D(1337, 1444, 48, 52), // Britain
      new Rectangle2D(2424, 1098, 20, 28), // Trinsic
      new Rectangle2D(2728, 840, 54, 54), // Vesper
      new Rectangle2D(4528, 1314, 20, 28), // Moonglow
      new Rectangle2D(712, 1104, 30, 22), // Yew
      new Rectangle2D(5824, 1464, 22, 6), // Fire Dungeon
      new Rectangle2D(5224, 3655, 14, 5), // T2A

      new Rectangle2D(1272, 3712, 20, 30), // Jhelom
      new Rectangle2D(1337, 1444, 52, 48), // Britain
      new Rectangle2D(2424, 1098, 28, 20), // Trinsic
      new Rectangle2D(2728, 840, 54, 54), // Vesper
      new Rectangle2D(4528, 1314, 28, 20), // Moonglow
      new Rectangle2D(712, 1104, 22, 30), // Yew
      new Rectangle2D(5824, 1464, 6, 22), // Fire Dungeon
      new Rectangle2D(5224, 3655, 5, 14) // T2A
    };

    public static void Initialize()
    {
      m_TotalZombieLimit = 200;
      m_DeathQueueLimit = 200;
      m_QueueDelaySeconds = 120;
      m_QueueClearIntervalSeconds = 1800;

      DateTime today = DateTime.UtcNow;
      TimeSpan tick = TimeSpan.FromSeconds(m_QueueDelaySeconds);
      TimeSpan clear = TimeSpan.FromSeconds(m_QueueClearIntervalSeconds);

      ReAnimated = new Dictionary<PlayerMobile, ZombieSkeleton>();
      m_DeathQueue = new List<PlayerMobile>();

      if (today >= HolidaySettings.StartHalloween && today <= HolidaySettings.FinishHalloween)
      {
        m_Timer = Timer.DelayCall(tick, tick, Timer_Callback);

        m_ClearTimer = Timer.DelayCall(clear, clear, Clear_Callback);

        EventSink.PlayerDeath += EventSink_PlayerDeath;
      }
    }

    public static void EventSink_PlayerDeath(Mobile m)
    {
      if (m is PlayerMobile pm && !pm.Deleted && m_Timer.Running && !m_DeathQueue.Contains(pm) && m_DeathQueue.Count < m_DeathQueueLimit)
        m_DeathQueue.Add(pm);
    }

    private static void Clear_Callback()
    {
      ReAnimated.Clear();

      m_DeathQueue.Clear();

      if (DateTime.UtcNow <= HolidaySettings.FinishHalloween) m_ClearTimer.Stop();
    }

    private static void Timer_Callback()
    {
      PlayerMobile player = null;

      if (DateTime.UtcNow <= HolidaySettings.FinishHalloween)
      {
        for (int index = 0; m_DeathQueue.Count > 0 && index < m_DeathQueue.Count; index++)
          if (!ReAnimated.ContainsKey(m_DeathQueue[index]))
          {
            player = m_DeathQueue[index];

            break;
          }

        if (player?.Deleted == false && ReAnimated.Count < m_TotalZombieLimit)
        {
          Map map = Utility.RandomBool() ? Map.Trammel : Map.Felucca;

          Point3D home = GetRandomPointInRect(m_Cemetaries[Utility.Random(m_Cemetaries.Length)], map);

          if (map.CanSpawnMobile(home))
          {
            ZombieSkeleton zombieskel = new ZombieSkeleton(player);

            ReAnimated.Add(player, zombieskel);
            zombieskel.Home = home;
            zombieskel.RangeHome = 10;

            zombieskel.MoveToWorld(home, map);

            m_DeathQueue.Remove(player);
          }
        }
      }
      else
      {
        m_Timer.Stop();
      }
    }

    private static Point3D GetRandomPointInRect(Rectangle2D rect, Map map)
    {
      int x = Utility.Random(rect.X, rect.Width);
      int y = Utility.Random(rect.Y, rect.Height);

      return new Point3D(x, y, map.GetAverageZ(x, y));
    }
  }

  public class PlayerBones : BaseContainer
  {
    [Constructible]
    public PlayerBones(string name)
      : base(Utility.RandomMinMax(0x0ECA, 0x0ED2))
    {
      Name = $"{name}'s bones";

      Hue = Utility.Random(10) switch
      {
        0 => 0xa09,
        1 => 0xa93,
        2 => 0xa47,
        _ => Hue
      };
    }

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

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

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

  public class ZombieSkeleton : BaseCreature
  {
    public override string CorpseName => "a rotting corpse";
    private static readonly string m_Name = "Zombie Skeleton";

    private PlayerMobile m_DeadPlayer;

    public ZombieSkeleton(PlayerMobile player = null)
      : base(AIType.AI_Melee, FightMode.Closest, 10, 1, 0.2, 0.4)
    {
      m_DeadPlayer = player;

      Name = player != null ? $"{player.Name}'s {m_Name}" : m_Name;

      Body = 0x93;
      BaseSoundID = 0x1c3;

      SetStr(500);
      SetDex(500);
      SetInt(500);

      SetHits(2500);
      SetMana(500);
      SetStam(500);

      SetDamage(8, 18);

      SetDamageType(ResistanceType.Physical, 40);
      SetDamageType(ResistanceType.Cold, 60);

      SetResistance(ResistanceType.Fire, 50);
      SetResistance(ResistanceType.Energy, 50);
      SetResistance(ResistanceType.Physical, 50);
      SetResistance(ResistanceType.Cold, 50);
      SetResistance(ResistanceType.Poison, 50);

      SetSkill(SkillName.MagicResist, 65.1, 80.0);
      SetSkill(SkillName.Tactics, 95.1, 100);
      SetSkill(SkillName.Wrestling, 85.1, 95);

      Fame = 1000;
      Karma = -1000;

      VirtualArmor = 18;
    }

    public override void GenerateLoot()
    {
      switch (Utility.Random(10))
      {
        case 0: PackItem(new LeftArm()); break;
        case 1: PackItem(new RightArm()); break;
        case 2: PackItem(new Torso()); break;
        case 3: PackItem(new Bone()); break;
        case 4: PackItem(new RibCage()); break;
        case 5:
          if (m_DeadPlayer?.Deleted == false) PackItem(new PlayerBones(m_DeadPlayer.Name));
          break;
      }

      AddLoot(LootPack.Meager);
    }

    public override bool BleedImmune => true;

    public override Poison PoisonImmune => Poison.Regular;

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

    public override void OnDelete()
    {
      if (HalloweenHauntings.ReAnimated != null)
        if (m_DeadPlayer?.Deleted == false)
          if (HalloweenHauntings.ReAnimated.ContainsKey(m_DeadPlayer))
            HalloweenHauntings.ReAnimated.Remove(m_DeadPlayer);
    }

    public override void Serialize(IGenericWriter writer)
    {
      base.Serialize(writer);
      writer.Write(0);

      writer.WriteMobile(m_DeadPlayer);
    }

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

      m_DeadPlayer = reader.ReadMobile<PlayerMobile>();
    }
  }
}