@fnndsc/brasa 0.37.1 → 0.38.0

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

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** Check for Condition After a Move */
+export declare function checkcond(t: Trek): Promise<void>;

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

@@ -0,0 +1,101 @@
+/*
+ * checkcond.ts: a TypeScript port of BSD trek(6), from checkcond.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): checkcond.c 1.7 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 ship's condition after a move: lost for want of life support,
+ * energy or crew; burnt in a supernova; else green, yellow or red.
+ *
+ * @module
+ */
+import { DOCKED, GREEN, L_NOCREW, L_NOENGY, L_NOLIFE, L_SNOVA, RED, YELLOW } from './consts.js';
+import { autover } from './autover.js';
+import { killd } from './kill.js';
+import { lose } from './lose.js';
+/*
+**  Check for Condition After a Move
+**
+**	Various ship conditions are checked.  First we check
+**	to see if we have already lost the game, due to running
+**	out of life support reserves, running out of energy,
+**	or running out of crew members.  The check for running
+**	out of time is in events().
+**
+**	If we are in automatic override mode (Etc.nkling < 0), we
+**	don't want to do anything else, lest we call autover
+**	recursively.
+**
+**	In the normal case, if there is a supernova, we call
+**	autover() to help us escape.  If after calling autover()
+**	we are still in the grips of a supernova, we get burnt
+**	up.
+**
+**	If there are no Klingons in this quadrant, we nullify any
+**	distress calls which might exist.
+**
+**	We then set the condition code, based on the energy level
+**	and battle conditions.
+*/
+/** Check for Condition After a Move */
+export async function checkcond(t) {
+    /* see if we are still alive and well */
+    if (t.s.Ship.reserves < 0.0)
+        await lose(t, L_NOLIFE);
+    if (t.s.Ship.energy <= 0)
+        await lose(t, L_NOENGY);
+    if (t.s.Ship.crew <= 0)
+        await lose(t, L_NOCREW);
+    /* if in auto override mode, ignore the rest */
+    if (t.s.Etc.nkling < 0)
+        return;
+    /* call in automatic override if appropriate */
+    if (t.s.Quad[t.s.Ship.quadx][t.s.Ship.quady].stars < 0)
+        await autover(t);
+    if (t.s.Quad[t.s.Ship.quadx][t.s.Ship.quady].stars < 0)
+        await lose(t, L_SNOVA);
+    /* nullify distress call if appropriate */
+    if (t.s.Etc.nkling <= 0)
+        await killd(t, t.s.Ship.quadx, t.s.Ship.quady, 1);
+    /* set condition code */
+    if (t.s.Ship.cond === DOCKED)
+        return;
+    if (t.s.Etc.nkling > 0) {
+        t.s.Ship.cond = RED;
+        return;
+    }
+    if (t.s.Ship.energy < t.s.Param.energylow) {
+        t.s.Ship.cond = YELLOW;
+        return;
+    }
+    t.s.Ship.cond = GREEN;
+    return;
+}
+//# sourceMappingURL=checkcond.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"checkcond.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/checkcond.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;GAKG;AACH,OAAO,EAAE,MAAM,EAAE,KAAK,EAAE,QAAQ,EAAE,QAAQ,EAAE,QAAQ,EAAE,OAAO,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAEhG,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,KAAK,EAAE,MAAM,WAAW,CAAC;AAClC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AAEjC;;;;;;;;;;;;;;;;;;;;;;;EAuBE;AAEF,uCAAuC;AACvC,MAAM,CAAC,KAAK,UAAU,SAAS,CAAC,CAAO;IACrC,wCAAwC;IACxC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ,GAAG,GAAG;QAAE,MAAM,IAAI,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;IACrD,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,IAAI,CAAC;QAAE,MAAM,IAAI,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;IAClD,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,IAAI,CAAC;QAAE,MAAM,IAAI,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;IAChD,+CAA+C;IAC/C,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,GAAG,CAAC;QAAE,OAAO;IAC/B,+CAA+C;IAC/C,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,GAAG,CAAC;QAAE,MAAM,OAAO,CAAC,CAAC,CAAC,CAAC;IACzE,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,GAAG,CAAC;QAAE,MAAM,IAAI,CAAC,CAAC,EAAE,OAAO,CAAC,CAAC;IAC/E,0CAA0C;IAC1C,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,IAAI,CAAC;QAAE,MAAM,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC;IAE3E,wBAAwB;IACxB,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO;IAErC,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;QACvB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,GAAG,CAAC;QACpB,OAAO;IACT,CAAC;IACD,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,SAAS,EAAE,CAAC;QAC1C,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,MAAM,CAAC;QACvB,OAAO;IACT,CAAC;IACD,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC;IACtB,OAAO;AACT,CAAC"}

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

