@fnndsc/brasa 0.37.1 → 0.38.0

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

@@ -0,0 +1,159 @@
+/*
+ * abandon.ts: a TypeScript port of BSD trek(6), from abandon.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): abandon.c 1.9 2009/05/24.
+ *
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+/**
+ * @file Abandoning ship: the officers escape, the crew beams down or is
+ * lost, and the captain is exchanged into the Fairie Queene, or captured.
+ *
+ * @module
+ */
+import { CLOAK, DOCKED, E_FIXDV, EMPTY, GREEN, L_CAPTURED, MAXEVENTS, NDEV, NSECTS, QUEENE, SHUTTLE, XPORTER } 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 { ranf } from './rand.js';
+import { unschedule } from './schedule.js';
+import { systemname } from './systemname.js';
+/*
+**  Abandon Ship
+**
+**	The ship is abandoned.  If your current ship is the Faire
+**	Queene, or if your shuttlecraft is dead, you're out of
+**	luck.  You need the shuttlecraft in order for the captain
+**	(that's you!!) to escape.
+**
+**	Your crew can beam to an inhabited starsystem in the
+**	quadrant, if there is one and if the transporter is working.
+**	If there is no inhabited starsystem, or if the transporter
+**	is out, they are left to die in outer space.
+**
+**	These currently just count as regular deaths, but they
+**	should count very heavily against you.
+**
+**	If there are no starbases left, you are captured by the
+**	Klingons, who torture you mercilessly.  However, if there
+**	is at least one starbase, you are returned to the
+**	Federation in a prisoner of war exchange.  Of course, this
+**	can't happen unless you have taken some prisoners.
+**
+**	Uses trace flag 40
+*/
+/** Abandon Ship */
+export async function abandon(t, _v) {
+    let i;
+    if (t.s.Ship.ship === QUEENE) {
+        t.io.printf('You may not abandon ye Faire Queene\n');
+        return;
+    }
+    if (t.s.Ship.cond !== DOCKED) {
+        if (damaged(t, SHUTTLE)) {
+            await out(t, SHUTTLE);
+            return;
+        }
+        t.io.printf('Officers escape in shuttlecraft\n');
+        /* decide on fate of crew */
+        const q = t.s.Quad[t.s.Ship.quadx][t.s.Ship.quady];
+        if (q.qsystemname === 0 || damaged(t, XPORTER)) {
+            t.io.printf('Entire crew of %d left to die in outer space\n', t.s.Ship.crew);
+            t.s.Game.deaths += t.s.Ship.crew;
+        }
+        else {
+            t.io.printf('Crew beams down to planet %s\n', systemname(t, q) ?? '(null)');
+        }
+    }
+    /* see if you can be exchanged */
+    if (t.s.Now.bases === 0 || t.s.Game.captives < 20 * t.s.Game.skill)
+        await lose(t, L_CAPTURED);
+    /* re-outfit new ship */
+    t.io.printf('You are hereby put in charge of an antiquated but still\n');
+    t.io.printf('  functional ship, the Fairie Queene.\n');
+    t.s.Ship.ship = QUEENE;
+    t.s.Ship.shipname = 'Fairie Queene';
+    t.s.Param.energy = t.s.Ship.energy = 3000;
+    t.s.Param.torped = t.s.Ship.torped = 6;
+    t.s.Param.shield = t.s.Ship.shield = 1250;
+    t.s.Ship.shldup = 0;
+    t.s.Ship.cloaked = 0;
+    t.s.Ship.warp = 5.0;
+    t.s.Ship.warp2 = 25.0;
+    t.s.Ship.warp3 = 125.0;
+    t.s.Ship.cond = GREEN;
+    /* clear out damages on old ship */
+    for (i = 0; i < MAXEVENTS; i++) {
+        const e = t.s.Event[i];
+        if (e.evcode !== E_FIXDV)
+            continue;
+        unschedule(t, i);
+    }
+    /* get rid of some devices and redistribute probabilities */
+    const damprob = t.s.Param.damprob;
+    i = damprob[SHUTTLE] + damprob[CLOAK];
+    damprob[SHUTTLE] = damprob[CLOAK] = 0;
+    while (i > 0) {
+        for (let j = 0; j < NDEV; j++) {
+            if (damprob[j] !== 0) {
+                damprob[j] = damprob[j] + 1;
+                i--;
+                if (i <= 0)
+                    break;
+            }
+        }
+    }
+    /* pick a starbase to restart at */
+    i = ranf(t.rnd, t.s.Now.bases);
+    const base = t.s.Now.base[i];
+    t.s.Ship.quadx = base.x;
+    t.s.Ship.quady = base.y;
+    /* setup that quadrant */
+    while (true) {
+        await initquad(t, 1);
+        t.s.Sect[t.s.Ship.sectx][t.s.Ship.secty] = EMPTY;
+        for (i = 0; i < 5; i++) {
+            t.s.Ship.sectx = t.s.Etc.starbase.x + ranf(t.rnd, 3) - 1;
+            if (t.s.Ship.sectx < 0 || t.s.Ship.sectx >= NSECTS)
+                continue;
+            t.s.Ship.secty = t.s.Etc.starbase.y + ranf(t.rnd, 3) - 1;
+            if (t.s.Ship.secty < 0 || t.s.Ship.secty >= NSECTS)
+                continue;
+            if (t.s.Sect[t.s.Ship.sectx][t.s.Ship.secty] === EMPTY) {
+                t.s.Sect[t.s.Ship.sectx][t.s.Ship.secty] = QUEENE;
+                await dock(t, 0);
+                compkldist(t, 0);
+                return;
+            }
+        }
+    }
+}
+//# sourceMappingURL=abandon.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"abandon.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/abandon.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;GAKG;AACH,OAAO,EAAE,KAAK,EAAE,MAAM,EAAE,OAAO,EAAE,KAAK,EAAE,KAAK,EAAE,UAAU,EAAE,SAAS,EAAE,IAAI,EAAE,MAAM,EAAE,MAAM,EAAE,OAAO,EAAE,OAAO,EAAE,MAAM,aAAa,CAAC;AAElI,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,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,UAAU,EAAE,MAAM,eAAe,CAAC;AAE3C,OAAO,EAAE,UAAU,EAAE,MAAM,iBAAiB,CAAC;AAE7C;;;;;;;;;;;;;;;;;;;;;;;EAuBE;AAEF,mBAAmB;AACnB,MAAM,CAAC,KAAK,UAAU,OAAO,CAAC,CAAO,EAAE,EAAU;IAC/C,IAAI,CAAS,CAAC;IAEd,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QAC7B,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,uCAAuC,CAAC,CAAC;QACrD,OAAO;IACT,CAAC;IACD,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QAC7B,IAAI,OAAO,CAAC,CAAC,EAAE,OAAO,CAAC,EAAE,CAAC;YACxB,MAAM,GAAG,CAAC,CAAC,EAAE,OAAO,CAAC,CAAC;YACtB,OAAO;QACT,CAAC;QACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,mCAAmC,CAAC,CAAC;QACjD,4BAA4B;QAC5B,MAAM,CAAC,GAAS,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;QACzD,IAAI,CAAC,CAAC,WAAW,KAAK,CAAC,IAAI,OAAO,CAAC,CAAC,EAAE,OAAO,CAAC,EAAE,CAAC;YAC/C,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,gDAAgD,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YAC7E,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC;QACnC,CAAC;aAAM,CAAC;YACN,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,gCAAgC,EAAE,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,QAAQ,CAAC,CAAC;QAC9E,CAAC;IACH,CAAC;IACD,iCAAiC;IACjC,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK;QAAE,MAAM,IAAI,CAAC,CAAC,EAAE,UAAU,CAAC,CAAC;IAC9F,wBAAwB;IACxB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,2DAA2D,CAAC,CAAC;IACzE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,yCAAyC,CAAC,CAAC;IACvD,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,MAAM,CAAC;IACvB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ,GAAG,eAAe,CAAC;IACpC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,IAAI,CAAC;IAC1C,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;IACvC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,IAAI,CAAC;IAC1C,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;IACpB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,OAAO,GAAG,CAAC,CAAC;IACrB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,GAAG,CAAC;IACpB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC;IACtB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,KAAK,CAAC;IACvB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC;IACtB,mCAAmC;IACnC,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,SAAS,EAAE,CAAC,EAAE,EAAE,CAAC;QAC/B,MAAM,CAAC,GAAc,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAc,CAAC;QAC/C,IAAI,CAAC,CAAC,MAAM,KAAK,OAAO;YAAE,SAAS;QACnC,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IACnB,CAAC;IACD,4DAA4D;IAC5D,MAAM,OAAO,GAAa,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC;IAC5C,CAAC,GAAI,OAAO,CAAC,OAAO,CAAY,GAAI,OAAO,CAAC,KAAK,CAAY,CAAC;IAC9D,OAAO,CAAC,OAAO,CAAC,GAAG,OAAO,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;IACtC,OAAO,CAAC,GAAG,CAAC,EAAE,CAAC;QACb,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;YACtC,IAAI,OAAO,CAAC,CAAC,CAAC,KAAK,CAAC,EAAE,CAAC;gBACrB,OAAO,CAAC,CAAC,CAAC,GAAI,OAAO,CAAC,CAAC,CAAY,GAAG,CAAC,CAAC;gBACxC,CAAC,EAAE,CAAC;gBACJ,IAAI,CAAC,IAAI,CAAC;oBAAE,MAAM;YACpB,CAAC;QACH,CAAC;IACH,CAAC;IACD,mCAAmC;IACnC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;IAC/B,MAAM,IAAI,GAAO,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAO,CAAC;IACvC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,CAAC,CAAC;IACxB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,CAAC,CAAC;IACxB,yBAAyB;IACzB,OAAO,IAAI,EAAE,CAAC;QACZ,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QACrB,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;QACjD,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YACvB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;YACzD,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,IAAI,MAAM;gBAAE,SAAS;YAC7D,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;YACzD,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,IAAI,MAAM;gBAAE,SAAS;YAC7D,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,KAAK,KAAK,EAAE,CAAC;gBACvD,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,MAAM,CAAC;gBAClD,MAAM,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBACjB,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBACjB,OAAO;YACT,CAAC;QACH,CAAC;IACH,CAAC;AACH,CAAC"}

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

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** Klingon Attack Routine. */
+export declare function attack(t: Trek, resting: number): Promise<void>;

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

