ModernUO/Projects/UOContent/Engines/Harvest/Core/HarvestSystem.cs

using System;
using System.Collections.Generic;
using System.Linq;
using Server.Items;
using Server.Targeting;
using Server.Utilities;

namespace Server.Engines.Harvest
{
  public abstract class HarvestSystem
  {
    public HarvestSystem() => Definitions = new List<HarvestDefinition>();

    public List<HarvestDefinition> Definitions { get; }

    public virtual bool CheckTool(Mobile from, Item tool)
    {
      bool wornOut = tool?.Deleted != false || (tool as IUsesRemaining)?.UsesRemaining <= 0;

      if (wornOut)
        from.SendLocalizedMessage(1044038); // You have worn out your tool!

      return !wornOut;
    }

    public virtual bool CheckHarvest(Mobile from, Item tool) => CheckTool(from, tool);

    public virtual bool CheckHarvest(Mobile from, Item tool, HarvestDefinition def, object toHarvest) => CheckTool(from, tool);

    public virtual bool CheckRange(Mobile from, Item tool, HarvestDefinition def, Map map, Point3D loc, bool timed)
    {
      bool inRange = from.Map == map && from.InRange(loc, def.MaxRange);

      if (!inRange)
        def.SendMessageTo(from, timed ? def.TimedOutOfRangeMessage : def.OutOfRangeMessage);

      return inRange;
    }

    public virtual bool CheckResources(Mobile from, Item tool, HarvestDefinition def, Map map, Point3D loc, bool timed)
    {
      HarvestBank bank = def.GetBank(map, loc.X, loc.Y);
      bool available = bank?.Current >= def.ConsumedPerHarvest;

      if (!available)
        def.SendMessageTo(from, timed ? def.DoubleHarvestMessage : def.NoResourcesMessage);

      return available;
    }

    public virtual void OnBadHarvestTarget(Mobile from, Item tool, object toHarvest)
    {
    }

    public virtual object GetLock(Mobile from, Item tool, HarvestDefinition def, object toHarvest) => tool;

    public virtual void OnConcurrentHarvest(Mobile from, Item tool, HarvestDefinition def, object toHarvest)
    {
    }

    public virtual void OnHarvestStarted(Mobile from, Item tool, HarvestDefinition def, object toHarvest)
    {
    }

    public virtual bool BeginHarvesting(Mobile from, Item tool)
    {
      if (!CheckHarvest(from, tool))
        return false;

      from.Target = new HarvestTarget(tool, this);
      return true;
    }

