probably-decentralized/src/Decentralized/CoinCustomers.cs

using System.Collections.Generic;
using Decentralized.Domain;

namespace Decentralized
{
    /// <summary>
    /// 用币付款的顾客：每天排队的买家里，按派系（上层 CRC、黑市 CRT、革命派 CRA、下层 PSC）有一小部分改用币结算。
    /// 成交时在店里扣回刚入账的信用点，换成币进热钱包；赃物的款项不记销赃，改成币带污点（货值 × 赃物热度%）。
    /// </summary>
    public static class CoinCustomers
    {
        private static readonly HashSet<StoreClient> Marked = new HashSet<StoreClient>();
        private static int markDay = -1;

        public static void Subscribe()
        {
            ModHook.OnGenerateCustomerLate += OnGenerate;
            ModHelper.AddDebugFunction(ModInfo.Id, ModInfo.Name, "Coin buyer (test)", () => Log.Guard("用币付款顾客（测试）", () =>
            {
                var c = new StoreClient
                {
                    identifier = "pd_coin_test", displayName = "Coin buyer", spriteName = SpriteDict.GetRandomScavSpriteName(),
                    clientFaction = "FACTION_BLACK_MARKET", useClientBudget = true, clientIntent = StoreClient.ClientIntent.BUY,
                    canClientExposeFeature = ClientCanExposeFunc.BasicClientExposeCapacity,
                };
                c.SetBudget(5000);
                c.clientBuyingTagList.Add("SEED");
                c.mainDialogue.SetText(c.displayName, "CRT.").SetEndAction(() => { });
                c.AddBasicDialog();
                c.CompleteClientCreation();
                Mark(c, Assets.CRT);
                Log.Info($"用币付款顾客（测试）已设置，钱包污点 {Session.Data.Hot.Taint:0.##}，当前顾客 {PlayerStore.Instance.currentClientInstance?.GetClientBlueprint()?.identifier}，队列 {PlayerStore.Instance.storeClientManager.clientStack.Count} 人");
                PlayerStore.Instance.currentClientInstance = null;   // 测试：丢掉在场的顾客（开局的高利贷者不可遣散）
                PlayerStore.Instance.storeClientManager.clientStack.Insert(0, c);
                PlayerStore.Instance.TryCallNextClient();
                // 把后柜里的种子都标成赃物（热度 50%），买走后钱包的污点应为成交额的一半
                foreach (var it in EmporiumEntry.Instance.backInvinvElement.childItems)
                    if (it.IsTag("SEED")) it.ModifyTag("STOLEN_VALUE_INT", t => t.Enable().SetInt(50));
            }));
        }
        public static void Unsubscribe() => ModHook.OnGenerateCustomerLate -= OnGenerate;

        private static void OnGenerate(StoreClientManager manager)
        {
            if (Session.Data == null || !Unlock.IsUnlocked) return;
            Log.Guard("用币付款", () =>
            {
                int day = StoreStation.GetDayCounter();
                if (day != markDay) { Marked.Clear(); markDay = day; }
                foreach (var c in manager.clientStack)
                {
                    if (c == null || c.isSecurity || Marked.Contains(c) || c.clientIntent != StoreClient.ClientIntent.BUY || c.isNoContributeToEvidence) continue;
                    Marked.Add(c);
                    string asset = CoinPayment.AssetFor(c.clientFaction);
                    if (asset == null || !Session.Data.Rng.Chance(CoinPayment.Chance(asset))) continue;
                    Mark(c, asset);
                }
            });
        }

        private static void Mark(StoreClient c, string asset)
        {
            var before = c.onItemBought;
            double total = 0;   // 这位顾客这一单一共付了多少币
            c.isNoContributeToEvidence = true;
            c.onItemBought = (item, cost) =>
            {
                before?.Invoke(item, cost);
                Log.Guard("用币付款成交", () => { total += Pay(c, asset, item, cost); Say(c, asset, total); });
            };
        }

        /// <summary>成交后顾客说的话：告诉玩家这单是币到账，不是信用点。</summary>
        private static void Say(StoreClient client, string asset, double total)
        {
            client.acceptDealDialogue = new Dialogue().SetText(client.displayName, L.T("coinpay.line", Fmt.Num(total), asset));
            client.acceptDealDialogue.priority = 4;
            client.acceptDealDialoguePlayed = false;
        }

        private static double Pay(StoreClient client, string asset, GameItem item, int cost)
        {
            var d = Session.Data;
            double price = Session.Price(asset);
            if (cost <= 0 || price <= 0) return 0;
            int heat = item.IsTag("STOLEN_VALUE_INT") ? item.GetTagReadonly("STOLEN_VALUE_INT").GetInt() : 0;
            ModHelper.AddCredit(-cost, false);
            double qty = CoinPayment.Receive(d.Hot, asset, cost, price, heat);
            d.CoinSalesToday += cost;
            Log.Info($"用币付款：{item.name} {cost} 信用点 → {qty:0.####} {asset}，污点 +{cost * heat / 100.0:0}");
            return qty;
        }
    }
}