#W# Source and Scripts added. Added Scripts/Settings.cs to expose some basic tweak able settings.

Scripts/Items/Misc/Moonstone.cs

@@ -0,0 +1,203 @@
+using System;
+using Server;
+using Server.Network;
+using Server.Mobiles;
+
+namespace Server.Items
+{
+	public enum MoonstoneType
+	{
+		Felucca, Trammel
+	}
+
+	public class Moonstone : Item
+	{
+		private MoonstoneType m_Type;
+
+		[CommandProperty( AccessLevel.GameMaster )]
+		public MoonstoneType Type
+		{
+			get
+			{
+				return m_Type;
+			}
+			set
+			{
+				m_Type = value;
+				InvalidateProperties();
+			}
+		}
+
+		public override int LabelNumber{ get{ return 1041490 + (int)m_Type; } }
+
+		[Constructable]
+		public Moonstone( MoonstoneType type ) : base( 0xF8B )
+		{
+			Weight = 1.0;
+			m_Type = type;
+		}
+
+		public Moonstone( Serial serial ) : base( serial )
+		{
+		}
+
+		public override void OnSingleClick( Mobile from )
+		{
+			if ( IsChildOf( from.Backpack ) )
+			{
+				Hue = Utility.RandomBirdHue();
+				ProcessDelta();
+				from.SendLocalizedMessage( 1005398 ); // The stone's substance shifts as you examine it.
+			}
+
+			base.OnSingleClick( from );
+		}
+
+		public override void OnDoubleClick( Mobile from )
+		{
+			if ( !IsChildOf( from.Backpack ) )
+			{
+				from.SendLocalizedMessage( 1042001 ); // That must be in your pack for you to use it.
+			}
+			else if ( from.Mounted )
+			{
+				from.SendLocalizedMessage( 1005399 ); // You can not bury a stone while you sit on a mount.
+			}
+			else if ( !from.Body.IsHuman )
+			{
+				from.SendLocalizedMessage( 1005400 ); // You can not bury a stone in this form.
+			}
+			else if ( Factions.Sigil.ExistsOn( from ) )
+			{
+				from.SendLocalizedMessage( 1061632 ); // You can't do that while carrying the sigil.
+			}
+			else if ( from.Map == GetTargetMap() || ( from.Map != Map.Trammel && from.Map != Map.Felucca ) )
+			{
+				from.SendLocalizedMessage( 1005401 ); // You cannot bury the stone here.
+			}
+			else if ( from is PlayerMobile && ((PlayerMobile)from).Young )
+			{
+				from.SendLocalizedMessage( 1049543 ); // You decide against traveling to Felucca while you are still young.
+			}
+			else if ( from.Kills >= 5 )
+			{
+				from.SendLocalizedMessage( 1005402 ); // The magic of the stone cannot be evoked by someone with blood on their hands.
+			}
+			else if ( from.Criminal )
+			{
+				from.SendLocalizedMessage( 1005403 ); // The magic of the stone cannot be evoked by the lawless.
+			}
+			else if ( !Region.Find( from.Location, from.Map ).IsDefault || !Region.Find( from.Location, GetTargetMap() ).IsDefault )
+			{
+				from.SendLocalizedMessage( 1005401 ); // You cannot bury the stone here.
+			}
+			else if ( !GetTargetMap().CanFit( from.Location, 16 ) )
+			{
+				from.SendLocalizedMessage( 1005408 ); // Something is blocking the facet gate exit.
+			}
+			else
+			{
+				Movable = false;
+				MoveToWorld( from.Location, from.Map );
+
+				from.Animate( 32, 5, 1, true, false, 0 );
+
+				new SettleTimer( this, from.Location, from.Map, GetTargetMap(), from ).Start();
+			}
+		}
+
+		public Map GetTargetMap()
+		{
+			return ( m_Type == MoonstoneType.Felucca ) ? Map.Felucca : Map.Trammel;
+		}
+
+		private class SettleTimer : Timer
+		{
+			private Item m_Stone;
+			private Point3D m_Location;
+			private Map m_Map, m_TargetMap;
+			private Mobile m_Caster;
+			private int m_Count;
+
+			public SettleTimer( Item stone, Point3D loc, Map map, Map targetMap, Mobile caster ) : base( TimeSpan.FromSeconds( 2.5 ), TimeSpan.FromSeconds( 1.0 ) )
+			{
+				m_Stone = stone;
+
+				m_Location = loc;
+				m_Map = map;
+				m_TargetMap = targetMap;
+
+				m_Caster = caster;
+			}
+
+			protected override void OnTick()
+			{
+				++m_Count;
+
+				if ( m_Count == 1 )
+				{
+					m_Stone.PublicOverheadMessage( MessageType.Regular, 0x3B2, 1005414 ); // The stone settles into the ground.
+				}
+				else if ( m_Count >= 10 )
+				{
+					m_Stone.Location = new Point3D( m_Stone.X, m_Stone.Y, m_Stone.Z - 1 );
+
+					if ( m_Count == 16 )
+					{
+						if ( !Region.Find( m_Location, m_Map ).IsDefault || !Region.Find( m_Location, m_TargetMap ).IsDefault )
+						{
+							m_Stone.Movable = true;
+							m_Caster.AddToBackpack( m_Stone );
+							Stop();
+							return;
+						}
+						else if ( !m_TargetMap.CanFit( m_Location, 16 ) )
+						{
+							m_Stone.Movable = true;
+							m_Caster.AddToBackpack( m_Stone );
+							Stop();
+							return;
+						}
+
+						int hue = m_Stone.Hue;
+
+						if ( hue == 0 )
+							hue = Utility.RandomBirdHue();
+
+						new MoonstoneGate( m_Location, m_TargetMap, m_Map, m_Caster, hue );
+						new MoonstoneGate( m_Location, m_Map, m_TargetMap, m_Caster, hue );
+
+						m_Stone.Delete();
+						Stop();
+					}
+				}
+			}
+		}
+
+		public override void Serialize( GenericWriter writer )
+		{
+			base.Serialize( writer );
+
+			writer.Write( (int) 0 ); // version
+
+			writer.Write( (int) m_Type );
+		}
+
+		public override void Deserialize( GenericReader reader )
+		{
+			base.Deserialize( reader );
+
+			int version = reader.ReadInt();
+
+			switch ( version )
+			{
+				case 0:
+				{
+					m_Type = (MoonstoneType)reader.ReadInt();
+
+					break;
+				}
+			}
+		}
+	}
+}