@rpgm-tools/neo-angband-core 0.10.0

package/dist/game/pickup.d.ts

@@ -0,0 +1,126 @@
+/**
+ * Pickup commands, ported from reference/src/cmd-pickup.c (Angband 4.2.6):
+ * gold pickup, the inscription-driven auto-pickup rules (!g / =g / =g<n>),
+ * partial pickup into the pack, do_autopickup on stepping, and the 'g'et
+ * command, wired into the action registry.
+ *
+ * Energy accounting: upstream queues CMD_AUTOPICKUP as a separate command
+ * after a step, charging picked * move_energy / 10 (capped at move_energy)
+ * on that later command. The port's command provider is injected (the
+ * engine cannot push commands), so walkAction adds the same capped cost to
+ * the step's energy via the state.autoPickup hook - the total energy spent
+ * is identical, only the single-command split differs (ledgered).
+ *
+ * Unported-subsystem seams (inert defaults): isIgnored (obj-ignore #24),
+ * chooseItem (the multi-object pickup menu, ui #25 - defaults to the pile
+ * head when unwired, so 'g' picks one item per press; packages/web/src's
+ * pickupCmd wires a real lettered picker, reusing the same selectFromMenu
+ * as the other item menus), messages/disturb hooks, and square_know_pile /
+ * OFLOOR_VISIBLE marking (knowledge #24 - everything on the grid is visible).
+ *
+ * playerPickupAux calls object_touch (obj-knowledge.c L960-972) when an object
+ * enters the pack: it marks the object ASSESSED (revealing its combat bracket
+ * and artifact name) and fires state.onArtifactFound (history_find_artifact).
+ * Find-on-sight is also wired now: square_know_pile's reduced port
+ * (game/known.ts) touches the pile on the player's own grid, so an artifact is
+ * found the instant its grid becomes known, not only on pickup.
+ * historyFindArtifact's per-aidx de-dupe keeps both paths safe.
+ */
+import type { Constants } from "../constants.js";
+import type { GameObject } from "../obj/object.js";
+import type { GameState } from "./context.js";
+import type { ActionRegistry } from "./player-turn.js";
+/** Hooks and options for the pickup routines; every slot is optional. */
+export interface PickupEnv {
+    /** ignore_item_ok (obj-ignore.c, #24). Default: nothing is ignored. */
+    isIgnored?: (obj: GameObject) => boolean;
+    /** OPT(player, pickup_always). Shipped default false. */
+    pickupAlways?: boolean;
+    /** OPT(player, pickup_inven). Shipped default true. */
+    pickupInven?: boolean;
+    /** get_item over the floor list (the pickup menu, ui #25). */
+    chooseItem?: (list: readonly GameObject[]) => GameObject | null;
+    /**
+     * get_quantity(NULL, max) on a PARTIAL pickup (cmd-pickup.c L270): only some
+     * of the stack fits, so upstream asks how much of it to take. Answering 0
+     * (which ESCAPE gives) abandons the pickup - but not the turn, since
+     * player_pickup_item has already counted the object (L389).
+     *
+     * With no hook the whole carryable amount is taken, which is what a headless
+     * caller (the borg, the agent seam, a test) wants: upstream's default answer
+     * is 1, but a caller with no way to answer would then never make progress.
+     */
+    getQuantity?: (max: number) => number;
+    /** Gold was picked up (message/sound hook). */
+    onGold?: (total: number, name: string, singleKind: boolean) => void;
+    /**
+     * An object entered the pack: the message hook receives the finished
+     * inven_carry line ("You have 5 Potions of Cure Light Wounds (a)."), built
+     * from the MERGED pack stack so it reports the combined count and slot letter
+     * (obj-gear.c:893-921), not the bare floor object.
+     */
+    onPickup?: (msg: string) => void;
+    /** disturb(player). */
+    disturb?: () => void;
+}
+/** What the pickup routines need from the binder. */
+export interface PickupDeps {
+    /** Bound constants (pack_size for inven_carry_num, quiver limits). */
+    constants: Constants;
+    env?: PickupEnv;
+    /**
+     * update_stuff's PU_INVEN after inven_carry (obj-gear.c:889-891 sets PU_INVEN
+     * and then calls update_stuff itself): rebuild the computed quiver so picked-up
+     * ammo is routed out of the pack and into the quiver, exactly as the
+     * wield/takeoff/drop/store paths do. Without it, shots/arrows/bolts sit in the
+     * pack until some later gear change forces a calc_inventory.
+     *
+     * Called once per CARRIED OBJECT, before that object's "You have %s (%c)."
+     * message - not once per command. That is where upstream calls it (L891, four
+     * lines above the message at L893-921) and the ordering is the whole point: the
+     * %c is gear_to_label of the sorted upkeep->inven[] listing, so a label read
+     * before the rebuild names the pre-pickup listing. It was previously invoked
+     * once per command, after every message, which is what let a picked-up scroll be
+     * announced at one letter and be found at another.
+     */
+    refreshInventory?: () => void;
+}
+/** check_for_inscrip (obj-util.c): occurrences of `inscrip` in the note. */
+export declare function checkForInscrip(obj: GameObject, inscrip: string): number;
+/**
+ * check_for_inscrip_with_int: occurrences of `inscrip` immediately followed
+ * by a digit; `value` is the integer after the first such occurrence.
+ */
+export declare function checkForInscripWithInt(obj: GameObject, inscrip: string): {
+    count: number;
+    value: number;
+};
+/**
+ * player_pickup_gold: pick up all gold at the player's grid, effortlessly.
+ * Returns the total picked up (already added to p.au).
+ */
+export declare function playerPickupGold(state: GameState, env?: PickupEnv): number;
+/**
+ * auto_pickup_okay: how many of a floor object to pick up automatically -
+ * pack capacity gated by the !g / =g / =g<n> inscriptions and the
+ * pickup_always / pickup_inven options.
+ */
+export declare function autoPickupOkay(state: GameState, obj: GameObject, deps: PickupDeps): number;
+/**
+ * player_pickup_item: pick up gold, then a specific object (when given) or
+ * one chosen from the floor list. Returns the number of objects picked up
+ * (the command's energy multiplier).
+ */
+export declare function playerPickupItem(state: GameState, obj: GameObject | null, deps: PickupDeps): number;
+/**
+ * do_autopickup: pick up everything on the player's grid that requires no
+ * action - gold always, objects per auto_pickup_okay. Returns the number
+ * of objects picked up.
+ */
+export declare function doAutopickup(state: GameState, deps: PickupDeps): number;
+/**
+ * Register the pickup commands on the action registry and install the
+ * state.autoPickup hook that walkAction runs after a step.
+ */
+export declare function installPickup(state: GameState, registry: ActionRegistry, deps: PickupDeps): void;
+//# sourceMappingURL=pickup.d.ts.map

