@fnndsc/brasa 0.37.0 → 0.38.0

package/dist/builtins/games/trek/io.js

@@ -0,0 +1,216 @@
+/**
+ * @file trek's terminal: printf out, a character stream in.
+ *
+ * The C reads its input a character at a time (getchar, ungetc, scanf),
+ * which is what lets a player type ahead — `move 2 45 3` on one line — and
+ * what makes it prompt only when the next character is a newline. This is
+ * that stream over a surface that answers questions a line at a time: when
+ * the stream runs dry, the partial line printed so far (`Command: `) is the
+ * question asked, and the answer, with its newline, is what getchar reads.
+ *
+ * exit() and longjmp() are thrown, as TrekExit and TrekReset, and caught
+ * where the C's main() and setjmp() stood. Written for the port.
+ *
+ * @module
+ */
+import { sprintf } from './printf.js';
+/** exit(code): the game is over and the command returns. */
+export class TrekExit extends Error {
+    code;
+    /** @param code - The exit status. */
+    constructor(code) {
+        super(`trek exited ${code}`);
+        this.code = code;
+    }
+}
+/** longjmp(env, 1): back to main's "Another game" question. */
+export class TrekReset extends Error {
+    constructor() {
+        super('trek reset');
+    }
+}
+/** End of input, as getchar() returns it. */
+export const EOF = -1;
+/** The terminal the game reads and writes. */
+export class TrekIO {
+    terminal;
+    /** Printed, not yet written out (the tail is the next prompt). */
+    pending = '';
+    /** Characters typed, not yet read. */
+    input = [];
+    /** @param terminal - What it is wired to. */
+    constructor(terminal) {
+        this.terminal = terminal;
+    }
+    /** printf(format, ...). */
+    printf(format, ...args) {
+        this.pending += sprintf(format, ...args);
+        this.lines_flush();
+    }
+    /** putchar(c). */
+    putchar(c) {
+        this.pending += typeof c === 'number' ? String.fromCharCode(c) : c;
+        this.lines_flush();
+    }
+    /** Writes out every complete line printed; the partial tail waits. */
+    lines_flush() {
+        const cut = this.pending.lastIndexOf('\n');
+        if (cut < 0)
+            return;
+        this.terminal.write(this.pending.slice(0, cut + 1));
+        this.pending = this.pending.slice(cut + 1);
+    }
+    /** Writes out everything printed, the partial tail too (fflush). */
+    fflush() {
+        if (this.pending !== '')
+            this.terminal.write(this.pending);
+        this.pending = '';
+    }
+    /** getchar(): the next character typed, asking when none is waiting. */
+    async getchar() {
+        if (this.input.length === 0) {
+            const prompt = this.pending;
+            this.pending = '';
+            const line = await this.terminal.ask(prompt);
+            if (line === null)
+                return EOF;
+            for (const char of `${line}\n`)
+                this.input.push(char.charCodeAt(0));
+        }
+        return this.input.shift();
+    }
+    /** ungetc(c): puts a character back to be read next. */
+    ungetc(c) {
+        if (c !== EOF)
+            this.input.unshift(c);
+    }
+    /** sleep(seconds). */
+    async sleep(seconds) {
+        this.lines_flush();
+        await this.terminal.sleep(seconds);
+    }
+    /** exit(code). */
+    exit(code) {
+        this.fflush();
+        throw new TrekExit(code);
+    }
+    /* ------------------------------------------------- scanf, as trek uses it */
+    /** Skips white space, as a scanf numeric conversion does; returns the next character, unread. */
+    async space_skip() {
+        let c = await this.getchar();
+        while (c === 32 || c === 9 || c === 10 || c === 11 || c === 12 || c === 13)
+            c = await this.getchar();
+        return c;
+    }
+    /**
+     * scanf("%d"): skips white space and reads an integer.
+     *
+     * @returns The count (1 read, 0 no match, -1 end of input) and the value.
+     */
+    async scanInt() {
+        let c = await this.space_skip();
+        if (c === EOF)
+            return { count: -1, value: 0 };
+        let text = '';
+        if (c === 43 || c === 45) {
+            text += String.fromCharCode(c);
+            c = await this.getchar();
+        }
+        while (c >= 48 && c <= 57) {
+            text += String.fromCharCode(c);
+            c = await this.getchar();
+        }
+        this.ungetc(c);
+        if (!/\d/.test(text)) {
+            // Nothing that is a number: the sign (if any) is spent, as glibc spends it.
+            return { count: 0, value: 0 };
+        }
+        return { count: 1, value: Number.parseInt(text, 10) | 0 };
+    }
+    /**
+     * scanf("%lf"): skips white space and reads a decimal number.
+     *
+     * @returns The count (1 read, 0 no match, -1 end of input) and the value.
+     */
+    async scanDouble() {
+        let c = await this.space_skip();
+        if (c === EOF)
+            return { count: -1, value: 0 };
+        let text = '';
+        const digit = (x) => x >= 48 && x <= 57;
+        if (c === 43 || c === 45) {
+            text += String.fromCharCode(c);
+            c = await this.getchar();
+        }
+        while (digit(c)) {
+            text += String.fromCharCode(c);
+            c = await this.getchar();
+        }
+        if (c === 46) {
+            text += '.';
+            c = await this.getchar();
+            while (digit(c)) {
+                text += String.fromCharCode(c);
+                c = await this.getchar();
+            }
+        }
+        if (/\d/.test(text) && (c === 101 || c === 69)) {
+            const mark = text;
+            text += 'e';
+            c = await this.getchar();
+            if (c === 43 || c === 45) {
+                text += String.fromCharCode(c);
+                c = await this.getchar();
+            }
+            if (digit(c)) {
+                while (digit(c)) {
+                    text += String.fromCharCode(c);
+                    c = await this.getchar();
+                }
+            }
+            else {
+                text = mark;
+            }
+        }
+        this.ungetc(c);
+        if (!/\d/.test(text))
+            return { count: 0, value: 0 };
+        return { count: 1, value: Number.parseFloat(text) };
+    }
+    /**
+     * scanf("%*[set]"): reads and discards characters in the set (no white
+     * space skipped first).
+     *
+     * @param set - The characters.
+     * @returns -1 at end of input before any, else 0.
+     */
+    async scanSkip(set) {
+        let c = await this.getchar();
+        if (c === EOF)
+            return -1;
+        while (c !== EOF && set.includes(String.fromCharCode(c)))
+            c = await this.getchar();
+        this.ungetc(c);
+        return 0;
+    }
+    /**
+     * scanf("%N[^set]"): reads up to N characters not in the set.
+     *
+     * @param stop - The characters that end it.
+     * @param max - At most this many.
+     * @returns The count (1 read, 0 none, -1 end of input) and the text.
+     */
+    async scanUntil(stop, max) {
+        let c = await this.getchar();
+        if (c === EOF)
+            return { count: -1, value: '' };
+        let text = '';
+        while (c !== EOF && !stop.includes(String.fromCharCode(c)) && text.length < max) {
+            text += String.fromCharCode(c);
+            c = await this.getchar();
+        }
+        this.ungetc(c);
+        return { count: text.length > 0 ? 1 : 0, value: text };
+    }
+}
+//# sourceMappingURL=io.js.map

