@fnndsc/brasa 0.37.1 → 0.38.0

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

@@ -0,0 +1,174 @@
+import { EOF } from './io.js';
+/** get integer parameter */
+export async function getintpar(t, s) {
+    while (true) {
+        if ((await testnl(t)) && s)
+            t.io.printf('%s: ', s);
+        const read = await t.io.scanInt();
+        if (read.count < 0)
+            t.io.exit(1);
+        if (read.count > 0 && (await testterm(t)))
+            return read.value;
+        t.io.printf('invalid input; please enter an integer\n');
+        await skiptonl(t, 0);
+    }
+}
+/** get floating parameter */
+export async function getfltpar(t, s) {
+    while (true) {
+        if ((await testnl(t)) && s)
+            t.io.printf('%s: ', s);
+        const read = await t.io.scanDouble();
+        if (read.count < 0)
+            t.io.exit(1);
+        if (read.count > 0 && (await testterm(t)))
+            return read.value;
+        t.io.printf('invalid input; please enter a double\n');
+        await skiptonl(t, 0);
+    }
+}
+/** The yes/no table. */
+const Yntab = [
+    { abbrev: 'y', full: 'es', value: null, value2: 1 },
+    { abbrev: 'n', full: 'o', value: null, value2: 0 },
+];
+/** get yes/no parameter */
+export async function getynpar(t, s) {
+    const r = await getcodpar(t, s, Yntab);
+    return r.value2;
+}
+/**
+ * get coded parameter: a word matched against a table by its abbreviation
+ * and as much of the rest as was typed; `?` lists the table.
+ */
+export async function getcodpar(t, s, tab) {
+    let flag = false;
+    while (true) {
+        const f = await testnl(t);
+        flag = flag || f;
+        if (flag)
+            t.io.printf('%s: ', s);
+        if (f) {
+            // throw out the newline
+            await t.io.getchar();
+        }
+        await t.io.scanSkip(' \t;');
+        const read = await t.io.scanUntil(' \t;\n', 99);
+        if (read.count < 0)
+            t.io.exit(1);
+        if (read.count === 0)
+            continue;
+        flag = true;
+        const input = read.value;
+        // if command list, print four per line
+        if (input === '?') {
+            let c = 4;
+            for (const r of tab) {
+                t.io.printf('%14.14s', r.abbrev + r.full);
+                if (--c > 0)
+                    continue;
+                c = 4;
+                t.io.printf('\n');
+            }
+            if (c !== 4)
+                t.io.printf('\n');
+            continue;
+        }
+        // search for in table
+        const found = tab.find((r) => {
+            if (!input.startsWith(r.abbrev))
+                return false;
+            return rest_match(input.slice(r.abbrev.length), r.full);
+        });
+        // check for not found
+        if (found === undefined) {
+            t.io.printf('invalid input; ? for valid inputs\n');
+            await skiptonl(t, 0);
+        }
+        else {
+            return found;
+        }
+    }
+}
+/**
+ * The C's match of what follows the abbreviation: characters compared
+ * while both last; a match when either runs out first (so a word typed
+ * past the table's spelling still matches, as in the original).
+ */
+function rest_match(rest, full) {
+    let i = 0;
+    while (i < rest.length && i < full.length) {
+        if (rest[i] !== full[i])
+            return false;
+        i++;
+    }
+    return true;
+}
+/** get string parameter: up to l characters, ended by any of t (default white space and ;). */
+export async function getstrpar(t, s, l, terminators) {
+    const stop = terminators ?? ' \t\n;';
+    while (true) {
+        const f = await testnl(t);
+        if (f && s)
+            t.io.printf('%s: ', s);
+        if (f)
+            await t.io.getchar();
+        await t.io.scanSkip('\t ;');
+        const read = await t.io.scanUntil(stop, l);
+        if (read.count < 0)
+            t.io.exit(1);
+        if (read.count !== 0)
+            return read.value;
+    }
+}
+/** test if newline is next valid character */
+export async function testnl(t) {
+    let c;
+    while ((c = await t.io.getchar()) !== 10) {
+        if (c === EOF)
+            t.io.exit(1);
+        if ((c >= 48 && c <= 57) || c === 46 || c === 33 || (c >= 65 && c <= 90) || (c >= 97 && c <= 122) || c === 45) {
+            t.io.ungetc(c);
+            return false;
+        }
+    }
+    t.io.ungetc(c);
+    return true;
+}
+/** scan for newline */
+export async function skiptonl(t, c) {
+    while (c !== 10) {
+        c = await t.io.getchar();
+        if (c === EOF)
+            t.io.exit(1);
+    }
+    t.io.ungetc(10);
+}
+/** test for valid terminator */
+async function testterm(t) {
+    const c = await t.io.getchar();
+    if (c === EOF)
+        t.io.exit(1);
+    if (c === 46)
+        return false;
+    if (c === 10 || c === 59)
+        t.io.ungetc(c);
+    return true;
+}
+/**
+ * TEST FOR SPECIFIED DELIMITER: the input is scanned for the delimiter;
+ * found, it is thrown away and true is returned; not found, false.
+ */
+export async function readdelim(t, d) {
+    let c;
+    while ((c = await t.io.getchar()) !== EOF) {
+        if (c === d)
+            return true;
+        if (c === 32)
+            continue;
+        t.io.ungetc(c);
+        return false;
+    }
+    return t.io.exit(1);
+}
+//# sourceMappingURL=getpar.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"getpar.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/getpar.ts"],"names":[],"mappings":"AA2CA,OAAO,EAAE,GAAG,EAAE,MAAM,SAAS,CAAC;AAU9B,4BAA4B;AAC5B,MAAM,CAAC,KAAK,UAAU,SAAS,CAAC,CAAO,EAAE,CAAgB;IACvD,OAAO,IAAI,EAAE,CAAC;QACZ,IAAI,CAAC,MAAM,MAAM,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;QACnD,MAAM,IAAI,GAAG,MAAM,CAAC,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC;QAClC,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC;YAAE,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QACjC,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC,IAAI,CAAC,MAAM,QAAQ,CAAC,CAAC,CAAC,CAAC;YAAE,OAAO,IAAI,CAAC,KAAK,CAAC;QAC7D,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,0CAA0C,CAAC,CAAC;QACxD,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IACvB,CAAC;AACH,CAAC;AAED,6BAA6B;AAC7B,MAAM,CAAC,KAAK,UAAU,SAAS,CAAC,CAAO,EAAE,CAAgB;IACvD,OAAO,IAAI,EAAE,CAAC;QACZ,IAAI,CAAC,MAAM,MAAM,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;QACnD,MAAM,IAAI,GAAG,MAAM,CAAC,CAAC,EAAE,CAAC,UAAU,EAAE,CAAC;QACrC,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC;YAAE,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QACjC,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC,IAAI,CAAC,MAAM,QAAQ,CAAC,CAAC,CAAC,CAAC;YAAE,OAAO,IAAI,CAAC,KAAK,CAAC;QAC7D,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,wCAAwC,CAAC,CAAC;QACtD,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IACvB,CAAC;AACH,CAAC;AAED,wBAAwB;AACxB,MAAM,KAAK,GAA0B;IACnC,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACnD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,GAAG,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;CACnD,CAAC;AAEF,2BAA2B;AAC3B,MAAM,CAAC,KAAK,UAAU,QAAQ,CAAC,CAAO,EAAE,CAAS;IAC/C,MAAM,CAAC,GAAW,MAAM,SAAS,CAAC,CAAC,EAAE,CAAC,EAAE,KAAK,CAAC,CAAC;IAC/C,OAAO,CAAC,CAAC,MAAM,CAAC;AAClB,CAAC;AAED;;;GAGG;AACH,MAAM,CAAC,KAAK,UAAU,SAAS,CAAC,CAAO,EAAE,CAAS,EAAE,GAA0B;IAC5E,IAAI,IAAI,GAAY,KAAK,CAAC;IAC1B,OAAO,IAAI,EAAE,CAAC;QACZ,MAAM,CAAC,GAAY,MAAM,MAAM,CAAC,CAAC,CAAC,CAAC;QACnC,IAAI,GAAG,IAAI,IAAI,CAAC,CAAC;QACjB,IAAI,IAAI;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;QACjC,IAAI,CAAC,EAAE,CAAC;YACN,wBAAwB;YACxB,MAAM,CAAC,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC;QACvB,CAAC;QACD,MAAM,CAAC,CAAC,EAAE,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC;QAC5B,MAAM,IAAI,GAAG,MAAM,CAAC,CAAC,EAAE,CAAC,SAAS,CAAC,QAAQ,EAAE,EAAE,CAAC,CAAC;QAChD,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC;YAAE,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QACjC,IAAI,IAAI,CAAC,KAAK,KAAK,CAAC;YAAE,SAAS;QAC/B,IAAI,GAAG,IAAI,CAAC;QACZ,MAAM,KAAK,GAAW,IAAI,CAAC,KAAK,CAAC;QACjC,uCAAuC;QACvC,IAAI,KAAK,KAAK,GAAG,EAAE,CAAC;YAClB,IAAI,CAAC,GAAW,CAAC,CAAC;YAClB,KAAK,MAAM,CAAC,IAAI,GAAG,EAAE,CAAC;gBACpB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,SAAS,EAAE,CAAC,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC;gBAC1C,IAAI,EAAE,CAAC,GAAG,CAAC;oBAAE,SAAS;gBACtB,CAAC,GAAG,CAAC,CAAC;gBACN,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;YACpB,CAAC;YACD,IAAI,CAAC,KAAK,CAAC;gBAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;YAC/B,SAAS;QACX,CAAC;QACD,sBAAsB;QACtB,MAAM,KAAK,GAAuB,GAAG,CAAC,IAAI,CAAC,CAAC,CAAS,EAAW,EAAE;YAChE,IAAI,CAAC,KAAK,CAAC,UAAU,CAAC,CAAC,CAAC,MAAM,CAAC;gBAAE,OAAO,KAAK,CAAC;YAC9C,OAAO,UAAU,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,CAAC,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;QAC1D,CAAC,CAAC,CAAC;QACH,sBAAsB;QACtB,IAAI,KAAK,KAAK,SAAS,EAAE,CAAC;YACxB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,qCAAqC,CAAC,CAAC;YACnD,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QACvB,CAAC;aAAM,CAAC;YACN,OAAO,KAAK,CAAC;QACf,CAAC;IACH,CAAC;AACH,CAAC;AAED;;;;GAIG;AACH,SAAS,UAAU,CAAC,IAAY,EAAE,IAAY;IAC5C,IAAI,CAAC,GAAW,CAAC,CAAC;IAClB,OAAO,CAAC,GAAG,IAAI,CAAC,MAAM,IAAI,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;QAC1C,IAAI,IAAI,CAAC,CAAC,CAAC,KAAK,IAAI,CAAC,CAAC,CAAC;YAAE,OAAO,KAAK,CAAC;QACtC,CAAC,EAAE,CAAC;IACN,CAAC;IACD,OAAO,IAAI,CAAC;AACd,CAAC;AAED,+FAA+F;AAC/F,MAAM,CAAC,KAAK,UAAU,SAAS,CAAC,CAAO,EAAE,CAAgB,EAAE,CAAS,EAAE,WAA0B;IAC9F,MAAM,IAAI,GAAW,WAAW,IAAI,QAAQ,CAAC;IAC7C,OAAO,IAAI,EAAE,CAAC;QACZ,MAAM,CAAC,GAAY,MAAM,MAAM,CAAC,CAAC,CAAC,CAAC;QACnC,IAAI,CAAC,IAAI,CAAC;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;QACnC,IAAI,CAAC;YAAE,MAAM,CAAC,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC;QAC5B,MAAM,CAAC,CAAC,EAAE,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC;QAC5B,MAAM,IAAI,GAAG,MAAM,CAAC,CAAC,EAAE,CAAC,SAAS,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC;QAC3C,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC;YAAE,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QACjC,IAAI,IAAI,CAAC,KAAK,KAAK,CAAC;YAAE,OAAO,IAAI,CAAC,KAAK,CAAC;IAC1C,CAAC;AACH,CAAC;AAED,8CAA8C;AAC9C,MAAM,CAAC,KAAK,UAAU,MAAM,CAAC,CAAO;IAClC,IAAI,CAAS,CAAC;IACd,OAAO,CAAC,CAAC,GAAG,MAAM,CAAC,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC,KAAK,EAAE,EAAE,CAAC;QACzC,IAAI,CAAC,KAAK,GAAG;YAAE,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QAC5B,IAAI,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,GAAG,CAAC,IAAI,CAAC,KAAK,EAAE,EAAE,CAAC;YAC9G,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;YACf,OAAO,KAAK,CAAC;QACf,CAAC;IACH,CAAC;IACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;IACf,OAAO,IAAI,CAAC;AACd,CAAC;AAED,uBAAuB;AACvB,MAAM,CAAC,KAAK,UAAU,QAAQ,CAAC,CAAO,EAAE,CAAS;IAC/C,OAAO,CAAC,KAAK,EAAE,EAAE,CAAC;QAChB,CAAC,GAAG,MAAM,CAAC,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC;QACzB,IAAI,CAAC,KAAK,GAAG;YAAE,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAC9B,CAAC;IACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,EAAE,CAAC,CAAC;AAClB,CAAC;AAED,gCAAgC;AAChC,KAAK,UAAU,QAAQ,CAAC,CAAO;IAC7B,MAAM,CAAC,GAAW,MAAM,CAAC,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC;IACvC,IAAI,CAAC,KAAK,GAAG;QAAE,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAC5B,IAAI,CAAC,KAAK,EAAE;QAAE,OAAO,KAAK,CAAC;IAC3B,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE;QAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;IACzC,OAAO,IAAI,CAAC;AACd,CAAC;AAED;;;GAGG;AACH,MAAM,CAAC,KAAK,UAAU,SAAS,CAAC,CAAO,EAAE,CAAS;IAChD,IAAI,CAAS,CAAC;IACd,OAAO,CAAC,CAAC,GAAG,MAAM,CAAC,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC,KAAK,GAAG,EAAE,CAAC;QAC1C,IAAI,CAAC,KAAK,CAAC;YAAE,OAAO,IAAI,CAAC;QACzB,IAAI,CAAC,KAAK,EAAE;YAAE,SAAS;QACvB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;QACf,OAAO,KAAK,CAAC;IACf,CAAC;IACD,OAAO,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;AACtB,CAAC"}

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

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** call starbase for help */
+export declare function help(t: Trek, _v: number): Promise<void>;

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