package/dist/game/pickup.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"pickup.d.ts","sourceRoot":"","sources":["../../src/game/pickup.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;GA2BG;AAEH,OAAO,KAAK,EAAE,SAAS,EAAE,MAAM,iBAAiB,CAAC;AAEjD,OAAO,KAAK,EAAE,UAAU,EAAe,MAAM,kBAAkB,CAAC;AAYhE,OAAO,KAAK,EAAE,SAAS,EAAE,MAAM,cAAc,CAAC;AAW9C,OAAO,KAAK,EAAE,cAAc,EAAE,MAAM,kBAAkB,CAAC;AAEvD,yEAAyE;AACzE,MAAM,WAAW,SAAS;IACxB,uEAAuE;IACvE,SAAS,CAAC,EAAE,CAAC,GAAG,EAAE,UAAU,KAAK,OAAO,CAAC;IACzC,yDAAyD;IACzD,YAAY,CAAC,EAAE,OAAO,CAAC;IACvB,uDAAuD;IACvD,WAAW,CAAC,EAAE,OAAO,CAAC;IACtB,8DAA8D;IAC9D,UAAU,CAAC,EAAE,CAAC,IAAI,EAAE,SAAS,UAAU,EAAE,KAAK,UAAU,GAAG,IAAI,CAAC;IAChE;;;;;;;;;OASG;IACH,WAAW,CAAC,EAAE,CAAC,GAAG,EAAE,MAAM,KAAK,MAAM,CAAC;IACtC,+CAA+C;IAC/C,MAAM,CAAC,EAAE,CAAC,KAAK,EAAE,MAAM,EAAE,IAAI,EAAE,MAAM,EAAE,UAAU,EAAE,OAAO,KAAK,IAAI,CAAC;IACpE;;;;;OAKG;IACH,QAAQ,CAAC,EAAE,CAAC,GAAG,EAAE,MAAM,KAAK,IAAI,CAAC;IACjC,uBAAuB;IACvB,OAAO,CAAC,EAAE,MAAM,IAAI,CAAC;CACtB;AAED,qDAAqD;AACrD,MAAM,WAAW,UAAU;IACzB,sEAAsE;IACtE,SAAS,EAAE,SAAS,CAAC;IACrB,GAAG,CAAC,EAAE,SAAS,CAAC;IAChB;;;;;;;;;;;;;;OAcG;IACH,gBAAgB,CAAC,EAAE,MAAM,IAAI,CAAC;CAC/B;AASD,4EAA4E;AAC5E,wBAAgB,eAAe,CAAC,GAAG,EAAE,UAAU,EAAE,OAAO,EAAE,MAAM,GAAG,MAAM,CASxE;AAED;;;GAGG;AACH,wBAAgB,sBAAsB,CACpC,GAAG,EAAE,UAAU,EACf,OAAO,EAAE,MAAM,GACd;IAAE,KAAK,EAAE,MAAM,CAAC;IAAC,KAAK,EAAE,MAAM,CAAA;CAAE,CAclC;AAeD;;;GAGG;AACH,wBAAgB,gBAAgB,CAAC,KAAK,EAAE,SAAS,EAAE,GAAG,GAAE,SAAc,GAAG,MAAM,CA0B9E;AAED;;;;GAIG;AACH,wBAAgB,cAAc,CAC5B,KAAK,EAAE,SAAS,EAChB,GAAG,EAAE,UAAU,EACf,IAAI,EAAE,UAAU,GACf,MAAM,CAyCR;AAiID;;;;GAIG;AACH,wBAAgB,gBAAgB,CAC9B,KAAK,EAAE,SAAS,EAChB,GAAG,EAAE,UAAU,GAAG,IAAI,EACtB,IAAI,EAAE,UAAU,GACf,MAAM,CAyCR;AAED;;;;GAIG;AACH,wBAAgB,YAAY,CAAC,KAAK,EAAE,SAAS,EAAE,IAAI,EAAE,UAAU,GAAG,MAAM,CAoBvE;AAQD;;;GAGG;AACH,wBAAgB,aAAa,CAC3B,KAAK,EAAE,SAAS,EAChB,QAAQ,EAAE,cAAc,EACxB,IAAI,EAAE,UAAU,GACf,IAAI,CAUN"}

package/dist/game/pickup.js

