ModernUO/Projects/Scripts/Mobiles/Vendors/RentedVendor.cs

using System;
using System.Collections.Generic;
using Server.ContextMenus;
using Server.Gumps;
using Server.Misc;
using Server.Multis;

namespace Server.Mobiles
{
  public class VendorRentalDuration
  {
    public static readonly VendorRentalDuration[] Instances =
    {
      new VendorRentalDuration(TimeSpan.FromDays(7.0), 1062361), // 1 Week
      new VendorRentalDuration(TimeSpan.FromDays(14.0), 1062362), // 2 Weeks
      new VendorRentalDuration(TimeSpan.FromDays(21.0), 1062363), // 3 Weeks
      new VendorRentalDuration(TimeSpan.FromDays(28.0), 1062364) // 1 Month
    };

    private VendorRentalDuration(TimeSpan duration, int name)
    {
      Duration = duration;
      Name = name;
    }

    public TimeSpan Duration{ get; }

    public int Name{ get; }

    public int ID
    {
      get
      {
        for (int i = 0; i < Instances.Length; i++)
          if (Instances[i] == this)
            return i;

        return 0;
      }
    }
  }

  public class RentedVendor : PlayerVendor
  {
    private Timer m_RentalExpireTimer;

    public RentedVendor(Mobile owner, BaseHouse house, VendorRentalDuration duration, int rentalPrice,
      bool landlordRenew, int rentalGold) : base(owner, house)
    {
      RentalDuration = duration;
      RentalPrice = RenewalPrice = rentalPrice;
      LandlordRenew = landlordRenew;
      RenterRenew = false;

      RentalGold = rentalGold;

      RentalExpireTime = DateTime.UtcNow + duration.Duration;
      m_RentalExpireTimer = new RentalExpireTimer(this, duration.Duration);
      m_RentalExpireTimer.Start();
    }

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

    public VendorRentalDuration RentalDuration{ get; private set; }

    [CommandProperty(AccessLevel.GameMaster)]
    public int RentalPrice{ get; set; }

    [CommandProperty(AccessLevel.GameMaster)]
    public bool LandlordRenew{ get; set; }

    [CommandProperty(AccessLevel.GameMaster)]
    public bool RenterRenew{ get; set; }

    [CommandProperty(AccessLevel.GameMaster)]
    public bool Renew => LandlordRenew && RenterRenew && House != null && House.DecayType != DecayType.Condemned;

    [CommandProperty(AccessLevel.GameMaster)]
    public int RenewalPrice{ get; set; }

    [CommandProperty(AccessLevel.GameMaster)]
    public int RentalGold{ get; set; }

    [CommandProperty(AccessLevel.GameMaster)]
    public DateTime RentalExpireTime{ get; private set; }

    [CommandProperty(AccessLevel.GameMaster)]
    public Mobile Landlord => House?.Owner;

    public override bool IsOwner(Mobile m) => m == Owner || m.AccessLevel >= AccessLevel.GameMaster || Core.ML && AccountHandler.CheckAccount(m, Owner);

    public bool IsLandlord(Mobile m) => House?.IsOwner(m) == true;

    public void ComputeRentalExpireDelay(out int days, out int hours)
    {
      TimeSpan delay = RentalExpireTime - DateTime.UtcNow;

      if (delay <= TimeSpan.Zero)
      {
        days = 0;
        hours = 0;
      }
      else
      {
        days = delay.Days;
        hours = delay.Hours;
      }
    }

    public void SendRentalExpireMessage(Mobile to)
    {
      ComputeRentalExpireDelay(out int days, out int hours);

      to.SendLocalizedMessage(1062464,
        $"{days}\t{hours}"); // The rental contract on this vendor will expire in ~1_DAY~ day(s) and ~2_HOUR~ hour(s).
    }

    public override void OnAfterDelete()
    {
      base.OnAfterDelete();

      m_RentalExpireTimer.Stop();
    }

    public override void Destroy(bool toBackpack)
    {
      if (RentalGold > 0 && House?.IsAosRules == true)
      {
        House.MovingCrate ??= new MovingCrate(House);

        Banker.Deposit(House.MovingCrate, RentalGold);
        RentalGold = 0;
      }

      base.Destroy(toBackpack);
    }

    public override void GetContextMenuEntries(Mobile from, List<ContextMenuEntry> list)
    {
      if (from.Alive)
      {
        if (IsOwner(from))
        {
          list.Add(new ContractOptionsEntry(this));
        }
        else if (IsLandlord(from))
        {
          if (RentalGold > 0)
            list.Add(new CollectRentEntry(this));

          list.Add(new TerminateContractEntry(this));
          list.Add(new ContractOptionsEntry(this));
        }
      }

      base.GetContextMenuEntries(from, list);
    }

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

      writer.WriteEncodedInt(0); // version

      writer.WriteEncodedInt(RentalDuration.ID);

      writer.Write(RentalPrice);
      writer.Write(LandlordRenew);
      writer.Write(RenterRenew);
      writer.Write(RenewalPrice);

      writer.Write(RentalGold);

      writer.WriteDeltaTime(RentalExpireTime);
    }

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

      int version = reader.ReadEncodedInt();

      int durationID = reader.ReadEncodedInt();
      if (durationID < VendorRentalDuration.Instances.Length)
        RentalDuration = VendorRentalDuration.Instances[durationID];
      else
        RentalDuration = VendorRentalDuration.Instances[0];

