@fnndsc/brasa 0.37.0 → 0.38.0

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

@@ -0,0 +1,36 @@
+import { L_NOTIME } from './consts.js';
+import { skiptonl } from './getpar.js';
+import { TrekReset } from './io.js';
+import { score } from './score.js';
+/** The loser messages, by the L_* code less one. */
+const Losemsg = [
+    'You ran out of time',
+    'You ran out of energy',
+    'You have been destroyed',
+    'You ran into the negative energy barrier',
+    "You destroyed yourself by nova'ing that star",
+    'You have been caught in a supernova',
+    'You just suffocated in outer space',
+    'You could not be rematerialized',
+    "\n\x1a\x0c ***\x07 Ship's hull has imploded\x07 ***",
+    'You have burned up in a star',
+    "Well, you destroyed yourself, but it didn't do any good",
+    'You have been captured by Klingons and mercilessly tortured',
+    'Your last crew member died',
+];
+/** PRINT OUT LOSER MESSAGES, then the score, and the game is restarted. */
+export async function lose(t, why) {
+    t.s.Game.killed = 1;
+    await t.io.sleep(1);
+    t.io.printf('\n%s\n', Losemsg[why - 1]);
+    switch (why) {
+        case L_NOTIME:
+            t.s.Game.killed = 0;
+            break;
+    }
+    t.s.Move.endgame = -1;
+    score(t);
+    await skiptonl(t, 0);
+    throw new TrekReset();
+}
+//# sourceMappingURL=lose.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"lose.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/lose.ts"],"names":[],"mappings":"AAuCA,OAAO,EAAE,QAAQ,EAAE,MAAM,aAAa,CAAC;AACvC,OAAO,EAAE,QAAQ,EAAE,MAAM,aAAa,CAAC;AACvC,OAAO,EAAE,SAAS,EAAE,MAAM,SAAS,CAAC;AACpC,OAAO,EAAE,KAAK,EAAE,MAAM,YAAY,CAAC;AAEnC,oDAAoD;AACpD,MAAM,OAAO,GAA0B;IACrC,qBAAqB;IACrB,uBAAuB;IACvB,yBAAyB;IACzB,0CAA0C;IAC1C,8CAA8C;IAC9C,qCAAqC;IACrC,oCAAoC;IACpC,iCAAiC;IACjC,qDAAqD;IACrD,8BAA8B;IAC9B,yDAAyD;IACzD,6DAA6D;IAC7D,4BAA4B;CAC7B,CAAC;AAEF,2EAA2E;AAC3E,MAAM,CAAC,KAAK,UAAU,IAAI,CAAC,CAAO,EAAE,GAAW;IAC7C,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;IACpB,MAAM,CAAC,CAAC,EAAE,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;IACpB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,QAAQ,EAAE,OAAO,CAAC,GAAG,GAAG,CAAC,CAAW,CAAC,CAAC;IAClD,QAAQ,GAAG,EAAE,CAAC;QACZ,KAAK,QAAQ;YACX,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;YACpB,MAAM;IACV,CAAC;IACD,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,OAAO,GAAG,CAAC,CAAC,CAAC;IACtB,KAAK,CAAC,CAAC,CAAC,CAAC;IACT,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IACrB,MAAM,IAAI,SAAS,EAAE,CAAC;AACxB,CAAC"}

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

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

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

