using System;
using Server.Spells;
using Server.Network;
using Server.Mobiles;
using Server.Commands;
using System.Collections.Generic;

	/*
	this is From me to you, Under no terms, Conditions...   K?  to apply you
	just simply Unpatch/delete, Stick these in, Same location.. Restart
	*/

namespace Server.Engines.Doom
{
	public class LeverPuzzleController : Item
	{
		private bool m_Enabled;
		private static bool installed;

		private ushort m_MyKey;
		private ushort m_TheirKey;

		private List<Item> m_Levers;
		private List<Item> m_Teles;
		private List<Item> m_Statues;
		private List<LeverPuzzleRegion> m_Tiles;
		private Mobile m_Successful;
		private LampRoomBox m_Box;
		private Region m_LampRoom;

		private Timer m_Timer;
		private Timer l_Timer;

		public static void Initialize()
		{
			CommandSystem.Register( "GenLeverPuzzle", AccessLevel.Administrator, new CommandEventHandler( GenLampPuzzle_OnCommand ) );
		}

		[Usage( "GenLeverPuzzle" )]
		[Description( "Generates lamp room and lever puzzle in doom." )]
		public static void GenLampPuzzle_OnCommand( CommandEventArgs e )
		{
			foreach ( Item item in Map.Malas.GetItemsInRange( lp_Center, 0 ) )
			{
				if ( item is LeverPuzzleController )
				{
					e.Mobile.SendMessage( "Lamp room puzzle already exists: please delete the existing controller first ..." );
					return;
				}
			}
			e.Mobile.SendMessage( "Generating Lamp Room puzzle..." );
			new LeverPuzzleController().MoveToWorld( lp_Center, Map.Malas );

			if ( !installed )
				e.Mobile.SendMessage( "There was a problem generating the puzzle." );
			else
				e.Mobile.SendMessage( "Lamp room puzzle successfully generated." );
		}

		[CommandProperty( AccessLevel.GameMaster )]
		public ushort MyKey { get => m_MyKey;
			set => m_MyKey = value;
		}

		[CommandProperty( AccessLevel.GameMaster )]
		public ushort TheirKey { get => m_TheirKey;
			set => m_TheirKey = value;
		}

		[CommandProperty( AccessLevel.GameMaster )]
		public bool Enabled { get => m_Enabled;
			set => m_Enabled = value;
		}

		public Mobile Successful => m_Successful;

		public bool CircleComplete
		{
			get	/* OSI: all 5 must be occupied */
			{
				for (int i=0; i<5; i++)
				{
					if ( GetOccupant( i ) == null)
					{
						return false;
					}
				}
				return true;
			}
		}

		public LeverPuzzleController() : base( 0x1822 )
		{
			Movable=false;
			Hue=0x4c;
			installed=true;
			int i=0;

			m_Levers = new List<Item>();	/* codes are 0x1 shifted left x # of bits, easily handled here */
			for (; i<4; i++)
				m_Levers.Add( AddLeverPuzzlePart( TA[i], new LeverPuzzleLever( (ushort)(1<<i), this )));

			m_Tiles = new List<LeverPuzzleRegion>();
			for (; i<9; i++)
				m_Tiles.Add( new LeverPuzzleRegion( this, TA[i] ));

			m_Teles = new List<Item>();
			for (; i<15; i++)
				m_Teles.Add( AddLeverPuzzlePart( TA[i], new LampRoomTeleporter( TA[++i] )));

			m_Statues = new List<Item>();
			for (; i<19; i++)
				m_Statues.Add( AddLeverPuzzlePart( TA[i], new LeverPuzzleStatue( TA[++i], this )));

			if (!installed)
				Delete();
			else
				Enabled=true;

			m_Box = (LampRoomBox)AddLeverPuzzlePart( TA[i], new LampRoomBox( this ));
			m_LampRoom = new LampRoomRegion( this );
			GenKey();
		}

		public static Item AddLeverPuzzlePart( int[] Loc, Item newitem  )
		{
			if ( newitem == null || newitem.Deleted  )
			{
				installed=false;
			}
			else
			{
				newitem.MoveToWorld( new Point3D(Loc[0], Loc[1], Loc[2]), Map.Malas );
			}
			return newitem;
		}