@@ -0,0 +1,8 @@
+/**
+ * @file The Klingons' distances from the ship, recomputed and sorted.
+ *
+ * @module
+ */
+import type { Trek } from './context.js';
+/** Recomputes the Klingon distances and leaves the list sorted. */
+export declare function compkldist(t: Trek, f: number): void;

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

@@ -0,0 +1,66 @@
+/*
+**  compute klingon distances
+**
+**	The klingon list has the distances for all klingons recomputed
+**	and sorted.  The parameter is a Boolean flag which is set if
+**	we have just entered a new quadrant.
+**
+**	This routine is used every time the Enterprise or the Klingons
+**	move.
+**
+**  f -- set if new quadrant
+*/
+/** Recomputes the Klingon distances and leaves the list sorted. */
+export function compkldist(t, f) {
+    const { Ship, Etc } = t.s;
+    let dx;
+    let dy;
+    let d;
+    let temp;
+    if (Etc.nkling === 0)
+        return;
+    for (let i = 0; i < Etc.nkling; i++) {
+        /* compute distance to the Klingon */
+        dx = Ship.sectx - Etc.klingon[i].x;
+        dy = Ship.secty - Etc.klingon[i].y;
+        d = dx * dx + dy * dy;
+        d = Math.sqrt(d);
+        /* compute average of new and old distances to Klingon */
+        if (!f) {
+            temp = Etc.klingon[i].dist;
+            Etc.klingon[i].avgdist = 0.5 * (temp + d);
+        }
+        else {
+            /* new quadrant: average is current */
+            Etc.klingon[i].avgdist = d;
+        }
+        Etc.klingon[i].dist = d;
+    }
+    /* leave them sorted */
+    sortkl(t);
+}
+/*
+**  sort klingons
+**
+**	bubble sort on ascending distance
+*/
+/** Bubble sorts the Klingons on ascending distance (a swap of slots, as the C's struct swap). */
+function sortkl(t) {
+    const { Etc } = t.s;
+    let f;
+    let tk;
+    const m = Etc.nkling - 1;
+    f = 1;
+    while (f) {
+        f = 0;
+        for (let i = 0; i < m; i++) {
+            if (Etc.klingon[i].dist > Etc.klingon[i + 1].dist) {
+                tk = Etc.klingon[i];
+                Etc.klingon[i] = Etc.klingon[i + 1];
+                Etc.klingon[i + 1] = tk;
+                f = 1;
+            }
+        }
+    }
+}
+//# sourceMappingURL=compkl.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"compkl.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/compkl.ts"],"names":[],"mappings":"AAwCA;;;;;;;;;;;EAWE;AAEF,mEAAmE;AACnE,MAAM,UAAU,UAAU,CAAC,CAAO,EAAE,CAAS;IAC3C,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IAC1B,IAAI,EAAU,CAAC;IACf,IAAI,EAAU,CAAC;IACf,IAAI,CAAS,CAAC;IACd,IAAI,IAAY,CAAC;IAEjB,IAAI,GAAG,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO;IAC7B,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5C,qCAAqC;QACrC,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACnC,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACnC,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,CAAC;QACtB,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QAEjB,yDAAyD;QACzD,IAAI,CAAC,CAAC,EAAE,CAAC;YACP,IAAI,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC;YAC3B,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,OAAO,GAAG,GAAG,GAAG,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC;QAC5C,CAAC;aAAM,CAAC;YACN,sCAAsC;YACtC,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,OAAO,GAAG,CAAC,CAAC;QAC7B,CAAC;QACD,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC;IAC1B,CAAC;IAED,uBAAuB;IACvB,MAAM,CAAC,CAAC,CAAC,CAAC;AACZ,CAAC;AAED;;;;EAIE;AAEF,iGAAiG;AACjG,SAAS,MAAM,CAAC,CAAO;IACrB,MAAM,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IACpB,IAAI,CAAS,CAAC;IACd,IAAI,EAAS,CAAC;IAEd,MAAM,CAAC,GAAW,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC;IACjC,CAAC,GAAG,CAAC,CAAC;IACN,OAAO,CAAC,EAAE,CAAC;QACT,CAAC,GAAG,CAAC,CAAC;QACN,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YACnC,IAAI,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,IAAI,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;gBAClD,EAAE,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC;gBACpB,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;gBACpC,GAAG,CAAC,OAAO,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC;gBACxB,CAAC,GAAG,CAAC,CAAC;YACR,CAAC;QACH,CAAC;IACH,CAAC;AACH,CAAC"}

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

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

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