@@ -0,0 +1,367 @@
+/**
+ * Pickup commands, ported from reference/src/cmd-pickup.c (Angband 4.2.6):
+ * gold pickup, the inscription-driven auto-pickup rules (!g / =g / =g<n>),
+ * partial pickup into the pack, do_autopickup on stepping, and the 'g'et
+ * command, wired into the action registry.
+ *
+ * Energy accounting: upstream queues CMD_AUTOPICKUP as a separate command
+ * after a step, charging picked * move_energy / 10 (capped at move_energy)
+ * on that later command. The port's command provider is injected (the
+ * engine cannot push commands), so walkAction adds the same capped cost to
+ * the step's energy via the state.autoPickup hook - the total energy spent
+ * is identical, only the single-command split differs (ledgered).
+ *
+ * Unported-subsystem seams (inert defaults): isIgnored (obj-ignore #24),
+ * chooseItem (the multi-object pickup menu, ui #25 - defaults to the pile
+ * head when unwired, so 'g' picks one item per press; packages/web/src's
+ * pickupCmd wires a real lettered picker, reusing the same selectFromMenu
+ * as the other item menus), messages/disturb hooks, and square_know_pile /
+ * OFLOOR_VISIBLE marking (knowledge #24 - everything on the grid is visible).
+ *
+ * playerPickupAux calls object_touch (obj-knowledge.c L960-972) when an object
+ * enters the pack: it marks the object ASSESSED (revealing its combat bracket
+ * and artifact name) and fires state.onArtifactFound (history_find_artifact).
+ * Find-on-sight is also wired now: square_know_pile's reduced port
+ * (game/known.ts) touches the pile on the player's own grid, so an artifact is
+ * found the instant its grid becomes known, not only on pickup.
+ * historyFindArtifact's per-aidx de-dupe keeps both paths safe.
+ */
+import { PF } from "../generated/index.js";
+import { OSTACK_PACK, objectPackTotal, objectStackable, tvalIsMoney, tvalIsMushroom, tvalIsZapper, } from "../obj/object.js";
+import { objectTouch } from "../obj/known-object.js";
+import { ODESC } from "../obj/desc.js";
+import { NOOP_FLAVOR_AWARE_DEPS } from "../obj/knowledge.js";
+import { describeObject } from "./describe.js";
+import { floorExcise, floorObjectForUse, floorPile } from "./floor.js";
+import { gearGet, invenCarryNum, invenCarryResult, packTotalSuppressed, packTotalView, } from "./gear.js";
+import { gearToLabel } from "./project-obj.js";
+function stackLimits(constants) {
+    return {
+        quiverSlotSize: constants.quiverSlotSize,
+        thrownQuiverMult: constants.thrownQuiverMult,
+    };
+}
+/** check_for_inscrip (obj-util.c): occurrences of `inscrip` in the note. */
+export function checkForInscrip(obj, inscrip) {
+    if (!obj.note)
+        return 0;
+    let n = 0;
+    let at = obj.note.indexOf(inscrip);
+    while (at >= 0) {
+        n++;
+        at = obj.note.indexOf(inscrip, at + 1);
+    }
+    return n;
+}
+/**
+ * check_for_inscrip_with_int: occurrences of `inscrip` immediately followed
+ * by a digit; `value` is the integer after the first such occurrence.
+ */
+export function checkForInscripWithInt(obj, inscrip) {
+    if (!obj.note)
+        return { count: 0, value: 0 };
+    let n = 0;
+    let value = 0;
+    let at = obj.note.indexOf(inscrip);
+    while (at >= 0) {
+        const rest = obj.note.slice(at + inscrip.length);
+        if (/^\d/.test(rest)) {
+            if (n === 0)
+                value = parseInt(rest, 10);
+            n++;
+        }
+        at = obj.note.indexOf(inscrip, at + 1);
+    }
+    return { count: n, value };
+}
+/** find_stack_object_in_inventory: pack stacks similar to obj, in order. */
+function packStacksSimilarTo(state, obj) {
+    const out = [];
+    for (const handle of state.gear.pack) {
+        const stack = state.gear.store.get(handle);
+        if (stack && objectStackable(stack, obj, OSTACK_PACK))
+            out.push(stack);
+    }
+    return out;
+}
+/**
+ * player_pickup_gold: pick up all gold at the player's grid, effortlessly.
+ * Returns the total picked up (already added to p.au).
+ */
+export function playerPickupGold(state, env = {}) {
+    const grid = state.actor.grid;
+    let totalGold = 0;
+    let name = "";
+    let verbal = false;
+    let atMostOne = true;
+    for (const obj of [...floorPile(state, grid)]) {
+        if (!tvalIsMoney(obj.tval))
+            continue;
+        /* Multiple types if we have a second name, otherwise record the name. */
+        if (totalGold && obj.kind.name !== name)
+            atMostOne = false;
+        else
+            name = obj.kind.name;
+        /* Remember whether feedback message is in order. */
+        if (!env.isIgnored?.(obj))
+            verbal = true;
+        totalGold += obj.pval;
+        floorExcise(state, grid, obj);
+    }
+    if (totalGold) {
+        state.actor.player.au += totalGold;
+        if (verbal)
+            env.onGold?.(totalGold, name, atMostOne);
+    }
+    return totalGold;
+}
+/**
+ * auto_pickup_okay: how many of a floor object to pick up automatically -
+ * pack capacity gated by the !g / =g / =g<n> inscriptions and the
+ * pickup_always / pickup_inven options.
+ */
+export function autoPickupOkay(state, obj, deps) {
+    const env = deps.env ?? {};
+    const num = invenCarryNum(state.gear, obj, deps.constants);
+    if (!num)
+        return 0;
+    if (env.pickupAlways ?? state.options?.get("pickup_always") ?? false)
+        return num;
+    if (checkForInscrip(obj, "!g"))
+        return 0;
+    const objHasAuto = checkForInscrip(obj, "=g");
+    const objMax = checkForInscripWithInt(obj, "=g");
+    const objMaxauto = objMax.count ? objMax.value : Number.MAX_SAFE_INTEGER;
+    if (objHasAuto > objMax.count)
+        return num;
+    if ((env.pickupInven ?? state.options?.get("pickup_inven") ?? true) ||
+        objMax.count) {
+        const matches = packStacksSimilarTo(state, obj);
+        const gearObj = matches[0];
+        if (!gearObj) {
+            if (objMax.count)
+                return Math.min(num, objMaxauto);
+            return 0;
+        }
+        if (!checkForInscrip(gearObj, "!g")) {
+            const gearHasAuto = checkForInscrip(gearObj, "=g");
+            const gearMax = checkForInscripWithInt(gearObj, "=g");
+            if (gearHasAuto > gearMax.count)
+                return num;
+            if (objMax.count || gearMax.count) {
+                /* Use the pack inscription if have both. */
+                const maxNum = gearMax.count ? gearMax.value : objMaxauto;
+                let packNum = 0;
+                for (const stack of matches)
+                    packNum += stack.number;
+                if (packNum >= maxNum)
+                    return 0;
+                return Math.min(num, maxNum - packNum);
+            }
+            return num;
+        }
+    }
+    return 0;
+}
+/**
+ * player_pickup_aux: move a floor object (or part of it) into the pack.
+ * The caller has confirmed inven_carry_num > 0.
+ */
+function playerPickupAux(state, obj, autoMax, deps) {
+    const env = deps.env ?? {};
+    let max = invenCarryNum(state.gear, obj, deps.constants);
+    if (max === 0)
+        throw new Error(`Failed pickup of ${obj.kind.name}`);
+    /* Allow auto-pickup to limit the number if it wants to. */
+    if (autoMax && max > autoMax)
+        max = autoMax;
+    const limits = stackLimits(deps.constants);
+    let handle;
+    let combining = false;
+    if (max === obj.number) {
+        if (obj.grid)
+            floorExcise(state, obj.grid, obj);
+        obj.grid = null;
+        ({ handle, combining } = invenCarryResult(state.gear, obj, limits));
+    }
+    else {
+        /* Partial pickup (cmd-pickup.c L262-274): an auto-pickup limit answers for
+         * itself, otherwise upstream asks - get_quantity(NULL, max) - and a 0
+         * answer abandons the pickup. */
+        const num = autoMax || (env.getQuantity?.(max) ?? max);
+        if (num <= 0)
+            return;
+        const { usable } = floorObjectForUse(state, obj, num);
+        ({ handle, combining } = invenCarryResult(state.gear, usable, limits));
+    }
+    /* object_touch (obj-knowledge.c L960-972; cmd-pickup.c L322 also touches the
+     * grid pile on pickup): mark the object ASSESSED so it reveals its combat
+     * bracket and, if an artifact, its name on entry to the pack; auto-notice the
+     * artifact and log the find (history_find_artifact). onArtifactFound is read
+     * through the state-level hook (not PickupEnv) so it survives a later
+     * installPickup call that only supplies message hooks (main.ts's "reinstall").
+     * (ASSESSED is idempotent, so re-touching an item already seen on the grid via
+     * squareKnowPile is harmless.) */
+    objectTouch(obj, { onArtifactFound: () => state.onArtifactFound?.(obj.artifact) });
+    /*
+     * Hobbits ID mushrooms on pickup, gnomes ID wands and staffs on pickup
+     * (obj-gear.c:879-886). Uses tvalIsMushroom / tvalIsZapper so those
+     * predicates sit on the live path (W2-012 / W2-013). No RNG.
+     */
+    const stack = gearGet(state.gear, handle);
+    /* apply_autoinscription (obj-gear.c:868): inven_carry autoinscribes in its
+     * NON-combining branch only - an object absorbed into an existing stack keeps
+     * that stack's inscription. This is the pickup half of the autoinscription
+     * story; without it a registered note only landed on the explicit `{`
+     * autoinscribe command. */
+    if (!combining && stack)
+        state.autoinscribeObject?.(stack);
+    if (!combining && stack && state.flavorKnown && !state.flavorKnown.isAware(stack.kind)) {
+        const p = state.actor.player;
+        const pflags = state.playerState?.pflags ?? p.race.pflags;
+        const hasMushroom = pflags.has(PF.KNOW_MUSHROOM) || p.cls.pflags.has(PF.KNOW_MUSHROOM);
+        const hasZapper = pflags.has(PF.KNOW_ZAPPER) || p.cls.pflags.has(PF.KNOW_ZAPPER);
+        const flavorDeps = state.flavorAwareDeps ?? NOOP_FLAVOR_AWARE_DEPS;
+        if (hasMushroom && tvalIsMushroom(stack.tval)) {
+            state.flavorKnown.objectFlavorAware(stack.kind, flavorDeps);
+            env.onPickup?.("Mushrooms for breakfast!");
+        }
+        else if (hasZapper && tvalIsZapper(stack.tval)) {
+            state.flavorKnown.objectFlavorAware(stack.kind, flavorDeps);
+        }
+    }
+    /* inven_carry's own "You have %s (%c)." message (obj-gear.c:893-921): describe
+     * the MERGED pack stack so the count and slot letter reflect the combined
+     * total (e.g. "You have 5 Potions of Cure Light Wounds (a).") rather than the
+     * bare floor object ("You have a Potion...").
+     *
+     * The count is the AGGREGATE across every like stack in the pack
+     * (object_pack_total, L908), not this stack's own number, and the letter is
+     * the FIRST such stack's - so five flasks split over slots c and f read
+     * "You have 5 Flasks of oil (1st c)." Suppressed for charge/recharge items,
+     * whose notice belongs to one stack (L899-905); note inven_carry alone omits
+     * the object_is_equipped arm of that test, because a just-carried object
+     * cannot be equipped. */
+    if (stack) {
+        /* update_stuff after PU_INVEN (obj-gear.c:889-891), and it happens HERE -
+         * before the message, not after the command - because the (%c) below is
+         * gear_to_label of the sorted upkeep->inven[] listing. Refresh it late and the
+         * letter names the listing as it was before this object joined it. */
+        deps.refreshInventory?.();
+        let total;
+        let first;
+        if (packTotalSuppressed(stack)) {
+            total = stack.number;
+            first = stack;
+        }
+        else {
+            const view = packTotalView(state.gear);
+            ({ total, first } = objectPackTotal(view, stack, false));
+        }
+        const name = describeObject(state, stack, ODESC.PREFIX | ODESC.FULL | ODESC.ALTNUM, total);
+        /* gear_to_label(p, first) in BOTH arms (L913): the letter names the first
+         * like stack even when the total is not an aggregate. */
+        const label = first
+            ? packLabelOf(state, first)
+            : gearToLabel(state.gear, handle);
+        const suffix = label ? ` (${total > (first?.number ?? total) ? "1st " : ""}${label})` : "";
+        env.onPickup?.(`You have ${name}${suffix}.`);
+    }
+}
+/** gear_to_label for an object we hold by reference rather than by handle. */
+function packLabelOf(state, obj) {
+    for (const handle of state.gear.pack) {
+        if (state.gear.store.get(handle) === obj) {
+            return gearToLabel(state.gear, handle);
+        }
+    }
+    return "";
+}
+/**
+ * player_pickup_item: pick up gold, then a specific object (when given) or
+ * one chosen from the floor list. Returns the number of objects picked up
+ * (the command's energy multiplier).
+ */
+export function playerPickupItem(state, obj, deps) {
+    const env = deps.env ?? {};
+    const grid = state.actor.grid;
+    /* square_know_pile is knowledge (#24); everything here is visible. */
+    /* Always pickup gold, effortlessly. */
+    playerPickupGold(state, env);
+    /* Nothing else to pick up -- return. */
+    if (floorPile(state, grid).length === 0)
+        return 0;
+    /* We're given an object - pick it up. */
+    if (obj) {
+        if (invenCarryNum(state.gear, obj, deps.constants) > 0) {
+            playerPickupAux(state, obj, 0, deps);
+            return 1;
+        }
+        return 0;
+    }
+    /* Tally objects that can be at least partially picked up. */
+    const floorList = floorPile(state, grid).filter((o) => !env.isIgnored?.(o));
+    const canPickup = floorList.filter((o) => invenCarryNum(state.gear, o, deps.constants) > 0);
+    if (canPickup.length === 0)
+        return 0;
+    /* One object picks up directly; several go through the menu seam
+     * (defaulting to the pile head - one item per 'g' press). */
+    let current;
+    if (canPickup.length === 1)
+        current = canPickup[0];
+    else
+        current = env.chooseItem?.(canPickup) ?? canPickup[0];
+    if (current) {
+        playerPickupAux(state, current, 0, deps);
+        return 1;
+    }
+    return 0;
+}
+/**
+ * do_autopickup: pick up everything on the player's grid that requires no
+ * action - gold always, objects per auto_pickup_okay. Returns the number
+ * of objects picked up.
+ */
+export function doAutopickup(state, deps) {
+    const env = deps.env ?? {};
+    const grid = state.actor.grid;
+    if (floorPile(state, grid).length === 0)
+        return 0;
+    /* Always pickup gold, effortlessly. */
+    playerPickupGold(state, env);
+    let picked = 0;
+    for (const obj of [...floorPile(state, grid)]) {
+        /* Ignore all hidden objects and non-objects. */
+        if (env.isIgnored?.(obj))
+            continue;
+        env.disturb?.();
+        const autoNum = autoPickupOkay(state, obj, deps);
+        if (autoNum) {
+            playerPickupAux(state, obj, autoNum, deps);
+            picked++;
+        }
+    }
+    return picked;
+}
+/** do_cmd_pickup / do_cmd_autopickup energy: picked * move_energy / 10. */
+function pickupEnergy(state, picked) {
+    const cost = Math.trunc((picked * state.z.moveEnergy) / 10);
+    return Math.min(cost, state.z.moveEnergy);
+}
+/**
+ * Register the pickup commands on the action registry and install the
+ * state.autoPickup hook that walkAction runs after a step.
+ */
+export function installPickup(state, registry, deps) {
+    /* Rebuild the computed quiver after any pickup that carried something, so
+     * ammo lands in the quiver rather than the pack (PU_INVEN; see PickupDeps). */
+    const pickedThen = (s, picked) => {
+        if (picked > 0)
+            deps.refreshInventory?.();
+        return pickupEnergy(s, picked);
+    };
+    registry.register("pickup", (s) => pickedThen(s, playerPickupItem(s, null, deps)));
+    registry.register("autopickup", (s) => pickedThen(s, doAutopickup(s, deps)));
+    state.autoPickup = (s) => pickedThen(s, doAutopickup(s, deps));
+}
+//# sourceMappingURL=pickup.js.map