		public override void OnDelete()
		{
			KillTimers();
			base.OnDelete();
		}
		public override void OnAfterDelete()
		{
			NukeItemList( m_Teles );
			NukeItemList( m_Statues );
			NukeItemList( m_Levers );

			if ( m_LampRoom != null )
			{
				m_LampRoom.Unregister();
			}
			if ( m_Tiles != null )
			{
				foreach( Region region in m_Tiles )
				{
					region.Unregister();
				}
			}
			if ( m_Box != null && !m_Box.Deleted )
			{
				m_Box.Delete();
			}
		}

		public static void NukeItemList( List<Item> list )
		{
			if ( list != null && list.Count != 0 )
			{
				foreach ( Item item in list )
				{
					if ( item != null && !item.Deleted )
					{
						item.Delete();
					}
				}
			}
		}

		public virtual PlayerMobile GetOccupant( int index )
		{
			LeverPuzzleRegion region = (LeverPuzzleRegion)m_Tiles[index];

			if ( region != null )
			{
				if ( region.Occupant != null && region.Occupant.Alive )
				{
					return (PlayerMobile)region.Occupant;
				}
			}
			return null;
		}

		public virtual LeverPuzzleStatue GetStatue( int index )
		{
			LeverPuzzleStatue statue = (LeverPuzzleStatue)m_Statues[index];

			if ( statue != null && !statue.Deleted )
			{
				return statue;
			}
			return null;
		}

		public virtual LeverPuzzleLever GetLever( int index )
		{
			LeverPuzzleLever lever = (LeverPuzzleLever)m_Levers[index];

			if ( lever != null && !lever.Deleted )
			{
				return lever;
			}
			return null;
		}

		public virtual void PuzzleStatus( int message, string fstring )
		{
			for( int i=0; i<2; i++)
			{
				Item s;
				if (( s = GetStatue( i )) != null )
				{
					s.PublicOverheadMessage( MessageType.Regular, 0x3B2, message, fstring );
				}
			}
		}

		public virtual void ResetPuzzle()
		{
			PuzzleStatus( 1062053, null );
			ResetLevers();
		}

		public virtual void ResetLevers()
		{
			for(int i=0;i<4; i++)
			{
				Item l;
				if (( l = GetLever( i )) != null )
				{
					l.ItemID=0x108E;
					Effects.PlaySound( l.Location, Map, 0x3E8 );
				}
			}
			TheirKey^=TheirKey;
		}

		public virtual void KillTimers ()
		{
			if ( l_Timer != null && l_Timer.Running )
			{
				l_Timer.Stop();
			}
			if ( m_Timer != null && m_Timer.Running )
			{
				m_Timer.Stop();
			}
		}

		public virtual void RemoveSuccessful()
		{
			m_Successful=null;
		}

		public virtual void LeverPulled( ushort code )
		{
			int Correct=0;
			Mobile m_Player;

			KillTimers();

			/* if one bit in each of the four nibbles is set, this is false */

			if ( (TheirKey=(ushort)(code|(TheirKey<<=4))) < 0x0FFF )
			{
				l_Timer = Timer.DelayCall( TimeSpan.FromSeconds( 30.0 ), new TimerCallback( ResetPuzzle ));
				return;
			}

			if ( !CircleComplete )
			{
				PuzzleStatus( 1050004, null ); // The circle is the key...
			}
			else
			{
				if ( TheirKey == MyKey )
				{
					GenKey();
					if (( m_Successful = ( m_Player=GetOccupant( 0 ))) != null )
					{
						SendLocationEffect( lp_Center,  0x1153, 0, 60, 1 );
						PlaySounds( lp_Center, cs1 );

						Effects.SendBoltEffect( m_Player, true );
						m_Player.MoveToWorld( lr_Enter, Map.Malas );

						m_Timer = new LampRoomTimer( this );
						m_Timer.Start();
						m_Enabled = false;
					}
				}
				else
				{
					for(int i=0; i<16; i++)  /* Count matching SET bits, ie correct codes */
					{
						if ( (((MyKey>>i)&1)==1)&&(((TheirKey>>i)&1)==1) )
						{
							Correct++;
						}
					}

					PuzzleStatus( Statue_Msg[Correct], (Correct>0) ? Correct.ToString() : null );

					for (int i=0; i<5; i++)
					{
						if (( m_Player=GetOccupant( i )) != null )
						{
							Timer smash = new RockTimer( m_Player, this );
							smash.Start();
						}
					}
				}
			}
			ResetLevers();
		}