@@ -0,0 +1,155 @@
+/*
+ * help.ts: a TypeScript port of BSD trek(6), from help.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): help.c 1.13 2009/08/12.
+ *
+ * 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 Calling a starbase for help: the closest one tries three times to
+ * rematerialize the ship beside it.
+ *
+ * @module
+ */
+import { DOCKED, EMPTY, L_NOHELP, NSECTS, SSRADIO, TOOLARGE } from './consts.js';
+import { compkldist } from './compkl.js';
+import { damaged } from './damaged.js';
+import { dock } from './dock.js';
+import { initquad } from './initquad.js';
+import { lose } from './lose.js';
+import { out } from './out.js';
+import { franf, ranf } from './rand.js';
+/*
+**  call starbase for help
+**
+**	First, the closest starbase is selected.  If there is a
+**	a starbase in your own quadrant, you are in good shape.
+**	This distance takes quadrant distances into account only.
+**
+**	A magic number is computed based on the distance which acts
+**	as the probability that you will be rematerialized.  You
+**	get three tries.
+**
+**	When it is determined that you should be able to be remater-
+**	ialized (i.e., when the probability thing mentioned above
+**	comes up positive), you are put into that quadrant (anywhere).
+**	Then, we try to see if there is a spot adjacent to the star-
+**	base.  If not, you can't be rematerialized!!!  Otherwise,
+**	it drops you there.  It only tries five times to find a spot
+**	to drop you.  After that, it's your problem.
+*/
+const Cntvect = ['first', 'second', 'third'];
+/** call starbase for help */
+export async function help(t, _v) {
+    let i;
+    let dist;
+    let x;
+    let dx = 0;
+    let dy = 0;
+    let j;
+    let l = 0;
+    /* check to see if calling for help is reasonable ... */
+    if (t.s.Ship.cond === DOCKED) {
+        t.io.printf("Uhura: But Captain, we're already docked\n");
+        return;
+    }
+    /* or possible */
+    if (damaged(t, SSRADIO)) {
+        await out(t, SSRADIO);
+        return;
+    }
+    if (t.s.Now.bases <= 0) {
+        t.io.printf("Uhura: I'm not getting any response from starbase\n");
+        return;
+    }
+    /* tut tut, there goes the score */
+    t.s.Game.helps += 1;
+    /* find the closest base */
+    dist = TOOLARGE;
+    if (t.s.Quad[t.s.Ship.quadx][t.s.Ship.quady].bases <= 0) {
+        /* there isn't one in this quadrant */
+        for (i = 0; i < t.s.Now.bases; i++) {
+            /* compute distance */
+            const base = t.s.Now.base[i];
+            dx = base.x - t.s.Ship.quadx;
+            dy = base.y - t.s.Ship.quady;
+            x = dx * dx + dy * dy;
+            x = Math.sqrt(x);
+            /* see if better than what we already have */
+            if (x < dist) {
+                dist = x;
+                l = i;
+            }
+        }
+        /* go to that quadrant */
+        const best = t.s.Now.base[l];
+        t.s.Ship.quadx = best.x;
+        t.s.Ship.quady = best.y;
+        await initquad(t, 1);
+    }
+    else {
+        dist = 0.0;
+    }
+    /* dematerialize the Enterprise */
+    t.s.Sect[t.s.Ship.sectx][t.s.Ship.secty] = EMPTY;
+    t.io.printf('Starbase in %d,%d responds\n', t.s.Ship.quadx, t.s.Ship.quady);
+    /* this next thing acts as a probability that it will work */
+    x = Math.pow(1.0 - Math.pow(0.94, dist), 0.3333333);
+    /* attempt to rematerialize */
+    for (i = 0; i < 3; i++) {
+        await t.io.sleep(2);
+        t.io.printf('%s attempt to rematerialize ', Cntvect[i]);
+        if (franf(t.rnd) > x) {
+            /* ok, that's good.  let's see if we can set her down */
+            for (j = 0; j < 5; j++) {
+                dx = t.s.Etc.starbase.x + ranf(t.rnd, 3) - 1;
+                if (dx < 0 || dx >= NSECTS)
+                    continue;
+                dy = t.s.Etc.starbase.y + ranf(t.rnd, 3) - 1;
+                if (dy < 0 || dy >= NSECTS || t.s.Sect[dx][dy] !== EMPTY)
+                    continue;
+                break;
+            }
+            if (j < 5) {
+                /* found an empty spot */
+                t.io.printf('succeeds\n');
+                t.s.Ship.sectx = dx;
+                t.s.Ship.secty = dy;
+                t.s.Sect[dx][dy] = t.s.Ship.ship;
+                await dock(t, 0);
+                compkldist(t, 0);
+                return;
+            }
+            /* the starbase must have been surrounded */
+        }
+        t.io.printf('fails\n');
+    }
+    /* one, two, three strikes, you're out */
+    await lose(t, L_NOHELP);
+}
+//# sourceMappingURL=help.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"help.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/help.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;GAKG;AACH,OAAO,EAAE,MAAM,EAAE,KAAK,EAAE,QAAQ,EAAE,MAAM,EAAE,OAAO,EAAE,QAAQ,EAAE,MAAM,aAAa,CAAC;AAEjF,OAAO,EAAE,UAAU,EAAE,MAAM,aAAa,CAAC;AACzC,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,QAAQ,EAAE,MAAM,eAAe,CAAC;AACzC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,GAAG,EAAE,MAAM,UAAU,CAAC;AAC/B,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AAGxC;;;;;;;;;;;;;;;;;;EAkBE;AAEF,MAAM,OAAO,GAA0B,CAAC,OAAO,EAAE,QAAQ,EAAE,OAAO,CAAC,CAAC;AAEpE,6BAA6B;AAC7B,MAAM,CAAC,KAAK,UAAU,IAAI,CAAC,CAAO,EAAE,EAAU;IAC5C,IAAI,CAAS,CAAC;IACd,IAAI,IAAY,CAAC;IACjB,IAAI,CAAS,CAAC;IACd,IAAI,EAAE,GAAW,CAAC,CAAC;IACnB,IAAI,EAAE,GAAW,CAAC,CAAC;IACnB,IAAI,CAAS,CAAC;IACd,IAAI,CAAC,GAAW,CAAC,CAAC;IAElB,wDAAwD;IACxD,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QAC7B,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,4CAA4C,CAAC,CAAC;QAC1D,OAAO;IACT,CAAC;IAED,iBAAiB;IACjB,IAAI,OAAO,CAAC,CAAC,EAAE,OAAO,CAAC,EAAE,CAAC;QACxB,MAAM,GAAG,CAAC,CAAC,EAAE,OAAO,CAAC,CAAC;QACtB,OAAO;IACT,CAAC;IACD,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,IAAI,CAAC,EAAE,CAAC;QACvB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,qDAAqD,CAAC,CAAC;QACnE,OAAO;IACT,CAAC;IAED,mCAAmC;IACnC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,IAAI,CAAC,CAAC;IAEpB,2BAA2B;IAC3B,IAAI,GAAG,QAAQ,CAAC;IAChB,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,KAAK,IAAI,CAAC,EAAE,CAAC;QACxD,sCAAsC;QACtC,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,EAAE,CAAC,EAAE,EAAE,CAAC;YACnC,sBAAsB;YACtB,MAAM,IAAI,GAAO,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAO,CAAC;YACvC,EAAE,GAAG,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC;YAC7B,EAAE,GAAG,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC;YAC7B,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,CAAC;YACtB,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;YAEjB,6CAA6C;YAC7C,IAAI,CAAC,GAAG,IAAI,EAAE,CAAC;gBACb,IAAI,GAAG,CAAC,CAAC;gBACT,CAAC,GAAG,CAAC,CAAC;YACR,CAAC;QACH,CAAC;QAED,yBAAyB;QACzB,MAAM,IAAI,GAAO,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAO,CAAC;QACvC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,CAAC,CAAC;QACxB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,CAAC,CAAC;QACxB,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IACvB,CAAC;SAAM,CAAC;QACN,IAAI,GAAG,GAAG,CAAC;IACb,CAAC;IAED,kCAAkC;IAClC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,KAAK,CAAC;IACjD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,8BAA8B,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAE5E,6DAA6D;IAC7D,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,SAAS,CAAC,CAAC;IAEpD,8BAA8B;IAC9B,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QACvB,MAAM,CAAC,CAAC,EAAE,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;QACpB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,8BAA8B,EAAE,OAAO,CAAC,CAAC,CAAW,CAAC,CAAC;QAClE,IAAI,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;YACrB,wDAAwD;YACxD,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;gBACvB,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;gBAC7C,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,IAAI,MAAM;oBAAE,SAAS;gBACrC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;gBAC7C,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,IAAI,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,KAAK,KAAK;oBAAE,SAAS;gBACnE,MAAM;YACR,CAAC;YACD,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC;gBACV,yBAAyB;gBACzB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,YAAY,CAAC,CAAC;gBAC1B,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBACpB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBACpB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC;gBACjC,MAAM,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBACjB,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBACjB,OAAO;YACT,CAAC;YACD,4CAA4C;QAC9C,CAAC;QACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,SAAS,CAAC,CAAC;IACzB,CAAC;IAED,yCAAyC;IACzC,MAAM,IAAI,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;AAC1B,CAAC"}

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