package/dist/game/pickup.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"pickup.js","sourceRoot":"","sources":["../../src/game/pickup.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;GA2BG;AAGH,OAAO,EAAE,EAAE,EAAE,MAAM,uBAAuB,CAAC;AAE3C,OAAO,EACL,WAAW,EACX,eAAe,EACf,eAAe,EACf,WAAW,EACX,cAAc,EACd,YAAY,GACb,MAAM,kBAAkB,CAAC;AAC1B,OAAO,EAAE,WAAW,EAAE,MAAM,wBAAwB,CAAC;AACrD,OAAO,EAAE,KAAK,EAAE,MAAM,gBAAgB,CAAC;AACvC,OAAO,EAAE,sBAAsB,EAAE,MAAM,qBAAqB,CAAC;AAE7D,OAAO,EAAE,cAAc,EAAE,MAAM,eAAe,CAAC;AAC/C,OAAO,EAAE,WAAW,EAAE,iBAAiB,EAAE,SAAS,EAAE,MAAM,YAAY,CAAC;AACvE,OAAO,EACL,OAAO,EACP,aAAa,EACb,gBAAgB,EAChB,mBAAmB,EACnB,aAAa,GACd,MAAM,WAAW,CAAC;AACnB,OAAO,EAAE,WAAW,EAAE,MAAM,kBAAkB,CAAC;AA4D/C,SAAS,WAAW,CAAC,SAAoB;IACvC,OAAO;QACL,cAAc,EAAE,SAAS,CAAC,cAAc;QACxC,gBAAgB,EAAE,SAAS,CAAC,gBAAgB;KAC7C,CAAC;AACJ,CAAC;AAED,4EAA4E;AAC5E,MAAM,UAAU,eAAe,CAAC,GAAe,EAAE,OAAe;IAC9D,IAAI,CAAC,GAAG,CAAC,IAAI;QAAE,OAAO,CAAC,CAAC;IACxB,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,IAAI,EAAE,GAAG,GAAG,CAAC,IAAI,CAAC,OAAO,CAAC,OAAO,CAAC,CAAC;IACnC,OAAO,EAAE,IAAI,CAAC,EAAE,CAAC;QACf,CAAC,EAAE,CAAC;QACJ,EAAE,GAAG,GAAG,CAAC,IAAI,CAAC,OAAO,CAAC,OAAO,EAAE,EAAE,GAAG,CAAC,CAAC,CAAC;IACzC,CAAC;IACD,OAAO,CAAC,CAAC;AACX,CAAC;AAED;;;GAGG;AACH,MAAM,UAAU,sBAAsB,CACpC,GAAe,EACf,OAAe;IAEf,IAAI,CAAC,GAAG,CAAC,IAAI;QAAE,OAAO,EAAE,KAAK,EAAE,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,CAAC;IAC7C,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,IAAI,EAAE,GAAG,GAAG,CAAC,IAAI,CAAC,OAAO,CAAC,OAAO,CAAC,CAAC;IACnC,OAAO,EAAE,IAAI,CAAC,EAAE,CAAC;QACf,MAAM,IAAI,GAAG,GAAG,CAAC,IAAI,CAAC,KAAK,CAAC,EAAE,GAAG,OAAO,CAAC,MAAM,CAAC,CAAC;QACjD,IAAI,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;YACrB,IAAI,CAAC,KAAK,CAAC;gBAAE,KAAK,GAAG,QAAQ,CAAC,IAAI,EAAE,EAAE,CAAC,CAAC;YACxC,CAAC,EAAE,CAAC;QACN,CAAC;QACD,EAAE,GAAG,GAAG,CAAC,IAAI,CAAC,OAAO,CAAC,OAAO,EAAE,EAAE,GAAG,CAAC,CAAC,CAAC;IACzC,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,CAAC,EAAE,KAAK,EAAE,CAAC;AAC7B,CAAC;AAED,4EAA4E;AAC5E,SAAS,mBAAmB,CAC1B,KAAgB,EAChB,GAAe;IAEf,MAAM,GAAG,GAAiB,EAAE,CAAC;IAC7B,KAAK,MAAM,MAAM,IAAI,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC;QACrC,MAAM,KAAK,GAAG,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;QAC3C,IAAI,KAAK,IAAI,eAAe,CAAC,KAAK,EAAE,GAAG,EAAE,WAAW,CAAC;YAAE,GAAG,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACzE,CAAC;IACD,OAAO,GAAG,CAAC;AACb,CAAC;AAED;;;GAGG;AACH,MAAM,UAAU,gBAAgB,CAAC,KAAgB,EAAE,MAAiB,EAAE;IACpE,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,CAAC,IAAI,CAAC;IAC9B,IAAI,SAAS,GAAG,CAAC,CAAC;IAClB,IAAI,IAAI,GAAG,EAAE,CAAC;IACd,IAAI,MAAM,GAAG,KAAK,CAAC;IACnB,IAAI,SAAS,GAAG,IAAI,CAAC;IAErB,KAAK,MAAM,GAAG,IAAI,CAAC,GAAG,SAAS,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC,EAAE,CAAC;QAC9C,IAAI,CAAC,WAAW,CAAC,GAAG,CAAC,IAAI,CAAC;YAAE,SAAS;QAErC,yEAAyE;QACzE,IAAI,SAAS,IAAI,GAAG,CAAC,IAAI,CAAC,IAAI,KAAK,IAAI;YAAE,SAAS,GAAG,KAAK,CAAC;;YACtD,IAAI,GAAG,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC;QAE1B,oDAAoD;QACpD,IAAI,CAAC,GAAG,CAAC,SAAS,EAAE,CAAC,GAAG,CAAC;YAAE,MAAM,GAAG,IAAI,CAAC;QAEzC,SAAS,IAAI,GAAG,CAAC,IAAI,CAAC;QACtB,WAAW,CAAC,KAAK,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC;IAChC,CAAC;IAED,IAAI,SAAS,EAAE,CAAC;QACd,KAAK,CAAC,KAAK,CAAC,MAAM,CAAC,EAAE,IAAI,SAAS,CAAC;QACnC,IAAI,MAAM;YAAE,GAAG,CAAC,MAAM,EAAE,CAAC,SAAS,EAAE,IAAI,EAAE,SAAS,CAAC,CAAC;IACvD,CAAC;IACD,OAAO,SAAS,CAAC;AACnB,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,cAAc,CAC5B,KAAgB,EAChB,GAAe,EACf,IAAgB;IAEhB,MAAM,GAAG,GAAG,IAAI,CAAC,GAAG,IAAI,EAAE,CAAC;IAC3B,MAAM,GAAG,GAAG,aAAa,CAAC,KAAK,CAAC,IAAI,EAAE,GAAG,EAAE,IAAI,CAAC,SAAS,CAAC,CAAC;IAC3D,IAAI,CAAC,GAAG;QAAE,OAAO,CAAC,CAAC;IAEnB,IAAI,GAAG,CAAC,YAAY,IAAI,KAAK,CAAC,OAAO,EAAE,GAAG,CAAC,eAAe,CAAC,IAAI,KAAK;QAClE,OAAO,GAAG,CAAC;IACb,IAAI,eAAe,CAAC,GAAG,EAAE,IAAI,CAAC;QAAE,OAAO,CAAC,CAAC;IAEzC,MAAM,UAAU,GAAG,eAAe,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;IAC9C,MAAM,MAAM,GAAG,sBAAsB,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;IACjD,MAAM,UAAU,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,gBAAgB,CAAC;IACzE,IAAI,UAAU,GAAG,MAAM,CAAC,KAAK;QAAE,OAAO,GAAG,CAAC;IAE1C,IACE,CAAC,GAAG,CAAC,WAAW,IAAI,KAAK,CAAC,OAAO,EAAE,GAAG,CAAC,cAAc,CAAC,IAAI,IAAI,CAAC;QAC/D,MAAM,CAAC,KAAK,EACZ,CAAC;QACD,MAAM,OAAO,GAAG,mBAAmB,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;QAChD,MAAM,OAAO,GAAG,OAAO,CAAC,CAAC,CAAC,CAAC;QAC3B,IAAI,CAAC,OAAO,EAAE,CAAC;YACb,IAAI,MAAM,CAAC,KAAK;gBAAE,OAAO,IAAI,CAAC,GAAG,CAAC,GAAG,EAAE,UAAU,CAAC,CAAC;YACnD,OAAO,CAAC,CAAC;QACX,CAAC;QACD,IAAI,CAAC,eAAe,CAAC,OAAO,EAAE,IAAI,CAAC,EAAE,CAAC;YACpC,MAAM,WAAW,GAAG,eAAe,CAAC,OAAO,EAAE,IAAI,CAAC,CAAC;YACnD,MAAM,OAAO,GAAG,sBAAsB,CAAC,OAAO,EAAE,IAAI,CAAC,CAAC;YACtD,IAAI,WAAW,GAAG,OAAO,CAAC,KAAK;gBAAE,OAAO,GAAG,CAAC;YAC5C,IAAI,MAAM,CAAC,KAAK,IAAI,OAAO,CAAC,KAAK,EAAE,CAAC;gBAClC,4CAA4C;gBAC5C,MAAM,MAAM,GAAG,OAAO,CAAC,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,CAAC,UAAU,CAAC;gBAC1D,IAAI,OAAO,GAAG,CAAC,CAAC;gBAChB,KAAK,MAAM,KAAK,IAAI,OAAO;oBAAE,OAAO,IAAI,KAAK,CAAC,MAAM,CAAC;gBACrD,IAAI,OAAO,IAAI,MAAM;oBAAE,OAAO,CAAC,CAAC;gBAChC,OAAO,IAAI,CAAC,GAAG,CAAC,GAAG,EAAE,MAAM,GAAG,OAAO,CAAC,CAAC;YACzC,CAAC;YACD,OAAO,GAAG,CAAC;QACb,CAAC;IACH,CAAC;IAED,OAAO,CAAC,CAAC;AACX,CAAC;AAED;;;GAGG;AACH,SAAS,eAAe,CACtB,KAAgB,EAChB,GAAe,EACf,OAAe,EACf,IAAgB;IAEhB,MAAM,GAAG,GAAG,IAAI,CAAC,GAAG,IAAI,EAAE,CAAC;IAC3B,IAAI,GAAG,GAAG,aAAa,CAAC,KAAK,CAAC,IAAI,EAAE,GAAG,EAAE,IAAI,CAAC,SAAS,CAAC,CAAC;IACzD,IAAI,GAAG,KAAK,CAAC;QAAE,MAAM,IAAI,KAAK,CAAC,oBAAoB,GAAG,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC,CAAC;IAEpE,2DAA2D;IAC3D,IAAI,OAAO,IAAI,GAAG,GAAG,OAAO;QAAE,GAAG,GAAG,OAAO,CAAC;IAE5C,MAAM,MAAM,GAAG,WAAW,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;IAC3C,IAAI,MAAc,CAAC;IACnB,IAAI,SAAS,GAAG,KAAK,CAAC;IACtB,IAAI,GAAG,KAAK,GAAG,CAAC,MAAM,EAAE,CAAC;QACvB,IAAI,GAAG,CAAC,IAAI;YAAE,WAAW,CAAC,KAAK,EAAE,GAAG,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;QAChD,GAAG,CAAC,IAAI,GAAG,IAAI,CAAC;QAChB,CAAC,EAAE,MAAM,EAAE,SAAS,EAAE,GAAG,gBAAgB,CAAC,KAAK,CAAC,IAAI,EAAE,GAAG,EAAE,MAAM,CAAC,CAAC,CAAC;IACtE,CAAC;SAAM,CAAC;QACN;;yCAEiC;QACjC,MAAM,GAAG,GAAG,OAAO,IAAI,CAAC,GAAG,CAAC,WAAW,EAAE,CAAC,GAAG,CAAC,IAAI,GAAG,CAAC,CAAC;QACvD,IAAI,GAAG,IAAI,CAAC;YAAE,OAAO;QACrB,MAAM,EAAE,MAAM,EAAE,GAAG,iBAAiB,CAAC,KAAK,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC;QACtD,CAAC,EAAE,MAAM,EAAE,SAAS,EAAE,GAAG,gBAAgB,CAAC,KAAK,CAAC,IAAI,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC,CAAC;IACzE,CAAC;IACD;;;;;;;sCAOkC;IAClC,WAAW,CAAC,GAAG,EAAE,EAAE,eAAe,EAAE,GAAG,EAAE,CAAC,KAAK,CAAC,eAAe,EAAE,CAAC,GAAG,CAAC,QAAS,CAAC,EAAE,CAAC,CAAC;IAEpF;;;;OAIG;IACH,MAAM,KAAK,GAAG,OAAO,CAAC,KAAK,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;IAE1C;;;;+BAI2B;IAC3B,IAAI,CAAC,SAAS,IAAI,KAAK;QAAE,KAAK,CAAC,kBAAkB,EAAE,CAAC,KAAK,CAAC,CAAC;IAE3D,IAAI,CAAC,SAAS,IAAI,KAAK,IAAI,KAAK,CAAC,WAAW,IAAI,CAAC,KAAK,CAAC,WAAW,CAAC,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC,EAAE,CAAC;QACvF,MAAM,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,MAAM,CAAC;QAC7B,MAAM,MAAM,GAAG,KAAK,CAAC,WAAW,EAAE,MAAM,IAAI,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC;QAC1D,MAAM,WAAW,GACf,MAAM,CAAC,GAAG,CAAC,EAAE,CAAC,aAAa,CAAC,IAAI,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC,GAAG,CAAC,EAAE,CAAC,aAAa,CAAC,CAAC;QACrE,MAAM,SAAS,GACb,MAAM,CAAC,GAAG,CAAC,EAAE,CAAC,WAAW,CAAC,IAAI,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC,GAAG,CAAC,EAAE,CAAC,WAAW,CAAC,CAAC;QACjE,MAAM,UAAU,GAAG,KAAK,CAAC,eAAe,IAAI,sBAAsB,CAAC;QACnE,IAAI,WAAW,IAAI,cAAc,CAAC,KAAK,CAAC,IAAI,CAAC,EAAE,CAAC;YAC9C,KAAK,CAAC,WAAW,CAAC,iBAAiB,CAAC,KAAK,CAAC,IAAI,EAAE,UAAU,CAAC,CAAC;YAC5D,GAAG,CAAC,QAAQ,EAAE,CAAC,0BAA0B,CAAC,CAAC;QAC7C,CAAC;aAAM,IAAI,SAAS,IAAI,YAAY,CAAC,KAAK,CAAC,IAAI,CAAC,EAAE,CAAC;YACjD,KAAK,CAAC,WAAW,CAAC,iBAAiB,CAAC,KAAK,CAAC,IAAI,EAAE,UAAU,CAAC,CAAC;QAC9D,CAAC;IACH,CAAC;IAED;;;;;;;;;;;6BAWyB;IACzB,IAAI,KAAK,EAAE,CAAC;QACV;;;8EAGsE;QACtE,IAAI,CAAC,gBAAgB,EAAE,EAAE,CAAC;QAE1B,IAAI,KAAa,CAAC;QAClB,IAAI,KAAwB,CAAC;QAC7B,IAAI,mBAAmB,CAAC,KAAK,CAAC,EAAE,CAAC;YAC/B,KAAK,GAAG,KAAK,CAAC,MAAM,CAAC;YACrB,KAAK,GAAG,KAAK,CAAC;QAChB,CAAC;aAAM,CAAC;YACN,MAAM,IAAI,GAAG,aAAa,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;YACvC,CAAC,EAAE,KAAK,EAAE,KAAK,EAAE,GAAG,eAAe,CAAC,IAAI,EAAE,KAAK,EAAE,KAAK,CAAC,CAAC,CAAC;QAC3D,CAAC;QACD,MAAM,IAAI,GAAG,cAAc,CACzB,KAAK,EACL,KAAK,EACL,KAAK,CAAC,MAAM,GAAG,KAAK,CAAC,IAAI,GAAG,KAAK,CAAC,MAAM,EACxC,KAAK,CACN,CAAC;QACF;iEACyD;QACzD,MAAM,KAAK,GAAG,KAAK;YACjB,CAAC,CAAC,WAAW,CAAC,KAAK,EAAE,KAAK,CAAC;YAC3B,CAAC,CAAC,WAAW,CAAC,KAAK,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;QACpC,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,CAAC,KAAK,KAAK,GAAG,CAAC,KAAK,EAAE,MAAM,IAAI,KAAK,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,GAAG,KAAK,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC;QAC3F,GAAG,CAAC,QAAQ,EAAE,CAAC,YAAY,IAAI,GAAG,MAAM,GAAG,CAAC,CAAC;IAC/C,CAAC;AACH,CAAC;AAED,8EAA8E;AAC9E,SAAS,WAAW,CAAC,KAAgB,EAAE,GAAe;IACpD,KAAK,MAAM,MAAM,IAAI,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC;QACrC,IAAI,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,MAAM,CAAC,KAAK,GAAG,EAAE,CAAC;YACzC,OAAO,WAAW,CAAC,KAAK,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;QACzC,CAAC;IACH,CAAC;IACD,OAAO,EAAE,CAAC;AACZ,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,gBAAgB,CAC9B,KAAgB,EAChB,GAAsB,EACtB,IAAgB;IAEhB,MAAM,GAAG,GAAG,IAAI,CAAC,GAAG,IAAI,EAAE,CAAC;IAC3B,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,CAAC,IAAI,CAAC;IAE9B,sEAAsE;IAEtE,uCAAuC;IACvC,gBAAgB,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;IAE7B,wCAAwC;IACxC,IAAI,SAAS,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,CAAC,CAAC;IAElD,yCAAyC;IACzC,IAAI,GAAG,EAAE,CAAC;QACR,IAAI,aAAa,CAAC,KAAK,CAAC,IAAI,EAAE,GAAG,EAAE,IAAI,CAAC,SAAS,CAAC,GAAG,CAAC,EAAE,CAAC;YACvD,eAAe,CAAC,KAAK,EAAE,GAAG,EAAE,CAAC,EAAE,IAAI,CAAC,CAAC;YACrC,OAAO,CAAC,CAAC;QACX,CAAC;QACD,OAAO,CAAC,CAAC;IACX,CAAC;IAED,6DAA6D;IAC7D,MAAM,SAAS,GAAG,SAAS,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC,MAAM,CAC7C,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,GAAG,CAAC,SAAS,EAAE,CAAC,CAAC,CAAC,CAC3B,CAAC;IACF,MAAM,SAAS,GAAG,SAAS,CAAC,MAAM,CAChC,CAAC,CAAC,EAAE,EAAE,CAAC,aAAa,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC,EAAE,IAAI,CAAC,SAAS,CAAC,GAAG,CAAC,CACxD,CAAC;IACF,IAAI,SAAS,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,CAAC,CAAC;IAErC;iEAC6D;IAC7D,IAAI,OAA0B,CAAC;IAC/B,IAAI,SAAS,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,GAAG,SAAS,CAAC,CAAC,CAAE,CAAC;;QAC/C,OAAO,GAAG,GAAG,CAAC,UAAU,EAAE,CAAC,SAAS,CAAC,IAAI,SAAS,CAAC,CAAC,CAAE,CAAC;IAE5D,IAAI,OAAO,EAAE,CAAC;QACZ,eAAe,CAAC,KAAK,EAAE,OAAO,EAAE,CAAC,EAAE,IAAI,CAAC,CAAC;QACzC,OAAO,CAAC,CAAC;IACX,CAAC;IACD,OAAO,CAAC,CAAC;AACX,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,YAAY,CAAC,KAAgB,EAAE,IAAgB;IAC7D,MAAM,GAAG,GAAG,IAAI,CAAC,GAAG,IAAI,EAAE,CAAC;IAC3B,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,CAAC,IAAI,CAAC;IAC9B,IAAI,SAAS,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,CAAC,CAAC;IAElD,uCAAuC;IACvC,gBAAgB,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;IAE7B,IAAI,MAAM,GAAG,CAAC,CAAC;IACf,KAAK,MAAM,GAAG,IAAI,CAAC,GAAG,SAAS,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC,EAAE,CAAC;QAC9C,gDAAgD;QAChD,IAAI,GAAG,CAAC,SAAS,EAAE,CAAC,GAAG,CAAC;YAAE,SAAS;QACnC,GAAG,CAAC,OAAO,EAAE,EAAE,CAAC;QAChB,MAAM,OAAO,GAAG,cAAc,CAAC,KAAK,EAAE,GAAG,EAAE,IAAI,CAAC,CAAC;QACjD,IAAI,OAAO,EAAE,CAAC;YACZ,eAAe,CAAC,KAAK,EAAE,GAAG,EAAE,OAAO,EAAE,IAAI,CAAC,CAAC;YAC3C,MAAM,EAAE,CAAC;QACX,CAAC;IACH,CAAC;IACD,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,2EAA2E;AAC3E,SAAS,YAAY,CAAC,KAAgB,EAAE,MAAc;IACpD,MAAM,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,MAAM,GAAG,KAAK,CAAC,CAAC,CAAC,UAAU,CAAC,GAAG,EAAE,CAAC,CAAC;IAC5D,OAAO,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC,UAAU,CAAC,CAAC;AAC5C,CAAC;AAED;;;GAGG;AACH,MAAM,UAAU,aAAa,CAC3B,KAAgB,EAChB,QAAwB,EACxB,IAAgB;IAEhB;mFAC+E;IAC/E,MAAM,UAAU,GAAG,CAAC,CAAY,EAAE,MAAc,EAAU,EAAE;QAC1D,IAAI,MAAM,GAAG,CAAC;YAAE,IAAI,CAAC,gBAAgB,EAAE,EAAE,CAAC;QAC1C,OAAO,YAAY,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC;IACjC,CAAC,CAAC;IACF,QAAQ,CAAC,QAAQ,CAAC,QAAQ,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,UAAU,CAAC,CAAC,EAAE,gBAAgB,CAAC,CAAC,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IACnF,QAAQ,CAAC,QAAQ,CAAC,YAAY,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,UAAU,CAAC,CAAC,EAAE,YAAY,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;IAC7E,KAAK,CAAC,UAAU,GAAG,CAAC,CAAC,EAAU,EAAE,CAAC,UAAU,CAAC,CAAC,EAAE,YAAY,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC;AACzE,CAAC"}