      RentalPrice = reader.ReadInt();
      LandlordRenew = reader.ReadBool();
      RenterRenew = reader.ReadBool();
      RenewalPrice = reader.ReadInt();

      RentalGold = reader.ReadInt();

      RentalExpireTime = reader.ReadDeltaTime();

      TimeSpan delay = RentalExpireTime - DateTime.UtcNow;
      m_RentalExpireTimer = new RentalExpireTimer(this, delay > TimeSpan.Zero ? delay : TimeSpan.Zero);
      m_RentalExpireTimer.Start();
    }

    private class ContractOptionsEntry : ContextMenuEntry
    {
      private RentedVendor m_Vendor;

      public ContractOptionsEntry(RentedVendor vendor) : base(6209) => m_Vendor = vendor;

      public override void OnClick()
      {
        Mobile from = Owner.From;

        if (m_Vendor.Deleted || !from.CheckAlive())
          return;

        if (m_Vendor.IsOwner(from))
        {
          from.CloseGump<RenterVendorRentalGump>();
          from.SendGump(new RenterVendorRentalGump(m_Vendor));

          m_Vendor.SendRentalExpireMessage(from);
        }
        else if (m_Vendor.IsLandlord(from))
        {
          from.CloseGump<LandlordVendorRentalGump>();
          from.SendGump(new LandlordVendorRentalGump(m_Vendor));

          m_Vendor.SendRentalExpireMessage(from);
        }
      }
    }

    private class CollectRentEntry : ContextMenuEntry
    {
      private RentedVendor m_Vendor;

      public CollectRentEntry(RentedVendor vendor) : base(6212) => m_Vendor = vendor;

      public override void OnClick()
      {
        Mobile from = Owner.From;

        if (m_Vendor.Deleted || !from.CheckAlive() || !m_Vendor.IsLandlord(from))
          return;

        if (m_Vendor.RentalGold > 0)
        {
          int depositedGold = Banker.DepositUpTo(from, m_Vendor.RentalGold);
          m_Vendor.RentalGold -= depositedGold;

          if (depositedGold > 0)
            from.SendLocalizedMessage(1060397,
              depositedGold.ToString()); // ~1_AMOUNT~ gold has been deposited into your bank box.

          if (m_Vendor.RentalGold > 0)
            from.SendLocalizedMessage(500390); // Your bank box is full.
        }
      }
    }

    private class TerminateContractEntry : ContextMenuEntry
    {
      private RentedVendor m_Vendor;

      public TerminateContractEntry(RentedVendor vendor) : base(6218) => m_Vendor = vendor;

      public override void OnClick()
      {
        Mobile from = Owner.From;

        if (m_Vendor.Deleted || !from.CheckAlive() || !m_Vendor.IsLandlord(from))
          return;

        from.SendLocalizedMessage(
          1062503); // Enter the amount of gold you wish to offer the renter in exchange for immediate termination of this contract?
        from.Prompt = new RefundOfferPrompt(m_Vendor);
      }
    }

    private class RefundOfferPrompt : Prompt
    {
      private RentedVendor m_Vendor;

      public RefundOfferPrompt(RentedVendor vendor) => m_Vendor = vendor;

      public override void OnResponse(Mobile from, string text)
      {
        if (!m_Vendor.CanInteractWith(from, false) || !m_Vendor.IsLandlord(from))
          return;

        text = text.Trim();

        if (!int.TryParse(text, out int amount))
          amount = -1;

        Mobile owner = m_Vendor.Owner;
        if (owner == null)
          return;

        if (amount < 0)
        {
          from.SendLocalizedMessage(1062506); // You did not enter a valid amount.  Offer canceled.
        }
        else if (Banker.GetBalance(from) < amount)
        {
          from.SendLocalizedMessage(1062507); // You do not have that much money in your bank account.
        }
        else if (owner.Map != m_Vendor.Map || !owner.InRange(m_Vendor, 5))
        {
          from.SendLocalizedMessage(
            1062505); // The renter must be closer to the vendor in order for you to make this offer.
        }
        else
        {
          from.SendLocalizedMessage(1062504); // Please wait while the renter considers your offer.

          owner.CloseGump<VendorRentalRefundGump>();
          owner.SendGump(new VendorRentalRefundGump(m_Vendor, from, amount));
        }
      }
    }

    private class RentalExpireTimer : Timer
    {
      private RentedVendor m_Vendor;

      public RentalExpireTimer(RentedVendor vendor, TimeSpan delay) : base(delay, vendor.RentalDuration.Duration)
      {
        m_Vendor = vendor;

        Priority = TimerPriority.OneMinute;
      }

      protected override void OnTick()
      {
        int renewalPrice = m_Vendor.RenewalPrice;

        if (m_Vendor.Renew && m_Vendor.HoldGold >= renewalPrice)
        {
          m_Vendor.HoldGold -= renewalPrice;
          m_Vendor.RentalGold += renewalPrice;

          m_Vendor.RentalPrice = renewalPrice;

          m_Vendor.RentalExpireTime = DateTime.UtcNow + m_Vendor.RentalDuration.Duration;
        }
        else
        {
          m_Vendor.Destroy(false);
        }
      }
    }
  }
}