@@ -0,0 +1,6 @@
+import type { Trek } from './context.js';
+/**
+ **	move under impulse power
+ **/
+/** The impulse command. */
+export declare function impulse(t: Trek, _v: number): Promise<void>;

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

@@ -0,0 +1,85 @@
+/*
+ * impulse.ts: a TypeScript port of BSD trek(6), from impulse.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): impulse.c 1.10 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 under impulse power.
+ *
+ * @module
+ */
+import { DOCKED, IMPULSE } from './consts.js';
+import { damaged } from './damaged.js';
+import { getcodi } from './getcodi.js';
+import { getynpar } from './getpar.js';
+import { move } from './move.js';
+import { out } from './out.js';
+/**
+ **	move under impulse power
+ **/
+/** The impulse command. */
+export async function impulse(t, _v) {
+    const { Ship, Move } = t.s;
+    let percent;
+    if (Ship.cond === DOCKED) {
+        t.io.printf('Scotty: Sorry captain, but we are still docked.\n');
+        return;
+    }
+    if (damaged(t, IMPULSE)) {
+        await out(t, IMPULSE);
+        return;
+    }
+    const codi = await getcodi(t);
+    if (codi === null)
+        return;
+    const course = codi.co;
+    const dist = codi.value;
+    // power is an int, as is the energy: 100 * power / energy divides as ints
+    const power = Math.trunc(20 + 100 * dist);
+    percent = Math.trunc(Math.trunc(100 * power / Ship.energy) + 0.5);
+    if (percent >= 85) {
+        t.io.printf('Scotty: That would consume %d%% of our remaining ' +
+            'energy.\n', percent);
+        if (!(await getynpar(t, 'Are you sure that is wise')))
+            return;
+        t.io.printf('Aye aye, sir\n');
+    }
+    const time = dist / 0.095;
+    percent = Math.trunc(100 * time / t.s.Now.time + 0.5);
+    if (percent >= 85) {
+        t.io.printf('Spock: That would take %d%% of our remaining time.\n', percent);
+        if (!(await getynpar(t, 'Are you sure that is wise')))
+            return;
+        t.io.printf("(He's finally gone mad)\n");
+    }
+    Move.time = await move(t, 0, course, time, 0.095);
+    Ship.energy = Math.trunc(Ship.energy - (20 + 100 * Move.time * 0.095));
+}
+//# sourceMappingURL=impulse.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"impulse.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/impulse.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;GAIG;AACH,OAAO,EAAE,MAAM,EAAE,OAAO,EAAE,MAAM,aAAa,CAAC;AAE9C,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,QAAQ,EAAE,MAAM,aAAa,CAAC;AACvC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,GAAG,EAAE,MAAM,UAAU,CAAC;AAE/B;;IAEI;AAEJ,2BAA2B;AAC3B,MAAM,CAAC,KAAK,UAAU,OAAO,CAAC,CAAO,EAAE,EAAU;IAC/C,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IAC3B,IAAI,OAAe,CAAC;IAEpB,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QACzB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,mDAAmD,CAAC,CAAC;QACjE,OAAO;IACT,CAAC;IACD,IAAI,OAAO,CAAC,CAAC,EAAE,OAAO,CAAC,EAAE,CAAC;QACxB,MAAM,GAAG,CAAC,CAAC,EAAE,OAAO,CAAC,CAAC;QACtB,OAAO;IACT,CAAC;IACD,MAAM,IAAI,GAAyC,MAAM,OAAO,CAAC,CAAC,CAAC,CAAC;IACpE,IAAI,IAAI,KAAK,IAAI;QAAE,OAAO;IAC1B,MAAM,MAAM,GAAW,IAAI,CAAC,EAAE,CAAC;IAC/B,MAAM,IAAI,GAAW,IAAI,CAAC,KAAK,CAAC;IAChC,0EAA0E;IAC1E,MAAM,KAAK,GAAW,IAAI,CAAC,KAAK,CAAC,EAAE,GAAG,GAAG,GAAG,IAAI,CAAC,CAAC;IAClD,OAAO,GAAG,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,GAAG,KAAK,GAAG,IAAI,CAAC,MAAM,CAAC,GAAG,GAAG,CAAC,CAAC;IAClE,IAAI,OAAO,IAAI,EAAE,EAAE,CAAC;QAClB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,mDAAmD;YAC7D,WAAW,EACb,OAAO,CAAC,CAAC;QACT,IAAI,CAAC,CAAC,MAAM,QAAQ,CAAC,CAAC,EAAE,2BAA2B,CAAC,CAAC;YAAE,OAAO;QAC9D,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,gBAAgB,CAAC,CAAC;IAChC,CAAC;IACD,MAAM,IAAI,GAAW,IAAI,GAAG,KAAK,CAAC;IAClC,OAAO,GAAG,IAAI,CAAC,KAAK,CAAC,GAAG,GAAG,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC;IACtD,IAAI,OAAO,IAAI,EAAE,EAAE,CAAC;QAClB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,sDAAsD,EAChE,OAAO,CAAC,CAAC;QACX,IAAI,CAAC,CAAC,MAAM,QAAQ,CAAC,CAAC,EAAE,2BAA2B,CAAC,CAAC;YAAE,OAAO;QAC9D,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,2BAA2B,CAAC,CAAC;IAC3C,CAAC;IACD,IAAI,CAAC,IAAI,GAAG,MAAM,IAAI,CAAC,CAAC,EAAE,CAAC,EAAE,MAAM,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC;IAClD,IAAI,CAAC,MAAM,GAAG,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,EAAE,GAAG,GAAG,GAAG,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC,CAAC,CAAC;AACzE,CAAC"}

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

