ModernUO/Projects/Scripts/Items/Maps/TreasureMap.cs

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using Server.ContextMenus;
using Server.Engines.Harvest;
using Server.Mobiles;
using Server.Network;
using Server.Targeting;

namespace Server.Items
{
  public class TreasureMap : MapItem
  {
    public const double LootChance = 0.01; // 1% chance to appear as loot

    private static Point2D[] m_Locations;
    private static Point2D[] m_HavenLocations;

    private static readonly Type[][] m_SpawnTypes =
    {
      new[] { typeof(HeadlessOne), typeof(Skeleton) },
      new[] { typeof(Mongbat), typeof(Ratman), typeof(HeadlessOne), typeof(Skeleton), typeof(Zombie) },
      new[] { typeof(OrcishMage), typeof(Gargoyle), typeof(Gazer), typeof(HellHound), typeof(EarthElemental) },
      new[] { typeof(Lich), typeof(OgreLord), typeof(DreadSpider), typeof(AirElemental), typeof(FireElemental) },
      new[] { typeof(DreadSpider), typeof(LichLord), typeof(Daemon), typeof(ElderGazer), typeof(OgreLord) },
      new[] { typeof(LichLord), typeof(Daemon), typeof(ElderGazer), typeof(PoisonElemental), typeof(BloodElemental) },
      new[] { typeof(AncientWyrm), typeof(Balron), typeof(BloodElemental), typeof(PoisonElemental), typeof(Titan) }
    };

    private bool m_Completed;
    private Mobile m_CompletedBy;
    private Mobile m_Decoder;
    private int m_Level;

    [Constructible]
    public TreasureMap(int level, Map facet = null) : base(facet)
    {
      m_Level = level;

      ChestLocation = level == 0 ? GetRandomHavenLocation() : GetRandomLocation();

      Width = 300;
      Height = 300;

      int width = 600;
      int height = 600;

      int x1 = ChestLocation.X - Utility.RandomMinMax(width / 4, width / 4 * 3);
      int y1 = ChestLocation.Y - Utility.RandomMinMax(height / 4, height / 4 * 3);

      if (x1 < 0)
        x1 = 0;

      if (y1 < 0)
        y1 = 0;

      int x2 = x1 + width;
      int y2 = y1 + height;

      if (x2 >= 5120)
        x2 = 5119;

      if (y2 >= 4096)
        y2 = 4095;

      x1 = x2 - width;
      y1 = y2 - height;

      Bounds = new Rectangle2D(x1, y1, width, height);
      Protected = true;

      AddWorldPin(ChestLocation.X, ChestLocation.Y);
    }

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

    [CommandProperty(AccessLevel.GameMaster)]
    public int Level
    {
      get => m_Level;
      set
      {
        m_Level = value;
        InvalidateProperties();
      }
    }

    [CommandProperty(AccessLevel.GameMaster)]
    public bool Completed
    {
      get => m_Completed;
      set
      {
        m_Completed = value;
        InvalidateProperties();
      }
    }

    [CommandProperty(AccessLevel.GameMaster)]
    public Mobile CompletedBy
    {
      get => m_CompletedBy;
      set
      {
        m_CompletedBy = value;
        InvalidateProperties();
      }
    }

    [CommandProperty(AccessLevel.GameMaster)]
    public Mobile Decoder
    {
      get => m_Decoder;
      set
      {
        m_Decoder = value;
        InvalidateProperties();
      }
    }

    [CommandProperty(AccessLevel.GameMaster)]
    public override Map Facet
    {
      get => base.Facet;
      set
      {
        base.Facet = value;
        InvalidateProperties();
      }
    }

    [CommandProperty(AccessLevel.GameMaster)]
    public Point2D ChestLocation{ get; set; }

    public override int LabelNumber
    {
      get
      {
        if (m_Decoder != null)
          return m_Level == 6 ? 1063453 : 1041516 + m_Level;

        return m_Level == 6 ? 1063452 : 1041510 + m_Level;
      }
    }