@@ -0,0 +1,96 @@
+/*
+ * lrscan.ts: a TypeScript port of BSD trek(6), from lrscan.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): lrscan.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 The long range scan: the eight quadrants around the ship and its
+ * own, each as klingons, bases and stars in one three-digit number.
+ *
+ * @module
+ */
+import { LRSCAN, NQUADS } from './consts.js';
+import { check_out } from './check_out.js';
+/*
+**  LONG RANGE OF SCANNERS
+**
+**	A summary of the quadrants that surround you is printed.  The
+**	hundreds digit is the number of Klingons in the quadrant,
+**	the tens digit is the number of starbases, and the units digit
+**	is the number of stars.  If the printout is "///" it means
+**	that that quadrant is rendered uninhabitable by a supernova.
+**	It also updates the "scanned" field of the quadrants it scans,
+**	for future use by the "chart" option of the computer.
+*/
+/** LONG RANGE OF SCANNERS */
+export async function lrscan(t, _v) {
+    let q;
+    if (check_out(t, LRSCAN)) {
+        return;
+    }
+    t.io.printf('Long range scan for quadrant %d,%d\n\n', t.s.Ship.quadx, t.s.Ship.quady);
+    /* print the header on top */
+    for (let j = t.s.Ship.quady - 1; j <= t.s.Ship.quady + 1; j++) {
+        if (j < 0 || j >= NQUADS)
+            t.io.printf('      ');
+        else
+            t.io.printf('     %1d', j);
+    }
+    /* scan the quadrants */
+    for (let i = t.s.Ship.quadx - 1; i <= t.s.Ship.quadx + 1; i++) {
+        t.io.printf('\n  -------------------\n');
+        if (i < 0 || i >= NQUADS) {
+            /* negative energy barrier */
+            t.io.printf('  !  *  !  *  !  *  !');
+            continue;
+        }
+        /* print the left hand margin */
+        t.io.printf('%1d !', i);
+        for (let j = t.s.Ship.quady - 1; j <= t.s.Ship.quady + 1; j++) {
+            if (j < 0 || j >= NQUADS) {
+                /* negative energy barrier again */
+                t.io.printf('  *  !');
+                continue;
+            }
+            q = t.s.Quad[i][j];
+            if (q.stars < 0) {
+                /* supernova */
+                t.io.printf(' /// !');
+                q.scanned = 1000;
+                continue;
+            }
+            q.scanned = q.klings * 100 + q.bases * 10 + q.stars;
+            t.io.printf(' %3d !', q.scanned);
+        }
+    }
+    t.io.printf('\n  -------------------\n');
+    return;
+}
+//# sourceMappingURL=lrscan.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"lrscan.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/lrscan.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;GAKG;AACH,OAAO,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAE7C,OAAO,EAAE,SAAS,EAAE,MAAM,gBAAgB,CAAC;AAG3C;;;;;;;;;;EAUE;AAEF,6BAA6B;AAC7B,MAAM,CAAC,KAAK,UAAU,MAAM,CAAC,CAAO,EAAE,EAAU;IAC9C,IAAI,CAAO,CAAC;IAEZ,IAAI,SAAS,CAAC,CAAC,EAAE,MAAM,CAAC,EAAE,CAAC;QACzB,OAAO;IACT,CAAC;IACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,wCAAwC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAEtF,6BAA6B;IAC7B,KAAK,IAAI,CAAC,GAAW,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QACtE,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,MAAM;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC;;YAC3C,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,UAAU,EAAE,CAAC,CAAC,CAAC;IAClC,CAAC;IAED,wBAAwB;IACxB,KAAK,IAAI,CAAC,GAAW,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QACtE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,2BAA2B,CAAC,CAAC;QACzC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,MAAM,EAAE,CAAC;YACzB,6BAA6B;YAC7B,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,uBAAuB,CAAC,CAAC;YACrC,SAAS;QACX,CAAC;QAED,gCAAgC;QAChC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,OAAO,EAAE,CAAC,CAAC,CAAC;QACxB,KAAK,IAAI,CAAC,GAAW,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YACtE,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,MAAM,EAAE,CAAC;gBACzB,mCAAmC;gBACnC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC;gBACtB,SAAS;YACX,CAAC;YACD,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;YACnB,IAAI,CAAC,CAAC,KAAK,GAAG,CAAC,EAAE,CAAC;gBAChB,eAAe;gBACf,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC;gBACtB,CAAC,CAAC,OAAO,GAAG,IAAI,CAAC;gBACjB,SAAS;YACX,CAAC;YACD,CAAC,CAAC,OAAO,GAAG,CAAC,CAAC,MAAM,GAAG,GAAG,GAAG,CAAC,CAAC,KAAK,GAAG,EAAE,GAAG,CAAC,CAAC,KAAK,CAAC;YACpD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,QAAQ,EAAE,CAAC,CAAC,OAAO,CAAC,CAAC;QACnC,CAAC;IACH,CAAC;IACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,2BAA2B,CAAC,CAAC;IACzC,OAAO;AACT,CAAC"}

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

@@ -0,0 +1,24 @@
+/**
+ * @file The game's entry: the banner, then games until the captain asks
+ * for no more. setjmp(env) is the catch of TrekReset; exit() the catch of
+ * TrekExit.
+ *
+ * Deviation: the random seed, fast mode and trace come in as options
+ * rather than from time(NULL) and the command line.
+ *
+ * C version by Eric P. Allman 5/76 (U.C. Berkeley) with help from Jeff
+ * Poskanzer and Pete Rubinstein; the full credits are kept in main.c of
+ * the original and reproduced in this package's NOTICE.
+ *
+ * @module
+ */
+import type { Trek } from './context.js';
+/** How a game is started: the C's command line. */
+export interface TrekOptions {
+    /** Etc.fast: 0 slow (-s), 1 default, 2 and up with -f. */
+    fast: number;
+    /** Trace: on with -t. */
+    trace: number;
+}
+/** main(): the exit status the game ends with. */
+export declare function trek_main(t: Trek, options: TrekOptions): Promise<number>;

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