@@ -0,0 +1,185 @@
+/*
+ * attack.ts: a TypeScript port of BSD trek(6), from attack.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): attack.c 1.9 2009/05/24.
+ *
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+/**
+ * @file The Klingon attack: each Klingon in the quadrant with power to
+ * spare fires on the ship, shields absorbing their share; a hit hard
+ * enough damages a device, and heavy attacks cost crew.
+ *
+ * @module
+ */
+import { DOCKED, L_DSTRYD, SHIELD, SRSCAN } from './consts.js';
+import { damage } from './damage.js';
+import { damaged } from './damaged.js';
+import { klmove } from './klmove.js';
+import { lose } from './lose.js';
+import { franf, ranf } from './rand.js';
+/*
+**  Klingon Attack Routine
+**
+**	This routine performs the Klingon attack provided that
+**	(1) Something happened this move (i.e., not free), and
+**	(2) You are not cloaked.  Note that if you issue the
+**	cloak command, you are not considered cloaked until you
+**	expend some time.
+**
+**	Klingons are permitted to move both before and after the
+**	attack.  They will tend to move toward you before the
+**	attack and away from you after the attack.
+**
+**	Under certain conditions you can get a critical hit.  This
+**	sort of hit damages devices.  The probability that a given
+**	device is damaged depends on the device.  Well protected
+**	devices (such as the computer, which is in the core of the
+**	ship and has considerable redundancy) almost never get
+**	damaged, whereas devices which are exposed (such as the
+**	warp engines) or which are particularly delicate (such as
+**	the transporter) have a much higher probability of being
+**	damaged.
+**
+**	The actual amount of damage (i.e., how long it takes to fix
+**	it) depends on the amount of the hit and the "damfac[]"
+**	entry for the particular device.
+**
+**	Casualties can also occur.
+**
+**  resting -- set if attack while resting
+*/
+/** Klingon Attack Routine. */
+export async function attack(t, resting) {
+    const { Ship, Move, Etc, Param, Game, Quad } = t.s;
+    let hit;
+    let l;
+    let maxhit;
+    let tothit;
+    let shldabsb;
+    let chgfac;
+    let propor;
+    let extradm;
+    let dustfac;
+    let tothe;
+    let cas;
+    let hitflag;
+    if (Move.free)
+        return;
+    if (Etc.nkling <= 0 || Quad[Ship.quadx][Ship.quady].stars < 0)
+        return;
+    if (Ship.cloaked && Ship.cloakgood)
+        return;
+    /* move before attack */
+    await klmove(t, 0);
+    if (Ship.cond === DOCKED) {
+        if (!resting)
+            t.io.printf('Starbase shields protect the %s\n', Ship.shipname);
+        return;
+    }
+    /* setup shield effectiveness */
+    chgfac = 1.0;
+    if (Move.shldchg)
+        chgfac = 0.25 + 0.50 * franf(t.rnd);
+    maxhit = tothit = 0;
+    hitflag = 0;
+    /* let each Klingon do his damndest */
+    for (let i = 0; i < Etc.nkling; i++) {
+        /* if he's low on power he won't attack */
+        if (Etc.klingon[i].power < 20)
+            continue;
+        if (!hitflag) {
+            t.io.printf('\nStardate %.2f: Klingon attack:\n', t.s.Now.date);
+            hitflag++;
+        }
+        /* complete the hit */
+        dustfac = 0.90 + 0.01 * franf(t.rnd);
+        tothe = Etc.klingon[i].avgdist;
+        hit = Math.trunc(Etc.klingon[i].power * Math.pow(dustfac, tothe) * Param.hitfac);
+        /* deplete his energy */
+        dustfac = Etc.klingon[i].power;
+        Etc.klingon[i].power = Math.trunc(dustfac * Param.phasfac * (1.0 + (franf(t.rnd) - 0.5) * 0.2));
+        /* see how much of hit shields will absorb */
+        shldabsb = 0;
+        if (Ship.shldup || Move.shldchg) {
+            propor = Ship.shield;
+            propor /= Param.shield;
+            shldabsb = Math.trunc(propor * chgfac * hit);
+            if (shldabsb > Ship.shield)
+                shldabsb = Ship.shield;
+            Ship.shield -= shldabsb;
+        }
+        /* actually do the hit */
+        t.io.printf('\x07HIT: %d units', hit);
+        if (!damaged(t, SRSCAN))
+            t.io.printf(' from %d,%d', Etc.klingon[i].x, Etc.klingon[i].y);
+        cas = Math.trunc((shldabsb * 100) / hit);
+        hit -= shldabsb;
+        if (shldabsb > 0)
+            t.io.printf(', shields absorb %d%%, effective hit %d\n', cas, hit);
+        else
+            t.io.printf('\n');
+        tothit += hit;
+        if (hit > maxhit)
+            maxhit = hit;
+        Ship.energy -= hit;
+        /* see if damages occurred */
+        if (hit >= (15 - Game.skill) * (25 - ranf(t.rnd, 12))) {
+            t.io.printf('\x07CRITICAL HIT!!!\x07\n');
+            /* select a device from probability vector */
+            cas = ranf(t.rnd, 1000);
+            for (l = 0; cas >= 0; l++)
+                cas = Math.trunc(cas - Param.damprob[l]);
+            l -= 1;
+            /* compute amount of damage */
+            extradm = (hit * Param.damfac[l]) / (75 + ranf(t.rnd, 25)) + 0.5;
+            /* damage the device */
+            await damage(t, l, extradm);
+            if (damaged(t, SHIELD)) {
+                if (Ship.shldup)
+                    t.io.printf('Sulu: Shields knocked down, captain.\n');
+                Ship.shldup = 0;
+                Move.shldchg = 0;
+            }
+        }
+        if (Ship.energy <= 0)
+            await lose(t, L_DSTRYD);
+    }
+    /* see what our casualities are like */
+    if (maxhit >= 200 || tothit >= 500) {
+        cas = Math.trunc(tothit * 0.015 * franf(t.rnd));
+        if (cas >= 2) {
+            t.io.printf('McCoy: we suffered %d casualties in that attack.\n', cas);
+            Game.deaths += cas;
+            Ship.crew -= cas;
+        }
+    }
+    /* allow Klingons to move after attacking */
+    await klmove(t, 1);
+}
+//# sourceMappingURL=attack.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"attack.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/attack.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;;GAMG;AACH,OAAO,EAAE,MAAM,EAAE,QAAQ,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAE/D,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AAExC;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;EA8BE;AAEF,8BAA8B;AAC9B,MAAM,CAAC,KAAK,UAAU,MAAM,CAAC,CAAO,EAAE,OAAe;IACnD,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IACnD,IAAI,GAAW,CAAC;IAChB,IAAI,CAAS,CAAC;IACd,IAAI,MAAc,CAAC;IACnB,IAAI,MAAc,CAAC;IACnB,IAAI,QAAgB,CAAC;IACrB,IAAI,MAAc,CAAC;IACnB,IAAI,MAAc,CAAC;IACnB,IAAI,OAAe,CAAC;IACpB,IAAI,OAAe,CAAC;IACpB,IAAI,KAAa,CAAC;IAClB,IAAI,GAAW,CAAC;IAChB,IAAI,OAAe,CAAC;IAEpB,IAAI,IAAI,CAAC,IAAI;QAAE,OAAO;IACtB,IAAI,GAAG,CAAC,MAAM,IAAI,CAAC,IAAI,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,KAAK,GAAG,CAAC;QAAE,OAAO;IACtE,IAAI,IAAI,CAAC,OAAO,IAAI,IAAI,CAAC,SAAS;QAAE,OAAO;IAC3C,wBAAwB;IACxB,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IACnB,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QACzB,IAAI,CAAC,OAAO;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,mCAAmC,EAAE,IAAI,CAAC,QAAQ,CAAC,CAAC;QAC9E,OAAO;IACT,CAAC;IACD,gCAAgC;IAChC,MAAM,GAAG,GAAG,CAAC;IACb,IAAI,IAAI,CAAC,OAAO;QAAE,MAAM,GAAG,IAAI,GAAG,IAAI,GAAG,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;IACtD,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;IACpB,OAAO,GAAG,CAAC,CAAC;IAEZ,sCAAsC;IACtC,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5C,0CAA0C;QAC1C,IAAI,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE;YAAE,SAAS;QACxC,IAAI,CAAC,OAAO,EAAE,CAAC;YACb,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,oCAAoC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC;YAChE,OAAO,EAAE,CAAC;QACZ,CAAC;QACD,sBAAsB;QACtB,OAAO,GAAG,IAAI,GAAG,IAAI,GAAG,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;QACrC,KAAK,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC;QAC/B,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,IAAI,CAAC,GAAG,CAAC,OAAO,EAAE,KAAK,CAAC,GAAG,KAAK,CAAC,MAAM,CAAC,CAAC;QACjF,wBAAwB;QACxB,OAAO,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC;QAC/B,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,OAAO,GAAG,KAAK,CAAC,OAAO,GAAG,CAAC,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,GAAG,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC;QAChG,6CAA6C;QAC7C,QAAQ,GAAG,CAAC,CAAC;QACb,IAAI,IAAI,CAAC,MAAM,IAAI,IAAI,CAAC,OAAO,EAAE,CAAC;YAChC,MAAM,GAAG,IAAI,CAAC,MAAM,CAAC;YACrB,MAAM,IAAI,KAAK,CAAC,MAAM,CAAC;YACvB,QAAQ,GAAG,IAAI,CAAC,KAAK,CAAC,MAAM,GAAG,MAAM,GAAG,GAAG,CAAC,CAAC;YAC7C,IAAI,QAAQ,GAAG,IAAI,CAAC,MAAM;gBAAE,QAAQ,GAAG,IAAI,CAAC,MAAM,CAAC;YACnD,IAAI,CAAC,MAAM,IAAI,QAAQ,CAAC;QAC1B,CAAC;QACD,yBAAyB;QACzB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,mBAAmB,EAAE,GAAG,CAAC,CAAC;QACtC,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,MAAM,CAAC;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,aAAa,EAAE,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACxF,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,QAAQ,GAAG,GAAG,CAAC,GAAG,GAAG,CAAC,CAAC;QACzC,GAAG,IAAI,QAAQ,CAAC;QAChB,IAAI,QAAQ,GAAG,CAAC;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,2CAA2C,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC;;YAChF,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;QACvB,MAAM,IAAI,GAAG,CAAC;QACd,IAAI,GAAG,GAAG,MAAM;YAAE,MAAM,GAAG,GAAG,CAAC;QAC/B,IAAI,CAAC,MAAM,IAAI,GAAG,CAAC;QACnB,6BAA6B;QAC7B,IAAI,GAAG,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,EAAE,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC,EAAE,CAAC;YACtD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,2BAA2B,CAAC,CAAC;YACzC,6CAA6C;YAC7C,GAAG,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;YACxB,KAAK,CAAC,GAAG,CAAC,EAAE,GAAG,IAAI,CAAC,EAAE,CAAC,EAAE;gBAAE,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC,GAAG,GAAG,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC;YACpE,CAAC,IAAI,CAAC,CAAC;YACP,8BAA8B;YAC9B,OAAO,GAAG,CAAC,GAAG,GAAG,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC,GAAG,GAAG,CAAC;YACjE,uBAAuB;YACvB,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,OAAO,CAAC,CAAC;YAC5B,IAAI,OAAO,CAAC,CAAC,EAAE,MAAM,CAAC,EAAE,CAAC;gBACvB,IAAI,IAAI,CAAC,MAAM;oBAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,wCAAwC,CAAC,CAAC;gBACvE,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;gBAChB,IAAI,CAAC,OAAO,GAAG,CAAC,CAAC;YACnB,CAAC;QACH,CAAC;QACD,IAAI,IAAI,CAAC,MAAM,IAAI,CAAC;YAAE,MAAM,IAAI,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;IAChD,CAAC;IAED,uCAAuC;IACvC,IAAI,MAAM,IAAI,GAAG,IAAI,MAAM,IAAI,GAAG,EAAE,CAAC;QACnC,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC,MAAM,GAAG,KAAK,GAAG,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;QAChD,IAAI,GAAG,IAAI,CAAC,EAAE,CAAC;YACb,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,oDAAoD,EAAE,GAAG,CAAC,CAAC;YACvE,IAAI,CAAC,MAAM,IAAI,GAAG,CAAC;YACnB,IAAI,CAAC,IAAI,IAAI,GAAG,CAAC;QACnB,CAAC;IACH,CAAC;IAED,4CAA4C;IAC5C,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;AACrB,CAAC"}

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

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** Sends the ship out of a supernova quadrant. */
+export declare function autover(t: Trek): Promise<void>;

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