    public static Point2D GetRandomLocation()
    {
      if (m_Locations == null)
        LoadLocations();

      // ReSharper disable once PossibleNullReferenceException
      return m_Locations.Length > 0 ? m_Locations[Utility.Random(m_Locations.Length)] : Point2D.Zero;
    }

    public static Point2D GetRandomHavenLocation()
    {
      if (m_HavenLocations == null)
        LoadLocations();

      // ReSharper disable once PossibleNullReferenceException
      return m_HavenLocations.Length > 0 ? m_HavenLocations[Utility.Random(m_HavenLocations.Length)] : Point2D.Zero;
    }

    private static void LoadLocations()
    {
      string filePath = Path.Combine(Core.BaseDirectory, "Data/treasure.cfg");

      List<Point2D> list = new List<Point2D>();
      List<Point2D> havenList = new List<Point2D>();

      if (File.Exists(filePath))
      {
        using StreamReader ip = new StreamReader(filePath);
        string line;

        while ((line = ip.ReadLine()) != null)
          try
          {
            string[] split = line.Split(' ');

            int x = Convert.ToInt32(split[0]), y = Convert.ToInt32(split[1]);

            Point2D loc = new Point2D(x, y);
            list.Add(loc);

            if (IsInHavenIsland(loc))
              havenList.Add(loc);
          }
          catch
          {
            // ignored
          }
      }

      m_Locations = list.ToArray();
      m_HavenLocations = havenList.ToArray();
    }

    public static bool IsInHavenIsland(IPoint2D loc) => loc.X >= 3314 && loc.X <= 3814 && loc.Y >= 2345 && loc.Y <= 3095;

    public static BaseCreature Spawn(int level, Point3D p, bool guardian)
    {
      if (level >= 0 && level < m_SpawnTypes.Length)
      {
        BaseCreature bc;

        try
        {
          bc = (BaseCreature)Activator.CreateInstance(
            m_SpawnTypes[level][Utility.Random(m_SpawnTypes[level].Length)]);
        }
        catch
        {
          return null;
        }

        bc.Home = p;
        bc.RangeHome = 5;

        if (guardian && level == 0)
        {
          bc.Name = "a chest guardian";
          bc.Hue = 0x835;
        }

        return bc;
      }

      return null;
    }

    public static BaseCreature Spawn(int level, Point3D p, Map map, Mobile target, bool guardian)
    {
      if (map == null)
        return null;

      BaseCreature c = Spawn(level, p, guardian);

      if (c != null)
      {
        bool spawned = false;

        for (int i = 0; !spawned && i < 10; ++i)
        {
          int x = p.X - 3 + Utility.Random(7);
          int y = p.Y - 3 + Utility.Random(7);

          if (map.CanSpawnMobile(x, y, p.Z))
          {
            c.MoveToWorld(new Point3D(x, y, p.Z), map);
            spawned = true;
          }
          else
          {
            int z = map.GetAverageZ(x, y);

            if (map.CanSpawnMobile(x, y, z))
            {
              c.MoveToWorld(new Point3D(x, y, z), map);
              spawned = true;
            }
          }
        }

        if (!spawned)
        {
          c.Delete();
          return null;
        }

        if (target != null)
          c.Combatant = target;

        return c;
      }

      return null;
    }

    public static bool HasDiggingTool(Mobile m)
    {
      return m.Backpack?.FindItemsByType<BaseHarvestTool>().Any(tool => tool.HarvestSystem == Mining.System) == true;
    }

    public void OnBeginDig(Mobile from)
    {
      if (m_Completed)
      {
        from.SendLocalizedMessage(503028); // The treasure for this map has already been found.
      }
      else if (m_Level == 0 && !CheckYoung(from))
      {
        from.SendLocalizedMessage(1046447); // Only a young player may use this treasure map.
      }
      /*
      else if ( from != m_Decoder )
      {
        from.SendLocalizedMessage( 503016 ); // Only the person who decoded this map may actually dig up the treasure.
      }
      */
      else if (m_Decoder != from && !HasRequiredSkill(from))
      {
        from.SendLocalizedMessage(
          503031); // You did not decode this map and have no clue where to look for the treasure.
      }
      else if (!from.CanBeginAction<TreasureMap>())
      {
        from.SendLocalizedMessage(503020); // You are already digging treasure.
      }
      else if (from.Map != Facet)
      {
        from.SendLocalizedMessage(1010479); // You seem to be in the right place, but may be on the wrong facet!
      }
      else
      {
        from.SendLocalizedMessage(503033); // Where do you wish to dig?
        from.Target = new DigTarget(this);
      }
    }