		public virtual void GenKey() /* Shuffle & build key */
		{
			ushort tmp; int n, i; ushort[] CA = { 1,2,4,8 };
			for (i=0; i<4; i++)
			{
				n=(((n = Utility.Random(0,3))==i) ? n&~i : n ); /* if (i==n) { return pointless; } */
				tmp = CA[i];
				CA[i]=CA[n];
				CA[n]=tmp;
			}
			for(i=0; i<4; MyKey=(ushort)(CA[(i++)]|(MyKey<<=4))) {}
		}

		public class RockTimer : Timer
		{
			private int Count;
			private Mobile m_Player;
			private LeverPuzzleController m_Controller;

			public RockTimer( Mobile player, LeverPuzzleController Controller )
				: base( TimeSpan.Zero, TimeSpan.FromSeconds( .25 ) )
			{
				Count = 0;
				m_Player=player;
				m_Controller = Controller;
			}

			private int Rock()
			{
				return 0x1363+Utility.Random( 0, 11 );
			}

			protected override void OnTick()
			{
				if ( m_Player == null || !(m_Player.Map == Map.Malas) )
				{
					Stop();
				}
				else
				{
					Count++;
					if ( Count == 1 ) /* TODO consolidate */
					{
						m_Player.Paralyze( TimeSpan.FromSeconds(2) );
						Effects.SendTargetEffect( m_Player, 0x11B7, 20, 10 );
						PlayerSendASCII( m_Player, 0 );  // You are pinned down ...

						PlaySounds( m_Player.Location, ( !m_Player.Female ) ? fs : ms );
						PlayEffect( ZAdjustedIEFromMobile( m_Player, 50 ), m_Player, 0x11B7, 20, false );
					}
					else if ( Count == 2 )
					{
						DoDamage( m_Player, 80, 90, false );
						Effects.SendTargetEffect( m_Player, 0x36BD, 20, 10 );
						PlaySounds( m_Player.Location, exp );
						PlayerSendASCII( m_Player, 1 ); // A speeding rock  ...

						if ( AniSafe( m_Player ))
						{
							m_Player.Animate( 21, 10, 1, true, true, 0 );
						}
					}
					else if ( Count == 3 )
					{
						Stop();

						Effects.SendTargetEffect( m_Player, 0x36B0, 20, 10 );
						PlayerSendASCII( m_Player, 1 ); // A speeding rock  ...
						PlaySounds( m_Player.Location, ( !m_Player.Female ) ? fs2 : ms2 );

						int j = Utility.Random(6,10);
						for(int i=0; i<j; i++)
						{
							IEntity m_IEntity = new Entity( Serial.Zero, RandomPointIn( m_Player.Location, 10 ), m_Player.Map );

							List<Mobile> mobiles = new List<Mobile>();
							foreach( Mobile m in m_IEntity.Map.GetMobilesInRange( m_IEntity.Location, 2 ))
							{
								mobiles.Add( m );
							}
							for( int k=0; k<mobiles.Count; k++ )
							{
								if ( IsValidDamagable( mobiles[k] ) && mobiles[k] != m_Player  )
								{
									PlayEffect( m_Player, mobiles[k], Rock(), 8, true );
									DoDamage( mobiles[k], 25, 30, false );

									if ( mobiles[k].Player )
									{
										POHMessage( mobiles[k], 2 ); // OUCH!
									}
								}
							}
							PlayEffect( m_Player, m_IEntity, Rock(), 8, false );
						}
					}
				}
			}
		}

		public class LampRoomKickTimer : Timer
		{
			private Mobile m;

			public LampRoomKickTimer( Mobile player )
				: base( TimeSpan.FromSeconds( .25 ) )
			{
				m = player;
			}
			protected override void OnTick()
			{
				MoveMobileOut( m );
			}
		}

		public class LampRoomTimer : Timer
		{
			public LeverPuzzleController m_Controller;
			public int ticks;
			public int level;

			public LampRoomTimer( LeverPuzzleController controller )
				: base( TimeSpan.FromSeconds( 5.0 ), TimeSpan.FromSeconds( 5.0 ) )
			{
				level=0;
				ticks=0;
				m_Controller = controller;
			}

