using System;
using System.Collections.Generic;
using System.Linq;

namespace Decentralized.Domain
{
    public enum SaleState { Listed, Sold, Paid, Lost, Delisted }

    /// <summary>玩家在黑市上架的一件货。货交给平台（从储藏区拿走），成交后货款托管几天再到钱包，可能带污点。</summary>
    public sealed class BmSale
    {
        public string Item;
        public string Model, FakeOf;
        public double Health;
        /// <summary>标价倍率与标价（信用点）。</summary>
        public double Mult;
        /// <summary>参考价：改价时按它重算标价。</summary>
        public long Ref;
        public int ListPrice;
        /// <summary>上架时付费的钱包地址：回款进这里。</summary>
        public string Wallet;
        public int ListedDay, PayDay;
        public SaleState State = SaleState.Listed;
        /// <summary>成交后扣掉抽成的货款（信用点）与其中带的污点。</summary>
        public int Proceeds;
        public double Taint;
        /// <summary>终态原因：fake（买家看穿假卡退货）/ rug / delist。</summary>
        public string Why;
    }

    public sealed partial class BlackMarket
    {
        public List<BmSale> Sales = new List<BmSale>();
        /// <summary>玩家作为卖家的好评（%）：影响成交速度；卖假卡被看穿会下降，每笔成交回升一点。</summary>
        public int Rating = Tuning.BmRatingStart;

        /// <summary>期望成交天数：倍率 ≤0.9 一天，1.0 两天，1.8 十四天，之间插值（0.9–1.0 线性，1.0 以上指数）。</summary>
        public static double ExpectedDays(double m)
        {
            if (m <= 0.9) return Tuning.BmSellDaysFast;
            if (m < 1.0) return Tuning.BmSellDaysFast + (m - 0.9) / 0.1 * (Tuning.BmSellDays1 - Tuning.BmSellDaysFast);
            return Tuning.BmSellDays1 * Math.Pow(Tuning.BmSellDaysMax / Tuning.BmSellDays1, (m - 1.0) / (Tuning.BmSellMax - 1.0));
        }

        private static double T(double m) => Math.Max(0, Math.Min(1, (m - Tuning.BmSellMin) / (Tuning.BmSellMax - Tuning.BmSellMin)));
        /// <summary>货款带污点的概率与（带的时候）污点占货款的比例：都随标价倍率上升。</summary>
        public static double TaintChance(double m) => Tuning.BmSaleTaintChanceMin + T(m) * (Tuning.BmSaleTaintChanceMax - Tuning.BmSaleTaintChanceMin);
        public static double TaintRatio(double m) => Tuning.BmSaleTaintRatioMin + T(m) * (Tuning.BmSaleTaintRatioMax - Tuning.BmSaleTaintRatioMin);

        /// <summary>每晚成交的概率：1 / 期望天数，乘好评系数（好评 90 为 1，封顶 1.1），最多 1。</summary>
        public double SaleChance(double m) => Math.Min(1, 1 / ExpectedDays(m) * Math.Min(1.1, Rating / (double)Tuning.BmRatingStart));

        /// <summary>近 7 天成交额推高的污点加成：出售量越大，货款越容易带污点、比例越高。</summary>
        public double VolumeTaint(int day)
        {
            double v = Sales.Where(x => (x.State == SaleState.Sold || x.State == SaleState.Paid) && day - (x.PayDay - Tuning.BmSaleHold) <= 7).Sum(x => (double)x.Proceeds);
            return Math.Min(Tuning.BmVolumeTaintMax, v / Tuning.BmVolumeRef * Tuning.BmVolumeTaintMax);
        }

        public int ActiveListings => Sales.Count(x => x.State == SaleState.Listed);

        public static int ListPriceOf(long refValue, double m) => (int)Math.Max(1, Math.Round(refValue * m));
        public static int ListFee(int listPrice) => (int)Math.Ceiling(listPrice * Tuning.BmListFee);

        /// <summary>上架：交付一件货，收上架费（付给 feeAsset 币，污点与成本按比例带走）。倍率超出范围、平台关闭或余额不足返回 null。</summary>
        public BmSale List(string item, string model, string fakeOf, double health, long refValue, double m, Wallet w, string feeAsset, int day, Func<string, double> price)
        {
            if (m < Tuning.BmSellMin - 1e-9 || m > Tuning.BmSellMax + 1e-9 || refValue <= 0 || Closed(day) || feeAsset == Assets.CRC || ActiveListings >= Tuning.BmMaxListings) return null;
            int listPrice = ListPriceOf(refValue, m);
            double p = price(feeAsset);
            if (p <= 0) return null;
            double qty = ListFee(listPrice) / p;
            if (w.Avail(feeAsset) + 1e-9 < qty) return null;
            double total = w.Value(price);
            double share = total > 0 ? Math.Min(1, ListFee(listPrice) / total) : 0;
            w.Taint -= w.Taint * share; w.Basis -= w.Basis * share;
            w.Add(feeAsset, -qty);
            var s = new BmSale { Item = item, Model = model, FakeOf = fakeOf, Health = health, Ref = refValue, Mult = m, ListPrice = listPrice, ListedDay = day, Wallet = w.Address };
            Sales.Add(s);
            return s;
        }

