using System;
using System.Collections;
using System.Collections.Generic;
using Server;
using Server.Items;
using Server.Network;
using Server.ContextMenus;
using EDI = Server.Mobiles.EscortDestinationInfo;

namespace Server.Mobiles
{
	public class BaseEscortable : BaseCreature
	{
		private EDI m_Destination;
		private string m_DestinationString;

		private DateTime m_DeleteTime;
		private Timer m_DeleteTimer;

		public override bool Commandable { get { return false; } } // Our master cannot boss us around!

		[CommandProperty(AccessLevel.GameMaster)]
		public string Destination
		{
			get { return m_Destination == null ? null : m_Destination.Name; }
			set { m_DestinationString = value; m_Destination = EDI.Find(value); }
		}

		private static string[] m_TownNames = new string[]
		{
			"Cove", "Britain", "Jhelom",
			"Minoc", "Ocllo", "Trinsic",
			"Vesper", "Yew", "Skara Brae",		//Original List, will need to add it back for Pre-ML shards
			"Nujel'm", "Moonglow", "Magincia"
		};

		private static string[] m_MLTownNames = new string[]
		{
			"Cove", "Serpent's Hold", "Jhelom",		 //ML List
			"Nujel'm"
		};

		[Constructable]
		public BaseEscortable()
			: base(AIType.AI_Melee, FightMode.Aggressor, 22, 1, 0.2, 1.0)
		{
			InitBody();
			InitOutfit();
		}

		public virtual void InitBody()
		{
			SetStr(90, 100);
			SetDex(90, 100);
			SetInt(15, 25);

			Hue = Utility.RandomSkinHue();

			if (Female = Utility.RandomBool())
			{
				Body = 401;
				Name = NameList.RandomName("female");
			}
			else
			{
				Body = 400;
				Name = NameList.RandomName("male");
			}
		}

		public virtual void InitOutfit()
		{
			AddItem(new FancyShirt(Utility.RandomNeutralHue()));
			AddItem(new ShortPants(Utility.RandomNeutralHue()));
			AddItem(new Boots(Utility.RandomNeutralHue()));

			Utility.AssignRandomHair(this);

			PackGold(200, 250);
		}

		public virtual bool SayDestinationTo(Mobile m)
		{
			EDI dest = GetDestination();

			if (dest == null || !m.Alive)
				return false;

			Mobile escorter = GetEscorter();

			if (escorter == null)
			{
				Say("I am looking to go to {0}, will you take me?", (dest.Name == "Ocllo" && m.Map == Map.Trammel) ? "Haven" : dest.Name);
				return true;
			}
			else if (escorter == m)
			{
				Say("Lead on! Payment will be made when we arrive in {0}.", (dest.Name == "Ocllo" && m.Map == Map.Trammel) ? "Haven" : dest.Name);
				return true;
			}

			return false;
		}

		private static Hashtable m_EscortTable = new Hashtable();

		public static Hashtable EscortTable
		{
			get { return m_EscortTable; }
		}

		private static TimeSpan m_EscortDelay = TimeSpan.FromMinutes(5.0);

		public virtual bool AcceptEscorter(Mobile m)
		{
			EDI dest = GetDestination();

			if (dest == null)
				return false;

			Mobile escorter = GetEscorter();

			if (escorter != null || !m.Alive)
				return false;

			BaseEscortable escortable = (BaseEscortable)m_EscortTable[m];

			if (escortable != null && !escortable.Deleted && escortable.GetEscorter() == m)
			{
				Say("I see you already have an escort.");
				return false;
			}
			else if (m is PlayerMobile && (((PlayerMobile)m).LastEscortTime + m_EscortDelay) >= DateTime.Now)
			{
				int minutes = (int)Math.Ceiling(((((PlayerMobile)m).LastEscortTime + m_EscortDelay) - DateTime.Now).TotalMinutes);

				Say("You must rest {0} minute{1} before we set out on this journey.", minutes, minutes == 1 ? "" : "s");
				return false;
			}
			else if (SetControlMaster(m))
			{
				m_LastSeenEscorter = DateTime.Now;

				if (m is PlayerMobile)
					((PlayerMobile)m).LastEscortTime = DateTime.Now;

				Say("Lead on! Payment will be made when we arrive in {0}.", (dest.Name == "Ocllo" && m.Map == Map.Trammel) ? "Haven" : dest.Name);
				m_EscortTable[m] = this;
				StartFollow();
				return true;
			}

			return false;
		}

		public override bool HandlesOnSpeech(Mobile from)
		{
			if (from.InRange(this.Location, 3))
				return true;

			return base.HandlesOnSpeech(from);
		}

		public override void OnSpeech(SpeechEventArgs e)
		{
			base.OnSpeech(e);

			EDI dest = GetDestination();

			if (dest != null && !e.Handled && e.Mobile.InRange(this.Location, 3))
			{
				if (e.HasKeyword(0x1D)) // *destination*
					e.Handled = SayDestinationTo(e.Mobile);
				else if (e.HasKeyword(0x1E)) // *i will take thee*
					e.Handled = AcceptEscorter(e.Mobile);
			}
		}