    public override void OnDoubleClick(Mobile from)
    {
      if (!from.InRange(GetWorldLocation(), 2))
      {
        from.LocalOverheadMessage(MessageType.Regular, 0x3B2, 1019045); // I can't reach that.
        return;
      }

      if (!m_Completed && m_Decoder == null)
        Decode(from);
      else
        DisplayTo(from);
    }

    private bool CheckYoung(Mobile from)
    {
      if (from.AccessLevel >= AccessLevel.GameMaster)
        return true;

      if (from is PlayerMobile mobile && mobile.Young)
        return true;

      if (from == Decoder)
      {
        Level = 1;
        from.SendLocalizedMessage(1046446); // This is now a level one treasure map.
        return true;
      }

      return false;
    }

    private double GetMinSkillLevel()
    {
      return m_Level switch
      {
        1 => -3.0,
        2 => 41.0,
        3 => 51.0,
        4 => 61.0,
        5 => 70.0,
        6 => 70.0,
        _ => 0.0
      };
    }

    private bool HasRequiredSkill(Mobile from) => from.Skills.Cartography.Value >= GetMinSkillLevel();

    public void Decode(Mobile from)
    {
      if (m_Completed || m_Decoder != null)
        return;

      if (m_Level == 0)
      {
        if (!CheckYoung(from))
        {
          from.SendLocalizedMessage(1046447); // Only a young player may use this treasure map.
          return;
        }
      }
      else
      {
        double minSkill = GetMinSkillLevel();

        if (from.Skills.Cartography.Value < minSkill)
          from.SendLocalizedMessage(503013); // The map is too difficult to attempt to decode.

        double maxSkill = minSkill + 60.0;

        if (!from.CheckSkill(SkillName.Cartography, minSkill, maxSkill))
        {
          from.LocalOverheadMessage(MessageType.Regular, 0x3B2, 503018); // You fail to make anything of the map.
          return;
        }
      }

      from.LocalOverheadMessage(MessageType.Regular, 0x3B2, 503019); // You successfully decode a treasure map!
      Decoder = from;

      if (Core.AOS)
        LootType = LootType.Blessed;

      DisplayTo(from);
    }

    public override void DisplayTo(Mobile from)
    {
      if (m_Completed)
      {
        SendLocalizedMessageTo(from, 503014); // This treasure hunt has already been completed.
      }
      else if (m_Level == 0 && !CheckYoung(from))
      {
        from.SendLocalizedMessage(1046447); // Only a young player may use this treasure map.
        return;
      }
      else if (m_Decoder != from && !HasRequiredSkill(from))
      {
        from.SendLocalizedMessage(
          503031); // You did not decode this map and have no clue where to look for the treasure.
        return;
      }
      else
      {
        SendLocalizedMessageTo(from,
          503017); // The treasure is marked by the red pin. Grab a shovel and go dig it up!
      }

      from.PlaySound(0x249);
      base.DisplayTo(from);
    }

    public override void GetContextMenuEntries(Mobile from, List<ContextMenuEntry> list)
    {
      base.GetContextMenuEntries(from, list);

      if (!m_Completed)
      {
        if (m_Decoder == null)
        {
          list.Add(new DecodeMapEntry(this));
        }
        else
        {
          bool digTool = HasDiggingTool(from);

          list.Add(new OpenMapEntry(this));
          list.Add(new DigEntry(this, digTool));
        }
      }
    }