			protected override void OnTick()
			{
				ticks++;
				List<Mobile> mobiles = m_Controller.m_LampRoom.GetMobiles();

				if ( ticks >= 71 || m_Controller.m_LampRoom.GetPlayerCount() == 0 )
				{
					foreach ( Mobile mobile in mobiles )
					{
						if ( mobile != null && !mobile.Deleted && !mobile.IsDeadBondedPet )
						{
							mobile.Kill();
						}
					}
					m_Controller.Enabled=true;
					Stop();
				}
				else
				{
					if ( ticks % 12 == 0 )
					{
						level++;
					}
					foreach ( Mobile mobile in mobiles )
					{
						if ( IsValidDamagable( mobile ) )
						{
							if ( ticks % 2 == 0 && level == 5 )
							{
								if ( mobile.Player )
								{
									mobile.Say( 1062092 );
									if ( AniSafe( mobile ))
									{
										mobile.Animate( 32, 5, 1, true, false, 0 );
									}
								}
								DoDamage( mobile, 15, 20, true );
							}
							if ( Utility.Random( (int)(level & ~0xfffffffc), 3) == 3 )
							{
								mobile.ApplyPoison( mobile, PA2[level] );
							}
							if ( ticks % 12 == 0 && level > 0 && mobile.Player )
							{
								mobile.SendLocalizedMessage( PA[level][0], null, PA[level][1] );
							}
						}
					}
					for( int i=0; i<=level; i++ )
					{
						SendLocationEffect( RandomPointIn( lr_Rect, -1 ), 0x36B0, Utility.Random( 150, 200 ), 0, PA[level][2] );
					}
				}
			}
		}

		private static bool IsValidDamagable( Mobile m )
		{
			if ( m != null && !m.Deleted )
			{
				if ( m.Player && m.Alive )
					return true;

				return m is BaseCreature bc && (bc.Controlled || bc.Summoned) && !bc.IsDeadBondedPet;
			}
			return false;
		}

		public static void MoveMobileOut( Mobile m )
		{
			if ( m != null )
			{
				if ( m is PlayerMobile && !m.Alive )
				{
					if ( m.Corpse != null && !m.Corpse.Deleted )
					{
						m.Corpse.MoveToWorld( lr_Exit, Map.Malas );
					}
				}
				BaseCreature.TeleportPets( m, lr_Exit, Map.Malas );
				m.Location = lr_Exit;
				m.ProcessDelta();
			}
		}

		public static bool AniSafe( Mobile m )
		{
			return ( m != null && !TransformationSpellHelper.UnderTransformation( m ) && m.BodyMod == 0 && m.Alive );
		}

		public static IEntity ZAdjustedIEFromMobile( Mobile m, int ZDelta )
		{
			return new Entity( Serial.Zero, new Point3D( m.X, m.Y, m.Z+ZDelta ), m.Map );
		}

		public static void DoDamage( Mobile m, int min, int max, bool poison )
		{
			if ( m != null && !m.Deleted && m.Alive )
			{
				int damage = Utility.Random(min,max);
				AOS.Damage( m, damage,(poison) ? 0 : 100 , 0, 0,(poison) ? 100 : 0, 0 );
			}
		}

		public static Point3D RandomPointIn( Point3D point, int range )
		{
			return RandomPointIn( point.X-range, point.Y-range, range*2, range*2, point.Z );
		}
		public static Point3D RandomPointIn( Rectangle2D rect, int z )
		{
			return RandomPointIn( rect.X, rect.Y, rect.Height, rect.Width, z );
		}
		public static Point3D RandomPointIn( int x, int y, int x2, int y2, int z )
		{
			return new Point3D( Utility.Random( x, x2 ), Utility.Random( y, y2 ), z );
		}

		public static void PlaySounds( Point3D location, int[] sounds )
		{
			foreach( int soundid in sounds )
				Effects.PlaySound( location, Map.Malas, soundid );
		}

		public static void PlayEffect( IEntity from, IEntity to, int itemid, int speed, bool explodes )
		{
			Effects.SendMovingParticles( from, to, itemid, speed, 0, true, explodes, 2, 0, 0 );
		}

		public static void SendLocationEffect( IPoint3D p, int itemID, int speed, int duration, int hue )
		{
			Effects.SendPacket( p, Map.Malas, new LocationEffect( p, itemID, speed, duration, hue, 0 ) );
		}

		public static void PlayerSendASCII( Mobile player, int index )
		{
			player.Send( new AsciiMessage( Serial.MinusOne, 0xFFFF, MessageType.Label, MsgParams[index][0], MsgParams[index][1], null, Msgs[index] ));
		}

