using System;
using Server.Network;
using Server.Multis;
using Server.Items;
using Server.Targeting;
using Server.Misc;
using Server.Regions;
using System.Collections;
using Server.Mobiles;
using Server.Spells;

namespace Server.ACC.CSS.Systems.Cleric
{
	public class UndeadPoisonFieldSpell : UndeadSpell
	{
		private static SpellInfo m_Info = new SpellInfo(
		                                                "Poison Field", "In Nox Grav",
		                                                //SpellCircle.Fifth,
		                                                230,
		                                                9052,
		                                                false,
		                                                Reagent.BatWing,
		                                                Reagent.NoxCrystal,
		                                                Reagent.PigIron
		                                               );

        public override SpellCircle Circle { get { return SpellCircle.Fifth; } }
		public override double RequiredSkill{ get{ return 45; } }
		public override int RequiredMana{ get{ return 20; } }
		public override int RequiredHealth{ get{ return 0; } }
		
		public UndeadPoisonFieldSpell( Mobile caster, Item scroll ) : base( caster, scroll, m_Info )
		{
		}
		
		public override void OnCast()
		{
			Caster.Target = new InternalTarget( this );
		}
		
		public void Target( IPoint3D p )
		{
			if ( !Caster.CanSee( p ) )
			{
				Caster.SendLocalizedMessage( 500237 ); // Target can not be seen.
			}
			else if ( SpellHelper.CheckTown( p, Caster ) && CheckSequence() )
			{
				SpellHelper.Turn( Caster, p );
				
				SpellHelper.GetSurfaceTop( ref p );
				
				int dx = Caster.Location.X - p.X;
				int dy = Caster.Location.Y - p.Y;
				int rx = (dx - dy) * 44;
				int ry = (dx + dy) * 44;
				
				bool eastToWest;
				
				if ( rx >= 0 && ry >= 0 )
				{
					eastToWest = false;
				}
				else if ( rx >= 0 )
				{
					eastToWest = true;
				}
				else if ( ry >= 0 )
				{
					eastToWest = true;
				}
				else
				{
					eastToWest = false;
				}
				
				Effects.PlaySound( p, Caster.Map, 0x20B );
				
				int itemID = eastToWest ? 0x3915 : 0x3922;
				
				TimeSpan duration = TimeSpan.FromSeconds( 3 + (Caster.Skills.Magery.Fixed / 25) );
				
				for ( int i = -2; i <= 2; ++i )
				{
					Point3D loc = new Point3D( eastToWest ? p.X + i : p.X, eastToWest ? p.Y : p.Y + i, p.Z );
					
					new InternalItem( itemID, loc, Caster, Caster.Map, duration, i );
				}
			}
			
			FinishSequence();
		}
		
		[DispellableField]
		private class InternalItem : Item
		{
			private Timer m_Timer;
			private DateTime m_End;
			private Mobile m_Caster;
			
			public override bool BlocksFit{ get{ return true; } }
			
			public InternalItem( int itemID, Point3D loc, Mobile caster, Map map, TimeSpan duration, int val ) : base( itemID )
			{
				bool canFit = SpellHelper.AdjustField( ref loc, map, 12, false );
				
				Visible = false;
				Movable = false;
				Light = LightType.Circle300;
				
				MoveToWorld( loc, map );
				
				m_Caster = caster;
				
				m_End = DateTime.Now + duration;
				
				m_Timer = new InternalTimer( this, TimeSpan.FromSeconds( Math.Abs( val ) * 0.2 ), caster.InLOS( this ), canFit );
				m_Timer.Start();
			}
			
			public override void OnAfterDelete()
			{
				base.OnAfterDelete();
				
				if ( m_Timer != null )
					m_Timer.Stop();
			}
			
			public InternalItem( Serial serial ) : base( serial )
			{
			}
			
			public override void Serialize( GenericWriter writer )
			{
				base.Serialize( writer );
				writer.Write( (int) 1 ); // version
				
				writer.Write( m_Caster );
				writer.WriteDeltaTime( m_End );
			}
			