@@ -0,0 +1,37 @@
+import { getynpar } from './getpar.js';
+import { TrekExit, TrekReset } from './io.js';
+import { play } from './play.js';
+import { setup } from './setup.js';
+/** main(): the exit status the game ends with. */
+export async function trek_main(t, options) {
+    // Default to fast mode
+    t.s.Etc.fast = options.fast;
+    t.s.Trace = options.trace;
+    t.io.printf('\n   * * *   S T A R   T R E K   * * *\n\nPress return to continue.\n');
+    let reset = false;
+    while (true) {
+        try {
+            if (reset) {
+                reset = false;
+                if (!(await getynpar(t, 'Another game')))
+                    t.io.exit(0);
+            }
+            do {
+                await setup(t);
+                await play(t);
+            } while (await getynpar(t, 'Another game'));
+            t.io.fflush();
+            return 0;
+        }
+        catch (caught) {
+            if (caught instanceof TrekReset) {
+                reset = true;
+                continue;
+            }
+            if (caught instanceof TrekExit)
+                return caught.code;
+            throw caught;
+        }
+    }
+}
+//# sourceMappingURL=main.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"main.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/main.ts"],"names":[],"mappings":"AA+CA,OAAO,EAAE,QAAQ,EAAE,MAAM,aAAa,CAAC;AACvC,OAAO,EAAE,QAAQ,EAAE,SAAS,EAAE,MAAM,SAAS,CAAC;AAC9C,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,KAAK,EAAE,MAAM,YAAY,CAAC;AAUnC,kDAAkD;AAClD,MAAM,CAAC,KAAK,UAAU,SAAS,CAAC,CAAO,EAAE,OAAoB;IAC3D,uBAAuB;IACvB,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,GAAG,OAAO,CAAC,IAAI,CAAC;IAC5B,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,OAAO,CAAC,KAAK,CAAC;IAE1B,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,uEAAuE,CAAC,CAAC;IAErF,IAAI,KAAK,GAAY,KAAK,CAAC;IAC3B,OAAO,IAAI,EAAE,CAAC;QACZ,IAAI,CAAC;YACH,IAAI,KAAK,EAAE,CAAC;gBACV,KAAK,GAAG,KAAK,CAAC;gBACd,IAAI,CAAC,CAAC,MAAM,QAAQ,CAAC,CAAC,EAAE,cAAc,CAAC,CAAC;oBAAE,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;YACzD,CAAC;YACD,GAAG,CAAC;gBACF,MAAM,KAAK,CAAC,CAAC,CAAC,CAAC;gBACf,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC;YAChB,CAAC,QAAQ,MAAM,QAAQ,CAAC,CAAC,EAAE,cAAc,CAAC,EAAE;YAC5C,CAAC,CAAC,EAAE,CAAC,MAAM,EAAE,CAAC;YACd,OAAO,CAAC,CAAC;QACX,CAAC;QAAC,OAAO,MAAe,EAAE,CAAC;YACzB,IAAI,MAAM,YAAY,SAAS,EAAE,CAAC;gBAChC,KAAK,GAAG,IAAI,CAAC;gBACb,SAAS;YACX,CAAC;YACD,IAAI,MAAM,YAAY,QAAQ;gBAAE,OAAO,MAAM,CAAC,IAAI,CAAC;YACnD,MAAM,MAAM,CAAC;QACf,CAAC;IACH,CAAC;AACH,CAAC"}

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

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** Moves the ship; returns the time the move actually took. */
+export declare function move(t: Trek, ramflag: number, course: number, time: number, speed: number): Promise<number>;

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