package/dist/game/player-path.d.ts

@@ -0,0 +1,133 @@
+/**
+ * The running engine, ported from reference/src/player-path.c (Angband 4.2.6):
+ * the Christopher J Stuart corridor/open-area running code - run_init,
+ * run_test, run_step and see_wall.
+ *
+ * Once running begins you keep moving until something interesting happens. In
+ * a hallway you follow corners; in the open you run straight but stop before
+ * entering an enclosed space; alongside a wall you stop before it opens or
+ * closes. Every decision is made from the player's memory of the cave (an
+ * unknown wall reads like floor), matching upstream exactly.
+ *
+ * CONTINUATION SEAM: upstream re-queues CMD_RUN after every step via
+ * cmdq_push. This port has no blocking input - process_player reads through
+ * the injected provider - so run_step pushes the follow-up onto GameState's
+ * internal cmdQueue (the cmdq twin), which processPlayer drains before asking
+ * the provider. One keypress therefore drives a whole run, and runGameLoop
+ * interleaves it with monster and world turns exactly as upstream does.
+ *
+ * EXTERNAL disturb(): disturb() (below) is exported and called from the upstream
+ * disturb() sites outside the per-step run_test checks - a monster becoming
+ * easily visible / leaving view (update_mon, game/known.ts), a visible monster
+ * acting in view or bursting a door (monster_turn / monster_turn_can_move,
+ * game/monster-turn.ts), and the player taking a melee blow (take_hit, wired
+ * through game/mon-side.ts; world DoTs and projections wire it in session/game.ts
+ * and game/project-player.ts). All are deterministic (no RNG).
+ *
+ * path_nearest_known / path_nearest_unknown and the pathfinding branch of
+ * run_step are wired (W2-003 navigate-up/down, explore, pathfind). DEFERRED
+ * (ledgered in game-player-path.yaml): the automatic open-door / tunnel-rubble
+ * command pushes on the pathfind branch; the running torch-radius
+ * recalculation (PU_TORCH) and the run-into-trap-disarms nuance ride the
+ * light / trap layers.
+ */
+import type { Loc } from "../loc.js";
+import type { GameState, PlayerCommand } from "./context.js";
+import type { ActionRegistry } from "./player-turn.js";
+/**
+ * disturb(): stop running / pathfinding, cancel any rest, free the path steps
+ * and flush the queued continuations. path_dest is deliberately kept so the
+ * pathfinding auto-open / auto-tunnel branch can re-issue the travel. The
+ * sound and redraw halves ride their subsystems (deferred).
+ */
+export declare function disturb(state: GameState): void;
+/**
+ * find_path (player-path.c L1069), the routine do_cmd_pathfind (cmd-cave.c
+ * L1563) calls to travel to a clicked grid: A* from start to dest over the
+ * player's memory of the cave, with a Chebyshev heuristic (scaled by PF_SCL, so
+ * it is admissible - no step can cost less than one move) on a min-heap
+ * priority queue and a lazily patched distance array. Returns the steps as
+ * forward keypad directions in reverse order, a length of 0 when already at the
+ * destination and -1 when it is unreachable.
+ *
+ * WHY THE A* AND NOT prepare_pfdistances + pfdistances_to_path. Upstream ships
+ * both, and its own comment at L1063-L1067 says the two disagree: "the path
+ * returned by find_path() may be different than that returned by
+ * pfdistances_to_path()" when several paths tie on expected turncount. Both are
+ * minimum-cost, so the turncount, the destination and reachability always
+ * agree; what differs is WHICH of the equal-cost step sequences comes back, and
+ * do_cmd_pathfind gets its answer from this one. So this is a transcription of
+ * the A*, down to the comparisons that settle the ties: the sift order inside
+ * the heap (z-queue.ts), qp_pushpop_int handing the incoming grid back on a tie
+ * with the head (L1281), the ddd iteration order over the eight neighbours, and
+ * the "only the LAST feasible neighbour skips the heap" structure below.
+ * prepare_pfdistances and pfdistances_to_path stay as they are - they are
+ * faithful ports of upstream's other pair and still serve
+ * pfdistances_to_turncount, path_nearest_known and path_nearest_unknown.
+ *
+ * The retry structure is upstream's: try remembered grids only, then any; and
+ * within that, forbid known visible traps, then allow them - but the trap retry
+ * only happens if a trap actually blocked something (`hitTrap`, L1289), which is
+ * why it is tracked rather than inferred.
+ */
+export declare function findPath(state: GameState, start: Loc, dest: Loc): {
+    length: number;
+    steps: number[];
+};
+/**
+ * path_nearest_known: the path to the nearest remembered grid (other than the
+ * start) satisfying `pred`, with the same constraint-loosening as find_path.
+ * Returns the path and the chosen destination.
+ */
+export declare function pathNearestKnown(state: GameState, start: Loc, pred: (state: GameState, grid: Loc) => boolean): {
+    length: number;
+    steps: number[];
+    dest: Loc;
+};
+/**
+ * path_nearest_unknown: the path to the nearest remembered passable grid with
+ * an unknown neighbor, or (failing that) the nearest remembered closed door /
+ * rubble with an unknown neighbor and a known-passable neighbor to stand on.
+ * This is the explore command's target.
+ */
+export declare function pathNearestUnknown(state: GameState, start: Loc): {
+    length: number;
+    steps: number[];
+    dest: Loc;
+};
+/**
+ * pathfind_direction_to: the keypad direction from one point to another,
+ * preferring diagonals when dx and dy are within a factor of two.
+ */
+export declare function pathfindDirectionTo(from: Loc, to: Loc): number;
+/**
+ * run_step: begin a run (real direction), or continue a run / pathfind (dir
+ * 0). Moves one grid in the current direction via walkAction (move / FOV /
+ * autopickup / trap consequences), decrements the counter and re-queues itself
+ * while steps remain. Returns the energy spent (0 stops).
+ */
+export declare function runStep(state: GameState, dir: number): number;
+/** The run command: start (a real direction) or continue (dir 0) a run. */
+export declare function runAction(state: GameState, cmd: PlayerCommand): number;
+/**
+ * do_cmd_pathfind: travel to cmd.args.dest (a Loc). Computes the path and
+ * walks it, self-continuing through the command queue.
+ */
+export declare function pathfindAction(state: GameState, cmd: PlayerCommand): number;
+/**
+ * do_cmd_explore (cmd-cave.c:1500): travel toward the nearest unexplored area.
+ *
+ * The port had only the pathfinding half. Every one of upstream's four gates
+ * was missing, so explore ran while confused, ran out of a web for free, and
+ * ran with monsters in view - and said nothing when there was nowhere to go.
+ * The navigate-stair commands next door already share this preamble; upstream
+ * repeats it verbatim in all three (do_cmd_navigate_down L1408, _up L1454).
+ */
+export declare function exploreAction(state: GameState, _cmd: PlayerCommand): number;
+/** do_cmd_navigate_down (cmd-cave.c:1408): path to nearest known downstairs. */
+export declare function navigateDownAction(state: GameState, _cmd: PlayerCommand): number;
+/** do_cmd_navigate_up (cmd-cave.c:1454): path to nearest known upstairs. */
+export declare function navigateUpAction(state: GameState, _cmd: PlayerCommand): number;
+/** Register the run / pathfind / explore / navigate actions over their stubs. */
+export declare function installRunning(registry: ActionRegistry): void;
+//# sourceMappingURL=player-path.d.ts.map