			public override void Deserialize( GenericReader reader )
			{
				base.Deserialize( reader );
				int version = reader.ReadInt();
				
				switch ( version )
				{
					case 1:
						{
							m_Caster = reader.ReadMobile();
							
							goto case 0;
						}
					case 0:
						{
							m_End = reader.ReadDeltaTime();
							
							m_Timer = new InternalTimer( this, TimeSpan.Zero, true, true );
							m_Timer.Start();
							
							break;
						}
				}
			}
			
			public void ApplyPoisonTo( Mobile m )
			{
				if ( m_Caster == null )
					return;
				
				Poison p;
				
				if ( Core.AOS )
				{
					int total = (m_Caster.Skills.Magery.Fixed + m_Caster.Skills.Poisoning.Fixed) / 2;
					
					if ( total >= 1000 )
						p = Poison.Deadly;
					else if ( total > 850 )
						p = Poison.Greater;
					else if ( total > 650 )
						p = Poison.Regular;
					else
						p = Poison.Lesser;
				}
				else
				{
					p = Poison.Regular;
				}
				
				m.ApplyPoison( m_Caster, p );
			}
			
			public override bool OnMoveOver( Mobile m )
			{
				if ( Visible && m_Caster != null && (!Core.AOS || m != m_Caster) && SpellHelper.ValidIndirectTarget( m_Caster, m ) && m_Caster.CanBeHarmful( m, false ) )
				{
					m_Caster.DoHarmful( m );
					
					ApplyPoisonTo( m );
					m.PlaySound( 0x474 );
				}
				
				return true;
			}
			
			private class InternalTimer : Timer
			{
				private InternalItem m_Item;
				private bool m_InLOS, m_CanFit;
				
				private static Queue m_Queue = new Queue();
				
				public InternalTimer( InternalItem item, TimeSpan delay, bool inLOS, bool canFit ) : base( delay, TimeSpan.FromSeconds( 1.5 ) )
				{
					m_Item = item;
					m_InLOS = inLOS;
					m_CanFit = canFit;
					
					Priority = TimerPriority.FiftyMS;
				}
				
				protected override void OnTick()
				{
					if ( m_Item.Deleted )
						return;
					
					if ( !m_Item.Visible )
					{
						if ( m_InLOS && m_CanFit )
							m_Item.Visible = true;
						else
							m_Item.Delete();
						
						if ( !m_Item.Deleted )
						{
							m_Item.ProcessDelta();
							Effects.SendLocationParticles( EffectItem.Create( m_Item.Location, m_Item.Map, EffectItem.DefaultDuration ), 0x376A, 9, 10, 5040 );
						}
					}
					else if ( DateTime.Now > m_Item.m_End )
					{
						m_Item.Delete();
						Stop();
					}
					else
					{
						Map map = m_Item.Map;
						Mobile caster = m_Item.m_Caster;
						
						if ( map != null && caster != null )
						{
							bool eastToWest = ( m_Item.ItemID == 0x3915 );
							IPooledEnumerable eable = map.GetMobilesInBounds( new Rectangle2D( m_Item.X - (eastToWest ? 0 : 1), m_Item.Y - (eastToWest ? 1 : 0), (eastToWest ? 1 : 2), (eastToWest ? 2 : 1) ) );
							
							foreach ( Mobile m in eable )
							{
								if ( (m.Z + 16) > m_Item.Z && (m_Item.Z + 12) > m.Z && (!Core.AOS || m != caster) && SpellHelper.ValidIndirectTarget( caster, m ) && caster.CanBeHarmful( m, false ) )
									m_Queue.Enqueue( m );
							}
							
							eable.Free();
							
							while ( m_Queue.Count > 0 )
							{
								Mobile m = (Mobile)m_Queue.Dequeue();
								
								caster.DoHarmful( m );
								
								m_Item.ApplyPoisonTo( m );
								m.PlaySound( 0x474 );
							}
						}
					}
				}
			}
		}
		
		private class InternalTarget : Target
		{
			private UndeadPoisonFieldSpell m_Owner;
			
			public InternalTarget( UndeadPoisonFieldSpell owner ) : base( 12, true, TargetFlags.None )
			{
				m_Owner = owner;
			}
			
			protected override void OnTarget( Mobile from, object o )
			{
				if ( o is IPoint3D )
					m_Owner.Target( (IPoint3D)o );
			}
			
			protected override void OnTargetFinish( Mobile from )
			{
				m_Owner.FinishSequence();
			}
		}
	}
}