package/dist/builtins/games/trek/io.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"io.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/io.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;GAcG;AACH,OAAO,EAAE,OAAO,EAAkB,MAAM,aAAa,CAAC;AAEtD,4DAA4D;AAC5D,MAAM,OAAO,QAAS,SAAQ,KAAK;IAEL;IAD5B,qCAAqC;IACrC,YAA4B,IAAY;QACtC,KAAK,CAAC,eAAe,IAAI,EAAE,CAAC,CAAC;QADH,SAAI,GAAJ,IAAI,CAAQ;IAExC,CAAC;CACF;AAED,+DAA+D;AAC/D,MAAM,OAAO,SAAU,SAAQ,KAAK;IAClC;QACE,KAAK,CAAC,YAAY,CAAC,CAAC;IACtB,CAAC;CACF;AAYD,6CAA6C;AAC7C,MAAM,CAAC,MAAM,GAAG,GAAW,CAAC,CAAC,CAAC;AAE9B,8CAA8C;AAC9C,MAAM,OAAO,MAAM;IAOY;IAN7B,kEAAkE;IAC1D,OAAO,GAAW,EAAE,CAAC;IAC7B,sCAAsC;IAC9B,KAAK,GAAa,EAAE,CAAC;IAE7B,6CAA6C;IAC7C,YAA6B,QAAsB;QAAtB,aAAQ,GAAR,QAAQ,CAAc;IAAG,CAAC;IAEvD,2BAA2B;IACpB,MAAM,CAAC,MAAc,EAAE,GAAG,IAAiB;QAChD,IAAI,CAAC,OAAO,IAAI,OAAO,CAAC,MAAM,EAAE,GAAG,IAAI,CAAC,CAAC;QACzC,IAAI,CAAC,WAAW,EAAE,CAAC;IACrB,CAAC;IAED,kBAAkB;IACX,OAAO,CAAC,CAAkB;QAC/B,IAAI,CAAC,OAAO,IAAI,OAAO,CAAC,KAAK,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACnE,IAAI,CAAC,WAAW,EAAE,CAAC;IACrB,CAAC;IAED,sEAAsE;IAC9D,WAAW;QACjB,MAAM,GAAG,GAAW,IAAI,CAAC,OAAO,CAAC,WAAW,CAAC,IAAI,CAAC,CAAC;QACnD,IAAI,GAAG,GAAG,CAAC;YAAE,OAAO;QACpB,IAAI,CAAC,QAAQ,CAAC,KAAK,CAAC,IAAI,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,EAAE,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC;QACpD,IAAI,CAAC,OAAO,GAAG,IAAI,CAAC,OAAO,CAAC,KAAK,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC;IAC7C,CAAC;IAED,oEAAoE;IAC7D,MAAM;QACX,IAAI,IAAI,CAAC,OAAO,KAAK,EAAE;YAAE,IAAI,CAAC,QAAQ,CAAC,KAAK,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC;QAC3D,IAAI,CAAC,OAAO,GAAG,EAAE,CAAC;IACpB,CAAC;IAED,wEAAwE;IACjE,KAAK,CAAC,OAAO;QAClB,IAAI,IAAI,CAAC,KAAK,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;YAC5B,MAAM,MAAM,GAAW,IAAI,CAAC,OAAO,CAAC;YACpC,IAAI,CAAC,OAAO,GAAG,EAAE,CAAC;YAClB,MAAM,IAAI,GAAkB,MAAM,IAAI,CAAC,QAAQ,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;YAC5D,IAAI,IAAI,KAAK,IAAI;gBAAE,OAAO,GAAG,CAAC;YAC9B,KAAK,MAAM,IAAI,IAAI,GAAG,IAAI,IAAI;gBAAE,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC;QACtE,CAAC;QACD,OAAO,IAAI,CAAC,KAAK,CAAC,KAAK,EAAY,CAAC;IACtC,CAAC;IAED,wDAAwD;IACjD,MAAM,CAAC,CAAS;QACrB,IAAI,CAAC,KAAK,GAAG;YAAE,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC;IACvC,CAAC;IAED,sBAAsB;IACf,KAAK,CAAC,KAAK,CAAC,OAAe;QAChC,IAAI,CAAC,WAAW,EAAE,CAAC;QACnB,MAAM,IAAI,CAAC,QAAQ,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC;IACrC,CAAC;IAED,kBAAkB;IACX,IAAI,CAAC,IAAY;QACtB,IAAI,CAAC,MAAM,EAAE,CAAC;QACd,MAAM,IAAI,QAAQ,CAAC,IAAI,CAAC,CAAC;IAC3B,CAAC;IAED,8EAA8E;IAE9E,iGAAiG;IACzF,KAAK,CAAC,UAAU;QACtB,IAAI,CAAC,GAAW,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;QACrC,OAAO,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE;YAAE,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;QACrG,OAAO,CAAC,CAAC;IACX,CAAC;IAED;;;;OAIG;IACI,KAAK,CAAC,OAAO;QAClB,IAAI,CAAC,GAAW,MAAM,IAAI,CAAC,UAAU,EAAE,CAAC;QACxC,IAAI,CAAC,KAAK,GAAG;YAAE,OAAO,EAAE,KAAK,EAAE,CAAC,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,CAAC;QAC9C,IAAI,IAAI,GAAW,EAAE,CAAC;QACtB,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,EAAE,CAAC;YAAC,IAAI,IAAI,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;YAAC,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;QAAC,CAAC;QACvF,OAAO,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,EAAE,CAAC;YAAC,IAAI,IAAI,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;YAAC,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;QAAC,CAAC;QACxF,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;QACf,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC;YACrB,4EAA4E;YAC5E,OAAO,EAAE,KAAK,EAAE,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,CAAC;QAChC,CAAC;QACD,OAAO,EAAE,KAAK,EAAE,CAAC,EAAE,KAAK,EAAE,MAAM,CAAC,QAAQ,CAAC,IAAI,EAAE,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC;IAC5D,CAAC;IAED;;;;OAIG;IACI,KAAK,CAAC,UAAU;QACrB,IAAI,CAAC,GAAW,MAAM,IAAI,CAAC,UAAU,EAAE,CAAC;QACxC,IAAI,CAAC,KAAK,GAAG;YAAE,OAAO,EAAE,KAAK,EAAE,CAAC,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,CAAC;QAC9C,IAAI,IAAI,GAAW,EAAE,CAAC;QACtB,MAAM,KAAK,GAAG,CAAC,CAAS,EAAW,EAAE,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC;QACzD,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,EAAE,CAAC;YAAC,IAAI,IAAI,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;YAAC,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;QAAC,CAAC;QACvF,OAAO,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC;YAAC,IAAI,IAAI,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;YAAC,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;QAAC,CAAC;QAC9E,IAAI,CAAC,KAAK,EAAE,EAAE,CAAC;YAAC,IAAI,IAAI,GAAG,CAAC;YAAC,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;YAAC,OAAO,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC;gBAAC,IAAI,IAAI,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;gBAAC,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;YAAC,CAAC;QAAC,CAAC;QACvI,IAAI,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,EAAE,CAAC,EAAE,CAAC;YAC/C,MAAM,IAAI,GAAW,IAAI,CAAC;YAC1B,IAAI,IAAI,GAAG,CAAC;YACZ,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;YACzB,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,EAAE,CAAC;gBAAC,IAAI,IAAI,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;gBAAC,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;YAAC,CAAC;YACvF,IAAI,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC;gBAAC,OAAO,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC;oBAAC,IAAI,IAAI,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;oBAAC,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;gBAAC,CAAC;YAAC,CAAC;iBAAM,CAAC;gBAAC,IAAI,GAAG,IAAI,CAAC;YAAC,CAAC;QACxH,CAAC;QACD,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;QACf,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC;YAAE,OAAO,EAAE,KAAK,EAAE,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,CAAC;QACpD,OAAO,EAAE,KAAK,EAAE,CAAC,EAAE,KAAK,EAAE,MAAM,CAAC,UAAU,CAAC,IAAI,CAAC,EAAE,CAAC;IACtD,CAAC;IAED;;;;;;OAMG;IACI,KAAK,CAAC,QAAQ,CAAC,GAAW;QAC/B,IAAI,CAAC,GAAW,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;QACrC,IAAI,CAAC,KAAK,GAAG;YAAE,OAAO,CAAC,CAAC,CAAC;QACzB,OAAO,CAAC,KAAK,GAAG,IAAI,GAAG,CAAC,QAAQ,CAAC,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;YAAE,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;QACnF,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;QACf,OAAO,CAAC,CAAC;IACX,CAAC;IAED;;;;;;OAMG;IACI,KAAK,CAAC,SAAS,CAAC,IAAY,EAAE,GAAW;QAC9C,IAAI,CAAC,GAAW,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;QACrC,IAAI,CAAC,KAAK,GAAG;YAAE,OAAO,EAAE,KAAK,EAAE,CAAC,CAAC,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC;QAC/C,IAAI,IAAI,GAAW,EAAE,CAAC;QACtB,OAAO,CAAC,KAAK,GAAG,IAAI,CAAC,IAAI,CAAC,QAAQ,CAAC,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC,IAAI,IAAI,CAAC,MAAM,GAAG,GAAG,EAAE,CAAC;YAChF,IAAI,IAAI,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;YAC/B,CAAC,GAAG,MAAM,IAAI,CAAC,OAAO,EAAE,CAAC;QAC3B,CAAC;QACD,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;QACf,OAAO,EAAE,KAAK,EAAE,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC;IACzD,CAAC;CACF"}