@@ -0,0 +1,229 @@
+/*
+ * move.ts: a TypeScript port of BSD trek(6), from move.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): move.c 1.11 2011/07/03.
+ *
+ * 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 warp or impulse power: the course through the
+ * current quadrant, leaving it, ramming, black holes and the long range
+ * tractor beam that cuts a move short.
+ *
+ * @module
+ */
+import { attack } from './attack.js';
+import { checkcond } from './checkcond.js';
+import { compkldist } from './compkl.js';
+import { COMPUTER, E_LRTB, EMPTY, HOLE, L_NEGENB, NQUADS, NSECTS, SINS } from './consts.js';
+import { damaged } from './damaged.js';
+import { dumpme } from './dumpme.js';
+import { initquad } from './initquad.js';
+import { lose } from './lose.js';
+import { ram } from './ram.js';
+import { franf } from './rand.js';
+/** float.h's DBL_MIN: the smallest normalized double (not Number.MIN_VALUE, which is subnormal). */
+const DBL_MIN = 2.2250738585072014e-308;
+/*
+**  Move Under Warp or Impulse Power
+**
+**	`Ramflag' is set if we are to be allowed to ram stars,
+**	Klingons, etc.  This is passed from warp(), which gets it from
+**	either play() or ram().  Course is the course (0 -> 360) at
+**	which we want to move.  `Speed' is the speed we
+**	want to go, and `time' is the expected time.  It
+**	can get cut short if a long range tractor beam is to occur.  We
+**	cut short the move so that the user doesn't get docked time and
+**	energy for distance which he didn't travel.
+**
+**	We check the course through the current quadrant to see that he
+**	doesn't run into anything.  After that, though, space sort of
+**	bends around him.  Note that this puts us in the awkward posi-
+**	tion of being able to be dropped into a sector which is com-
+**	pletely surrounded by stars.  Oh Well.
+**
+**	If the SINS (Space Inertial Navigation System) is out, we ran-
+**	domize the course accordingly before ever starting to move.
+**	We will still move in a straight line.
+**
+**	Note that if your computer is out, you ram things anyway.  In
+**	other words, if your computer and sins are both out, you're in
+**	potentially very bad shape.
+**
+**	Klingons get a chance to zap you as you leave the quadrant.
+**	By the way, they also try to follow you (heh heh).
+**
+**	Return value is the actual amount of time used.
+**
+**
+**	Uses trace flag 4.
+*/
+/** Moves the ship; returns the time the move actually took. */
+export async function move(t, ramflag, course, time, speed) {
+    const { Ship, Param, Move, Etc } = t.s;
+    let angle;
+    let x;
+    let y;
+    let dx;
+    let dy;
+    let ix = 0;
+    let iy = 0;
+    let bigger;
+    let n;
+    let i;
+    let dist;
+    let evtime;
+    if (t.s.Trace) {
+        t.io.printf('move: ramflag %d course %d time %.2f speed %.2f\n', ramflag, course, time, speed);
+    }
+    const sectsize = NSECTS;
+    /* initialize delta factors for move */
+    angle = course * 0.0174532925;
+    if (damaged(t, SINS)) {
+        angle += Param.navigcrud[1] * (franf(t.rnd) - 0.5);
+    }
+    else if (Ship.sinsbad) {
+        angle += Param.navigcrud[0] * (franf(t.rnd) - 0.5);
+    }
+    dx = -Math.cos(angle);
+    dy = Math.sin(angle);
+    bigger = Math.abs(dx);
+    dist = Math.abs(dy);
+    if (dist > bigger)
+        bigger = dist;
+    dx /= bigger;
+    dy /= bigger;
+    /* check for long range tractor beams */
+    /****  TEMPORARY CODE == DEBUGGING  ****/
+    evtime = t.s.Event[t.s.Now.eventptr[E_LRTB]].date - t.s.Now.date;
+    if (t.s.Trace) {
+        // the C prints the event pointer with %p; the port prints its index
+        t.io.printf('E.ep = %d, ->evcode = %d, ->date = %.2f, ' +
+            'evtime = %.2f\n', t.s.Now.eventptr[E_LRTB], t.s.Event[t.s.Now.eventptr[E_LRTB]].evcode, t.s.Event[t.s.Now.eventptr[E_LRTB]].date, evtime);
+    }
+    if (time > evtime && Etc.nkling < 3) {
+        /* then we got a LRTB */
+        evtime += 0.005;
+        time = evtime;
+    }
+    else {
+        evtime = DBL_MIN;
+    }
+    dist = time * speed;
+    /* move within quadrant */
+    t.s.Sect[Ship.sectx][Ship.secty] = EMPTY;
+    x = Ship.sectx + 0.5;
+    y = Ship.secty + 0.5;
+    const xn = NSECTS * dist * bigger;
+    n = Math.trunc(xn + 0.5);
+    if (t.s.Trace) {
+        t.io.printf('dx = %.2f, dy = %.2f, xn = %.2f, n = %d\n', dx, dy, xn, n);
+    }
+    Move.free = 0;
+    for (i = 0; i < n; i++) {
+        ix = Math.trunc(x += dx);
+        iy = Math.trunc(y += dy);
+        if (t.s.Trace) {
+            t.io.printf('ix = %d, x = %.2f, iy = %d, y = %.2f\n', ix, x, iy, y);
+        }
+        if (x < 0.0 || y < 0.0 || x >= sectsize || y >= sectsize) {
+            /* enter new quadrant */
+            dx = Ship.quadx * NSECTS + Ship.sectx + dx * xn;
+            dy = Ship.quady * NSECTS + Ship.secty + dy * xn;
+            if (dx < 0.0)
+                ix = -1;
+            else
+                ix = Math.trunc(dx + 0.5);
+            if (dy < 0.0)
+                iy = -1;
+            else
+                iy = Math.trunc(dy + 0.5);
+            if (t.s.Trace)
+                t.io.printf('New quad: ix = %d, iy = %d\n', ix, iy);
+            Ship.sectx = Math.trunc(x);
+            Ship.secty = Math.trunc(y);
+            compkldist(t, 0);
+            Move.newquad = 2;
+            await attack(t, 0);
+            await checkcond(t);
+            Ship.quadx = Math.trunc(ix / NSECTS);
+            Ship.quady = Math.trunc(iy / NSECTS);
+            Ship.sectx = ix % NSECTS;
+            Ship.secty = iy % NSECTS;
+            if (ix < 0 || Ship.quadx >= NQUADS || iy < 0 ||
+                Ship.quady >= NQUADS) {
+                if (!damaged(t, COMPUTER)) {
+                    await dumpme(t, 0);
+                }
+                else {
+                    await lose(t, L_NEGENB);
+                }
+            }
+            await initquad(t, 0);
+            n = 0;
+            break;
+        }
+        if (t.s.Sect[ix][iy] !== EMPTY) {
+            /* we just hit something */
+            if (!damaged(t, COMPUTER) && ramflag <= 0) {
+                ix = Math.trunc(x - dx);
+                iy = Math.trunc(y - dy);
+                t.io.printf('Computer reports navigation error; ' +
+                    '%s stopped at %d,%d\n', Ship.shipname, ix, iy);
+                Ship.energy = Math.trunc(Ship.energy - Param.stopengy * speed);
+                break;
+            }
+            /* test for a black hole */
+            if (t.s.Sect[ix][iy] === HOLE) {
+                /* get dumped elsewhere in the galaxy */
+                await dumpme(t, 1);
+                await initquad(t, 0);
+                n = 0;
+                break;
+            }
+            await ram(t, ix, iy);
+            break;
+        }
+    }
+    if (n > 0) {
+        dx = Ship.sectx - ix;
+        dy = Ship.secty - iy;
+        dist = Math.sqrt(dx * dx + dy * dy) / NSECTS;
+        time = dist / speed;
+        if (evtime > time) {
+            /* spring the LRTB trap */
+            time = evtime;
+        }
+        Ship.sectx = ix;
+        Ship.secty = iy;
+    }
+    t.s.Sect[Ship.sectx][Ship.secty] = Ship.ship;
+    compkldist(t, 0);
+    return time;
+}
+//# sourceMappingURL=move.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"move.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/move.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;;GAMG;AACH,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,SAAS,EAAE,MAAM,gBAAgB,CAAC;AAC3C,OAAO,EAAE,UAAU,EAAE,MAAM,aAAa,CAAC;AACzC,OAAO,EAAE,QAAQ,EAAE,MAAM,EAAE,KAAK,EAAE,IAAI,EAAE,QAAQ,EAAE,MAAM,EAAE,MAAM,EAAE,IAAI,EAAE,MAAM,aAAa,CAAC;AAE5F,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,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,MAAM,WAAW,CAAC;AAElC,oGAAoG;AACpG,MAAM,OAAO,GAAW,uBAAuB,CAAC;AAEhD;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;EAiCE;AAEF,+DAA+D;AAC/D,MAAM,CAAC,KAAK,UAAU,IAAI,CAAC,CAAO,EAAE,OAAe,EAAE,MAAc,EAAE,IAAY,EAAE,KAAa;IAC9F,MAAM,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IACvC,IAAI,KAAa,CAAC;IAClB,IAAI,CAAS,CAAC;IACd,IAAI,CAAS,CAAC;IACd,IAAI,EAAU,CAAC;IACf,IAAI,EAAU,CAAC;IACf,IAAI,EAAE,GAAW,CAAC,CAAC;IACnB,IAAI,EAAE,GAAW,CAAC,CAAC;IACnB,IAAI,MAAc,CAAC;IACnB,IAAI,CAAS,CAAC;IACd,IAAI,CAAS,CAAC;IACd,IAAI,IAAY,CAAC;IACjB,IAAI,MAAc,CAAC;IAEnB,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC;QACd,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,mDAAmD,EAC7D,OAAO,EAAE,MAAM,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC;IAClC,CAAC;IACD,MAAM,QAAQ,GAAW,MAAM,CAAC;IAChC,uCAAuC;IACvC,KAAK,GAAG,MAAM,GAAG,YAAY,CAAC;IAC9B,IAAI,OAAO,CAAC,CAAC,EAAE,IAAI,CAAC,EAAE,CAAC;QACrB,KAAK,IAAI,KAAK,CAAC,SAAS,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,GAAG,CAAC,CAAC;IACrD,CAAC;SAAM,IAAI,IAAI,CAAC,OAAO,EAAE,CAAC;QACxB,KAAK,IAAI,KAAK,CAAC,SAAS,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,GAAG,CAAC,CAAC;IACrD,CAAC;IACD,EAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;IACtB,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;IACrB,MAAM,GAAG,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC;IACtB,IAAI,GAAG,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC;IACpB,IAAI,IAAI,GAAG,MAAM;QAAE,MAAM,GAAG,IAAI,CAAC;IACjC,EAAE,IAAI,MAAM,CAAC;IACb,EAAE,IAAI,MAAM,CAAC;IAEb,wCAAwC;IACxC,yCAAyC;IACzC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC;IACjE,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC;QACd,oEAAoE;QACpE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,2CAA2C;YACrD,iBAAiB,EACnB,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,MAAM,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC,CAAC,MAAM,EACpE,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;IACpD,CAAC;IACD,IAAI,IAAI,GAAG,MAAM,IAAI,GAAG,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;QACpC,wBAAwB;QACxB,MAAM,IAAI,KAAK,CAAC;QAChB,IAAI,GAAG,MAAM,CAAC;IAChB,CAAC;SAAM,CAAC;QACN,MAAM,GAAG,OAAO,CAAC;IACnB,CAAC;IACD,IAAI,GAAG,IAAI,GAAG,KAAK,CAAC;IAEpB,0BAA0B;IAC1B,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,KAAK,CAAC;IACzC,CAAC,GAAG,IAAI,CAAC,KAAK,GAAG,GAAG,CAAC;IACrB,CAAC,GAAG,IAAI,CAAC,KAAK,GAAG,GAAG,CAAC;IACrB,MAAM,EAAE,GAAW,MAAM,GAAG,IAAI,GAAG,MAAM,CAAC;IAC1C,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,GAAG,GAAG,CAAC,CAAC;IACzB,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC;QACd,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,2CAA2C,EACrD,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC;IACnB,CAAC;IACD,IAAI,CAAC,IAAI,GAAG,CAAC,CAAC;IAEd,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QACvB,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;QACzB,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;QACzB,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC;YACd,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,wCAAwC,EAClD,EAAE,EAAE,CAAC,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC;QAClB,CAAC;QACD,IAAI,CAAC,GAAG,GAAG,IAAI,CAAC,GAAG,GAAG,IAAI,CAAC,IAAI,QAAQ,IAAI,CAAC,IAAI,QAAQ,EAAE,CAAC;YACzD,wBAAwB;YACxB,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,MAAM,GAAG,IAAI,CAAC,KAAK,GAAG,EAAE,GAAG,EAAE,CAAC;YAChD,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,MAAM,GAAG,IAAI,CAAC,KAAK,GAAG,EAAE,GAAG,EAAE,CAAC;YAChD,IAAI,EAAE,GAAG,GAAG;gBAAE,EAAE,GAAG,CAAC,CAAC,CAAC;;gBACjB,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,GAAG,GAAG,CAAC,CAAC;YAC/B,IAAI,EAAE,GAAG,GAAG;gBAAE,EAAE,GAAG,CAAC,CAAC,CAAC;;gBACjB,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,GAAG,GAAG,CAAC,CAAC;YAC/B,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK;gBAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,8BAA8B,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;YACnE,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;YAC3B,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;YAC3B,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;YACjB,IAAI,CAAC,OAAO,GAAG,CAAC,CAAC;YACjB,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;YACnB,MAAM,SAAS,CAAC,CAAC,CAAC,CAAC;YACnB,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,GAAG,MAAM,CAAC,CAAC;YACrC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,GAAG,MAAM,CAAC,CAAC;YACrC,IAAI,CAAC,KAAK,GAAG,EAAE,GAAG,MAAM,CAAC;YACzB,IAAI,CAAC,KAAK,GAAG,EAAE,GAAG,MAAM,CAAC;YACzB,IAAI,EAAE,GAAG,CAAC,IAAI,IAAI,CAAC,KAAK,IAAI,MAAM,IAAI,EAAE,GAAG,CAAC;gBACxC,IAAI,CAAC,KAAK,IAAI,MAAM,EAAE,CAAC;gBACzB,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,QAAQ,CAAC,EAAE,CAAC;oBAC1B,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBACrB,CAAC;qBAAM,CAAC;oBACN,MAAM,IAAI,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;gBAC1B,CAAC;YACH,CAAC;YACD,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;YACrB,CAAC,GAAG,CAAC,CAAC;YACN,MAAM;QACR,CAAC;QACD,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,KAAK,KAAK,EAAE,CAAC;YAC/B,2BAA2B;YAC3B,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,QAAQ,CAAC,IAAI,OAAO,IAAI,CAAC,EAAE,CAAC;gBAC1C,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC;gBACxB,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC;gBACxB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,qCAAqC;oBAC/C,uBAAuB,EACzB,IAAI,CAAC,QAAQ,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;gBACvB,IAAI,CAAC,MAAM,GAAG,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,MAAM,GAAG,KAAK,CAAC,QAAQ,GAAG,KAAK,CAAC,CAAC;gBAC/D,MAAM;YACR,CAAC;YACD,2BAA2B;YAC3B,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,KAAK,IAAI,EAAE,CAAC;gBAC9B,wCAAwC;gBACxC,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBACnB,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBACrB,CAAC,GAAG,CAAC,CAAC;gBACN,MAAM;YACR,CAAC;YACD,MAAM,GAAG,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;YACrB,MAAM;QACR,CAAC;IACH,CAAC;IACD,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC;QACV,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;QACrB,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;QACrB,IAAI,GAAG,IAAI,CAAC,IAAI,CAAC,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,CAAC,GAAG,MAAM,CAAC;QAC7C,IAAI,GAAG,IAAI,GAAG,KAAK,CAAC;QACpB,IAAI,MAAM,GAAG,IAAI,EAAE,CAAC;YAClB,0BAA0B;YAC1B,IAAI,GAAG,MAAM,CAAC;QAChB,CAAC;QACD,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;QAChB,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;IAClB,CAAC;IACD,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,IAAI,CAAC,IAAI,CAAC;IAC7C,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IACjB,OAAO,IAAI,CAAC;AACd,CAAC"}

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

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** Cause a nova to occur. */
+export declare function nova(t: Trek, x: number, y: number): Promise<void>;

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