		public override void OnAfterDelete()
		{
			if (m_DeleteTimer != null)
				m_DeleteTimer.Stop();

			m_DeleteTimer = null;

			base.OnAfterDelete();
		}

		public override void OnThink()
		{
			base.OnThink();
			CheckAtDestination();
		}

		protected override bool OnMove(Direction d)
		{
			if (!base.OnMove(d))
				return false;

			CheckAtDestination();

			return true;
		}

		public virtual void StartFollow()
		{
			StartFollow(GetEscorter());
		}

		public virtual void StartFollow(Mobile escorter)
		{
			if (escorter == null)
				return;

			ActiveSpeed = 0.1;
			PassiveSpeed = 0.2;

			ControlOrder = OrderType.Follow;
			ControlTarget = escorter;

			if ((IsPrisoner == true) && (CantWalk == true))
			{
				CantWalk = false;
			}
			CurrentSpeed = 0.1;
		}

		public virtual void StopFollow()
		{
			ActiveSpeed = 0.2;
			PassiveSpeed = 1.0;

			ControlOrder = OrderType.None;
			ControlTarget = null;

			CurrentSpeed = 1.0;
		}

		private DateTime m_LastSeenEscorter;

		public virtual Mobile GetEscorter()
		{
			if (!Controlled)
				return null;

			Mobile master = ControlMaster;

			if (master == null)
				return null;

			if (master.Deleted || master.Map != this.Map || !master.InRange(Location, 30) || !master.Alive)
			{
				StopFollow();

				TimeSpan lastSeenDelay = DateTime.Now - m_LastSeenEscorter;

				if (lastSeenDelay >= TimeSpan.FromMinutes(2.0))
				{
					master.SendLocalizedMessage(1042473); // You have lost the person you were escorting.
					Say(1005653); // Hmmm. I seem to have lost my master.

					SetControlMaster(null);
					m_EscortTable.Remove(master);

					Timer.DelayCall(TimeSpan.FromSeconds(5.0), new TimerCallback(Delete));
					return null;
				}
				else
				{
					ControlOrder = OrderType.Stay;
					return master;
				}
			}

			if (ControlOrder != OrderType.Follow)
				StartFollow(master);

			m_LastSeenEscorter = DateTime.Now;
			return master;
		}

		public virtual void BeginDelete()
		{
			if (m_DeleteTimer != null)
				m_DeleteTimer.Stop();

			m_DeleteTime = DateTime.Now + TimeSpan.FromSeconds(30.0);

			m_DeleteTimer = new DeleteTimer(this, m_DeleteTime - DateTime.Now);
			m_DeleteTimer.Start();
		}

		public virtual bool CheckAtDestination()
		{
			EDI dest = GetDestination();

			if (dest == null)
				return false;

			Mobile escorter = GetEscorter();

			if (escorter == null)
				return false;

			if (dest.Contains(Location))
			{
				Say(1042809, escorter.Name); // We have arrived! I thank thee, ~1_PLAYER_NAME~! I have no further need of thy services. Here is thy pay.

				// not going anywhere
				m_Destination = null;
				m_DestinationString = null;

				Container cont = escorter.Backpack;

				if (cont == null)
					cont = escorter.BankBox;

				Gold gold = new Gold(500, 1000);

				if (!cont.TryDropItem(escorter, gold, false))
					gold.MoveToWorld(escorter.Location, escorter.Map);

				StopFollow();
				SetControlMaster(null);
				m_EscortTable.Remove(escorter);
				BeginDelete();

				Misc.Titles.AwardFame(escorter, 10, true);

				bool gainedPath = false;

				PlayerMobile pm = escorter as PlayerMobile;

				if (pm != null)
				{
					if (pm.CompassionGains > 0 && DateTime.Now > pm.NextCompassionDay)
					{
						pm.NextCompassionDay = DateTime.MinValue;
						pm.CompassionGains = 0;
					}

					if (pm.CompassionGains >= 5) // have already gained 5 times in one day, can gain no more
					{
						pm.SendLocalizedMessage(1053004); // You must wait about a day before you can gain in compassion again.
					}
					else if (VirtueHelper.Award(pm, VirtueName.Compassion, this.IsPrisoner ? 400 : 200, ref gainedPath))
					{
						if (gainedPath)
							pm.SendLocalizedMessage(1053005); // You have achieved a path in compassion!
						else
							pm.SendLocalizedMessage(1053002); // You have gained in compassion.

						pm.NextCompassionDay = DateTime.Now + TimeSpan.FromDays(1.0); // in one day CompassionGains gets reset to 0
						++pm.CompassionGains;
					}
					else
					{
						pm.SendLocalizedMessage(1053003); // You have achieved the highest path of compassion and can no longer gain any further.
					}
				}

				return true;
			}

			return false;
		}

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

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

			writer.Write((int)0); // version

			EDI dest = GetDestination();

			writer.Write(dest != null);

			if (dest != null)
				writer.Write(dest.Name);

