using System;
using Server.Factions;
using Server.Items;
using Server.Misc;
using Server.Mobiles;
using Server.Network;
using Server.Targeting;

namespace Server.Spells.Seventh
{
  public class GateTravelSpell : MagerySpell
  {
    private static SpellInfo m_Info = new SpellInfo(
      "Gate Travel", "Vas Rel Por",
      263,
      9032,
      Reagent.BlackPearl,
      Reagent.MandrakeRoot,
      Reagent.SulfurousAsh
    );

    private RunebookEntry m_Entry;

    public GateTravelSpell(Mobile caster, Item scroll) : this(caster, scroll, null)
    {
    }

    public GateTravelSpell(Mobile caster, Item scroll, RunebookEntry entry) : base(caster, scroll, m_Info)
    {
      m_Entry = entry;
    }

    public override SpellCircle Circle => SpellCircle.Seventh;

    public override void OnCast()
    {
      if (m_Entry == null)
        Caster.Target = new InternalTarget(this);
      else
        Effect(m_Entry.Location, m_Entry.Map, true);
    }

    public override bool CheckCast()
    {
      if (Sigil.ExistsOn(Caster))
      {
        Caster.SendLocalizedMessage(1061632); // You can't do that while carrying the sigil.
        return false;
      }

      if (Caster.Criminal)
      {
        Caster.SendLocalizedMessage(1005561, "", 0x22); // Thou'rt a criminal and cannot escape so easily.
        return false;
      }

      if (SpellHelper.CheckCombat(Caster))
      {
        Caster.SendLocalizedMessage(1005564, "", 0x22); // Wouldst thou flee during the heat of battle??
        return false;
      }

      return SpellHelper.CheckTravel(Caster, TravelCheckType.GateFrom);
    }

    private bool GateExistsAt(Map map, Point3D loc)
    {
      bool _gateFound = false;

      IPooledEnumerable<Item> eable = map.GetItemsInRange(loc, 0);
      foreach (Item item in eable)
        if (item is Moongate || item is PublicMoongate)
        {
          _gateFound = true;
          break;
        }

      eable.Free();

      return _gateFound;
    }

    public void Effect(Point3D loc, Map map, bool checkMulti)
    {
      if (Sigil.ExistsOn(Caster))
      {
        Caster.SendLocalizedMessage(1061632); // You can't do that while carrying the sigil.
      }
      else if (map == null || !Core.AOS && Caster.Map != map)
      {
        Caster.SendLocalizedMessage(1005570); // You can not gate to another facet.
      }
      else if (!SpellHelper.CheckTravel(Caster, TravelCheckType.GateFrom))
      {
      }
      else if (!SpellHelper.CheckTravel(Caster, map, loc, TravelCheckType.GateTo))
      {
      }
      else if (map == Map.Felucca && Caster is PlayerMobile && ((PlayerMobile)Caster).Young)
      {
        Caster.SendLocalizedMessage(1049543); // You decide against traveling to Felucca while you are still young.
      }
      else if (Caster.Kills >= 5 && map != Map.Felucca)
      {
        Caster.SendLocalizedMessage(1019004); // You are not allowed to travel there.
      }
      else if (Caster.Criminal)
      {
        Caster.SendLocalizedMessage(1005561, "", 0x22); // Thou'rt a criminal and cannot escape so easily.
      }
      else if (SpellHelper.CheckCombat(Caster))
      {
        Caster.SendLocalizedMessage(1005564, "", 0x22); // Wouldst thou flee during the heat of battle??
      }
      else if (!map.CanSpawnMobile(loc.X, loc.Y, loc.Z))
      {
        Caster.SendLocalizedMessage(501942); // That location is blocked.
      }
      else if (checkMulti && SpellHelper.CheckMulti(loc, map))
      {
        Caster.SendLocalizedMessage(501942); // That location is blocked.
      }
      else if (Core.SE && (GateExistsAt(map, loc) || GateExistsAt(Caster.Map, Caster.Location))
      ) // SE restricted stacking gates
      {
        Caster.SendLocalizedMessage(1071242); // There is already a gate there.
      }
      else if (CheckSequence())
      {
        Caster.SendLocalizedMessage(501024); // You open a magical gate to another location

        Effects.PlaySound(Caster.Location, Caster.Map, 0x20E);

        InternalItem firstGate = new InternalItem(loc, map);
        firstGate.MoveToWorld(Caster.Location, Caster.Map);

        Effects.PlaySound(loc, map, 0x20E);

        InternalItem secondGate = new InternalItem(Caster.Location, Caster.Map);
        secondGate.MoveToWorld(loc, map);
      }

      FinishSequence();
    }

    [DispellableField]
    private class InternalItem : Moongate
    {
      public InternalItem(Point3D target, Map map) : base(target, map)
      {
        Map = map;

        if (ShowFeluccaWarning && map == Map.Felucca)
          ItemID = 0xDDA;

        Dispellable = true;

        InternalTimer t = new InternalTimer(this);
        t.Start();
      }

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

      public override bool ShowFeluccaWarning => Core.AOS;

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

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

        Delete();
      }

      private class InternalTimer : Timer
      {
        private Item m_Item;

        public InternalTimer(Item item) : base(TimeSpan.FromSeconds(30.0))
        {
          Priority = TimerPriority.OneSecond;
          m_Item = item;
        }

        protected override void OnTick()
        {
          m_Item.Delete();
        }
      }
    }

    private class InternalTarget : Target
    {
      private GateTravelSpell m_Owner;

      public InternalTarget(GateTravelSpell owner) : base(12, false, TargetFlags.None)
      {
        m_Owner = owner;

        owner.Caster.LocalOverheadMessage(MessageType.Regular, 0x3B2, 501029); // Select Marked item.
      }

      protected override void OnTarget(Mobile from, object o)
      {
        if (o is RecallRune)
        {
          RecallRune rune = (RecallRune)o;

          if (rune.Marked)
            m_Owner.Effect(rune.Target, rune.TargetMap, true);
          else
            from.SendLocalizedMessage(501803); // That rune is not yet marked.
        }
        else if (o is Runebook)
        {
          RunebookEntry e = ((Runebook)o).Default;

          if (e != null)
            m_Owner.Effect(e.Location, e.Map, true);
          else
            from.SendLocalizedMessage(502354); // Target is not marked.
        }
        /*else if ( o is Key && ((Key)o).KeyValue != 0 && ((Key)o).Link is BaseBoat )
        {
          BaseBoat boat = ((Key)o).Link as BaseBoat;

          if ( !boat.Deleted && boat.CheckKey( ((Key)o).KeyValue ) )
            m_Owner.Effect( boat.GetMarkedLocation(), boat.Map, false );
          else
            from.Send( new MessageLocalized( from.Serial, from.Body, MessageType.Regular, 0x3B2, 3, 501030, from.Name, "" ) ); // I can not gate travel from that object.
        }*/
        else if (o is HouseRaffleDeed && ((HouseRaffleDeed)o).ValidLocation())
        {
          HouseRaffleDeed deed = (HouseRaffleDeed)o;

          m_Owner.Effect(deed.PlotLocation, deed.PlotFacet, true);
        }
        else
        {
          from.Send(new MessageLocalized(from.Serial, from.Body, MessageType.Regular, 0x3B2, 3, 501030, from.Name,
            "")); // I can not gate travel from that object.
        }
      }

      protected override void OnNonlocalTarget(Mobile from, object o)
      {
      }

      protected override void OnTargetFinish(Mobile from)
      {
        m_Owner.FinishSequence();
      }
    }
  }
}