@@ -0,0 +1,17 @@
+/**
+ * @file Entering a quadrant: its contents laid out at random from what the
+ * Quad matrix holds, the starship in its fixed sector; and the choice of
+ * an empty sector.
+ *
+ * @module
+ */
+import type { Trek } from './context.js';
+import type { XY } from './state.js';
+/**
+ * Paramize Quadrant Upon Entering. With Klingons present the captain is
+ * told the condition is RED and offered the shields. The flag `f`
+ * disables that check, for when you are about to be docked.
+ */
+export declare function initquad(t: Trek, f: number): Promise<void>;
+/** An empty sector, chosen at random. */
+export declare function sector(t: Trek): XY;

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

@@ -0,0 +1,79 @@
+import { BASE, COMPUTER, EMPTY, HOLE, INHABIT, KLINGON, NSECTS, RED, STAR } from './consts.js';
+import { compkldist } from './compkl.js';
+import { damaged } from './damaged.js';
+import { ranf } from './rand.js';
+import { shield } from './shield.js';
+/**
+ * Paramize Quadrant Upon Entering. With Klingons present the captain is
+ * told the condition is RED and offered the shields. The flag `f`
+ * disables that check, for when you are about to be docked.
+ */
+export async function initquad(t, f) {
+    const q = t.s.Quad[t.s.Ship.quadx][t.s.Ship.quady];
+    // ignored supernova'ed quadrants (this is checked again later anyway
+    if (q.stars < 0)
+        return;
+    t.s.Etc.nkling = q.klings;
+    const nbases = q.bases;
+    let nstars = q.stars;
+    const nholes = q.holes;
+    // have we blundered into a battle zone w/ shields down?
+    if (t.s.Etc.nkling > 0 && !f) {
+        t.io.printf('Condition RED\n');
+        t.s.Ship.cond = RED;
+        if (!damaged(t, COMPUTER))
+            await shield(t, 1);
+    }
+    // clear out the quadrant
+    for (let i = 0; i < NSECTS; i++)
+        for (let j = 0; j < NSECTS; j++)
+            t.s.Sect[i][j] = EMPTY;
+    // initialize Enterprise
+    t.s.Sect[t.s.Ship.sectx][t.s.Ship.secty] = t.s.Ship.ship;
+    // initialize Klingons
+    for (let i = 0; i < t.s.Etc.nkling; i++) {
+        const r = sector(t);
+        t.s.Sect[r.x][r.y] = KLINGON;
+        const k = t.s.Etc.klingon[i];
+        k.x = r.x;
+        k.y = r.y;
+        k.power = t.s.Param.klingpwr;
+        k.srndreq = 0;
+    }
+    compkldist(t, 1);
+    // initialize star base
+    if (nbases > 0) {
+        const r = sector(t);
+        t.s.Sect[r.x][r.y] = BASE;
+        t.s.Etc.starbase.x = r.x;
+        t.s.Etc.starbase.y = r.y;
+    }
+    // initialize inhabited starsystem
+    if (q.qsystemname !== 0) {
+        const r = sector(t);
+        t.s.Sect[r.x][r.y] = INHABIT;
+        nstars -= 1;
+    }
+    // initialize black holes
+    for (let i = 0; i < nholes; i++) {
+        const r = sector(t);
+        t.s.Sect[r.x][r.y] = HOLE;
+    }
+    // initialize stars
+    for (let i = 0; i < nstars; i++) {
+        const r = sector(t);
+        t.s.Sect[r.x][r.y] = STAR;
+    }
+    t.s.Move.newquad = 1;
+}
+/** An empty sector, chosen at random. */
+export function sector(t) {
+    let i;
+    let j;
+    do {
+        i = ranf(t.rnd, NSECTS);
+        j = ranf(t.rnd, NSECTS);
+    } while (t.s.Sect[i][j] !== EMPTY);
+    return { x: i, y: j };
+}
+//# sourceMappingURL=initquad.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"initquad.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/initquad.ts"],"names":[],"mappings":"AAwCA,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,EAAE,IAAI,EAAE,OAAO,EAAE,OAAO,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,MAAM,aAAa,CAAC;AAC/F,OAAO,EAAE,UAAU,EAAE,MAAM,aAAa,CAAC;AACzC,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAGrC;;;;GAIG;AACH,MAAM,CAAC,KAAK,UAAU,QAAQ,CAAC,CAAO,EAAE,CAAS;IAC/C,MAAM,CAAC,GAAU,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAY,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAS,CAAC;IAC7E,qEAAqE;IACrE,IAAI,CAAC,CAAC,KAAK,GAAG,CAAC;QAAE,OAAO;IACxB,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC,MAAM,CAAC;IAC1B,MAAM,MAAM,GAAW,CAAC,CAAC,KAAK,CAAC;IAC/B,IAAI,MAAM,GAAW,CAAC,CAAC,KAAK,CAAC;IAC7B,MAAM,MAAM,GAAW,CAAC,CAAC,KAAK,CAAC;IAE/B,wDAAwD;IACxD,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,GAAG,CAAC,IAAI,CAAC,CAAC,EAAE,CAAC;QAC7B,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,iBAAiB,CAAC,CAAC;QAC/B,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,GAAG,CAAC;QACpB,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,QAAQ,CAAC;YAAE,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IAChD,CAAC;IAED,yBAAyB;IACzB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE;QAAE,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE;YAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAc,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC;IAEvH,wBAAwB;IACvB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAc,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC;IAEvE,sBAAsB;IACtB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAChD,MAAM,CAAC,GAAO,MAAM,CAAC,CAAC,CAAC,CAAC;QACvB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAc,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,OAAO,CAAC;QAC3C,MAAM,CAAC,GAAU,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,CAAU,CAAC;QAC7C,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACV,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACV,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,QAAQ,CAAC;QAC7B,CAAC,CAAC,OAAO,GAAG,CAAC,CAAC;IAChB,CAAC;IACD,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IAEjB,uBAAuB;IACvB,IAAI,MAAM,GAAG,CAAC,EAAE,CAAC;QACf,MAAM,CAAC,GAAO,MAAM,CAAC,CAAC,CAAC,CAAC;QACvB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAc,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC;QACxC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;QACzB,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;IAC3B,CAAC;IAED,kCAAkC;IAClC,IAAI,CAAC,CAAC,WAAW,KAAK,CAAC,EAAE,CAAC;QACxB,MAAM,CAAC,GAAO,MAAM,CAAC,CAAC,CAAC,CAAC;QACvB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAc,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,OAAO,CAAC;QAC3C,MAAM,IAAI,CAAC,CAAC;IACd,CAAC;IAED,yBAAyB;IACzB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QACxC,MAAM,CAAC,GAAO,MAAM,CAAC,CAAC,CAAC,CAAC;QACvB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAc,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC;IAC1C,CAAC;IAED,mBAAmB;IACnB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QACxC,MAAM,CAAC,GAAO,MAAM,CAAC,CAAC,CAAC,CAAC;QACvB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAc,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC;IAC1C,CAAC;IACD,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,OAAO,GAAG,CAAC,CAAC;AACvB,CAAC;AAED,yCAAyC;AACzC,MAAM,UAAU,MAAM,CAAC,CAAO;IAC5B,IAAI,CAAS,CAAC;IACd,IAAI,CAAS,CAAC;IACd,GAAG,CAAC;QACF,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,MAAM,CAAC,CAAC;QACxB,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,MAAM,CAAC,CAAC;IAC1B,CAAC,QAAS,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAc,CAAC,CAAC,CAAC,KAAK,KAAK,EAAE;IACjD,OAAO,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC;AACxB,CAAC"}

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