    public virtual void FinishHarvesting(Mobile from, Item tool, HarvestDefinition def, object toHarvest, object locked)
    {
      from.EndAction(locked);

      if (!CheckHarvest(from, tool))
        return;

      if (!GetHarvestDetails(from, tool, toHarvest, out int tileID, out Map map, out Point3D loc))
      {
        OnBadHarvestTarget(from, tool, toHarvest);
        return;
      }

      if (!def.Validate(tileID))
      {
        OnBadHarvestTarget(from, tool, toHarvest);
        return;
      }

      if (!CheckRange(from, tool, def, map, loc, true))
        return;
      if (!CheckResources(from, tool, def, map, loc, true))
        return;
      if (!CheckHarvest(from, tool, def, toHarvest))
        return;

      if (SpecialHarvest(from, tool, def, map, loc))
        return;

      HarvestBank bank = def.GetBank(map, loc.X, loc.Y);

      if (bank == null)
        return;

      HarvestVein vein = bank.Vein;

      if (vein != null)
        vein = MutateVein(from, tool, def, bank, toHarvest, vein);

      if (vein == null)
        return;

      HarvestResource primary = vein.PrimaryResource;
      HarvestResource fallback = vein.FallbackResource;
      HarvestResource resource = MutateResource(from, tool, def, map, loc, vein, primary, fallback);

      double skillBase = from.Skills[def.Skill].Base;
      // double skillValue = from.Skills[def.Skill].Value;

      Type type = null;

      if (skillBase >= resource.ReqSkill && from.CheckSkill(def.Skill, resource.MinSkill, resource.MaxSkill))
      {
        type = GetResourceType(from, tool, def, map, loc, resource);

        if (type != null)
          type = MutateType(type, from, tool, def, map, loc, resource);

        if (type != null)
        {
          Item item = Construct(type, from);

          if (item == null)
          {
            type = null;
          }
          else
          {
            // The whole harvest system is kludgy and I'm sure this is just adding to it.
            if (item.Stackable)
            {
              int amount = def.ConsumedPerHarvest;
              int feluccaAmount = def.ConsumedPerFeluccaHarvest;

              int racialAmount = (int)Math.Ceiling(amount * 1.1);
              int feluccaRacialAmount = (int)Math.Ceiling(feluccaAmount * 1.1);

              bool eligableForRacialBonus = def.RaceBonus && from.Race == Race.Human;
              bool inFelucca = map == Map.Felucca;

              if (eligableForRacialBonus && inFelucca && bank.Current >= feluccaRacialAmount &&
                  Utility.RandomDouble() < 0.1)
                item.Amount = feluccaRacialAmount;
              else if (inFelucca && bank.Current >= feluccaAmount)
                item.Amount = feluccaAmount;
              else if (eligableForRacialBonus && bank.Current >= racialAmount && Utility.RandomDouble() < 0.1)
                item.Amount = racialAmount;
              else
                item.Amount = amount;
            }

            bank.Consume(item.Amount, from);

            if (Give(from, item, def.PlaceAtFeetIfFull))
            {
              SendSuccessTo(from, item, resource);
            }
            else
            {
              SendPackFullTo(from, item, def, resource);
              item.Delete();
            }

            BonusHarvestResource bonus = def.GetBonusResource();

            if (bonus?.Type != null && skillBase >= bonus.ReqSkill)
            {
              Item bonusItem = Construct(bonus.Type, from);

              if (Give(from, bonusItem, true)) // Bonuses always allow placing at feet, even if pack is full irregrdless of def
                bonus.SendSuccessTo(from);
              else
                item.Delete();
            }

            if (tool is IUsesRemaining toolWithUses)
            {
              toolWithUses.ShowUsesRemaining = true;

              if (toolWithUses.UsesRemaining > 0)
                --toolWithUses.UsesRemaining;

              if (toolWithUses.UsesRemaining < 1)
              {
                tool.Delete();
                def.SendMessageTo(from, def.ToolBrokeMessage);
              }
            }
          }
        }
      }

      if (type == null)
        def.SendMessageTo(from, def.FailMessage);

      OnHarvestFinished(from, tool, def, vein, bank, resource, toHarvest);
    }

    public virtual void OnHarvestFinished(Mobile from, Item tool, HarvestDefinition def, HarvestVein vein,
      HarvestBank bank, HarvestResource resource, object harvested)
    {
    }

    public virtual bool SpecialHarvest(Mobile from, Item tool, HarvestDefinition def, Map map, Point3D loc) => false;

    public virtual Item Construct(Type type, Mobile from)
    {
      try
      {
        return ActivatorUtil.CreateInstance(type) as Item;
      }
      catch
      {
        return null;
      }
    }

    public virtual HarvestVein MutateVein(Mobile from, Item tool, HarvestDefinition def, HarvestBank bank,
      object toHarvest, HarvestVein vein) =>
      vein;

    public virtual void SendSuccessTo(Mobile from, Item item, HarvestResource resource)
    {
      resource.SendSuccessTo(from);
    }

    public virtual void SendPackFullTo(Mobile from, Item item, HarvestDefinition def, HarvestResource resource)
    {
      def.SendMessageTo(from, def.PackFullMessage);
    }

    public virtual bool Give(Mobile m, Item item, bool placeAtFeet)
    {
      if (m.PlaceInBackpack(item))
        return true;

      if (!placeAtFeet)
        return false;

      Map map = m.Map;

      if (map == null)
        return false;

      if (m.GetItemsInRange(0).Any(t => t.StackWith(m, item, false)))
        return true;

      item.MoveToWorld(m.Location, map);
      return true;
    }

    public virtual Type MutateType(Type type, Mobile from, Item tool, HarvestDefinition def, Map map, Point3D loc,
      HarvestResource resource) =>
      from.Region.GetResource(type);

    public virtual Type GetResourceType(Mobile from, Item tool, HarvestDefinition def, Map map, Point3D loc,
      HarvestResource resource) => resource.Types.RandomElement();