			/* I cant find any better way to send "speech" using fonts other than default */
		public static void POHMessage( Mobile from, int index )
		{
			Packet p = new AsciiMessage( from.Serial, from.Body, MessageType.Regular, MsgParams[index][0], MsgParams[index][1], from.Name, Msgs[index] );
			p.Acquire();
			foreach( NetState state in from.Map.GetClientsInRange( from.Location ) )
				state.Send( p );

			Packet.Release( p );
		}

		public static string[] Msgs =
		{
			"You are pinned down by the weight of the boulder!!!",	// 0
			"A speeding rock hits you in the head!",		// 1
			"OUCH!"							// 2
		};
			/* font&hue for above msgs. index matches */

		public static int[][] MsgParams =
		{
			new[]{ 0x66d, 3 },
			new[]{ 0x66d, 3 },
			new[]{ 0x34, 3 }
		};
			/* World data for items */

		public static int[][] TA =
		{

			new[]{316, 64, 5},					/* 3D Coords for levers */
			new[]{323, 58, 5},
			new[]{332, 63, 5},
			new[]{323, 71, 5},

			new[]{324, 64},					/* 2D Coords for standing regions */
			new[]{316, 65},
			new[]{324, 58},
			new[]{332, 64},
			new[]{323, 72},

			new[]{468, 92, -1}, new[]{0x181D, 0x482}, 	/* 3D coord, itemid+hue for L.R. teles */
			new[]{469, 92, -1}, new[]{0x1821, 0x3fd},
			new[]{470, 92, -1}, new[]{0x1825, 0x66d},

			new[]{319, 70, 18}, new[]{0x12d8}, 		/* 3D coord, itemid for statues */
			new[]{329, 60, 18}, new[]{0x12d9},

			new[]{469, 96, 6}					/* 3D Coords for Fake Box */
		};

			/* CLILOC data for statue "correct souls" messages */

		public static int[] Statue_Msg = { 1050009, 1050007, 1050008, 1050008 };

			/* Exit & Enter locations for the lamp room */

		public static Point3D lr_Exit = new Point3D( 353, 172, -1 );
		public static Point3D lr_Enter = new Point3D( 467, 96, -1 );

			/* "Center" location in puzzle */

		public static Point3D lp_Center = new Point3D( 324, 64, -1 );

			/* Lamp Room Area */

		public static Rectangle2D lr_Rect = new Rectangle2D( 465, 92, 10, 10 );

			/* Lamp Room area Poison message data */

		public static int[][] PA =
		{
			new[]{ 0, 0, 0xA6 },
			new[]{ 1050001, 0x485, 0xAA },
			new[]{ 1050003, 0x485, 0xAC },
			new[]{ 1050056, 0x485, 0xA8 },
			new[]{ 1050057, 0x485, 0xA4 },
			new[]{ 1062091, 0x23F3, 0xAC }
		};
		public static Poison[] PA2 =
		{
			Poison.Lesser,
			Poison.Regular,
			Poison.Greater,
			Poison.Deadly,
			Poison.Lethal,
			Poison.Lethal
		};

			/* SOUNDS */

		private static int[] fs={0x144, 0x154};
		private static int[] ms={0x144, 0x14B};
		private static int[] fs2={0x13F, 0x154};
		private static int[] ms2={0x13F, 0x14B};
		private static int[] cs1={0x244};
		private static int[] exp={0x307};

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

		public override void Serialize( GenericWriter writer )
		{
			base.Serialize( writer );
			writer.Write( (int) 0 ); // version
			writer.WriteItemList( m_Levers, true );
			writer.WriteItemList( m_Statues, true );
			writer.WriteItemList( m_Teles, true );
			writer.Write( m_Box );
		}

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

			int version = reader.ReadInt();

			m_Levers = reader.ReadStrongItemList();
			m_Statues = reader.ReadStrongItemList();
			m_Teles = reader.ReadStrongItemList();

			m_Box = reader.ReadItem() as LampRoomBox;

			m_Tiles = new List<LeverPuzzleRegion>();
			for (int i = 4; i<9; i++)
				m_Tiles.Add( new LeverPuzzleRegion( this, TA[i] ));

			m_LampRoom = new LampRoomRegion( this );
			m_Enabled = true;
			m_TheirKey = 0;
			m_MyKey = 0;
			GenKey();
		}
	}
}