			writer.Write(m_DeleteTimer != null);

			if (m_DeleteTimer != null)
				writer.WriteDeltaTime(m_DeleteTime);
		}

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

			int version = reader.ReadInt();

			if (reader.ReadBool())
				m_DestinationString = reader.ReadString(); // NOTE: We cannot EDI.Find here, regions have not yet been loaded :-(

			if (reader.ReadBool())
			{
				m_DeleteTime = reader.ReadDeltaTime();
				m_DeleteTimer = new DeleteTimer(this, m_DeleteTime - DateTime.Now);
				m_DeleteTimer.Start();
			}
		}

		public override bool CanBeRenamedBy(Mobile from)
		{
			return (from.AccessLevel >= AccessLevel.GameMaster);
		}

		public override void AddCustomContextEntries(Mobile from, List<ContextMenuEntry> list)
		{
			EDI dest = GetDestination();

			if (dest != null && from.Alive)
			{
				Mobile escorter = GetEscorter();

				if (escorter == null || escorter == from)
					list.Add(new AskDestinationEntry(this, from));

				if (escorter == null)
					list.Add(new AcceptEscortEntry(this, from));
				else if (escorter == from)
					list.Add(new AbandonEscortEntry(this, from));
			}

			base.AddCustomContextEntries(from, list);
		}

		public virtual string[] GetPossibleDestinations()
		{
			if (!Core.ML)
				return m_TownNames;
			else
				return m_MLTownNames;
		}

		public virtual string PickRandomDestination()
		{
			if (Map.Felucca.Regions.Count == 0 || Map == null || Map == Map.Internal || Location == Point3D.Zero)
				return null; // Not yet fully initialized

			string[] possible = GetPossibleDestinations();
			string picked = null;

			while (picked == null)
			{
				picked = possible[Utility.Random(possible.Length)];
				EDI test = EDI.Find(picked);

				if (test != null && test.Contains(Location))
					picked = null;
			}

			return picked;
		}

		public EDI GetDestination()
		{
			if (m_DestinationString == null && m_DeleteTimer == null)
				m_DestinationString = PickRandomDestination();

			if (m_Destination != null && m_Destination.Name == m_DestinationString)
				return m_Destination;

			if (Map.Felucca.Regions.Count > 0)
				return (m_Destination = EDI.Find(m_DestinationString));

			return (m_Destination = null);
		}

		private class DeleteTimer : Timer
		{
			private Mobile m_Mobile;

			public DeleteTimer(Mobile m, TimeSpan delay)
				: base(delay)
			{
				m_Mobile = m;

				Priority = TimerPriority.OneSecond;
			}

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

	public class EscortDestinationInfo
	{
		private string m_Name;
		private Region m_Region;
		//private Rectangle2D[] m_Bounds;

		public string Name
		{
			get { return m_Name; }
		}

		public Region Region
		{
			get { return m_Region; }
		}

		/*public Rectangle2D[] Bounds
		{
			get{ return m_Bounds; }
		}*/

		public bool Contains(Point3D p)
		{
			return m_Region.Contains(p);
		}

		public EscortDestinationInfo(string name, Region region)
		{
			m_Name = name;
			m_Region = region;
		}

		private static Hashtable m_Table;

		public static void LoadTable()
		{
			ICollection list = Map.Felucca.Regions.Values;

			if (list.Count == 0)
				return;

			m_Table = new Hashtable();

			foreach (Region r in list)
			{
				if (r.Name == null)
					continue;

				if (r is Regions.DungeonRegion || r is Regions.TownRegion)
					m_Table[r.Name] = new EscortDestinationInfo(r.Name, r);
			}
		}

		public static EDI Find(string name)
		{
			if (m_Table == null)
				LoadTable();

			if (name == null || m_Table == null)
				return null;

			return (EscortDestinationInfo)m_Table[name];
		}
	}

	public class AskDestinationEntry : ContextMenuEntry
	{
		private BaseEscortable m_Mobile;
		private Mobile m_From;

		public AskDestinationEntry(BaseEscortable m, Mobile from)
			: base(6100, 3)
		{
			m_Mobile = m;
			m_From = from;
		}

		public override void OnClick()
		{
			m_Mobile.SayDestinationTo(m_From);
		}
	}

	public class AcceptEscortEntry : ContextMenuEntry
	{
		private BaseEscortable m_Mobile;
		private Mobile m_From;

		public AcceptEscortEntry(BaseEscortable m, Mobile from)
			: base(6101, 3)
		{
			m_Mobile = m;
			m_From = from;
		}

		public override void OnClick()
		{
			m_Mobile.AcceptEscorter(m_From);
		}
	}

	public class AbandonEscortEntry : ContextMenuEntry
	{
		private BaseEscortable m_Mobile;
		private Mobile m_From;

		public AbandonEscortEntry(BaseEscortable m, Mobile from)
			: base(6102, 3)
		{
			m_Mobile = m;
			m_From = from;
		}

		public override void OnClick()
		{
			m_Mobile.Delete(); // OSI just seems to delete instantly
		}
	}
}