    public virtual HarvestResource MutateResource(Mobile from, Item tool, HarvestDefinition def, Map map, Point3D loc,
      HarvestVein vein, HarvestResource primary, HarvestResource fallback)
    {
      bool racialBonus = def.RaceBonus && from.Race == Race.Elf;

      if (vein.ChanceToFallback > Utility.RandomDouble() + (racialBonus ? .20 : 0))
        return fallback;

      double skillValue = from.Skills[def.Skill].Value;

      if (fallback != null && (skillValue < primary.ReqSkill || skillValue < primary.MinSkill))
        return fallback;

      return primary;
    }

    public virtual bool OnHarvesting(Mobile from, Item tool, HarvestDefinition def, object toHarvest, object locked,
      bool last)
    {
      if (!CheckHarvest(from, tool))
      {
        from.EndAction(locked);
        return false;
      }

      if (!GetHarvestDetails(from, tool, toHarvest, out int tileID, out Map map, out Point3D loc))
      {
        from.EndAction(locked);
        OnBadHarvestTarget(from, tool, toHarvest);
        return false;
      }

      if (!def.Validate(tileID))
      {
        from.EndAction(locked);
        OnBadHarvestTarget(from, tool, toHarvest);
        return false;
      }

      if (!CheckRange(from, tool, def, map, loc, true))
      {
        from.EndAction(locked);
        return false;
      }

      if (!CheckResources(from, tool, def, map, loc, true))
      {
        from.EndAction(locked);
        return false;
      }

      if (!CheckHarvest(from, tool, def, toHarvest))
      {
        from.EndAction(locked);
        return false;
      }

      DoHarvestingEffect(from, tool, def, map, loc);

      new HarvestSoundTimer(from, tool, this, def, toHarvest, locked, last).Start();

      return !last;
    }

    public virtual void DoHarvestingSound(Mobile from, Item tool, HarvestDefinition def, object toHarvest)
    {
      from.PlaySound(def.EffectSounds.RandomElement(-1));
    }

    public virtual void DoHarvestingEffect(Mobile from, Item tool, HarvestDefinition def, Map map, Point3D loc)
    {
      from.Direction = from.GetDirectionTo(loc);

      if (!from.Mounted)
        from.Animate(def.EffectActions.RandomElement(), 5, 1, true, false, 0);
    }

    public virtual HarvestDefinition GetDefinition() => Definitions.First();

    public virtual HarvestDefinition GetDefinition(int tileID) =>
      Definitions.FirstOrDefault(check => check.Validate(tileID));

    public virtual void StartHarvesting(Mobile from, Item tool, object toHarvest)
    {
      if (!CheckHarvest(from, tool))
        return;

      if (!GetHarvestDetails(from, tool, toHarvest, out int tileID, out Map map, out Point3D loc))
      {
        OnBadHarvestTarget(from, tool, toHarvest);
        return;
      }

      HarvestDefinition def = GetDefinition(tileID);

      if (def == null)
      {
        OnBadHarvestTarget(from, tool, toHarvest);
        return;
      }

      if (!CheckRange(from, tool, def, map, loc, false))
        return;
      if (!CheckResources(from, tool, def, map, loc, false))
        return;
      if (!CheckHarvest(from, tool, def, toHarvest))
        return;

      object toLock = GetLock(from, tool, def, toHarvest);

      if (!from.BeginAction(toLock))
      {
        OnConcurrentHarvest(from, tool, def, toHarvest);
        return;
      }

      new HarvestTimer(from, tool, this, def, toHarvest, toLock).Start();
      OnHarvestStarted(from, tool, def, toHarvest);
    }

    public virtual bool GetHarvestDetails(Mobile from, Item tool, object toHarvest, out int tileID, out Map map,
      out Point3D loc)
    {
      if (toHarvest is Static staticObj && !staticObj.Movable)
      {
        tileID = staticObj.ItemID & 0x3FFF | 0x4000;
        map = staticObj.Map;
        loc = staticObj.GetWorldLocation();
      }
      else if (toHarvest is StaticTarget staticTarget)
      {
        tileID = staticTarget.ItemID & 0x3FFF | 0x4000;
        map = from.Map;
        loc = staticTarget.Location;
      }
      else if (toHarvest is LandTarget landTarget)
      {
        tileID = landTarget.TileID;
        map = from.Map;
        loc = landTarget.Location;
      }
      else
      {
        tileID = 0;
        map = null;
        loc = Point3D.Zero;
        return false;
      }

      return map != null && map != Map.Internal;
    }
  }
}