@@ -0,0 +1,310 @@
+/*
+ * computer.ts: a TypeScript port of BSD trek(6), from computer.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): computer.c 1.16 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 The on-board computer: star chart, Klingon trajectories, course
+ * computation (and the move along it), score, phaser effectiveness, warp
+ * and impulse costs, and the list of distress calls.
+ *
+ * Deviation: the C's request table carries its case number cast into the
+ * function slot; here a parallel table holds it.
+ *
+ * @module
+ */
+import { COMPUTER, E_ENSLV, E_EVENT, E_HIDDEN, E_KDESB, E_REPRO, MAXEVENTS, NQUADS, NSECTS, SRSCAN, Systemname } from './consts.js';
+import { check_out } from './check_out.js';
+import { getcodpar, getfltpar, getintpar, readdelim } from './getpar.js';
+import { EOF } from './io.js';
+import { score } from './score.js';
+import { warp } from './warp.js';
+/*
+**  On-Board Computer
+**
+**	A computer request is fetched from the captain.  The requests
+**	are:
+**
+**	chart -- print a star chart of the known galaxy.  This includes
+**		every quadrant that has ever had a long range or
+**		a short range scan done of it, plus the location of
+**		all starbases.  This is of course updated by any sub-
+**		space radio broadcasts (unless the radio is out).
+**		The format is the same as that of a long range scan
+**		except that ".1." indicates that a starbase exists
+**		but we know nothing else.
+**
+**	trajectory -- gives the course and distance to every know
+**		Klingon in the quadrant.  Obviously this fails if the
+**		short range scanners are out.
+**
+**	course -- gives a course computation from whereever you are
+**		to any specified location.  If the course begins
+**		with a slash, the current quadrant is taken.
+**		Otherwise the input is quadrant and sector coordi-
+**		nates of the target sector.
+**
+**	move -- identical to course, except that the move is performed.
+**
+**	score -- prints out the current score.
+**
+**	pheff -- "PHaser EFFectiveness" at a given distance.  Tells
+**		you how much stuff you need to make it work.
+**
+**	warpcost -- Gives you the cost in time and units to move for
+**		a given distance under a given warp speed.
+**
+**	impcost -- Same for the impulse engines.
+**
+**	distresslist -- Gives a list of the currently known starsystems
+**		or starbases which are distressed, together with their
+**		quadrant coordinates.
+**
+**	If a command is terminated with a semicolon, you remain in
+**	the computer; otherwise, you escape immediately to the main
+**	command processor.
+*/
+/** The request table. */
+const Cputab = [
+    { abbrev: 'ch', full: 'art', value: null, value2: 0 },
+    { abbrev: 't', full: 'rajectory', value: null, value2: 0 },
+    { abbrev: 'c', full: 'ourse', value: null, value2: 0 },
+    { abbrev: 'm', full: 'ove', value: null, value2: 1 },
+    { abbrev: 's', full: 'core', value: null, value2: 0 },
+    { abbrev: 'p', full: 'heff', value: null, value2: 0 },
+    { abbrev: 'w', full: 'arpcost', value: null, value2: 0 },
+    { abbrev: 'i', full: 'mpcost', value: null, value2: 0 },
+    { abbrev: 'd', full: 'istresslist', value: null, value2: 0 },
+];
+/** The C's `(cmdfun)N` of each Cputab entry, in table order. */
+const CPUCASE = [1, 2, 3, 3, 4, 5, 6, 7, 8];
+/** On-board computer. */
+export async function computer(t, _v) {
+    const { Ship, Etc, Param } = t.s;
+    let ix;
+    let iy;
+    let i;
+    let j;
+    let tqx;
+    let tqy;
+    let cost;
+    let course;
+    let dist;
+    let time;
+    let warpfact;
+    if (check_out(t, COMPUTER))
+        return;
+    while (true) {
+        const r = await getcodpar(t, '\nRequest', Cputab);
+        request: switch (CPUCASE[Cputab.indexOf(r)]) {
+            case 1 /* star chart */:
+                t.io.printf('Computer record of galaxy for all long range sensor scans\n\n');
+                t.io.printf('  ');
+                /* print top header */
+                for (i = 0; i < NQUADS; i++)
+                    t.io.printf('-%d- ', i);
+                t.io.printf('\n');
+                for (i = 0; i < NQUADS; i++) {
+                    t.io.printf('%d ', i);
+                    for (j = 0; j < NQUADS; j++) {
+                        if (i === Ship.quadx && j === Ship.quady) {
+                            t.io.printf('$$$ ');
+                            continue;
+                        }
+                        const q = t.s.Quad[i][j];
+                        /* 1000 or 1001 is special case */
+                        if (q.scanned >= 1000) {
+                            if (q.scanned > 1000)
+                                t.io.printf('.1. ');
+                            else
+                                t.io.printf('/// ');
+                        }
+                        else if (q.scanned < 0) {
+                            t.io.printf('... ');
+                        }
+                        else {
+                            t.io.printf('%3d ', q.scanned);
+                        }
+                    }
+                    t.io.printf('%d\n', i);
+                }
+                t.io.printf('  ');
+                /* print bottom footer */
+                for (i = 0; i < NQUADS; i++)
+                    t.io.printf('-%d- ', i);
+                t.io.printf('\n');
+                break;
+            case 2 /* trajectory */:
+                if (check_out(t, SRSCAN)) {
+                    break;
+                }
+                if (Etc.nkling <= 0) {
+                    t.io.printf('No Klingons in this quadrant\n');
+                    break;
+                }
+                /* for each Klingon, give the course & distance */
+                for (i = 0; i < Etc.nkling; i++) {
+                    t.io.printf('Klingon at %d,%d', Etc.klingon[i].x, Etc.klingon[i].y);
+                    // as the C: the ship's quadrant is passed as the target quadrant
+                    const calc = kalc(t, Ship.quadx, Ship.quady, Etc.klingon[i].x, Etc.klingon[i].y);
+                    prkalc(t, calc.course, calc.dist);
+                }
+                break;
+            case 3 /* course calculation */: {
+                if (await readdelim(t, 47)) {
+                    tqx = Ship.quadx;
+                    tqy = Ship.quady;
+                }
+                else {
+                    ix = await getintpar(t, 'Quadrant');
+                    if (ix < 0 || ix >= NSECTS)
+                        break request;
+                    iy = await getintpar(t, 'q-y');
+                    if (iy < 0 || iy >= NSECTS)
+                        break request;
+                    tqx = ix;
+                    tqy = iy;
+                }
+                ix = await getintpar(t, 'Sector');
+                if (ix < 0 || ix >= NSECTS)
+                    break;
+                iy = await getintpar(t, 's-y');
+                if (iy < 0 || iy >= NSECTS)
+                    break;
+                const calc = kalc(t, tqx, tqy, ix, iy);
+                course = calc.course;
+                dist = calc.dist;
+                if (r.value2) {
+                    await warp(t, -1, course, dist);
+                    break;
+                }
+                t.io.printf('%d,%d/%d,%d to %d,%d/%d,%d', Ship.quadx, Ship.quady, Ship.sectx, Ship.secty, tqx, tqy, ix, iy);
+                prkalc(t, course, dist);
+                break;
+            }
+            case 4 /* score */:
+                score(t);
+                break;
+            case 5 /* phaser effectiveness */:
+                dist = await getfltpar(t, 'range');
+                if (dist < 0.0)
+                    break;
+                dist *= 10.0;
+                cost = Math.trunc(Math.pow(0.90, dist) * 98.0 + 0.5);
+                t.io.printf('Phasers are %d%% effective at that range\n', cost);
+                break;
+            case 6 /* warp cost (time/energy) */:
+                dist = await getfltpar(t, 'distance');
+                if (dist < 0.0)
+                    break;
+                warpfact = await getfltpar(t, 'warp factor');
+                if (warpfact <= 0.0)
+                    warpfact = Ship.warp;
+                cost = Math.trunc((dist + 0.05) * warpfact * warpfact * warpfact);
+                time = (Param.warptime * dist) / (warpfact * warpfact);
+                t.io.printf('Warp %.2f distance %.2f cost %.2f stardates %d (%d w/ shlds up) units\n', warpfact, dist, time, cost, cost + cost);
+                break;
+            case 7 /* impulse cost */:
+                dist = await getfltpar(t, 'distance');
+                if (dist < 0.0)
+                    break;
+                cost = Math.trunc(20 + 100 * dist);
+                time = dist / 0.095;
+                t.io.printf('Distance %.2f cost %.2f stardates %d units\n', dist, time, cost);
+                break;
+            case 8 /* distresslist */:
+                j = 1;
+                t.io.printf('\n');
+                /* scan the event list */
+                for (i = 0; i < MAXEVENTS; i++) {
+                    const e = t.s.Event[i];
+                    /* ignore hidden entries */
+                    if (e.evcode & E_HIDDEN)
+                        continue;
+                    switch (e.evcode & E_EVENT) {
+                        case E_KDESB:
+                            t.io.printf('Klingon is attacking starbase in quadrant %d,%d\n', e.x, e.y);
+                            j = 0;
+                            break;
+                        case E_ENSLV:
+                        case E_REPRO:
+                            t.io.printf('Starsystem %s in quadrant %d,%d is distressed\n', Systemname[e.systemname], e.x, e.y);
+                            j = 0;
+                            break;
+                    }
+                }
+                if (j)
+                    t.io.printf('No known distress calls are active\n');
+                break;
+        }
+        /*
+         * Skip to next semicolon or newline.  Semicolon
+         * means get new computer request; newline means
+         * exit computer mode.
+         */
+        while ((i = await t.io.getchar()) !== 59) {
+            if (i === EOF)
+                t.io.exit(1);
+            if (i === 10) {
+                t.io.ungetc(i);
+                return;
+            }
+        }
+    }
+}
+/*
+**  Course Calculation
+**
+**	Computes and outputs the course and distance from position
+**	sqx,sqy/ssx,ssy to tqx,tqy/tsx,tsy.
+*/
+/** Course calculation: the course (the C's return) and the distance (its out-parameter). */
+function kalc(t, tqx, tqy, tsx, tsy) {
+    const { Ship } = t.s;
+    let dx;
+    /* normalize to quadrant distances */
+    const quadsize = NSECTS;
+    dx = Ship.quadx + Ship.sectx / quadsize - (tqx + tsx / quadsize);
+    const dy = tqy + tsy / quadsize - (Ship.quady + Ship.secty / quadsize);
+    /* get the angle */
+    let angle = Math.atan2(dy, dx);
+    /* make it 0 -> 2 pi */
+    if (angle < 0.0)
+        angle += 6.283185307;
+    /* convert from radians to degrees */
+    const course = Math.trunc(angle * 57.29577951 + 0.5);
+    dx = dx * dx + dy * dy;
+    return { course, dist: Math.sqrt(dx) };
+}
+/** Prints a course and distance. */
+function prkalc(t, course, dist) {
+    t.io.printf(': course %d  dist %.3f\n', course, dist);
+}
+//# sourceMappingURL=computer.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"computer.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/computer.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;;;;;GASG;AACH,OAAO,EAAE,QAAQ,EAAE,OAAO,EAAE,OAAO,EAAE,QAAQ,EAAE,OAAO,EAAE,OAAO,EAAE,SAAS,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,UAAU,EAAE,MAAM,aAAa,CAAC;AAEpI,OAAO,EAAE,SAAS,EAAE,MAAM,gBAAgB,CAAC;AAC3C,OAAO,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAe,MAAM,aAAa,CAAC;AACtF,OAAO,EAAE,GAAG,EAAE,MAAM,SAAS,CAAC;AAC9B,OAAO,EAAE,KAAK,EAAE,MAAM,YAAY,CAAC;AAEnC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AAEjC;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;EA4CE;AAEF,yBAAyB;AACzB,MAAM,MAAM,GAA0B;IACpC,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACrD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,WAAW,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IAC1D,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACtD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACpD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACrD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACrD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,SAAS,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACxD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACvD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,aAAa,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;CAC7D,CAAC;AAEF,gEAAgE;AAChE,MAAM,OAAO,GAA0B,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;AAEnE,yBAAyB;AACzB,MAAM,CAAC,KAAK,UAAU,QAAQ,CAAC,CAAO,EAAE,EAAU;IAChD,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IACjC,IAAI,EAAU,CAAC;IACf,IAAI,EAAU,CAAC;IACf,IAAI,CAAS,CAAC;IACd,IAAI,CAAS,CAAC;IACd,IAAI,GAAW,CAAC;IAChB,IAAI,GAAW,CAAC;IAChB,IAAI,IAAY,CAAC;IACjB,IAAI,MAAc,CAAC;IACnB,IAAI,IAAY,CAAC;IACjB,IAAI,IAAY,CAAC;IACjB,IAAI,QAAgB,CAAC;IAErB,IAAI,SAAS,CAAC,CAAC,EAAE,QAAQ,CAAC;QAAE,OAAO;IACnC,OAAO,IAAI,EAAE,CAAC;QACZ,MAAM,CAAC,GAAW,MAAM,SAAS,CAAC,CAAC,EAAE,WAAW,EAAE,MAAM,CAAC,CAAC;QAC1D,OAAO,EAAE,QAAQ,OAAO,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;YAC5C,KAAK,CAAC,CAAC,gBAAgB;gBACrB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,+DAA+D,CAAC,CAAC;gBAC7E,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;gBAClB,sBAAsB;gBACtB,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE;oBAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,OAAO,EAAE,CAAC,CAAC,CAAC;gBACrD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;gBAClB,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;oBAC5B,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC;oBACtB,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;wBAC5B,IAAI,CAAC,KAAK,IAAI,CAAC,KAAK,IAAI,CAAC,KAAK,IAAI,CAAC,KAAK,EAAE,CAAC;4BACzC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC;4BACpB,SAAS;wBACX,CAAC;wBACD,MAAM,CAAC,GAAS,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;wBAC/B,kCAAkC;wBAClC,IAAI,CAAC,CAAC,OAAO,IAAI,IAAI,EAAE,CAAC;4BACtB,IAAI,CAAC,CAAC,OAAO,GAAG,IAAI;gCAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC;;gCACrC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC;wBAC3B,CAAC;6BAAM,IAAI,CAAC,CAAC,OAAO,GAAG,CAAC,EAAE,CAAC;4BACzB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC;wBACtB,CAAC;6BAAM,CAAC;4BACN,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,MAAM,EAAE,CAAC,CAAC,OAAO,CAAC,CAAC;wBACjC,CAAC;oBACH,CAAC;oBACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;gBACzB,CAAC;gBACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;gBAClB,yBAAyB;gBACzB,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE;oBAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,OAAO,EAAE,CAAC,CAAC,CAAC;gBACrD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;gBAClB,MAAM;YAER,KAAK,CAAC,CAAC,gBAAgB;gBACrB,IAAI,SAAS,CAAC,CAAC,EAAE,MAAM,CAAC,EAAE,CAAC;oBACzB,MAAM;gBACR,CAAC;gBACD,IAAI,GAAG,CAAC,MAAM,IAAI,CAAC,EAAE,CAAC;oBACpB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,gCAAgC,CAAC,CAAC;oBAC9C,MAAM;gBACR,CAAC;gBACD,kDAAkD;gBAClD,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;oBAChC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,kBAAkB,EAAE,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;oBACpE,iEAAiE;oBACjE,MAAM,IAAI,GAAqC,IAAI,CAAC,CAAC,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;oBACnH,MAAM,CAAC,CAAC,EAAE,IAAI,CAAC,MAAM,EAAE,IAAI,CAAC,IAAI,CAAC,CAAC;gBACpC,CAAC;gBACD,MAAM;YAER,KAAK,CAAC,CAAC,wBAAwB,CAAC,CAAC,CAAC;gBAChC,IAAI,MAAM,SAAS,CAAC,CAAC,EAAE,EAAE,CAAC,EAAE,CAAC;oBAC3B,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC;oBACjB,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC;gBACnB,CAAC;qBAAM,CAAC;oBACN,EAAE,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,UAAU,CAAC,CAAC;oBACpC,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,IAAI,MAAM;wBAAE,MAAM,OAAO,CAAC;oBAC1C,EAAE,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,KAAK,CAAC,CAAC;oBAC/B,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,IAAI,MAAM;wBAAE,MAAM,OAAO,CAAC;oBAC1C,GAAG,GAAG,EAAE,CAAC;oBACT,GAAG,GAAG,EAAE,CAAC;gBACX,CAAC;gBACD,EAAE,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;gBAClC,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,IAAI,MAAM;oBAAE,MAAM;gBAClC,EAAE,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,KAAK,CAAC,CAAC;gBAC/B,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,IAAI,MAAM;oBAAE,MAAM;gBAClC,MAAM,IAAI,GAAqC,IAAI,CAAC,CAAC,EAAE,GAAG,EAAE,GAAG,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;gBACzE,MAAM,GAAG,IAAI,CAAC,MAAM,CAAC;gBACrB,IAAI,GAAG,IAAI,CAAC,IAAI,CAAC;gBACjB,IAAI,CAAC,CAAC,MAAM,EAAE,CAAC;oBACb,MAAM,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,MAAM,EAAE,IAAI,CAAC,CAAC;oBAChC,MAAM;gBACR,CAAC;gBACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,4BAA4B,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,EAAE,GAAG,EAAE,GAAG,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;gBAC5G,MAAM,CAAC,CAAC,EAAE,MAAM,EAAE,IAAI,CAAC,CAAC;gBACxB,MAAM;YACR,CAAC;YAED,KAAK,CAAC,CAAC,WAAW;gBAChB,KAAK,CAAC,CAAC,CAAC,CAAC;gBACT,MAAM;YAER,KAAK,CAAC,CAAC,0BAA0B;gBAC/B,IAAI,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,OAAO,CAAC,CAAC;gBACnC,IAAI,IAAI,GAAG,GAAG;oBAAE,MAAM;gBACtB,IAAI,IAAI,IAAI,CAAC;gBACb,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,IAAI,GAAG,GAAG,CAAC,CAAC;gBACrD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,4CAA4C,EAAE,IAAI,CAAC,CAAC;gBAChE,MAAM;YAER,KAAK,CAAC,CAAC,6BAA6B;gBAClC,IAAI,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,UAAU,CAAC,CAAC;gBACtC,IAAI,IAAI,GAAG,GAAG;oBAAE,MAAM;gBACtB,QAAQ,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,aAAa,CAAC,CAAC;gBAC7C,IAAI,QAAQ,IAAI,GAAG;oBAAE,QAAQ,GAAG,IAAI,CAAC,IAAI,CAAC;gBAC1C,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,GAAG,IAAI,CAAC,GAAG,QAAQ,GAAG,QAAQ,GAAG,QAAQ,CAAC,CAAC;gBAClE,IAAI,GAAG,CAAC,KAAK,CAAC,QAAQ,GAAG,IAAI,CAAC,GAAG,CAAC,QAAQ,GAAG,QAAQ,CAAC,CAAC;gBACvD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,yEAAyE,EAAE,QAAQ,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,GAAG,IAAI,CAAC,CAAC;gBAChI,MAAM;YAER,KAAK,CAAC,CAAC,kBAAkB;gBACvB,IAAI,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,UAAU,CAAC,CAAC;gBACtC,IAAI,IAAI,GAAG,GAAG;oBAAE,MAAM;gBACtB,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,GAAG,GAAG,GAAG,IAAI,CAAC,CAAC;gBACnC,IAAI,GAAG,IAAI,GAAG,KAAK,CAAC;gBACpB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,8CAA8C,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC;gBAC9E,MAAM;YAER,KAAK,CAAC,CAAC,kBAAkB;gBACvB,CAAC,GAAG,CAAC,CAAC;gBACN,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;gBAClB,yBAAyB;gBACzB,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,SAAS,EAAE,CAAC,EAAE,EAAE,CAAC;oBAC/B,MAAM,CAAC,GAAc,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;oBAClC,2BAA2B;oBAC3B,IAAI,CAAC,CAAC,MAAM,GAAG,QAAQ;wBAAE,SAAS;oBAClC,QAAQ,CAAC,CAAC,MAAM,GAAG,OAAO,EAAE,CAAC;wBAC3B,KAAK,OAAO;4BACV,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,mDAAmD,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;4BAC3E,CAAC,GAAG,CAAC,CAAC;4BACN,MAAM;wBAER,KAAK,OAAO,CAAC;wBACb,KAAK,OAAO;4BACV,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,iDAAiD,EAAE,UAAU,CAAC,CAAC,CAAC,UAAU,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;4BACnG,CAAC,GAAG,CAAC,CAAC;4BACN,MAAM;oBACV,CAAC;gBACH,CAAC;gBACD,IAAI,CAAC;oBAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,sCAAsC,CAAC,CAAC;gBAC3D,MAAM;QACV,CAAC;QAED;;;;WAIG;QACH,OAAO,CAAC,CAAC,GAAG,MAAM,CAAC,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC,KAAK,EAAE,EAAE,CAAC;YACzC,IAAI,CAAC,KAAK,GAAG;gBAAE,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;YAC5B,IAAI,CAAC,KAAK,EAAE,EAAE,CAAC;gBACb,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;gBACf,OAAO;YACT,CAAC;QACH,CAAC;IACH,CAAC;AACH,CAAC;AAED;;;;;EAKE;AAEF,4FAA4F;AAC5F,SAAS,IAAI,CAAC,CAAO,EAAE,GAAW,EAAE,GAAW,EAAE,GAAW,EAAE,GAAW;IACvE,MAAM,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IACrB,IAAI,EAAU,CAAC;IAEf,qCAAqC;IACrC,MAAM,QAAQ,GAAW,MAAM,CAAC;IAChC,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,QAAQ,GAAG,CAAC,GAAG,GAAG,GAAG,GAAG,QAAQ,CAAC,CAAC;IACjE,MAAM,EAAE,GAAW,GAAG,GAAG,GAAG,GAAG,QAAQ,GAAG,CAAC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,QAAQ,CAAC,CAAC;IAE/E,mBAAmB;IACnB,IAAI,KAAK,GAAW,IAAI,CAAC,KAAK,CAAC,EAAE,EAAE,EAAE,CAAC,CAAC;IACvC,uBAAuB;IACvB,IAAI,KAAK,GAAG,GAAG;QAAE,KAAK,IAAI,WAAW,CAAC;IACtC,qCAAqC;IACrC,MAAM,MAAM,GAAW,IAAI,CAAC,KAAK,CAAC,KAAK,GAAG,WAAW,GAAG,GAAG,CAAC,CAAC;IAC7D,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,CAAC;IACvB,OAAO,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC;AACzC,CAAC;AAED,oCAAoC;AACpC,SAAS,MAAM,CAAC,CAAO,EAAE,MAAc,EAAE,IAAY;IACnD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,0BAA0B,EAAE,MAAM,EAAE,IAAI,CAAC,CAAC;AACxD,CAAC"}

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