@@ -0,0 +1,79 @@
+/*
+ * autover.ts: a TypeScript port of BSD trek(6), from autover.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): autover.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 Automatic override: hurling the ship out of a supernova quadrant
+ * at a random warp over 6.0.
+ *
+ * @module
+ */
+import { attack } from './attack.js';
+import { RED } from './consts.js';
+import { franf, ranf } from './rand.js';
+import { warp } from './warp.js';
+/*
+**  Automatic Override
+**
+**	If we should be so unlucky as to be caught in a quadrant
+**	with a supernova in it, this routine is called.  It is
+**	called from checkcond().
+**
+**	It sets you to a random warp (guaranteed to be over 6.0)
+**	and starts sending you off "somewhere" (whereever that is).
+**
+**	Please note that it is VERY important that you reset your
+**	warp speed after the automatic override is called.  The new
+**	warp factor does not stay in effect for just this routine.
+**
+**	This routine will never try to send you more than sqrt(2)
+**	quadrants, since that is all that is needed.
+*/
+/** Sends the ship out of a supernova quadrant. */
+export async function autover(t) {
+    const { Ship, Etc } = t.s;
+    let dist;
+    t.io.printf('\x07RED ALERT:  The %s is in a supernova quadrant\n', Ship.shipname);
+    t.io.printf('***  Emergency override attempts to hurl %s to safety\n', Ship.shipname);
+    /* let's get our ass out of here */
+    Ship.warp = 6.0 + 2.0 * franf(t.rnd);
+    Ship.warp2 = Ship.warp * Ship.warp;
+    Ship.warp3 = Ship.warp2 * Ship.warp;
+    dist = 0.75 * Ship.energy / (Ship.warp3 * (Ship.shldup + 1));
+    if (dist > 1.4142)
+        dist = 1.4142;
+    const course = ranf(t.rnd, 360);
+    Etc.nkling = -1;
+    Ship.cond = RED;
+    await warp(t, -1, course, dist);
+    await attack(t, 0);
+}
+//# sourceMappingURL=autover.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"autover.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/autover.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;GAKG;AACH,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,GAAG,EAAE,MAAM,aAAa,CAAC;AAElC,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACxC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AAEjC;;;;;;;;;;;;;;;;EAgBE;AAEF,kDAAkD;AAClD,MAAM,CAAC,KAAK,UAAU,OAAO,CAAC,CAAO;IACnC,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IAC1B,IAAI,IAAY,CAAC;IAEjB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,qDAAqD,EAC/D,IAAI,CAAC,QAAQ,CAAC,CAAC;IACjB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,yDAAyD,EACnE,IAAI,CAAC,QAAQ,CAAC,CAAC;IACjB,mCAAmC;IACnC,IAAI,CAAC,IAAI,GAAG,GAAG,GAAG,GAAG,GAAG,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;IACrC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC,IAAI,CAAC;IACnC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,IAAI,CAAC;IACpC,IAAI,GAAG,IAAI,GAAG,IAAI,CAAC,MAAM,GAAG,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC;IAC7D,IAAI,IAAI,GAAG,MAAM;QAAE,IAAI,GAAG,MAAM,CAAC;IACjC,MAAM,MAAM,GAAW,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;IACxC,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;IAChB,IAAI,CAAC,IAAI,GAAG,GAAG,CAAC;IAChB,MAAM,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,MAAM,EAAE,IAAI,CAAC,CAAC;IAChC,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;AACrB,CAAC"}

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

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** Ask a Klingon To Surrender */
+export declare function capture(t: Trek, _v: number): Promise<void>;

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

