Stage 4: honeypot, seller busts, controlled delivery; mining report moved into Web3 page

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>

tests/Decentralized.Domain.Tests/Program.cs

@@ -625,6 +625,26 @@ internal static class Program
             var co = c.Place(new BmListing { Seller = 0, Item = "x", Price = 100 }, PayMode.Escrow, cw, Assets.CRT, 1, price);
             c.Night(co.DueDay, true, cw, new Rng(1));
             Check(co.State == OrderState.Pending && co.DueDay == 5, "镇压期间到期顺延一天");
+            // 蜜罐期间下单会被追查；受控交付签收记罪证、拒签不记
+            var h = new BlackMarket(); h.Sellers.Add(good); h.HoneypotUntil = 12;
+            var hw = new Wallet(); hw.Add(Assets.CRT, 5000);
+            var ho = h.Place(new BmListing { Seller = 0, Item = "x", Price = 100 }, PayMode.Escrow, hw, Assets.CRT, 10, price);
+            Check(h.Traps.Count == 1 && h.Traps[0].Day == 10 + Tuning.BmTrapDelay, "蜜罐期间下单：记一笔追查");
+            Check(h.Night(h.Traps[0].Day, false, hw, new Rng(3)).Any(e => e.Kind == "trap" && Near(e.Amount, ho.Price, 1e-9)) && h.Traps.Count == 0, "追查到期：产生罪证事件");
+            int ctrl = 0;
+            for (int i = 0; i < 600; i++)
+            {
+                var t2 = new BlackMarket(); t2.Sellers.Add(good);
+                var w2 = new Wallet(); w2.Add(Assets.CRT, 5000);
+                var o2b = t2.Place(new BmListing { Seller = 0, Item = "x", Price = 100 }, PayMode.Escrow, w2, Assets.CRT, 1, price);
+                t2.Night(o2b.DueDay, false, w2, new Rng((ulong)i + 99), 0);
+                if (o2b.Controlled) ctrl++;
+            }
+            Check(ctrl > 5 && ctrl < 50, $"被截获里一部分变成受控交付：{ctrl}/600");
+            var co2 = new BmOrder { Item = "x", Price = 150, State = OrderState.Ready, Controlled = true };
+            var cm = new BlackMarket();
+            Check(Near(cm.Sign(co2, true), 150, 1e-9) && co2.State == OrderState.Lost && co2.Why == "seized" && Near(cm.Sign(new BmOrder { Price = 50 }, false), 0, 1e-9), "签收记罪证（金额）并查封，拒签不记");
+            Check(BlackMarket.HoneypotChance(100) > BlackMarket.HoneypotChance(0) && BlackMarket.HoneypotChance(100000) <= Tuning.BmHoneypotMax, "治安声望越高越容易被接管，有封顶");
             // 跑路：托管资金多则概率高；跑路后关闭
             var r = new BlackMarket(); r.Sellers.Add(good);
             var rw = new Wallet(); rw.Add(Assets.CRT, 1000000);