@@ -0,0 +1,109 @@
+/**
+ * @file trek's constants: the dimensions, the sector glyphs, the devices,
+ * the event codes, the ways to lose, and the tables `externs.c` defines.
+ *
+ * Names are the C names, so a reader can hold this beside trek.h.
+ *
+ * @module
+ */
+/** Dimensions of a quadrant in sectors. */
+export declare const NSECTS: number;
+/** Dimension of the galaxy in quadrants. */
+export declare const NQUADS: number;
+/** Number of quadrants which are inhabited. */
+export declare const NINHAB: number;
+/** Quad.qsystemname flag: a distress call is out for this quadrant. */
+export declare const Q_DISTRESSED: number;
+/** Quad.qsystemname mask: the starsystem's name index. */
+export declare const Q_SYSTEM: number;
+/** Sector contents. */
+export declare const EMPTY: string;
+export declare const STAR: string;
+export declare const BASE: string;
+export declare const ENTERPRISE: string;
+export declare const QUEENE: string;
+export declare const KLINGON: string;
+export declare const INHABIT: string;
+export declare const HOLE: string;
+/** Max number of devices. */
+export declare const NDEV: number;
+export declare const WARP: number;
+export declare const SRSCAN: number;
+export declare const LRSCAN: number;
+export declare const PHASER: number;
+export declare const TORPED: number;
+export declare const IMPULSE: number;
+export declare const SHIELD: number;
+export declare const COMPUTER: number;
+export declare const SSRADIO: number;
+export declare const LIFESUP: number;
+export declare const SINS: number;
+export declare const CLOAK: number;
+export declare const XPORTER: number;
+export declare const SHUTTLE: number;
+/** Number of different event types. */
+export declare const NEVENTS: number;
+export declare const E_LRTB: number;
+export declare const E_KATSB: number;
+export declare const E_KDESB: number;
+export declare const E_ISSUE: number;
+export declare const E_ENSLV: number;
+export declare const E_REPRO: number;
+export declare const E_FIXDV: number;
+export declare const E_ATTACK: number;
+export declare const E_SNAP: number;
+export declare const E_SNOVA: number;
+export declare const E_GHOST: number;
+export declare const E_HIDDEN: number;
+export declare const E_EVENT: number;
+/** Maximum number of pending events. */
+export declare const MAXEVENTS: number;
+/** Maximum Klingons per quadrant. */
+export declare const MAXKLQUAD: number;
+/** Condition codes. */
+export declare const GREEN: number;
+export declare const DOCKED: number;
+export declare const YELLOW: number;
+export declare const RED: number;
+/** Maximum number of starbases in the galaxy. */
+export declare const MAXBASES: number;
+/** Maximum concurrent distress calls. */
+export declare const MAXDISTR: number;
+/** Number of phaser banks. */
+export declare const NBANKS: number;
+/** Klingon move modes. */
+export declare const KM_OB: number;
+export declare const KM_OA: number;
+export declare const KM_EB: number;
+export declare const KM_EA: number;
+export declare const KM_LB: number;
+export declare const KM_LA: number;
+/** Ways to lose. */
+export declare const L_NOTIME: number;
+export declare const L_NOENGY: number;
+export declare const L_DSTRYD: number;
+export declare const L_NEGENB: number;
+export declare const L_SUICID: number;
+export declare const L_SNOVA: number;
+export declare const L_NOLIFE: number;
+export declare const L_NOHELP: number;
+export declare const L_TOOFAST: number;
+export declare const L_STAR: number;
+export declare const L_DSTRCT: number;
+export declare const L_CAPTURED: number;
+export declare const L_NOCREW: number;
+/** Trace compilation option, kept as in the original. */
+export declare const xTRACE: number;
+/** A number larger than any distance: DBL_MAX / 2. */
+export declare const TOOLARGE: number;
+/** The random source's range, as random() returns: 0 .. RANDOM_MAX. */
+export declare const RANDOM_MAX: number;
+/** A device and the person who fixes it. */
+export interface Device {
+    name: string;
+    person: string;
+}
+/** The devices, by index (externs.c). */
+export declare const Device: ReadonlyArray<Device>;
+/** The inhabited starsystems' names, by index; 0 is the error entry (externs.c). */
+export declare const Systemname: ReadonlyArray<string>;