@@ -0,0 +1,117 @@
+/*
+ * capture.ts: a TypeScript port of BSD trek(6), from capture.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): capture.c 1.12 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 Asking a Klingon to surrender, over the subspace radio.
+ *
+ * @module
+ */
+import { SSRADIO } from './consts.js';
+import { damaged } from './damaged.js';
+import { killk } from './kill.js';
+import { out } from './out.js';
+import { ranf } from './rand.js';
+/*
+**  Ask a Klingon To Surrender
+**
+**	(Fat chance)
+**
+**	The Subspace Radio is needed to ask a Klingon if he will kindly
+**	surrender.  A random Klingon from the ones in the quadrant is
+**	chosen.
+**
+**	The Klingon is requested to surrender.  The probability of this
+**	is a function of that Klingon's remaining power, our power,
+**	etc.
+*/
+/** Ask a Klingon To Surrender */
+export async function capture(t, _v) {
+    let i;
+    /* check for not cloaked */
+    if (t.s.Ship.cloaked) {
+        t.io.printf('Ship-ship communications out when cloaked\n');
+        return;
+    }
+    if (damaged(t, SSRADIO)) {
+        await out(t, SSRADIO);
+        return;
+    }
+    /* find out if there are any at all */
+    if (t.s.Etc.nkling <= 0) {
+        t.io.printf('Uhura: Getting no response, sir\n');
+        return;
+    }
+    /* if there is more than one Klingon, find out which one */
+    const k = selectklingon(t);
+    t.s.Move.free = 0;
+    t.s.Move.time = 0.05;
+    /* check out that Klingon */
+    k.srndreq++;
+    let x = t.s.Param.klingpwr;
+    x *= t.s.Ship.energy;
+    x /= k.power * t.s.Etc.nkling;
+    x *= t.s.Param.srndrprob;
+    i = Math.trunc(x);
+    if (t.s.Trace)
+        t.io.printf('Prob = %d (%.4f)\n', i, x);
+    if (i > ranf(t.rnd, 100)) {
+        /* guess what, he surrendered!!! */
+        t.io.printf('Klingon at %d,%d surrenders\n', k.x, k.y);
+        i = ranf(t.rnd, t.s.Param.klingcrew);
+        if (i > 0)
+            t.io.printf('%d klingons commit suicide rather than be taken captive\n', t.s.Param.klingcrew - i);
+        if (i > t.s.Ship.brigfree)
+            i = t.s.Ship.brigfree;
+        t.s.Ship.brigfree -= i;
+        t.io.printf('%d captives taken\n', i);
+        await killk(t, k.x, k.y);
+        return;
+    }
+    /* big surprise, he refuses to surrender */
+    t.io.printf('Fat chance, captain\n');
+    return;
+}
+/*
+**  SELECT A KLINGON
+**
+**	Cruddy, just takes one at random.  Should ask the captain.
+*/
+/** SELECT A KLINGON */
+function selectklingon(t) {
+    let i;
+    if (t.s.Etc.nkling < 2)
+        i = 0;
+    else
+        i = ranf(t.rnd, t.s.Etc.nkling);
+    return t.s.Etc.klingon[i];
+}
+//# sourceMappingURL=capture.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"capture.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/capture.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;GAIG;AACH,OAAO,EAAE,OAAO,EAAE,MAAM,aAAa,CAAC;AAEtC,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,KAAK,EAAE,MAAM,WAAW,CAAC;AAClC,OAAO,EAAE,GAAG,EAAE,MAAM,UAAU,CAAC;AAC/B,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AAGjC;;;;;;;;;;;;EAYE;AAEF,iCAAiC;AACjC,MAAM,CAAC,KAAK,UAAU,OAAO,CAAC,CAAO,EAAE,EAAU;IAC/C,IAAI,CAAS,CAAC;IAEd,2BAA2B;IAC3B,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,CAAC;QACrB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,6CAA6C,CAAC,CAAC;QAC3D,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,sCAAsC;IACtC,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,IAAI,CAAC,EAAE,CAAC;QACxB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,mCAAmC,CAAC,CAAC;QACjD,OAAO;IACT,CAAC;IAED,2DAA2D;IAC3D,MAAM,CAAC,GAAU,aAAa,CAAC,CAAC,CAAC,CAAC;IAClC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,CAAC,CAAC;IAClB,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;IAErB,4BAA4B;IAC5B,CAAC,CAAC,OAAO,EAAE,CAAC;IACZ,IAAI,CAAC,GAAW,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,QAAQ,CAAC;IACnC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC;IACrB,CAAC,IAAI,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC;IAC9B,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,SAAS,CAAC;IACzB,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;IAClB,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK;QAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,oBAAoB,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;IACvD,IAAI,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,CAAC;QACzB,mCAAmC;QACnC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,+BAA+B,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;QACvD,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,SAAS,CAAC,CAAC;QACrC,IAAI,CAAC,GAAG,CAAC;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,2DAA2D,EAAE,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,SAAS,GAAG,CAAC,CAAC,CAAC;QAC7G,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ;YAAE,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC;QACjD,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,QAAQ,IAAI,CAAC,CAAC;QACvB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,qBAAqB,EAAE,CAAC,CAAC,CAAC;QACtC,MAAM,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;QACzB,OAAO;IACT,CAAC;IAED,2CAA2C;IAC3C,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,uBAAuB,CAAC,CAAC;IACrC,OAAO;AACT,CAAC;AAED;;;;EAIE;AAEF,uBAAuB;AACvB,SAAS,aAAa,CAAC,CAAO;IAC5B,IAAI,CAAS,CAAC;IAEd,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,GAAG,CAAC;QAAE,CAAC,GAAG,CAAC,CAAC;;QACzB,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;IACrC,OAAO,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,CAAU,CAAC;AACrC,CAAC"}

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