package/dist/game/player-path.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"player-path.d.ts","sourceRoot":"","sources":["../../src/game/player-path.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GAgCG;AAGH,OAAO,KAAK,EAAE,GAAG,EAAE,MAAM,WAAW,CAAC;AASrC,OAAO,KAAK,EAAE,SAAS,EAAE,aAAa,EAAY,MAAM,cAAc,CAAC;AAevE,OAAO,KAAK,EAAE,cAAc,EAAE,MAAM,kBAAkB,CAAC;AAiCvD;;;;;GAKG;AACH,wBAAgB,OAAO,CAAC,KAAK,EAAE,SAAS,GAAG,IAAI,CAW9C;AAooBD;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA4BG;AACH,wBAAgB,QAAQ,CACtB,KAAK,EAAE,SAAS,EAChB,KAAK,EAAE,GAAG,EACV,IAAI,EAAE,GAAG,GACR;IAAE,MAAM,EAAE,MAAM,CAAC;IAAC,KAAK,EAAE,MAAM,EAAE,CAAA;CAAE,CAiLrC;AAED;;;;GAIG;AACH,wBAAgB,gBAAgB,CAC9B,KAAK,EAAE,SAAS,EAChB,KAAK,EAAE,GAAG,EACV,IAAI,EAAE,CAAC,KAAK,EAAE,SAAS,EAAE,IAAI,EAAE,GAAG,KAAK,OAAO,GAC7C;IAAE,MAAM,EAAE,MAAM,CAAC;IAAC,KAAK,EAAE,MAAM,EAAE,CAAC;IAAC,IAAI,EAAE,GAAG,CAAA;CAAE,CAkChD;AAqCD;;;;;GAKG;AACH,wBAAgB,kBAAkB,CAChC,KAAK,EAAE,SAAS,EAChB,KAAK,EAAE,GAAG,GACT;IAAE,MAAM,EAAE,MAAM,CAAC;IAAC,KAAK,EAAE,MAAM,EAAE,CAAC;IAAC,IAAI,EAAE,GAAG,CAAA;CAAE,CA2DhD;AAED;;;GAGG;AACH,wBAAgB,mBAAmB,CAAC,IAAI,EAAE,GAAG,EAAE,EAAE,EAAE,GAAG,GAAG,MAAM,CAW9D;AA8ED;;;;;GAKG;AACH,wBAAgB,OAAO,CAAC,KAAK,EAAE,SAAS,EAAE,GAAG,EAAE,MAAM,GAAG,MAAM,CAmD7D;AAED,2EAA2E;AAC3E,wBAAgB,SAAS,CAAC,KAAK,EAAE,SAAS,EAAE,GAAG,EAAE,aAAa,GAAG,MAAM,CAmBtE;AAoBD;;;GAGG;AACH,wBAAgB,cAAc,CAAC,KAAK,EAAE,SAAS,EAAE,GAAG,EAAE,aAAa,GAAG,MAAM,CAI3E;AAED;;;;;;;;GAQG;AACH,wBAAgB,aAAa,CAAC,KAAK,EAAE,SAAS,EAAE,IAAI,EAAE,aAAa,GAAG,MAAM,CA0B3E;AAqDD,gFAAgF;AAChF,wBAAgB,kBAAkB,CAChC,KAAK,EAAE,SAAS,EAChB,IAAI,EAAE,aAAa,GAClB,MAAM,CAMR;AAED,4EAA4E;AAC5E,wBAAgB,gBAAgB,CAAC,KAAK,EAAE,SAAS,EAAE,IAAI,EAAE,aAAa,GAAG,MAAM,CAM9E;AAED,iFAAiF;AACjF,wBAAgB,cAAc,CAAC,QAAQ,EAAE,cAAc,GAAG,IAAI,CAM7D"}