package/dist/builtins/games/trek/kill.d.ts

@@ -0,0 +1,21 @@
+import type { Trek } from './context.js';
+/** Handle a Klingon's death. */
+export declare function killk(t: Trek, ix: number, iy: number): Promise<void>;
+/** Handle a starbase's death. */
+export declare function killb(t: Trek, qx: number, qy: number): Promise<void>;
+/**
+ **	kill an inhabited starsystem
+ **
+ ** x, y are quad coords if f == 0, else sector coords
+ ** f != 0 -- this quad;  f < 0 -- Enterprise's fault
+ **/
+/** Kill an inhabited starsystem. */
+export declare function kills(t: Trek, x: number, y: number, f: number): Promise<void>;
+/**
+ **	"kill" a distress call
+ **
+ ** x, y are quadrant coordinates
+ ** f is set if user is to be informed
+ **/
+/** "Kill" a distress call. */
+export declare function killd(t: Trek, x: number, y: number, f: number): Promise<void>;

package/dist/builtins/games/trek/kill.js

@@ -0,0 +1,194 @@
+/*
+ * kill.ts: a TypeScript port of BSD trek(6), from kill.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): kill.c 1.11 2009/05/24.
+ *
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+/**
+ * @file The killing off of almost anything: a Klingon, a starbase, an
+ * inhabited starsystem, a distress call.
+ *
+ * @module
+ */
+import { DOCKED, E_ENSLV, E_GHOST, E_KATSB, E_KDESB, E_REPRO, EMPTY, MAXEVENTS, Q_DISTRESSED, Q_SYSTEM, SSRADIO, Systemname, TOOLARGE } from './consts.js';
+import { damaged } from './damaged.js';
+import { undock } from './dock.js';
+import { schedule, unschedule } from './schedule.js';
+import { systemname } from './systemname.js';
+import { win } from './win.js';
+/*
+**  KILL KILL KILL !!!
+**
+**	This file handles the killing off of almost anything.
+*/
+/*
+**  Handle a Klingon's death
+**
+**	The Klingon at the sector given by the parameters is killed
+**	and removed from the Klingon list.  Notice that it is not
+**	removed from the event list; this is done later, when the
+**	the event is to be caught.  Also, the time left is recomputed,
+**	and the game is won if that was the last klingon.
+*/
+/** Handle a Klingon's death. */
+export async function killk(t, ix, iy) {
+    const { Now, Sect, Quad, Ship, Game, Etc } = t.s;
+    t.io.printf('   *** Klingon at %d,%d destroyed ***\n', ix, iy);
+    /* remove the scoundrel */
+    Now.klings -= 1;
+    Sect[ix][iy] = EMPTY;
+    Quad[Ship.quadx][Ship.quady].klings -= 1;
+    /* %%% IS THIS SAFE???? %%% */
+    Quad[Ship.quadx][Ship.quady].scanned -= 100;
+    Game.killk += 1;
+    /* find the Klingon in the Klingon list */
+    for (let i = 0; i < Etc.nkling; i++) {
+        if (ix === Etc.klingon[i].x && iy === Etc.klingon[i].y) {
+            /* purge him from the list */
+            Etc.nkling -= 1;
+            for (; i < Etc.nkling; i++)
+                Etc.klingon[i] = { ...Etc.klingon[i + 1] };
+            break;
+        }
+    }
+    /* find out if that was the last one */
+    if (Now.klings <= 0)
+        await win(t);
+    /* recompute time left */
+    Now.time = Now.resource / Now.klings;
+}
+/*
+**  handle a starbase's death
+*/
+/** Handle a starbase's death. */
+export async function killb(t, qx, qy) {
+    const { Now, Sect, Ship, Etc } = t.s;
+    const q = t.s.Quad[qx][qy];
+    if (q.bases <= 0)
+        return;
+    if (!damaged(t, SSRADIO)) {
+        /* then update starchart */
+        if (q.scanned < 1000)
+            q.scanned -= 10;
+        else if (q.scanned > 1000)
+            q.scanned = -1;
+    }
+    q.bases = 0;
+    Now.bases -= 1;
+    let b;
+    for (b = 0;; b++) {
+        if (qx === Now.base[b].x && qy === Now.base[b].y)
+            break;
+    }
+    const last = Now.base[Now.bases];
+    Now.base[b] = { ...last };
+    if (qx === Ship.quadx && qy === Ship.quady) {
+        Sect[Etc.starbase.x][Etc.starbase.y] = EMPTY;
+        if (Ship.cond === DOCKED)
+            await undock(t, 0);
+        t.io.printf('Starbase at %d,%d destroyed\n', Etc.starbase.x, Etc.starbase.y);
+    }
+    else {
+        if (!damaged(t, SSRADIO)) {
+            t.io.printf('Uhura: Starfleet command reports that the starbase in\n');
+            t.io.printf('   quadrant %d,%d has been destroyed\n', qx, qy);
+        }
+        else {
+            schedule(t, E_KATSB | E_GHOST, TOOLARGE, qx, qy, 0);
+        }
+    }
+}
+/**
+ **	kill an inhabited starsystem
+ **
+ ** x, y are quad coords if f == 0, else sector coords
+ ** f != 0 -- this quad;  f < 0 -- Enterprise's fault
+ **/
+/** Kill an inhabited starsystem. */
+export async function kills(t, x, y, f) {
+    const { Ship, Game } = t.s;
+    let q;
+    if (f) {
+        /* current quadrant */
+        q = t.s.Quad[Ship.quadx][Ship.quady];
+        t.s.Sect[x][y] = EMPTY;
+        const name = systemname(t, q);
+        if (name === null)
+            return;
+        t.io.printf('Inhabited starsystem %s at %d,%d destroyed\n', name, x, y);
+        if (f < 0)
+            Game.killinhab += 1;
+    }
+    else {
+        /* different quadrant */
+        q = t.s.Quad[x][y];
+    }
+    if (q.qsystemname & Q_DISTRESSED) {
+        /* distressed starsystem */
+        const e = q.qsystemname & Q_SYSTEM;
+        t.io.printf('Distress call for %s invalidated\n', Systemname[t.s.Event[e].systemname]);
+        unschedule(t, e);
+    }
+    q.qsystemname = 0;
+    q.stars -= 1;
+}
+/**
+ **	"kill" a distress call
+ **
+ ** x, y are quadrant coordinates
+ ** f is set if user is to be informed
+ **/
+/** "Kill" a distress call. */
+export async function killd(t, x, y, f) {
+    const q = t.s.Quad[x][y];
+    for (let i = 0; i < MAXEVENTS; i++) {
+        const e = t.s.Event[i];
+        if (e.x !== x || e.y !== y)
+            continue;
+        switch (e.evcode) {
+            case E_KDESB:
+                if (f) {
+                    t.io.printf('Distress call for starbase in %d,%d nullified\n', x, y);
+                    unschedule(t, i);
+                }
+                break;
+            case E_ENSLV:
+            case E_REPRO:
+                if (f) {
+                    t.io.printf('Distress call for %s in quadrant %d,%d nullified\n', Systemname[e.systemname], x, y);
+                    q.qsystemname = e.systemname;
+                    unschedule(t, i);
+                }
+                else {
+                    e.evcode |= E_GHOST;
+                }
+        }
+    }
+}
+//# sourceMappingURL=kill.js.map