@@ -0,0 +1,3 @@
+import type { Trek } from './context.js';
+/** CHECK IF A DEVICE IS OUT */
+export declare function check_out(t: Trek, device: number): number;

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

@@ -0,0 +1,67 @@
+/*
+ * check_out.ts: a TypeScript port of BSD trek(6), from check_out.c.
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): check_out.c 1.6 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 Whether a device is really out: broken, and no starbase to lend
+ * its own.
+ *
+ * @module
+ */
+import { Device, DOCKED } from './consts.js';
+import { damaged } from './damaged.js';
+import { out } from './out.js';
+/*
+**  CHECK IF A DEVICE IS OUT
+**
+**	The indicated device is checked to see if it is disabled.  If
+**	it is, an attempt is made to use the starbase device.  If both
+**	of these fails, it returns non-zero (device is REALLY out),
+**	otherwise it returns zero (I can get to it somehow).
+**
+**	It prints appropriate messages too.
+*/
+/** CHECK IF A DEVICE IS OUT */
+export function check_out(t, device) {
+    const dev = device;
+    /* check for device ok */
+    if (!damaged(t, dev))
+        return 0;
+    /* report it as being dead */
+    // out() only prints: its body runs to completion on the call, so nothing is lost by not awaiting it
+    void out(t, dev);
+    /* but if we are docked, we can go ahead anyhow */
+    if (t.s.Ship.cond !== DOCKED)
+        return 1;
+    t.io.printf('  Using starbase %s\n', Device[dev].name);
+    return 0;
+}
+//# sourceMappingURL=check_out.js.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"check_out.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/check_out.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;GAKG;AACH,OAAO,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAE7C,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,GAAG,EAAE,MAAM,UAAU,CAAC;AAE/B;;;;;;;;;EASE;AAEF,+BAA+B;AAC/B,MAAM,UAAU,SAAS,CAAC,CAAO,EAAE,MAAc;IAC/C,MAAM,GAAG,GAAW,MAAM,CAAC;IAE3B,yBAAyB;IACzB,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,GAAG,CAAC;QAAE,OAAO,CAAC,CAAC;IAE/B,6BAA6B;IAC7B,oGAAoG;IACpG,KAAK,GAAG,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC;IAEjB,kDAAkD;IAClD,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO,CAAC,CAAC;IACvC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,uBAAuB,EAAG,MAAM,CAAC,GAAG,CAAY,CAAC,IAAI,CAAC,CAAC;IACnE,OAAO,CAAC,CAAC;AACX,CAAC"}