    public override void GetProperties(ObjectPropertyList list)
    {
      base.GetProperties(list);

      list.Add(Facet == Map.Felucca ? 1041502 : 1041503); // for somewhere in Felucca : for somewhere in Trammel

      if (m_Completed)
        list.Add(1041507, m_CompletedBy == null ? "someone" : m_CompletedBy.Name); // completed by ~1_val~
    }

    public override void OnSingleClick(Mobile from)
    {
      if (m_Completed)
      {
        Packets.SendMessageLocalizedAffix(from.NetState, Serial, ItemID, MessageType.Label, 0x3B2, 3, 1048030, "",
          AffixType.Append, $" completed by {m_CompletedBy?.Name ?? "someone"}");
      }
      else if (m_Decoder != null)
      {
        if (m_Level == 6)
          LabelTo(from, 1063453);
        else
          LabelTo(from, 1041516 + m_Level);
      }
      else
      {
        LabelTo(from, 1041522,
          m_Level == 6
            ? $"#{1063452}\t \t#{(Facet == Map.Felucca ? 1041502 : 1041503)}"
            : $"#{1041510 + m_Level}\t \t#{(Facet == Map.Felucca ? 1041502 : 1041503)}");
      }
    }

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

      writer.Write(2);

      writer.Write(m_CompletedBy);

      writer.Write(m_Level);
      writer.Write(m_Completed);
      writer.Write(m_Decoder);
      writer.Write(ChestLocation);
    }

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

      int version = reader.ReadInt();

      switch (version)
      {
        case 1:
        {
          m_CompletedBy = reader.ReadMobile();

          goto case 0;
        }
        case 0:
        {
          m_Level = reader.ReadInt();
          m_Completed = reader.ReadBool();
          m_Decoder = reader.ReadMobile();
          if (version < 2)
            Facet = reader.ReadMap();
          ChestLocation = reader.ReadPoint2D();

          if (version == 0 && m_Completed)
            m_CompletedBy = m_Decoder;

          break;
        }
      }

