abysmal-isle/Scripts/Items/Consumables/Moonstone.cs

using System;
using Server.Mobiles;
using Server.Network;
using Server.Spells;

namespace Server.Items
{
    public enum MoonstoneType
    {
        Felucca,
        Trammel
    }

    public class Moonstone : Item
    {
        private MoonstoneType m_Type;
        [Constructable]
        public Moonstone(MoonstoneType type)
            : base(0xF8B)
        {
            Weight = 1.0;
            m_Type = type;
        }

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

        [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;
            }
        }
        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 (SpellHelper.RestrictRedTravel && from.Murderer)
            {
                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;
        }

        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;
                    }
            }
        }

        private class SettleTimer : Timer
        {
            private readonly Item m_Stone;
            private readonly Point3D m_Location;
            private readonly Map m_Map;
            private readonly Map m_TargetMap;
            private readonly 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();
                    }
                }
            }
        }
    }
}