        public static int RepriceFee(int newPrice) => (int)Math.Ceiling(newPrice * Tuning.BmRepriceFee);

        /// <summary>改价：上架中的货换一个倍率，按参考价重算标价，收改价费；不改变上架日。</summary>
        public bool Reprice(BmSale s, double m, Wallet w, string feeAsset, int day, Func<string, double> price)
        {
            if (s == null || s.State != SaleState.Listed || s.Ref <= 0 || Math.Abs(m - s.Mult) < 1e-9 || m < Tuning.BmSellMin - 1e-9 || m > Tuning.BmSellMax + 1e-9 || Closed(day) || feeAsset == Assets.CRC) return false;
            int listPrice = ListPriceOf(s.Ref, m);
            double p = price(feeAsset);
            if (p <= 0) return false;
            int fee = RepriceFee(listPrice);
            double qty = fee / p;
            if (w.Avail(feeAsset) + 1e-9 < qty) return false;
            double total = w.Value(price);
            double share = total > 0 ? Math.Min(1, fee / total) : 0;
            w.Taint -= w.Taint * share; w.Basis -= w.Basis * share;
            w.Add(feeAsset, -qty);
            s.Mult = m; s.ListPrice = listPrice;
            return true;
        }

        public void Delist(BmSale s) { s.State = SaleState.Delisted; s.Why = "delist"; }

        /// <summary>未到账的货款（信用点）：跑路时一并归零，也推高跑路概率。</summary>
        public double HeldSales => Sales.Where(x => x.State == SaleState.Sold).Sum(x => (double)x.Proceeds);

        /// <summary>每晚推进出售：上架的货按概率成交（假卡可能被看穿退货），成交的货款托管到期后进钱包。镇压期间平台下线，不推进。</summary>
        private void SalesNight(int day, bool crackdown, Func<string, Wallet> wallet, Func<string, double> price, Rng rng, List<BmEvent> ev)
        {
            if (crackdown) return;
            foreach (var s in Sales.Where(x => x.State == SaleState.Listed && x.ListedDay < day).ToList())
            {
                if (!rng.Chance(SaleChance(s.Mult))) continue;
                if (s.FakeOf != null && rng.Chance(Tuning.BmFakeDetect))
                {
                    s.State = SaleState.Delisted; s.Why = "fake";
                    Rating = Math.Max(0, Rating - Tuning.BmRatingFakeLoss);
                    ev.Add(new BmEvent { Kind = "sale_fake", Sale = s });
                    continue;
                }
                s.State = SaleState.Sold;
                s.Proceeds = (int)Math.Round(s.ListPrice * (1 - Tuning.BmCommission));
                double vb = VolumeTaint(day);
                s.Taint = rng.Chance(Math.Min(1, TaintChance(s.Mult) + vb)) ? s.Proceeds * Math.Min(1, TaintRatio(s.Mult) + vb) : 0;
                s.PayDay = day + Tuning.BmSaleHold;
                Rating = Math.Min(100, Rating + 1);
                if (Honeypot(day)) Traps.Add(new BmTrap { Day = day + Tuning.BmTrapDelay, Amount = s.Proceeds, Why = "honeypot", Item = s.Item, Group = HoneypotStart });
                ev.Add(new BmEvent { Kind = "sale_sold", Sale = s, Amount = s.Proceeds });
            }
            foreach (var s in Sales.Where(x => x.State == SaleState.Sold && day >= x.PayDay).ToList())
            {
                double p = price(Assets.CRT);
                if (p <= 0) continue;
                var w = wallet(s.Wallet);
                w.Add(Assets.CRT, s.Proceeds / p);
                w.Taint += s.Taint;
                w.Basis += s.Proceeds;
                s.State = SaleState.Paid;
                ev.Add(new BmEvent { Kind = "sale_paid", Sale = s, Amount = s.Proceeds });
            }
            // 买家落网：近期到账的出售记录会连累卖家（玩家）
            var recent = Sales.Where(x => x.State == SaleState.Paid && day - x.PayDay <= 14).ToList();
            if (recent.Count > 0 && rng.Chance(Tuning.BmSellerBust))
            {
                foreach (var s in recent) Traps.Add(new BmTrap { Day = day + Tuning.BmTrapDelay, Amount = s.Proceeds, Why = "seller", Item = s.Item, Group = -day });
                Forum.Add("busted_buyer");
            }
            Sales.RemoveAll(x => (x.State == SaleState.Paid || x.State == SaleState.Delisted || x.State == SaleState.Lost) && day - Math.Max(x.ListedDay, x.PayDay) > 14);
        }

    }
}