      if (Core.AOS && m_Decoder != null && LootType == LootType.Regular)
        LootType = LootType.Blessed;
    }

    private class DigTarget : Target
    {
      private TreasureMap m_Map;

      public DigTarget(TreasureMap map) : base(6, true, TargetFlags.None) => m_Map = map;

      protected override void OnTarget(Mobile from, object targeted)
      {
        if (m_Map.Deleted)
          return;

        Map facet = m_Map.Facet;

        if (m_Map.m_Completed)
          from.SendLocalizedMessage(503028); // The treasure for this map has already been found.
        /*
        else if ( from != m_Map.m_Decoder )
        {
          from.SendLocalizedMessage( 503016 ); // Only the person who decoded this map may actually dig up the treasure.
        }
        */
        else if (m_Map.m_Decoder != from && !m_Map.HasRequiredSkill(from))
          from.SendLocalizedMessage(
            503031); // You did not decode this map and have no clue where to look for the treasure.
        else if (!from.CanBeginAction<TreasureMap>())
          from.SendLocalizedMessage(503020); // You are already digging treasure.
        else if (!HasDiggingTool(from))
          from.SendLocalizedMessage(1114416); // You must have a digging tool to dig for treasure.
        else if (from.Map != facet)
          from.SendLocalizedMessage(1010479); // You seem to be in the right place, but may be on the wrong facet!
        else
        {
          IPoint3D p = targeted as IPoint3D;

          Point3D targ3D = (p as Item)?.GetWorldLocation() ?? new Point3D(p);

          int maxRange;
          double skillValue = from.Skills.Mining.Value;

          if (skillValue >= 100.0)
            maxRange = 4;
          else if (skillValue >= 81.0)
            maxRange = 3;
          else if (skillValue >= 51.0)
            maxRange = 2;
          else
            maxRange = 1;

          Point2D loc = m_Map.ChestLocation;
          int x = loc.X, y = loc.Y;

          Point3D chest3D0 = new Point3D(loc, 0);

          if (Utility.InRange(targ3D, chest3D0, maxRange))
          {
            if (from.Location.X == x && from.Location.Y == y)
              from.SendLocalizedMessage(
                503030); // The chest can't be dug up because you are standing on top of it.
            else if (facet != null)
            {
              int z = facet.GetAverageZ(x, y);

              if (!facet.CanFit(x, y, z, 16, true))
                from.SendLocalizedMessage(
                  503021); // You have found the treasure chest but something is keeping it from being dug up.
              else if (from.BeginAction<TreasureMap>())
                new DigTimer(from, m_Map, new Point3D(x, y, z), facet).Start();
              else
                from.SendLocalizedMessage(503020); // You are already digging treasure.
            }
          }
          else if (m_Map.Level > 0)
          {
            if (Utility.InRange(targ3D, chest3D0, 8)) // We're close, but not quite
              from.SendLocalizedMessage(503032); // You dig and dig but no treasure seems to be here.
            else
              from.SendLocalizedMessage(503035); // You dig and dig but fail to find any treasure.
          }
          else
          {
            if (Utility.InRange(targ3D, chest3D0, 8)) // We're close, but not quite
              from.SendLocalizedMessage(1080030, "", 0x44); // The treasure chest is very close!
            else
            {
              Direction dir = Utility.GetDirection(targ3D, chest3D0);

              var sDir = dir switch
              {
                Direction.North => "north",
                Direction.Right => "northeast",
                Direction.East => "east",
                Direction.Down => "southeast",
                Direction.South => "south",
                Direction.Left => "southwest",
                Direction.West => "west",
                _ => "northwest"
              };

              from.SendAsciiMessage(0x44, "Try looking for the treasure chest more to the {0}.", sDir);
            }
          }
        }
      }
    }

    private class DigTimer : Timer
    {
      private TreasureMapChest m_Chest;

      private int m_Count;

      private TreasureChestDirt m_Dirt1;
      private TreasureChestDirt m_Dirt2;
      private Mobile m_From;
      private long m_LastMoveTime;

      private Point3D m_Location;
      private Map m_Map;
      private long m_NextActionTime;

      private long m_NextSkillTime;
      private long m_NextSpellTime;
      private TreasureMap m_TreasureMap;

      public DigTimer(Mobile from, TreasureMap treasureMap, Point3D location, Map map) : base(TimeSpan.Zero,
        TimeSpan.FromSeconds(1.0))
      {
        m_From = from;
        m_TreasureMap = treasureMap;

        m_Location = location;
        m_Map = map;

        m_NextSkillTime = from.NextSkillTime;
        m_NextSpellTime = from.NextSpellTime;
        m_NextActionTime = from.NextActionTime;
        m_LastMoveTime = from.LastMoveTime;

        Priority = TimerPriority.TenMS;
      }

      private void Terminate()
      {
        Stop();
        m_From.EndAction<TreasureMap>();

        m_Chest?.Delete();

        if (m_Dirt1 != null)
        {
          m_Dirt1.Delete();
          m_Dirt2.Delete();
        }
      }

      protected override void OnTick()
      {
        if (m_NextSkillTime != m_From.NextSkillTime || m_NextSpellTime != m_From.NextSpellTime ||
            m_NextActionTime != m_From.NextActionTime)
        {
          Terminate();
          return;
        }

        if (m_LastMoveTime != m_From.LastMoveTime)
        {
          m_From.SendLocalizedMessage(
            503023); // You cannot move around while digging up treasure. You will need to start digging anew.
          Terminate();
          return;
        }

        int z = m_Chest != null ? m_Chest.Z + m_Chest.ItemData.Height : int.MinValue;
        int height = 16;

        if (z > m_Location.Z)
          height -= z - m_Location.Z;
        else
          z = m_Location.Z;

        if (!m_Map.CanFit(m_Location.X, m_Location.Y, z, height, true, true, false))
        {
          m_From.SendLocalizedMessage(
            503024); // You stop digging because something is directly on top of the treasure chest.
          Terminate();
          return;
        }

        m_Count++;

        m_From.RevealingAction();
        m_From.Direction = m_From.GetDirectionTo(m_Location);

        if (m_Count > 1 && m_Dirt1 == null)
        {
          m_Dirt1 = new TreasureChestDirt();
          m_Dirt1.MoveToWorld(m_Location, m_Map);

          m_Dirt2 = new TreasureChestDirt();
          m_Dirt2.MoveToWorld(new Point3D(m_Location.X, m_Location.Y - 1, m_Location.Z), m_Map);
        }

        if (m_Count == 5)
        {
          m_Dirt1.Turn1();
        }
        else if (m_Count == 10)
        {
          m_Dirt1.Turn2();
          m_Dirt2.Turn2();
        }
        else if (m_Count > 10)
        {
          if (m_Chest == null)
          {
            m_Chest = new TreasureMapChest(m_From, m_TreasureMap.Level, true);
            m_Chest.MoveToWorld(new Point3D(m_Location.X, m_Location.Y, m_Location.Z - 15), m_Map);
          }
          else
          {
            m_Chest.Z++;
          }

          Effects.PlaySound(m_Chest, m_Map, 0x33B);
        }

        if (m_Chest?.Location.Z >= m_Location.Z)
        {
          Stop();
          m_From.EndAction<TreasureMap>();

          m_Chest.Temporary = false;
          m_TreasureMap.Completed = true;
          m_TreasureMap.CompletedBy = m_From;

          var spawns = m_TreasureMap.Level switch
          {
            0 => 3,
            1 => 0,
            _ => 4
          };

          for (int i = 0; i < spawns; ++i)
          {
            BaseCreature bc = Spawn(m_TreasureMap.Level, m_Chest.Location, m_Chest.Map, null, true);

            if (bc != null)
              m_Chest.Guardians.Add(bc);
          }
        }
        else
        {
          if (m_From.Body.IsHuman && !m_From.Mounted)
            m_From.Animate(11, 5, 1, true, false, 0);

          new SoundTimer(m_From, 0x125 + m_Count % 2).Start();
        }
      }

      private class SoundTimer : Timer
      {
        private Mobile m_From;
        private int m_SoundID;

        public SoundTimer(Mobile from, int soundID) : base(TimeSpan.FromSeconds(0.9))
        {
          m_From = from;
          m_SoundID = soundID;

          Priority = TimerPriority.TenMS;
        }

        protected override void OnTick()
        {
          m_From.PlaySound(m_SoundID);
        }
      }
    }

    private class DecodeMapEntry : ContextMenuEntry
    {
      private TreasureMap m_Map;

      public DecodeMapEntry(TreasureMap map) : base(6147, 2) => m_Map = map;

      public override void OnClick()
      {
        if (!m_Map.Deleted)
          m_Map.Decode(Owner.From);
      }
    }

    private class OpenMapEntry : ContextMenuEntry
    {
      private TreasureMap m_Map;

      public OpenMapEntry(TreasureMap map) : base(6150, 2) => m_Map = map;

      public override void OnClick()
      {
        if (!m_Map.Deleted)
          m_Map.DisplayTo(Owner.From);
      }
    }

    private class DigEntry : ContextMenuEntry
    {
      private TreasureMap m_Map;

      public DigEntry(TreasureMap map, bool enabled) : base(6148, 2)
      {
        m_Map = map;

        if (!enabled)
          Flags |= CMEFlags.Disabled;
      }

      public override void OnClick()
      {
        if (m_Map.Deleted)
          return;

        Mobile from = Owner.From;

        if (HasDiggingTool(from))
          m_Map.OnBeginDig(from);
        else
          from.SendMessage("You must have a digging tool to dig for treasure.");
      }
    }
  }

  public class TreasureChestDirt : Item
  {
    public TreasureChestDirt() : base(0x912)
    {
      Movable = false;

      Timer.DelayCall(TimeSpan.FromMinutes(2.0), Delete);
    }

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

    public void Turn1()
    {
      ItemID = 0x913;
    }

    public void Turn2()
    {
      ItemID = 0x914;
    }

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

      writer.WriteEncodedInt(0); // version
    }

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

      int version = reader.ReadEncodedInt();

      Delete();
    }
  }
}