@@ -0,0 +1,102 @@
+/**
+ * @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 { type PrintfArg } from './printf.js';
+/** exit(code): the game is over and the command returns. */
+export declare class TrekExit extends Error {
+    readonly code: number;
+    /** @param code - The exit status. */
+    constructor(code: number);
+}
+/** longjmp(env, 1): back to main's "Another game" question. */
+export declare class TrekReset extends Error {
+    constructor();
+}
+/** What the terminal is wired to. */
+export interface TrekTerminal {
+    /** Writes text out (whole lines, or the rest at the end). */
+    write(text: string): void;
+    /** Asks for a line with a prompt; null at end of input. */
+    ask(prompt: string): Promise<string | null>;
+    /** Waits a number of seconds (sleep()); a test passes a no-op. */
+    sleep(seconds: number): Promise<void>;
+}
+/** End of input, as getchar() returns it. */
+export declare const EOF: number;
+/** The terminal the game reads and writes. */
+export declare class TrekIO {
+    private readonly terminal;
+    /** Printed, not yet written out (the tail is the next prompt). */
+    private pending;
+    /** Characters typed, not yet read. */
+    private input;
+    /** @param terminal - What it is wired to. */
+    constructor(terminal: TrekTerminal);
+    /** printf(format, ...). */
+    printf(format: string, ...args: PrintfArg[]): void;
+    /** putchar(c). */
+    putchar(c: string | number): void;
+    /** Writes out every complete line printed; the partial tail waits. */
+    private lines_flush;
+    /** Writes out everything printed, the partial tail too (fflush). */
+    fflush(): void;
+    /** getchar(): the next character typed, asking when none is waiting. */
+    getchar(): Promise<number>;
+    /** ungetc(c): puts a character back to be read next. */
+    ungetc(c: number): void;
+    /** sleep(seconds). */
+    sleep(seconds: number): Promise<void>;
+    /** exit(code). */
+    exit(code: number): never;
+    /** Skips white space, as a scanf numeric conversion does; returns the next character, unread. */
+    private space_skip;
+    /**
+     * scanf("%d"): skips white space and reads an integer.
+     *
+     * @returns The count (1 read, 0 no match, -1 end of input) and the value.
+     */
+    scanInt(): Promise<{
+        count: number;
+        value: number;
+    }>;
+    /**
+     * 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.
+     */
+    scanDouble(): Promise<{
+        count: number;
+        value: number;
+    }>;
+    /**
+     * 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.
+     */
+    scanSkip(set: string): Promise<number>;
+    /**
+     * 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.
+     */
+    scanUntil(stop: string, max: number): Promise<{
+        count: number;
+        value: string;
+    }>;
+}