package/dist/builtins/games/trek/kill.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"kill.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/kill.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;GAKG;AACH,OAAO,EAAE,MAAM,EAAE,OAAO,EAAE,OAAO,EAAE,OAAO,EAAE,OAAO,EAAE,OAAO,EAAE,KAAK,EAAE,SAAS,EAAE,YAAY,EAAE,QAAQ,EAAE,OAAO,EAAE,UAAU,EAAE,QAAQ,EAAE,MAAM,aAAa,CAAC;AAE3J,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,MAAM,EAAE,MAAM,WAAW,CAAC;AACnC,OAAO,EAAE,QAAQ,EAAE,UAAU,EAAE,MAAM,eAAe,CAAC;AAErD,OAAO,EAAE,UAAU,EAAE,MAAM,iBAAiB,CAAC;AAC7C,OAAO,EAAE,GAAG,EAAE,MAAM,UAAU,CAAC;AAE/B;;;;EAIE;AAEF;;;;;;;;EAQE;AAEF,gCAAgC;AAChC,MAAM,CAAC,KAAK,UAAU,KAAK,CAAC,CAAO,EAAE,EAAU,EAAE,EAAU;IACzD,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IACjD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,yCAAyC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;IAE/D,0BAA0B;IAC1B,GAAG,CAAC,MAAM,IAAI,CAAC,CAAC;IAChB,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,GAAG,KAAK,CAAC;IACrB,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,MAAM,IAAI,CAAC,CAAC;IACzC,8BAA8B;IAC9B,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,OAAO,IAAI,GAAG,CAAC;IAC5C,IAAI,CAAC,KAAK,IAAI,CAAC,CAAC;IAEhB,0CAA0C;IAC1C,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5C,IAAI,EAAE,KAAK,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;YACvD,6BAA6B;YAC7B,GAAG,CAAC,MAAM,IAAI,CAAC,CAAC;YAChB,OAAO,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,CAAC,EAAE;gBAAE,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC;YACvE,MAAM;QACR,CAAC;IACH,CAAC;IAED,uCAAuC;IACvC,IAAI,GAAG,CAAC,MAAM,IAAI,CAAC;QAAE,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC;IAElC,yBAAyB;IACzB,GAAG,CAAC,IAAI,GAAG,GAAG,CAAC,QAAQ,GAAG,GAAG,CAAC,MAAM,CAAC;AACvC,CAAC;AAED;;EAEE;AAEF,iCAAiC;AACjC,MAAM,CAAC,KAAK,UAAU,KAAK,CAAC,CAAO,EAAE,EAAU,EAAE,EAAU;IACzD,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IACrC,MAAM,CAAC,GAAS,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC;IAEjC,IAAI,CAAC,CAAC,KAAK,IAAI,CAAC;QAAE,OAAO;IACzB,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,OAAO,CAAC,EAAE,CAAC;QACzB,2BAA2B;QAC3B,IAAI,CAAC,CAAC,OAAO,GAAG,IAAI;YAAE,CAAC,CAAC,OAAO,IAAI,EAAE,CAAC;aACjC,IAAI,CAAC,CAAC,OAAO,GAAG,IAAI;YAAE,CAAC,CAAC,OAAO,GAAG,CAAC,CAAC,CAAC;IAC5C,CAAC;IACD,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC;IACZ,GAAG,CAAC,KAAK,IAAI,CAAC,CAAC;IACf,IAAI,CAAS,CAAC;IACd,KAAK,CAAC,GAAG,CAAC,GAAI,CAAC,EAAE,EAAE,CAAC;QAClB,IAAI,EAAE,KAAK,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;YAAE,MAAM;IAC1D,CAAC;IACD,MAAM,IAAI,GAAO,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;IACrC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,IAAI,EAAE,CAAC;IAC1B,IAAI,EAAE,KAAK,IAAI,CAAC,KAAK,IAAI,EAAE,KAAK,IAAI,CAAC,KAAK,EAAE,CAAC;QAC3C,IAAI,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC;QAC7C,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM;YAAE,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QAC7C,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,+BAA+B,EAAE,GAAG,CAAC,QAAQ,CAAC,CAAC,EAAE,GAAG,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;IAC/E,CAAC;SAAM,CAAC;QACN,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,OAAO,CAAC,EAAE,CAAC;YACzB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,yDAAyD,CAAC,CAAC;YACvE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,wCAAwC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;QAChE,CAAC;aAAM,CAAC;YACN,QAAQ,CAAC,CAAC,EAAE,OAAO,GAAG,OAAO,EAAE,QAAQ,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC;QACtD,CAAC;IACH,CAAC;AACH,CAAC;AAED;;;;;IAKI;AAEJ,oCAAoC;AACpC,MAAM,CAAC,KAAK,UAAU,KAAK,CAAC,CAAO,EAAE,CAAS,EAAE,CAAS,EAAE,CAAS;IAClE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IAC3B,IAAI,CAAO,CAAC;IAEZ,IAAI,CAAC,EAAE,CAAC;QACN,sBAAsB;QACtB,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;QACrC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC;QACvB,MAAM,IAAI,GAAkB,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QAC7C,IAAI,IAAI,KAAK,IAAI;YAAE,OAAO;QAC1B,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,8CAA8C,EAAE,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;QACxE,IAAI,CAAC,GAAG,CAAC;YAAE,IAAI,CAAC,SAAS,IAAI,CAAC,CAAC;IACjC,CAAC;SAAM,CAAC;QACN,wBAAwB;QACxB,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACrB,CAAC;IACD,IAAI,CAAC,CAAC,WAAW,GAAG,YAAY,EAAE,CAAC;QACjC,2BAA2B;QAC3B,MAAM,CAAC,GAAW,CAAC,CAAC,WAAW,GAAG,QAAQ,CAAC;QAC3C,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,oCAAoC,EAAE,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,UAAU,CAAC,CAAC,CAAC;QACvF,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IACnB,CAAC;IACD,CAAC,CAAC,WAAW,GAAG,CAAC,CAAC;IAClB,CAAC,CAAC,KAAK,IAAI,CAAC,CAAC;AACf,CAAC;AAED;;;;;IAKI;AAEJ,8BAA8B;AAC9B,MAAM,CAAC,KAAK,UAAU,KAAK,CAAC,CAAO,EAAE,CAAS,EAAE,CAAS,EAAE,CAAS;IAClE,MAAM,CAAC,GAAS,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IAC/B,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,SAAS,EAAE,CAAC,EAAE,EAAE,CAAC;QAC3C,MAAM,CAAC,GAAc,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;QAClC,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC;YAAE,SAAS;QACrC,QAAQ,CAAC,CAAC,MAAM,EAAE,CAAC;YACjB,KAAK,OAAO;gBACV,IAAI,CAAC,EAAE,CAAC;oBACN,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,iDAAiD,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;oBACrE,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBACnB,CAAC;gBACD,MAAM;YAER,KAAK,OAAO,CAAC;YACb,KAAK,OAAO;gBACV,IAAI,CAAC,EAAE,CAAC;oBACN,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,oDAAoD,EAAE,UAAU,CAAC,CAAC,CAAC,UAAU,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;oBAClG,CAAC,CAAC,WAAW,GAAG,CAAC,CAAC,UAAU,CAAC;oBAC7B,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBACnB,CAAC;qBAAM,CAAC;oBACN,CAAC,CAAC,MAAM,IAAI,OAAO,CAAC;gBACtB,CAAC;QACL,CAAC;IACH,CAAC;AACH,CAAC"}