@@ -0,0 +1,135 @@
+/*
+ * nova.ts: a TypeScript port of BSD trek(6), from nova.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): nova.c 1.8 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 A nova: a star hit by a photon torpedo may fail, go nova, turn
+ * into a black hole or go supernova; a nova takes its neighbours with it.
+ *
+ * Deviation: a starbase caught in a nova is the one in this quadrant; the
+ * C passed the sector coordinates to killb() as a quadrant's.
+ *
+ * @module
+ */
+import { BASE, EMPTY, ENTERPRISE, HOLE, INHABIT, KLINGON, L_SUICID, NSECTS, QUEENE, STAR } from './consts.js';
+import { killb, killk, kills } from './kill.js';
+import { lose } from './lose.js';
+import { ranf } from './rand.js';
+import { snova } from './snova.js';
+/*
+**  CAUSE A NOVA TO OCCUR
+**
+**	A nova occurs.  It is the result of having a star hit with
+**	a photon torpedo.  There are several things which may happen.
+**	The star may not be affected.  It may go nova.  It may turn
+**	into a black hole.  Any (yummy) it may go supernova.
+**
+**	Stars that go nova cause stars which surround them to undergo
+**	the same probabilistic process.  Klingons next to them are
+**	destroyed.  And if the starship is next to it, it gets zapped.
+**	If the zap is too much, it gets destroyed.
+*/
+/** Cause a nova to occur. */
+export async function nova(t, x, y) {
+    const { Sect, Quad, Ship, Game } = t.s;
+    if (Sect[x][y] !== STAR || Quad[Ship.quadx][Ship.quady].stars < 0)
+        return;
+    if (ranf(t.rnd, 100) < 15) {
+        t.io.printf('Spock: Star at %d,%d failed to nova.\n', x, y);
+        return;
+    }
+    if (ranf(t.rnd, 100) < 5) {
+        await snova(t, x, y);
+        return;
+    }
+    t.io.printf('Spock: Star at %d,%d gone nova\n', x, y);
+    if (ranf(t.rnd, 4) !== 0) {
+        Sect[x][y] = EMPTY;
+    }
+    else {
+        Sect[x][y] = HOLE;
+        Quad[Ship.quadx][Ship.quady].holes += 1;
+    }
+    Quad[Ship.quadx][Ship.quady].stars -= 1;
+    Game.kills += 1;
+    for (let i = x - 1; i <= x + 1; i++) {
+        if (i < 0 || i >= NSECTS)
+            continue;
+        for (let j = y - 1; j <= y + 1; j++) {
+            if (j < 0 || j >= NSECTS)
+                continue;
+            const se = Sect[i][j];
+            switch (se) {
+                case EMPTY:
+                case HOLE:
+                    break;
+                case KLINGON:
+                    await killk(t, i, j);
+                    break;
+                case STAR:
+                    await nova(t, i, j);
+                    break;
+                case INHABIT:
+                    await kills(t, i, j, -1);
+                    break;
+                case BASE:
+                    // Deviation: the C passes the sector (i, j) as a quadrant, reading past Quad (a crash, or a
+                    // stray base killed); the base hit is the one in this quadrant.
+                    await killb(t, Ship.quadx, Ship.quady);
+                    Game.killb += 1;
+                    break;
+                case ENTERPRISE:
+                case QUEENE: {
+                    let zap = 2000;
+                    if (Ship.shldup) {
+                        if (Ship.shield >= zap) {
+                            Ship.shield -= zap;
+                            zap = 0;
+                        }
+                        else {
+                            zap -= Ship.shield;
+                            Ship.shield = 0;
+                        }
+                    }
+                    Ship.energy -= zap;
+                    if (Ship.energy <= 0)
+                        await lose(t, L_SUICID);
+                    break;
+                }
+                default:
+                    t.io.printf('Unknown object %c at %d,%d destroyed\n', se, i, j);
+                    Sect[i][j] = EMPTY;
+                    break;
+            }
+        }
+    }
+}
+//# sourceMappingURL=nova.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"nova.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/nova.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;;;;GAQG;AACH,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,UAAU,EAAE,IAAI,EAAE,OAAO,EAAE,OAAO,EAAE,QAAQ,EAAE,MAAM,EAAE,MAAM,EAAE,IAAI,EAAE,MAAM,aAAa,CAAC;AAE9G,OAAO,EAAE,KAAK,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,WAAW,CAAC;AAChD,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,KAAK,EAAE,MAAM,YAAY,CAAC;AAEnC;;;;;;;;;;;;EAYE;AAEF,6BAA6B;AAC7B,MAAM,CAAC,KAAK,UAAU,IAAI,CAAC,CAAO,EAAE,CAAS,EAAE,CAAS;IACtD,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IAEvC,IAAI,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,KAAK,IAAI,IAAI,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,KAAK,GAAG,CAAC;QAAE,OAAO;IAC1E,IAAI,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,GAAG,EAAE,EAAE,CAAC;QAC1B,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,wCAAwC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;QAC5D,OAAO;IACT,CAAC;IACD,IAAI,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;QACzB,MAAM,KAAK,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;QACrB,OAAO;IACT,CAAC;IACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,kCAAkC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;IAEtD,IAAI,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,KAAK,CAAC,EAAE,CAAC;QACzB,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC;IACrB,CAAC;SAAM,CAAC;QACN,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC;QAClB,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,KAAK,IAAI,CAAC,CAAC;IAC1C,CAAC;IACD,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,KAAK,IAAI,CAAC,CAAC;IACxC,IAAI,CAAC,KAAK,IAAI,CAAC,CAAC;IAChB,KAAK,IAAI,CAAC,GAAW,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5C,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,MAAM;YAAE,SAAS;QACnC,KAAK,IAAI,CAAC,GAAW,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YAC5C,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,MAAM;gBAAE,SAAS;YACnC,MAAM,EAAE,GAAW,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;YAC9B,QAAQ,EAAE,EAAE,CAAC;gBACX,KAAK,KAAK,CAAC;gBACX,KAAK,IAAI;oBACP,MAAM;gBAER,KAAK,OAAO;oBACV,MAAM,KAAK,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;oBACrB,MAAM;gBAER,KAAK,IAAI;oBACP,MAAM,IAAI,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;oBACpB,MAAM;gBAER,KAAK,OAAO;oBACV,MAAM,KAAK,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;oBACzB,MAAM;gBAER,KAAK,IAAI;oBACP,4FAA4F;oBAC5F,gEAAgE;oBAChE,MAAM,KAAK,CAAC,CAAC,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,CAAC,CAAC;oBACvC,IAAI,CAAC,KAAK,IAAI,CAAC,CAAC;oBAChB,MAAM;gBAER,KAAK,UAAU,CAAC;gBAChB,KAAK,MAAM,CAAC,CAAC,CAAC;oBACZ,IAAI,GAAG,GAAW,IAAI,CAAC;oBACvB,IAAI,IAAI,CAAC,MAAM,EAAE,CAAC;wBAChB,IAAI,IAAI,CAAC,MAAM,IAAI,GAAG,EAAE,CAAC;4BACvB,IAAI,CAAC,MAAM,IAAI,GAAG,CAAC;4BACnB,GAAG,GAAG,CAAC,CAAC;wBACV,CAAC;6BAAM,CAAC;4BACN,GAAG,IAAI,IAAI,CAAC,MAAM,CAAC;4BACnB,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;wBAClB,CAAC;oBACH,CAAC;oBACD,IAAI,CAAC,MAAM,IAAI,GAAG,CAAC;oBACnB,IAAI,IAAI,CAAC,MAAM,IAAI,CAAC;wBAAE,MAAM,IAAI,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;oBAC9C,MAAM;gBACR,CAAC;gBAED;oBACE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,wCAAwC,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;oBAChE,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC;oBACnB,MAAM;YACV,CAAC;QACH,CAAC;IACH,CAAC;AACH,CAAC"}

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

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** Says a device is damaged. */
+export declare function out(t: Trek, dev: number): Promise<void>;