azeroth-shell 0.0.0-stage → 0.1.0

package/src/cli/tuiCity.mjs

@@ -0,0 +1,396 @@
+// City services: the bank, the auction house and the mailbox. Same view shape as tuiViews.mjs; every
+// change is a Game facade call. Where they open follows phonecraft's CITY_PANEL rule: the auction
+// house in the six capitals, the bank there plus the goblin and Crossroads banker towns.
+import { bold, dim, cyan, yellow, green, red, qualityPaint, fit, secondsText, plural, itemText } from './text.mjs';
+import { itemLines } from './tuiViews.mjs';
+import { moneyText } from '../domain/economy/money.ts';
+import { bagCapacity } from '../domain/items/equipment.ts';
+import { countItem } from '../domain/items/inventory.ts';
+import { bankCapacity, nextBankBagSlotCost } from '../domain/items/bank.ts';
+import { minNextBid, auctionDeposit } from '../domain/economy/auction.ts';
+import { AH_DURATIONS_MS } from '../engine/game/types.ts';
+import { MAX_MAIL_ITEMS, MAIL_POSTAGE_COPPER } from '../domain/economy/mail.ts';
+import { hasIdentity } from '../domain/items/itemInstance.ts';
+import { isConjuredItem } from '../domain/items/itemBonding.ts';
+import { areHostile } from '../domain/character/races.ts';
+
+/** Non-capital zones with a banker spawn (Unit.h UNIT_NPC_FLAG_BANKER): Ratchet/Crossroads, Booty Bay, Gadgetzan, Everlook. */
+const BANK_TOWN_ZONE_IDS = new Set(['barrens', 'stranglethorn', 'tanaris', 'winterspring']);
+
+/** Which city services the zone you stand in offers. */
+export function cityAccess(app) {
+  const z = app.zone();
+  const capital = !!z?.capital;
+  const bank = capital || BANK_TOWN_ZONE_IDS.has(app.ch.zoneId);
+  // A mailbox stands outside every inn and in every capital; mail that is already waiting is always reachable.
+  const mail = capital || !!z?.innkeepers?.length || (app.g.state.mailbox?.length ?? 0) > 0;
+  return { capital, bank, ah: capital, mail };
+}
+
+/** "12g 5s 3c", "1.5g", "50s", "250" (copper) → copper, or null when unreadable. */
+export function parseMoney(text) {
+  const t = String(text).trim().toLowerCase();
+  if (!t) return null;
+  if (/^\d+$/.test(t)) return Number(t);
+  let total = 0, any = false;
+  for (const m of t.matchAll(/(\d+(?:\.\d+)?)\s*([gsc])/g)) {
+    any = true;
+    const n = Number(m[1]);
+    total += m[2] === 'g' ? n * 10000 : m[2] === 's' ? n * 100 : n;
+  }
+  return any ? Math.round(total) : null;
+}
+
+function timeLeft(a, now) {
+  const ms = a.expiresAt - now;
+  if (ms <= 0) return red('ended');
+  if (ms < 30 * 60 * 1000) return red('short');
+  if (ms < 2 * 60 * 60 * 1000) return yellow('medium');
+  if (ms < 12 * 60 * 60 * 1000) return 'long';
+  return green('very long');
+}
+
+// ---- bank ---------------------------------------------------------------------------------------
+
+export function bankDialog(app, startMode = 'deposit') {
+  let mode = startMode;
+  const hint = () => (mode === 'deposit' ? 'Enter: deposit stack   Tab: withdraw' : 'Enter: withdraw stack   Tab: deposit');
+  const move = (a, index, qty) => {
+    const r = mode === 'deposit' ? a.g.bankDepositStack(index, qty) : a.g.bankWithdrawStack(index, qty);
+    a.result(r, r.ok ? `${mode === 'deposit' ? 'Deposited' : 'Withdrew'} ${r.moved} item${r.moved === 1 ? '' : 's'}.` : '');
+  };
+  const view = {
+    id: 'bank', title: 'Bank', hint: hint(),
+    keys: {
+      n: { hint: 'move some', fn: (a, row) => { if (!row?.data) return; a.prompt(`How many ${a.itemLabel(row.data.s.item)} (1-${row.data.s.count})? `, (t) => { const n = Number(t); if (n > 0) move(a, row.data.index, Math.min(n, row.data.s.count)); a.afterAction(); }); } },
+      '+': { hint: 'buy bag slot', fn: (a) => {
+        const cost = nextBankBagSlotCost(a.g.state.bankBags);
+        if (cost == null) { a.flashMsg('You already own every bank bag slot.'); return; }
+        a.confirm(`Buy a bank bag slot for ${moneyText(cost)}?`, () => a.result(a.g.buyBankBagSlot(), `Bought a bank bag slot for ${moneyText(cost)}.`));
+      } },
+      D: { hint: 'deposit all of it', fn: (a, row) => { if (mode !== 'deposit' || !row?.data?.s) return; const e = row.data.s.item; const r = a.g.bankDeposit(e, countItem(a.g.state.inventory, e)); a.result(r, r.ok ? `Deposited every ${a.itemLabel(e)} (${r.moved}).` : ''); } },
+      B: { hint: 'slot a bag', fn: (a, row) => {
+        if (mode !== 'deposit' || !row?.data) { a.flashMsg('Pick a bag in your bags (deposit side) first.'); return; }
+        const it = a.ds.item(row.data.s.item);
+        if (it?.slot !== 'bag') { a.flashMsg('That is not a bag.'); return; }
+        const free = a.g.state.bankBags.findIndex((b) => b == null);
+        if (free < 0) { a.flashMsg('No empty bank bag slot. + buys one.'); return; }
+        a.result(a.g.equipBankBag(it.entry ?? row.data.s.item, free), `${itemText(it)} now holds bank space.`);
+      } },
+    },
+    onKey(a, k) { if (k === 'tab') { mode = mode === 'deposit' ? 'withdraw' : 'deposit'; view.cursor = 0; view.scroll = 0; view.hint = hint(); return true; } return false; },
+    rows(a) {
+      const st = a.g.state, ds = a.ds;
+      const bankCap = bankCapacity(st.bankBags, ds), bagCap = bagCapacity(a.ch, ds);
+      const owned = st.bankBags.length, slotted = st.bankBags.filter((b) => b != null).length;
+      const rows = [
+        { text: `${bold('Bank')} ${dim(`${st.bank.stacks.length}/${bankCap}`)}   ${bold('Bags')} ${dim(`${st.inventory.stacks.length}/${bagCap}`)}   ${yellow(moneyText(a.ch.gold) || '0c')}`, header: true },
+        { text: dim(`Bank bag slots: ${owned} owned, ${slotted} holding a bag${nextBankBagSlotCost(st.bankBags) != null ? `, next costs ${moneyText(nextBankBagSlotCost(st.bankBags))}` : ''}`), header: true },
+      ];
+      // Each bank bag slot: Enter takes the bag in it back to your bags (it has to be empty).
+      st.bankBags.forEach((b, slot) => {
+        if (b == null) { rows.push({ text: dim(`  Bank bag ${slot + 1}: empty   (B on a bag in your bags fills it)`), header: true }); return; }
+        const bag = ds.item(typeof b === 'object' ? b.item ?? b.entry : b);
+        rows.push({ text: `  Bank bag ${slot + 1}: ${itemText(bag, String(b))}${bag?.bagSlots ? dim(`  ${bag.bagSlots} slots`) : ''}   ${dim('Enter: take it out')}`, data: { bankBag: slot }, act: (a2) => a2.result(a2.g.unequipBankBag(slot), `${itemText(bag, 'The bag')} is back in your bags.`) });
+      });
+      rows.push(
+        { text: `${mode === 'deposit' ? bold('Your bags → bank') : dim('Your bags → bank')}   ${mode === 'withdraw' ? bold('Bank → your bags') : dim('Bank → your bags')}`, header: true },
+        { text: '', header: true },
+      );
+      const list = mode === 'deposit' ? st.inventory.stacks : st.bank.stacks;
+      if (!list.length) rows.push({ text: dim(mode === 'deposit' ? 'Your bags are empty.' : 'Your bank is empty.'), header: true });
+      list.forEach((s, index) => {
+        const it = ds.item(s.item);
+        const tag = it?.slot ? dim(`  ${it.slot}`) : it?.questItem ? dim('  quest') : '';
+        rows.push({
+          text: `${qualityPaint(it?.quality)(it?.name ?? `item ${s.item}`)}${s.count > 1 ? ` x${s.count}` : ''}${tag}`, data: { s, index },
+          detail: () => itemLines(a, it, ['', dim(mode === 'deposit' ? 'Enter: deposit   n: deposit some' : 'Enter: withdraw   n: withdraw some')]),
+          act: () => move(a, index),
+        });
+      });
+      return rows;
+    },
+  };
+  return view;
+}
+
+// ---- auction house ------------------------------------------------------------------------------
+
+export function auctionDialog(app) {
+  app.g.refillAuctions(Date.now());
+  let mode = 'browse';
+  let filter = '';
+  const MODES = ['browse', 'sell', 'mine'];
+  const hint = () => ({ browse: 'Enter: buyout   Tab: sell', sell: 'Enter: list for sale   Tab: my auctions', mine: 'Enter: cancel listing   Tab: browse' })[mode];
+  const unit = (x) => Math.round(x.buyoutCopper / x.quantity);
+  const view = {
+    id: 'auction', title: 'Auction House', hint: hint(),
+    keys: {
+      s: { hint: 'search', fn: (a) => { if (mode !== 'browse') return; a.prompt('Search: ', (t) => { filter = t.trim().toLowerCase(); view.cursor = 0; view.scroll = 0; a.render(); }, filter); } },
+      b: { hint: 'bid', fn: (a, row) => {
+        if (mode !== 'browse' || !row?.data?.auction) return;
+        const au = row.data.auction, min = minNextBid(au);
+        a.prompt(`Bid on ${a.itemLabel(au.item)} (at least ${moneyText(min)}): `, (t) => {
+          const amount = parseMoney(t);
+          if (amount == null) { a.say(red('Say a price like 2g 50s or 250.')); a.render(); return; }
+          a.result(a.g.bidAuction(au.id, amount, Date.now()), `You bid ${moneyText(amount)} on ${a.itemLabel(au.item)}.`);
+          a.afterAction();
+        }, moneyText(min));
+      } },
+      m: { hint: 'mailbox', fn: (a) => a.push(mailDialog(a)) },
+    },
+    onKey(a, k) {
+      if (k !== 'tab') return false;
+      mode = MODES[(MODES.indexOf(mode) + 1) % MODES.length];
+      if (mode === 'browse') a.g.refillAuctions(Date.now());
+      view.cursor = 0; view.scroll = 0; view.hint = hint();
+      return true;
+    },
+    rows(a) {
+      const now = Date.now(), ds = a.ds;
+      const unread = a.g.unreadMailCount(now);
+      const rows = [
+        { text: `${bold('Auction House')}   ${MODES.map((m) => (m === mode ? bold : dim)({ browse: 'Browse', sell: 'Sell', mine: 'My auctions' }[m])).join(dim(' | '))}   ${yellow(moneyText(a.ch.gold) || '0c')}${unread ? yellow(`   ${unread} new mail`) : ''}`, header: true },
+        { text: '', header: true },
+      ];
+      if (mode === 'browse') {
+        let list = a.g.browseAuctions(now);
+        if (filter) list = list.filter((x) => (ds.item(x.item)?.name ?? '').toLowerCase().includes(filter));
+        list.sort((x, y) => (ds.item(x.item)?.name ?? '').localeCompare(ds.item(y.item)?.name ?? '') || unit(x) - unit(y));
+        rows.push({ text: `${filter ? `"${filter}": ` : ''}${plural(list.length, 'listing')}${filter ? dim('   s: change search') : dim('   s: search by name')}`, header: true });
+        if (!list.length) rows.push({ text: dim('Nothing on the boards right now.'), header: true });
+        for (const au of list) {
+          const it = ds.item(au.item);
+          const can = au.buyoutCopper <= a.ch.gold;
+          const name = `${qualityPaint(it?.quality)(it?.name ?? au.item)}${au.quantity > 1 ? ` x${au.quantity}` : ''}`;
+          rows.push({
+            text: `${can ? name : dim(name)}  ${yellow(moneyText(au.buyoutCopper))}${au.quantity > 1 ? dim(` (${moneyText(unit(au))} each)`) : ''}  ${dim('bid')} ${moneyText(au.bidCopper)}${au.highBidder === a.ch.name ? green('  yours') : ''}  ${timeLeft(au, now)}${it?.requiredLevel > a.ch.level ? red(`  L${it.requiredLevel}`) : ''}`,
+            data: { auction: au },
+            detail: () => itemLines(a, it, ['', `Buyout: ${yellow(moneyText(au.buyoutCopper))}`, `Current bid: ${moneyText(au.bidCopper)}${au.highBidder ? dim(` (${au.highBidder === a.ch.name ? 'you' : au.highBidder})`) : dim(' (no bids)')}`, `Next bid: ${moneyText(minNextBid(au))}`, dim(`Seller: ${au.seller}`), '', dim('Enter: buy out   b: bid')]),
+            act: () => a.confirm(`Buy ${itemText(it, String(au.item))}${au.quantity > 1 ? ` x${au.quantity}` : ''} for ${moneyText(au.buyoutCopper)}?`, () => a.result(a.g.buyoutAuction(au.id), `Bought ${itemText(it)}${au.quantity > 1 ? ` x${au.quantity}` : ''} for ${moneyText(au.buyoutCopper)}.`)),
+          });
+        }
+      } else if (mode === 'sell') {
+        const st = a.g.state.inventory.stacks;
+        rows.push({ text: dim('Pick something from your bags to put up for auction.'), header: true });
+        if (!st.length) rows.push({ text: dim('Your bags are empty.'), header: true });
+        for (const s of st) {
+          const it = ds.item(s.item);
+          const soulbound = !!s.bound, quest = !!it?.questItem;
+          const name = `${qualityPaint(it?.quality)(it?.name ?? s.item)}${s.count > 1 ? ` x${s.count}` : ''}`;
+          rows.push({
+            text: `${soulbound || quest ? dim(name) : name}${soulbound ? red('  soulbound') : quest ? dim('  quest') : ''}${it?.sellPrice ? dim(`  vendor ${moneyText(it.sellPrice * s.count)}`) : ''}`, data: { s },
+            detail: () => itemLines(a, it, ['', dim('Enter: set prices and list it')]),
+            act: () => { if (soulbound) a.flashMsg('Soulbound items cannot be auctioned.'); else if (quest) a.flashMsg('Quest items cannot be auctioned.'); else sellFlow(a, s, it); },
+          });
+        }
+      } else {
+        const own = a.g.ownAuctions(), bids = a.g.myBidAuctions();
+        const mail = a.g.listMail(now);
+        rows.push({ text: `Mailbox: ${mail.length ? `${plural(mail.length, 'letter')} waiting` : 'empty'}${dim('  (sales and refunds arrive here)')}`, act: () => a.push(mailDialog(a)), data: {} });
+        rows.push({ text: '', header: true }, { text: `Your listings (${own.length})`, header: true });
+        if (!own.length) rows.push({ text: dim('  You have nothing up for sale.'), header: true });
+        for (const au of own) {
+          const it = ds.item(au.item);
+          rows.push({
+            text: `${qualityPaint(it?.quality)(it?.name ?? au.item)}${au.quantity > 1 ? ` x${au.quantity}` : ''}  ${dim('bid')} ${moneyText(au.bidCopper)}${au.highBidder ? green(' (bid placed)') : ''}  ${dim('buyout')} ${yellow(moneyText(au.buyoutCopper))}  ${timeLeft(au, now)}`,
+            data: { auction: au },
+            detail: () => itemLines(a, it, ['', `Buyout: ${yellow(moneyText(au.buyoutCopper))}`, `Bid: ${moneyText(au.bidCopper)}${au.highBidder ? ` by ${au.highBidder}` : ''}`, '', dim('Enter: cancel the listing (the deposit is lost)')]),
+            act: () => a.confirm(`Cancel the ${itemText(it)} listing?`, () => a.result(a.g.cancelAuction(au.id), `Listing cancelled. ${itemText(it)} is back in your bags.`)),
+          });
+        }
+        rows.push({ text: '', header: true }, { text: `Your bids (${bids.length})`, header: true });
+        if (!bids.length) rows.push({ text: dim('  You hold no high bids.'), header: true });
+        for (const au of bids) {
+          const it = ds.item(au.item);
+          rows.push({ text: `  ${qualityPaint(it?.quality)(it?.name ?? au.item)}${au.quantity > 1 ? ` x${au.quantity}` : ''}  ${dim('your bid')} ${moneyText(au.bidCopper)}  ${timeLeft(au, now)}`, header: true });
+        }
+      }
+      return rows;
+    },
+  };
+  return view;
+}
+
+/** Ask quantity, bid, buyout and duration, then list. Each answer is a hint-row prompt. */
+function sellFlow(app, s, it) {
+  const finish = (qty, bid, buyout) => {
+    const opts = Object.entries(AH_DURATIONS_MS).map(([k, ms]) => {
+      const dep = auctionDeposit(it?.sellPrice ?? 0, qty, ms / 1000);
+      return { label: `${{ short: '2 hours', medium: '8 hours', long: '24 hours' }[k]}  ${dim(`deposit ${moneyText(dep) || '0c'}`)}`, value: k };
+    });
+    app.pick('How long should it run?', opts, (dur) => {
+      const r = app.g.listAuction(s.item, qty, bid, buyout, dur, Date.now());
+      app.result(r, r.ok ? `Listed ${itemText(it)}${qty > 1 ? ` x${qty}` : ''}: bid ${moneyText(bid)}, buyout ${moneyText(buyout)}.` : '');
+      app.afterAction();
+    });
+  };
+  const askPrices = (qty) => {
+    const vendor = (it?.sellPrice ?? 0) * qty;
+    app.prompt(`Starting bid for ${itemText(it)}${qty > 1 ? ` x${qty}` : ''} (e.g. 2g 50s): `, (t1) => {
+      const bid = parseMoney(t1);
+      if (bid == null || bid < 1) { app.say(red('Say a price like 2g 50s or 250.')); app.render(); return; }
+      app.prompt(`Buyout (at least ${moneyText(bid)}): `, (t2) => {
+        const buyout = parseMoney(t2);
+        if (buyout == null || buyout < bid) { app.say(red('The buyout must be at least the starting bid.')); app.render(); return; }
+        finish(qty, bid, buyout);
+      }, moneyText(Math.max(bid, Math.round(bid * 1.5))));
+    }, vendor ? moneyText(Math.max(1, vendor * 2)) : '');
+  };
+  if (s.count > 1) app.prompt(`How many ${itemText(it)} (1-${s.count})? `, (t) => { const n = Math.min(s.count, Number(t)); if (n > 0) askPrices(n); else app.render(); }, String(s.count));
+  else askPrices(1);
+}
+
+// ---- mailbox ------------------------------------------------------------------------------------
+
+// Postal's Open All: every letter's money and items, and each letter it empties is thrown away. COD letters wait.
+function takeAllMail(a) {
+  const before = a.g.listMail(Date.now()).length;
+  const r = a.g.collectMail();
+  if (!r.ok) { a.result(r, ''); return; }
+  const left = a.g.listMail(Date.now());
+  const cleared = before - left.length;
+  const cod = left.filter((m) => m.cod > 0).length;
+  const msg = r.abortedFull ? red('Your bags filled up before the mail was empty.')
+    : cleared || r.moved ? `${cleared ? `Emptied ${plural(cleared, 'letter')}.` : `Collected ${r.moved} from the mail.`}${cod ? dim(`  ${plural(cod, 'COD letter')} left: Enter pays and takes.`) : ''}`
+      : 'Nothing to collect.';
+  a.result(r, msg);
+}
+
+export function mailDialog(app) {
+  const takeAll = { hint: 'take all', fn: takeAllMail };
+  return {
+    id: 'mail', title: 'Mailbox', hint: 'Enter: take it and bin the letter',
+    keys: {
+      a: takeAll, A: { fn: takeAllMail },
+      d: { hint: 'delete', fn: (a, row) => { if (row?.data?.mail) a.confirm(`Delete "${row.data.mail.subject}"?`, () => a.result(a.g.deleteMail(row.data.mail.id), 'Mail deleted.')); } },
+      r: { hint: 'return', fn: (a, row) => { if (row?.data?.mail) a.confirm(`Send "${row.data.mail.subject}" back to ${row.data.mail.sender}?`, () => { void returnToSender(a, row.data.mail); }); } },
+      s: { hint: 'send', fn: (a) => a.push(composeDialog(a)) },
+    },
+    rows(a) {
+      const now = Date.now();
+      const mail = a.g.listMail(now);
+      const rows = [{ text: `${bold('Mailbox')}  ${dim(plural(mail.length, 'letter'))}   ${yellow(moneyText(a.ch.gold) || '0c')}${mail.length ? dim('   a: take everything') : ''}`, header: true }, { text: '', header: true }];
+      if (!mail.length) rows.push({ text: dim('No mail.'), header: true });
+      for (const m of mail) {
+        const atts = m.attachments.map((x) => `${a.itemLabel(x.entry)}${x.quantity > 1 ? ` x${x.quantity}` : ''}`);
+        const bits = [...(m.money ? [yellow(moneyText(m.money))] : []), ...atts];
+        const read = (m.checked ?? 0) & 1;
+        rows.push({
+          text: `${read ? dim(m.subject) : bold(m.subject)}  ${dim(`from ${m.sender}`)}${bits.length ? `  ${bits.join(', ')}` : ''}${m.cod ? red(`  COD ${moneyText(m.cod)}`) : ''}`,
+          data: { mail: m },
+          detail: () => [bold(m.subject), dim(`From ${m.sender}`), '', ...String(m.body ?? '').split('\n').filter(Boolean), ...(bits.length ? ['', cyan('Enclosed'), ...bits.map((b) => `  ${b}`)] : []), ...(m.cod ? ['', red(`Cash on delivery: ${moneyText(m.cod)}`)] : []), '', dim(`Expires in ${secondsText(Math.max(0, m.expiresAt - now))}`)],
+          act: () => takeMail(a, m),
+        });
+      }
+      return rows;
+    },
+  };
+}
+
+function takeMail(app, m) {
+  app.g.markMailRead(m.id);
+  let took = 0;
+  if (m.money) { const r = app.g.takeMailMoney(m.id); if (r.ok && r.taken) { took++; app.say(green(`You take ${moneyText(r.taken)}.`)); } else if (!r.ok) app.say(red(r.reason)); }
+  for (let i = 0; i < 16; i++) {
+    const cur = app.g.listMail(Date.now()).find((x) => x.id === m.id);
+    if (!cur?.attachments.length) break;
+    const att = cur.attachments[0];
+    const r = app.g.takeMailItem(m.id);
+    if (!r.ok) { app.say(red(r.reason)); break; }
+    // Taking a COD item pays the sender: their payment letter goes to their mailbox.
+    if (r.remittance) void deliverNamedMail(app, r.remittance.to, r.remittance.mail);
+    took++;
+    app.say(green(`You take ${app.itemLabel(att.entry)}${att.quantity > 1 ? ` x${att.quantity}` : ''}.`));
+  }
+  // A letter with nothing left in it is thrown away, as Postal does; a COD or full-bag letter stays.
+  const cur = app.g.listMail(Date.now()).find((x) => x.id === m.id);
+  if (cur && !cur.money && !cur.attachments.length && !cur.cod) {
+    const r = app.g.deleteMail(m.id);
+    if (r.ok && !took) app.say(dim(`Threw away "${m.subject}".`));
+  }
+}
+
+// ---- mail between your own characters -------------------------------------------------------------
+// Every save in ~/.azsh/saves is a character on this realm: a letter to one is written into that save's
+// mailbox (phonecraft appInteractInputB.ts sendMailBatch path). Returned letters and COD payments land the same way.
+
+const sameName = (a, b) => String(a).toLowerCase() === String(b).toLowerCase();
+
+/** Put a letter in the named character's mailbox: yours, or another save's. False when nobody has that name. */
+export async function deliverNamedMail(app, toName, mail) {
+  if (sameName(toName, app.ch.name)) { app.g.state.mailbox = [...(app.g.state.mailbox ?? []), mail]; return true; }
+  const meta = (await app.repo.list()).find((s) => sameName(s.name, toName));
+  const dest = meta ? await app.repo.load(meta.slot) : null;
+  if (!dest) return false;
+  dest.state.mailbox = [...(dest.state.mailbox ?? []), mail];
+  dest.updatedAt = Date.now();
+  await app.repo.save(dest);
+  return true;
+}
+
+async function returnToSender(app, m) {
+  const r = app.g.returnMail(m.id, Date.now());
+  if (!app.result(r)) return;
+  const delivered = await deliverNamedMail(app, r.to, r.mail);
+  app.say(delivered ? green(`Returned to ${r.to}.`) : dim(`Returned. ${r.to} is not one of your characters, so it goes nowhere.`));
+  await app.persist();
+  app.render();
+}
+
+/** Write a letter to another of your characters: recipient, subject, money or COD, and up to 21 stacks. */
+export function composeDialog(app) {
+  const m = { to: null, subject: '', money: 0, cod: false, attach: new Set() };
+  const send = async (a) => {
+    if (!m.to) { a.flashMsg('Pick who it goes to first.'); a.render(); return; }
+    const dest = await a.repo.load(m.to.slot);
+    if (!dest) { a.say(red(`${m.to.name} cannot be found.`)); a.render(); return; }
+    const stacks = a.g.state.inventory.stacks;
+    const attachments = [...m.attach].sort((x, y) => x - y).filter((slot) => stacks[slot]).map((slot) => {
+      const stk = stacks[slot];
+      return { entry: stk.item, quantity: stk.count, slotIndex: slot, ...(hasIdentity(stk) ? { instance: stk } : {}), ...(isConjuredItem(a.ds.item(stk.item)) ? { conjured: true } : {}) };
+    });
+    const r = a.g.sendMailBatch({
+      recipientName: dest.state.char.name, recipientMailbox: dest.state.mailbox ?? [],
+      subject: m.subject || (attachments.length ? a.itemName(attachments[0].entry) : 'A letter'), body: '',
+      enclosedMoney: m.cod ? 0 : m.money, cod: m.cod ? m.money : 0, attachments, nowMs: Date.now(),
+      crossFaction: areHostile(a.ds, a.ch.race, dest.state.char.race),
+    });
+    if (!a.result(r)) { a.render(); return; }
+    dest.state.mailbox = r.destMailbox;
+    dest.updatedAt = Date.now();
+    await a.repo.save(dest);
+    a.say(green(`Mail sent to ${dest.state.char.name}.`) + dim(`  Postage ${moneyText(r.cost)}.`));
+    await a.persist();
+    if (a.top()?.id === 'mail-compose') a.pop(); else a.render();
+  };
+  const view = {
+    id: 'mail-compose', title: 'Send mail', hint: 'Enter: change / enclose',
+    keys: { S: { hint: 'send', fn: (a) => { view.sending = send(a); } } },
+    rows(a) {
+      const rows = [{ text: bold('Send mail'), header: true }, { text: '', header: true }];
+      rows.push({ text: `To       ${m.to ? cyan(m.to.name) : dim('pick one of your characters')}`, act: (a2) => { view.picking = pickAlt(a2, (s) => { m.to = s; }); } });
+      rows.push({ text: `Subject  ${m.subject || dim('(the first item, or "A letter")')}`, act: (a2) => a2.prompt('Subject: ', (t) => { m.subject = t.slice(0, 64); a2.render(); }, m.subject) });
+      rows.push({ text: `${m.cod ? 'COD     ' : 'Money   '} ${m.money ? yellow(moneyText(m.money)) : dim('none')}`, act: (a2) => a2.prompt(m.cod ? 'Cash on delivery: ' : 'Money to send: ', (t) => { const c = parseMoney(t); if (c == null) a2.flashMsg('Say a price like 2g 50s or 250.'); else m.money = c; a2.render(); }) });
+      rows.push({ text: `Pay      ${m.cod ? red('cash on delivery: they pay the money to take the items') : dim('the money is a gift')}`, act: () => { m.cod = !m.cod; } });
+      rows.push({ text: '', header: true }, { text: `Enclose  ${dim(`${m.attach.size}/${MAX_MAIL_ITEMS}`)}`, header: true });
+      a.g.state.inventory.stacks.forEach((s, slot) => {
+        const it = a.ds.item(s.item);
+        const on = m.attach.has(slot);
+        rows.push({
+          text: `${on ? green('✓') : dim('·')} ${qualityPaint(it?.quality)(it?.name ?? s.item)}${s.count > 1 ? ` x${s.count}` : ''}`, data: { slot },
+          act: () => { if (on) m.attach.delete(slot); else if (m.attach.size < MAX_MAIL_ITEMS) m.attach.add(slot); else a.flashMsg(`At most ${MAX_MAIL_ITEMS} stacks in one letter.`); },
+        });
+      });
+      rows.push({ text: '', header: true }, { text: green(`Send  ${dim(`S, postage ${moneyText(MAIL_POSTAGE_COPPER)}`)}`), act: () => { view.sending = send(a); } });
+      return rows;
+    },
+  };
+  return view;
+}
+
+async function pickAlt(app, onPick) {
+  const saves = (await app.repo.list()).filter((s) => !sameName(s.name, app.ch.name));
+  if (!saves.length) { app.flashMsg('You have no other characters to write to.'); app.render(); return; }
+  app.pick('Send it to', saves.map((s) => ({ label: `${s.name}  ${dim(`L${s.level}`)}`, value: s })), onPick);
+}