package/dist/builtins/games/trek/klmove.d.ts

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** Moves the Klingons of the current quadrant. */
+export declare function klmove(t: Trek, fl: number): Promise<void>;

package/dist/builtins/games/trek/klmove.js

@@ -0,0 +1,181 @@
+/*
+ * klmove.ts: a TypeScript port of BSD trek(6), from klmove.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): klmove.c 1.9 2009/05/24.
+ *
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+/**
+ * @file Moving the Klingons around a quadrant: toward or away from the
+ * ship, around stars, and out into the next quadrant.
+ *
+ * @module
+ */
+import { compkldist } from './compkl.js';
+import { EMPTY, KLINGON, MAXKLQUAD, NQUADS, NSECTS, SRSCAN } from './consts.js';
+import { damaged } from './damaged.js';
+import { ranf } from './rand.js';
+/*
+**  Move Klingons Around
+**
+**	This is a largely incomprehensible block of code that moves
+**	Klingons around in a quadrant.  It was written in a very
+**	"program as you go" fashion, and is a prime candidate for
+**	rewriting.
+**
+**	The flag `fl' is zero before an attack, one after an attack,
+**	and two if you are leaving a quadrant.  This serves to
+**	change the probability and distance that it moves.
+**
+**	Basically, what it will try to do is to move a certain number
+**	of steps either toward you or away from you.  It will avoid
+**	stars whenever possible.  Nextx and nexty are the next
+**	sector to move to on a per-Klingon basis; they are roughly
+**	equivalent to Ship.sectx and Ship.secty for the starship.  Lookx and
+**	looky are the sector that you are going to look at to see
+**	if you can move their.  Dx and dy are the increment.  Fudgex
+**	and fudgey are the things you change around to change your
+**	course around stars.
+*/
+/** Moves the Klingons of the current quadrant. */
+export async function klmove(t, fl) {
+    const { Ship, Param, Move, Etc } = t.s;
+    let k;
+    let dx;
+    let dy;
+    let nextx;
+    let nexty;
+    let lookx;
+    let looky;
+    let motion;
+    let fudgex;
+    let fudgey;
+    let qx;
+    let qy;
+    let bigger;
+    let i;
+    if (t.s.Trace)
+        t.io.printf('klmove: fl = %d, Etc.nkling = %d\n', fl, Etc.nkling);
+    for (let n = 0; n < Etc.nkling; n++) {
+        k = Etc.klingon[n];
+        i = 100;
+        if (fl)
+            i = Math.trunc(100.0 * k.power / Param.klingpwr);
+        if (ranf(t.rnd, i) >= Param.moveprob[2 * Move.newquad + fl])
+            continue;
+        /* compute distance to move */
+        motion = ranf(t.rnd, 75) - 25;
+        motion = Math.trunc(motion * (k.avgdist * Param.movefac[2 * Move.newquad + fl]));
+        /* compute direction */
+        dx = Ship.sectx - k.x + ranf(t.rnd, 3) - 1;
+        dy = Ship.secty - k.y + ranf(t.rnd, 3) - 1;
+        bigger = dx;
+        if (dy > bigger)
+            bigger = dy;
+        if (bigger === 0.0)
+            bigger = 1.0;
+        dx = dx / bigger + 0.5;
+        dy = dy / bigger + 0.5;
+        if (motion < 0) {
+            motion = -motion;
+            dx = -dx;
+            dy = -dy;
+        }
+        fudgex = fudgey = 1;
+        /* try to move the klingon */
+        nextx = k.x;
+        nexty = k.y;
+        for (; motion > 0; motion--) {
+            lookx = Math.trunc(nextx + dx);
+            looky = Math.trunc(nexty + dy);
+            if (lookx < 0 || lookx >= NSECTS ||
+                looky < 0 || looky >= NSECTS) {
+                /* new quadrant */
+                qx = Ship.quadx;
+                qy = Ship.quady;
+                if (lookx < 0)
+                    qx -= 1;
+                else if (lookx >= NSECTS)
+                    qx += 1;
+                if (looky < 0)
+                    qy -= 1;
+                else if (looky >= NSECTS)
+                    qy += 1;
+                if (qx < 0 || qx >= NQUADS ||
+                    qy < 0 || qy >= NQUADS ||
+                    t.s.Quad[qx][qy].stars < 0 ||
+                    t.s.Quad[qx][qy].klings > MAXKLQUAD - 1) {
+                    break;
+                }
+                if (!damaged(t, SRSCAN)) {
+                    t.io.printf('Klingon at %d,%d escapes to ' +
+                        'quadrant %d,%d\n', k.x, k.y, qx, qy);
+                    motion = t.s.Quad[qx][qy].scanned;
+                    if (motion >= 0 && motion < 1000)
+                        t.s.Quad[qx][qy].scanned += 100;
+                    motion = t.s.Quad[Ship.quadx][Ship.quady].scanned;
+                    if (motion >= 0 && motion < 1000)
+                        t.s.Quad[Ship.quadx][Ship.quady].scanned -= 100;
+                }
+                t.s.Sect[k.x][k.y] = EMPTY;
+                t.s.Quad[qx][qy].klings += 1;
+                Etc.nkling -= 1;
+                // *k = Etc.klingon[Etc.nkling]: a struct copy into this slot
+                Etc.klingon[n] = { ...Etc.klingon[Etc.nkling] };
+                t.s.Quad[Ship.quadx][Ship.quady].klings -= 1;
+                k = null;
+                break;
+            }
+            if (t.s.Sect[lookx][looky] !== EMPTY) {
+                lookx = nextx + fudgex;
+                if (lookx < 0 || lookx >= NSECTS)
+                    lookx = Math.trunc(nextx + dx);
+                if (t.s.Sect[lookx][looky] !== EMPTY) {
+                    fudgex = -fudgex;
+                    looky = nexty + fudgey;
+                    if (looky < 0 || looky >= NSECTS ||
+                        t.s.Sect[lookx][looky] !== EMPTY) {
+                        fudgey = -fudgey;
+                        break;
+                    }
+                }
+            }
+            nextx = lookx;
+            nexty = looky;
+        }
+        if (k && (k.x !== nextx || k.y !== nexty)) {
+            if (!damaged(t, SRSCAN)) {
+                t.io.printf('Klingon at %d,%d moves to %d,%d\n', k.x, k.y, nextx, nexty);
+            }
+            t.s.Sect[k.x][k.y] = EMPTY;
+            t.s.Sect[k.x = nextx][k.y = nexty] = KLINGON;
+        }
+    }
+    compkldist(t, 0);
+}
+//# sourceMappingURL=klmove.js.map

