@fnndsc/brasa 0.43.0 → 0.43.1

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@fnndsc/brasa",
-  "version": "0.43.0",
+  "version": "0.43.1",
   "description": "BRASA Runs Abstracted Shell Actions - the hostable ChRIS shell engine (kernel)",
   "repository": {
     "type": "git",
@@ -16,8 +16,7 @@
   "types": "dist/index.d.ts",
   "type": "module",
   "files": [
-    "dist",
-    "NOTICE"
+    "dist"
   ],
   "exports": {
     ".": {
@@ -53,6 +52,7 @@
     "@fnndsc/fond": "^0.4.0",
     "@fnndsc/cumin": "^3.28.1",
     "@fnndsc/salsa": "^4.2.0",
+    "bsd-trek": "^0.1.0",
     "chalk": "^4.1.2",
     "cli-highlight": "^2.1.11",
     "js-yaml": "^4.1.0",

package/NOTICE

@@ -1,48 +0,0 @@
-@fnndsc/brasa is MIT licensed (package.json). It includes third-party code under its own terms, listed here.
-
-================================================================================
-trek: src/builtins/games/trek/
-================================================================================
-
-A TypeScript port of BSD trek(6), from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801). Each ported module names its C sources and their revisions in its header. The port is under the original's license:
-
-
-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.
-
-
-The original's credits (main.c):
-
-C version by Eric P. Allman 5/76 (U.C. Berkeley) with help from Jeff Poskanzer and Pete Rubinstein. I also want to thank everyone here at Berkeley who where crazy enough to play the undebugged game. I want to particularly thank Nick Whyte, who made considerable suggestions regarding the content of the game. Why, I'll never forget the time he suggested the name for the "capture" command.
-
-FORTRASH version by Kay R. Fisher (DEC) "and countless others". That was adapted from the "original BASIC program" (ha!) by Mike Mayfield (Centerline Engineering).
-
-Additional inspiration taken from FORTRAN version by David Matuszek and Paul Reynolds which runs on the CDC 7600 at Lawrence Berkeley Lab, maintained there by Andy Davidson. This version is also available at LLL and at LMSC. In all fairness, this version was the major inspiration for this version of the game (translation: I ripped off a whole lot of code).
-
-Minor other input from the "Battelle Version 7A" by Joe Miller (Graphics Systems Group, Battelle-Columbus Labs) and Ross Pavlac (Systems Programmer, Battelle Memorial Institute). That version was written in December '74 and extensively modified June '75. It was adapted from the FTN version by Ron Williams of CDC Sunnyvale, which was adapted from the Basic version distributed by DEC. It also had "neat stuff swiped" from T. T. Terry and Jim Korp (University of Texas), Hicks (Penn U.), and Rick Maus (Georgia Tech). Unfortunately, it was not as readable as it could have been and so the translation effort was severely hampered. None the less, I got the idea of inhabited starsystems from this version.
-
-Permission is given for use, copying, and modification of all or part of this program and related documentation, provided that all reference to the authors are maintained.

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

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

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

@@ -1,159 +0,0 @@
-/*
- * 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

@@ -1 +0,0 @@
-{"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

@@ -1,3 +0,0 @@
-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

@@ -1,185 +0,0 @@
-/*
- * 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

@@ -1 +0,0 @@
-{"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

@@ -1,3 +0,0 @@
-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

@@ -1,79 +0,0 @@
-/*
- * 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

@@ -1 +0,0 @@
-{"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

@@ -1,3 +0,0 @@
-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

@@ -1,117 +0,0 @@
-/*
- * 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