package/dist/builtins/games/trek/klmove.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"klmove.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/klmove.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;GAKG;AACH,OAAO,EAAE,UAAU,EAAE,MAAM,aAAa,CAAC;AACzC,OAAO,EAAE,KAAK,EAAE,OAAO,EAAE,SAAS,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAEhF,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AAGjC;;;;;;;;;;;;;;;;;;;;;EAqBE;AAEF,kDAAkD;AAClD,MAAM,CAAC,KAAK,UAAU,MAAM,CAAC,CAAO,EAAE,EAAU;IAC9C,MAAM,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IACvC,IAAI,CAAe,CAAC;IACpB,IAAI,EAAU,CAAC;IACf,IAAI,EAAU,CAAC;IACf,IAAI,KAAa,CAAC;IAClB,IAAI,KAAa,CAAC;IAClB,IAAI,KAAa,CAAC;IAClB,IAAI,KAAa,CAAC;IAClB,IAAI,MAAc,CAAC;IACnB,IAAI,MAAc,CAAC;IACnB,IAAI,MAAc,CAAC;IACnB,IAAI,EAAU,CAAC;IACf,IAAI,EAAU,CAAC;IACf,IAAI,MAAc,CAAC;IACnB,IAAI,CAAS,CAAC;IAEd,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK;QAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,oCAAoC,EAAE,EAAE,EAAE,GAAG,CAAC,MAAM,CAAC,CAAC;IACjF,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5C,CAAC,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC;QACnB,CAAC,GAAG,GAAG,CAAC;QACR,IAAI,EAAE;YAAE,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,GAAG,KAAK,CAAC,QAAQ,CAAC,CAAC;QACzD,IAAI,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,IAAI,KAAK,CAAC,QAAQ,CAAC,CAAC,GAAG,IAAI,CAAC,OAAO,GAAG,EAAE,CAAC;YAAE,SAAS;QACtE,8BAA8B;QAC9B,MAAM,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,EAAE,CAAC;QAC9B,MAAM,GAAG,IAAI,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,OAAO,GAAG,KAAK,CAAC,OAAO,CAAC,CAAC,GAAG,IAAI,CAAC,OAAO,GAAG,EAAE,CAAC,CAAC,CAAC,CAAC;QACjF,uBAAuB;QACvB,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;QAC3C,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;QAC3C,MAAM,GAAG,EAAE,CAAC;QACZ,IAAI,EAAE,GAAG,MAAM;YAAE,MAAM,GAAG,EAAE,CAAC;QAC7B,IAAI,MAAM,KAAK,GAAG;YAAE,MAAM,GAAG,GAAG,CAAC;QACjC,EAAE,GAAG,EAAE,GAAG,MAAM,GAAG,GAAG,CAAC;QACvB,EAAE,GAAG,EAAE,GAAG,MAAM,GAAG,GAAG,CAAC;QACvB,IAAI,MAAM,GAAG,CAAC,EAAE,CAAC;YACf,MAAM,GAAG,CAAC,MAAM,CAAC;YACjB,EAAE,GAAG,CAAC,EAAE,CAAC;YACT,EAAE,GAAG,CAAC,EAAE,CAAC;QACX,CAAC;QACD,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;QACpB,6BAA6B;QAC7B,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC;QACZ,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC;QACZ,OAAO,MAAM,GAAG,CAAC,EAAE,MAAM,EAAE,EAAE,CAAC;YAC5B,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,KAAK,GAAG,EAAE,CAAC,CAAC;YAC/B,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,KAAK,GAAG,EAAE,CAAC,CAAC;YAC/B,IAAI,KAAK,GAAG,CAAC,IAAI,KAAK,IAAI,MAAM;gBAC5B,KAAK,GAAG,CAAC,IAAI,KAAK,IAAI,MAAM,EAAE,CAAC;gBACjC,kBAAkB;gBAClB,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC;gBAChB,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC;gBAChB,IAAI,KAAK,GAAG,CAAC;oBAAE,EAAE,IAAI,CAAC,CAAC;qBAClB,IAAI,KAAK,IAAI,MAAM;oBAAE,EAAE,IAAI,CAAC,CAAC;gBAClC,IAAI,KAAK,GAAG,CAAC;oBAAE,EAAE,IAAI,CAAC,CAAC;qBAClB,IAAI,KAAK,IAAI,MAAM;oBAAE,EAAE,IAAI,CAAC,CAAC;gBAClC,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,IAAI,MAAM;oBACtB,EAAE,GAAG,CAAC,IAAI,EAAE,IAAI,MAAM;oBACtB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,KAAK,GAAG,CAAC;oBAC1B,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,MAAM,GAAG,SAAS,GAAG,CAAC,EAAE,CAAC;oBAC5C,MAAM;gBACR,CAAC;gBACD,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,MAAM,CAAC,EAAE,CAAC;oBACxB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,8BAA8B;wBACxC,kBAAkB,EACpB,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;oBAClB,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,OAAO,CAAC;oBAClC,IAAI,MAAM,IAAI,CAAC,IAAI,MAAM,GAAG,IAAI;wBAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,OAAO,IAAI,GAAG,CAAC;oBAClE,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,OAAO,CAAC;oBAClD,IAAI,MAAM,IAAI,CAAC,IAAI,MAAM,GAAG,IAAI;wBAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,OAAO,IAAI,GAAG,CAAC;gBACpF,CAAC;gBACD,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC;gBAC3B,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,MAAM,IAAI,CAAC,CAAC;gBAC7B,GAAG,CAAC,MAAM,IAAI,CAAC,CAAC;gBAChB,6DAA6D;gBAC7D,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,GAAG,CAAC,OAAO,CAAC,GAAG,CAAC,MAAM,CAAC,EAAE,CAAC;gBAChD,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,MAAM,IAAI,CAAC,CAAC;gBAC7C,CAAC,GAAG,IAAI,CAAC;gBACT,MAAM;YACR,CAAC;YACD,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,KAAK,CAAC,KAAK,KAAK,EAAE,CAAC;gBACrC,KAAK,GAAG,KAAK,GAAG,MAAM,CAAC;gBACvB,IAAI,KAAK,GAAG,CAAC,IAAI,KAAK,IAAI,MAAM;oBAAE,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,KAAK,GAAG,EAAE,CAAC,CAAC;gBACjE,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,KAAK,CAAC,KAAK,KAAK,EAAE,CAAC;oBACrC,MAAM,GAAG,CAAC,MAAM,CAAC;oBACjB,KAAK,GAAG,KAAK,GAAG,MAAM,CAAC;oBACvB,IAAI,KAAK,GAAG,CAAC,IAAI,KAAK,IAAI,MAAM;wBAC5B,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,KAAK,CAAC,KAAK,KAAK,EAAE,CAAC;wBACrC,MAAM,GAAG,CAAC,MAAM,CAAC;wBACjB,MAAM;oBACR,CAAC;gBACH,CAAC;YACH,CAAC;YACD,KAAK,GAAG,KAAK,CAAC;YACd,KAAK,GAAG,KAAK,CAAC;QAChB,CAAC;QACD,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,KAAK,IAAI,CAAC,CAAC,CAAC,KAAK,KAAK,CAAC,EAAE,CAAC;YAC1C,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,MAAM,CAAC,EAAE,CAAC;gBACxB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,mCAAmC,EAC7C,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,KAAK,CAAC,CAAC;YAC5B,CAAC;YACD,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC;YAC3B,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC,GAAG,OAAO,CAAC;QAC/C,CAAC;IACH,CAAC;IACD,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;AACnB,CAAC"}

package/dist/builtins/games/trek/lose.d.ts

@@ -0,0 +1,9 @@
+/**
+ * @file The game lost: why, the score, and back to the question of
+ * another game.
+ *
+ * @module
+ */
+import type { Trek } from './context.js';
+/** PRINT OUT LOSER MESSAGES, then the score, and the game is restarted. */
+export declare function lose(t: Trek, why: number): Promise<never>;