@fnndsc/brasa 0.37.1 → 0.38.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (206) hide show
  1. package/NOTICE +48 -0
  2. package/dist/buildinfo.json +1 -1
  3. package/dist/builtins/fs/cp.js +9 -5
  4. package/dist/builtins/fs/cp.js.map +1 -1
  5. package/dist/builtins/fs/destination.d.ts +15 -1
  6. package/dist/builtins/fs/destination.js +35 -2
  7. package/dist/builtins/fs/destination.js.map +1 -1
  8. package/dist/builtins/fs/mv.js +9 -5
  9. package/dist/builtins/fs/mv.js.map +1 -1
  10. package/dist/builtins/fs/rm.js +17 -1
  11. package/dist/builtins/fs/rm.js.map +1 -1
  12. package/dist/builtins/games/lab.js +3 -1
  13. package/dist/builtins/games/lab.js.map +1 -1
  14. package/dist/builtins/games/shelf.js +1 -1
  15. package/dist/builtins/games/shelf.js.map +1 -1
  16. package/dist/builtins/games/stdin.d.ts +0 -13
  17. package/dist/builtins/games/stdin.js +9 -0
  18. package/dist/builtins/games/stdin.js.map +1 -1
  19. package/dist/builtins/games/trek/abandon.d.ts +3 -0
  20. package/dist/builtins/games/trek/abandon.js +159 -0
  21. package/dist/builtins/games/trek/abandon.js.map +1 -0
  22. package/dist/builtins/games/trek/attack.d.ts +3 -0
  23. package/dist/builtins/games/trek/attack.js +185 -0
  24. package/dist/builtins/games/trek/attack.js.map +1 -0
  25. package/dist/builtins/games/trek/autover.d.ts +3 -0
  26. package/dist/builtins/games/trek/autover.js +79 -0
  27. package/dist/builtins/games/trek/autover.js.map +1 -0
  28. package/dist/builtins/games/trek/capture.d.ts +3 -0
  29. package/dist/builtins/games/trek/capture.js +117 -0
  30. package/dist/builtins/games/trek/capture.js.map +1 -0
  31. package/dist/builtins/games/trek/check_out.d.ts +3 -0
  32. package/dist/builtins/games/trek/check_out.js +67 -0
  33. package/dist/builtins/games/trek/check_out.js.map +1 -0
  34. package/dist/builtins/games/trek/checkcond.d.ts +3 -0
  35. package/dist/builtins/games/trek/checkcond.js +101 -0
  36. package/dist/builtins/games/trek/checkcond.js.map +1 -0
  37. package/dist/builtins/games/trek/compkl.d.ts +8 -0
  38. package/dist/builtins/games/trek/compkl.js +66 -0
  39. package/dist/builtins/games/trek/compkl.js.map +1 -0
  40. package/dist/builtins/games/trek/computer.d.ts +3 -0
  41. package/dist/builtins/games/trek/computer.js +310 -0
  42. package/dist/builtins/games/trek/computer.js.map +1 -0
  43. package/dist/builtins/games/trek/consts.d.ts +109 -0
  44. package/dist/builtins/games/trek/consts.js +159 -0
  45. package/dist/builtins/games/trek/consts.js.map +1 -0
  46. package/dist/builtins/games/trek/context.d.ts +27 -0
  47. package/dist/builtins/games/trek/context.js +2 -0
  48. package/dist/builtins/games/trek/context.js.map +1 -0
  49. package/dist/builtins/games/trek/damage.d.ts +3 -0
  50. package/dist/builtins/games/trek/damage.js +87 -0
  51. package/dist/builtins/games/trek/damage.js.map +1 -0
  52. package/dist/builtins/games/trek/damaged.d.ts +3 -0
  53. package/dist/builtins/games/trek/damaged.js +58 -0
  54. package/dist/builtins/games/trek/damaged.js.map +1 -0
  55. package/dist/builtins/games/trek/dcrept.d.ts +3 -0
  56. package/dist/builtins/games/trek/dcrept.js +86 -0
  57. package/dist/builtins/games/trek/dcrept.js.map +1 -0
  58. package/dist/builtins/games/trek/destruct.d.ts +3 -0
  59. package/dist/builtins/games/trek/destruct.js +114 -0
  60. package/dist/builtins/games/trek/destruct.js.map +1 -0
  61. package/dist/builtins/games/trek/dock.d.ts +5 -0
  62. package/dist/builtins/games/trek/dock.js +133 -0
  63. package/dist/builtins/games/trek/dock.js.map +1 -0
  64. package/dist/builtins/games/trek/dumpgame.d.ts +15 -0
  65. package/dist/builtins/games/trek/dumpgame.js +29 -0
  66. package/dist/builtins/games/trek/dumpgame.js.map +1 -0
  67. package/dist/builtins/games/trek/dumpme.d.ts +3 -0
  68. package/dist/builtins/games/trek/dumpme.js +81 -0
  69. package/dist/builtins/games/trek/dumpme.js.map +1 -0
  70. package/dist/builtins/games/trek/dumpssradio.d.ts +6 -0
  71. package/dist/builtins/games/trek/dumpssradio.js +72 -0
  72. package/dist/builtins/games/trek/dumpssradio.js.map +1 -0
  73. package/dist/builtins/games/trek/events.d.ts +3 -0
  74. package/dist/builtins/games/trek/events.js +407 -0
  75. package/dist/builtins/games/trek/events.js.map +1 -0
  76. package/dist/builtins/games/trek/getcodi.d.ts +14 -0
  77. package/dist/builtins/games/trek/getcodi.js +24 -0
  78. package/dist/builtins/games/trek/getcodi.js.map +1 -0
  79. package/dist/builtins/games/trek/getpar.d.ts +40 -0
  80. package/dist/builtins/games/trek/getpar.js +174 -0
  81. package/dist/builtins/games/trek/getpar.js.map +1 -0
  82. package/dist/builtins/games/trek/help.d.ts +3 -0
  83. package/dist/builtins/games/trek/help.js +155 -0
  84. package/dist/builtins/games/trek/help.js.map +1 -0
  85. package/dist/builtins/games/trek/impulse.d.ts +6 -0
  86. package/dist/builtins/games/trek/impulse.js +85 -0
  87. package/dist/builtins/games/trek/impulse.js.map +1 -0
  88. package/dist/builtins/games/trek/initquad.d.ts +17 -0
  89. package/dist/builtins/games/trek/initquad.js +79 -0
  90. package/dist/builtins/games/trek/initquad.js.map +1 -0
  91. package/dist/builtins/games/trek/io.d.ts +102 -0
  92. package/dist/builtins/games/trek/io.js +216 -0
  93. package/dist/builtins/games/trek/io.js.map +1 -0
  94. package/dist/builtins/games/trek/kill.d.ts +21 -0
  95. package/dist/builtins/games/trek/kill.js +194 -0
  96. package/dist/builtins/games/trek/kill.js.map +1 -0
  97. package/dist/builtins/games/trek/klmove.d.ts +3 -0
  98. package/dist/builtins/games/trek/klmove.js +181 -0
  99. package/dist/builtins/games/trek/klmove.js.map +1 -0
  100. package/dist/builtins/games/trek/lose.d.ts +9 -0
  101. package/dist/builtins/games/trek/lose.js +36 -0
  102. package/dist/builtins/games/trek/lose.js.map +1 -0
  103. package/dist/builtins/games/trek/lrscan.d.ts +3 -0
  104. package/dist/builtins/games/trek/lrscan.js +96 -0
  105. package/dist/builtins/games/trek/lrscan.js.map +1 -0
  106. package/dist/builtins/games/trek/main.d.ts +24 -0
  107. package/dist/builtins/games/trek/main.js +37 -0
  108. package/dist/builtins/games/trek/main.js.map +1 -0
  109. package/dist/builtins/games/trek/move.d.ts +3 -0
  110. package/dist/builtins/games/trek/move.js +229 -0
  111. package/dist/builtins/games/trek/move.js.map +1 -0
  112. package/dist/builtins/games/trek/nova.d.ts +3 -0
  113. package/dist/builtins/games/trek/nova.js +135 -0
  114. package/dist/builtins/games/trek/nova.js.map +1 -0
  115. package/dist/builtins/games/trek/out.d.ts +3 -0
  116. package/dist/builtins/games/trek/out.js +52 -0
  117. package/dist/builtins/games/trek/out.js.map +1 -0
  118. package/dist/builtins/games/trek/phaser.d.ts +3 -0
  119. package/dist/builtins/games/trek/phaser.js +341 -0
  120. package/dist/builtins/games/trek/phaser.js.map +1 -0
  121. package/dist/builtins/games/trek/play.d.ts +3 -0
  122. package/dist/builtins/games/trek/play.js +112 -0
  123. package/dist/builtins/games/trek/play.js.map +1 -0
  124. package/dist/builtins/games/trek/printf.d.ts +31 -0
  125. package/dist/builtins/games/trek/printf.js +157 -0
  126. package/dist/builtins/games/trek/printf.js.map +1 -0
  127. package/dist/builtins/games/trek/ram.d.ts +3 -0
  128. package/dist/builtins/games/trek/ram.js +97 -0
  129. package/dist/builtins/games/trek/ram.js.map +1 -0
  130. package/dist/builtins/games/trek/rand.d.ts +29 -0
  131. package/dist/builtins/games/trek/rand.js +109 -0
  132. package/dist/builtins/games/trek/rand.js.map +1 -0
  133. package/dist/builtins/games/trek/rest.d.ts +3 -0
  134. package/dist/builtins/games/trek/rest.js +76 -0
  135. package/dist/builtins/games/trek/rest.js.map +1 -0
  136. package/dist/builtins/games/trek/schedule.d.ts +23 -0
  137. package/dist/builtins/games/trek/schedule.js +55 -0
  138. package/dist/builtins/games/trek/schedule.js.map +1 -0
  139. package/dist/builtins/games/trek/score.d.ts +8 -0
  140. package/dist/builtins/games/trek/score.js +61 -0
  141. package/dist/builtins/games/trek/score.js.map +1 -0
  142. package/dist/builtins/games/trek/setup.d.ts +18 -0
  143. package/dist/builtins/games/trek/setup.js +251 -0
  144. package/dist/builtins/games/trek/setup.js.map +1 -0
  145. package/dist/builtins/games/trek/setwarp.d.ts +8 -0
  146. package/dist/builtins/games/trek/setwarp.js +28 -0
  147. package/dist/builtins/games/trek/setwarp.js.map +1 -0
  148. package/dist/builtins/games/trek/shield.d.ts +3 -0
  149. package/dist/builtins/games/trek/shield.js +139 -0
  150. package/dist/builtins/games/trek/shield.js.map +1 -0
  151. package/dist/builtins/games/trek/snova.d.ts +3 -0
  152. package/dist/builtins/games/trek/snova.js +156 -0
  153. package/dist/builtins/games/trek/snova.js.map +1 -0
  154. package/dist/builtins/games/trek/srscan.d.ts +3 -0
  155. package/dist/builtins/games/trek/srscan.js +176 -0
  156. package/dist/builtins/games/trek/srscan.js.map +1 -0
  157. package/dist/builtins/games/trek/state.d.ts +190 -0
  158. package/dist/builtins/games/trek/state.js +84 -0
  159. package/dist/builtins/games/trek/state.js.map +1 -0
  160. package/dist/builtins/games/trek/style.d.ts +7 -0
  161. package/dist/builtins/games/trek/style.js +93 -0
  162. package/dist/builtins/games/trek/style.js.map +1 -0
  163. package/dist/builtins/games/trek/systemname.d.ts +10 -0
  164. package/dist/builtins/games/trek/systemname.js +12 -0
  165. package/dist/builtins/games/trek/systemname.js.map +1 -0
  166. package/dist/builtins/games/trek/torped.d.ts +3 -0
  167. package/dist/builtins/games/trek/torped.js +232 -0
  168. package/dist/builtins/games/trek/torped.js.map +1 -0
  169. package/dist/builtins/games/trek/trek.d.ts +27 -0
  170. package/dist/builtins/games/trek/trek.js +96 -0
  171. package/dist/builtins/games/trek/trek.js.map +1 -0
  172. package/dist/builtins/games/trek/visual.d.ts +3 -0
  173. package/dist/builtins/games/trek/visual.js +87 -0
  174. package/dist/builtins/games/trek/visual.js.map +1 -0
  175. package/dist/builtins/games/trek/warp.d.ts +5 -0
  176. package/dist/builtins/games/trek/warp.js +173 -0
  177. package/dist/builtins/games/trek/warp.js.map +1 -0
  178. package/dist/builtins/games/trek/win.d.ts +12 -0
  179. package/dist/builtins/games/trek/win.js +34 -0
  180. package/dist/builtins/games/trek/win.js.map +1 -0
  181. package/dist/builtins/help.js +6 -0
  182. package/dist/builtins/help.js.map +1 -1
  183. package/dist/builtins/net/query.js +11 -2
  184. package/dist/builtins/net/query.js.map +1 -1
  185. package/dist/builtins/res/play.js +9 -0
  186. package/dist/builtins/res/play.js.map +1 -1
  187. package/dist/core/cancellation.d.ts +7 -0
  188. package/dist/core/cancellation.js +18 -0
  189. package/dist/core/cancellation.js.map +1 -1
  190. package/dist/core/commandOrder.js +3 -3
  191. package/dist/core/commandOrder.js.map +1 -1
  192. package/dist/core/coreCommands.js +3 -0
  193. package/dist/core/coreCommands.js.map +1 -1
  194. package/dist/core/engine.d.ts +16 -0
  195. package/dist/core/engine.js +12 -2
  196. package/dist/core/engine.js.map +1 -1
  197. package/dist/core/listing.js +9 -0
  198. package/dist/core/listing.js.map +1 -1
  199. package/dist/core/turn.d.ts +50 -0
  200. package/dist/core/turn.js +60 -0
  201. package/dist/core/turn.js.map +1 -0
  202. package/dist/notes.json +1 -1
  203. package/dist/session/recorder.d.ts +0 -15
  204. package/dist/session/recorder.js +9 -0
  205. package/dist/session/recorder.js.map +1 -1
  206. package/package.json +6 -5
@@ -0,0 +1,52 @@
1
+ /*
2
+ * out.ts: a TypeScript port of BSD trek(6), from out.c.
3
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): out.c 1.8 2009/05/24.
4
+ *
5
+ * Copyright (c) 1980, 1993
6
+ * The Regents of the University of California. All rights reserved.
7
+ *
8
+ * Redistribution and use in source and binary forms, with or without
9
+ * modification, are permitted provided that the following conditions
10
+ * are met:
11
+ * 1. Redistributions of source code must retain the above copyright
12
+ * notice, this list of conditions and the following disclaimer.
13
+ * 2. Redistributions in binary form must reproduce the above copyright
14
+ * notice, this list of conditions and the following disclaimer in the
15
+ * documentation and/or other materials provided with the distribution.
16
+ * 3. Neither the name of the University nor the names of its contributors
17
+ * may be used to endorse or promote products derived from this software
18
+ * without specific prior written permission.
19
+ *
20
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30
+ * SUCH DAMAGE.
31
+ *
32
+ */
33
+ /**
34
+ * @file Announcing a device out.
35
+ *
36
+ * @module
37
+ */
38
+ import { Device } from './consts.js';
39
+ /*
40
+ ** Announce Device Out
41
+ */
42
+ /** Says a device is damaged. */
43
+ export async function out(t, dev) {
44
+ const d = Device[dev];
45
+ t.io.printf('%s reports %s ', d.person, d.name);
46
+ if (d.name[d.name.length - 1] === 's')
47
+ t.io.printf('are');
48
+ else
49
+ t.io.printf('is');
50
+ t.io.printf(' damaged\n');
51
+ }
52
+ //# sourceMappingURL=out.js.map
@@ -0,0 +1 @@
1
+ {"version":3,"file":"out.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/out.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;GAIG;AACH,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAGrC;;EAEE;AAEF,gCAAgC;AAChC,MAAM,CAAC,KAAK,UAAU,GAAG,CAAC,CAAO,EAAE,GAAW;IAC5C,MAAM,CAAC,GAAW,MAAM,CAAC,GAAG,CAAC,CAAC;IAC9B,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,gBAAgB,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;IAChD,IAAI,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,KAAK,GAAG;QAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;;QACrD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;IACvB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,YAAY,CAAC,CAAC;AAC5B,CAAC"}
@@ -0,0 +1,3 @@
1
+ import type { Trek } from './context.js';
2
+ /** Phaser control. */
3
+ export declare function phaser(t: Trek, _v: number): Promise<void>;
@@ -0,0 +1,341 @@
1
+ /*
2
+ * phaser.ts: a TypeScript port of BSD trek(6), from phaser.c.
3
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): phaser.c 1.15 2009/08/12.
4
+ *
5
+ * Copyright (c) 1980, 1993
6
+ * The Regents of the University of California. All rights reserved.
7
+ *
8
+ * Redistribution and use in source and binary forms, with or without
9
+ * modification, are permitted provided that the following conditions
10
+ * are met:
11
+ * 1. Redistributions of source code must retain the above copyright
12
+ * notice, this list of conditions and the following disclaimer.
13
+ * 2. Redistributions in binary form must reproduce the above copyright
14
+ * notice, this list of conditions and the following disclaimer in the
15
+ * documentation and/or other materials provided with the distribution.
16
+ * 3. Neither the name of the University nor the names of its contributors
17
+ * may be used to endorse or promote products derived from this software
18
+ * without specific prior written permission.
19
+ *
20
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30
+ * SUCH DAMAGE.
31
+ *
32
+ */
33
+ /**
34
+ * @file Phaser control: up to NBANKS banks fired together, aimed by hand
35
+ * (course, units and spread per bank) or automatically (total units,
36
+ * shared out by the computer over the Klingons in the quadrant).
37
+ *
38
+ * Deviation: the C's klingon pointer walking the list is an index here,
39
+ * re-read after each kill, since killk() copies the list down.
40
+ *
41
+ * @module
42
+ */
43
+ import { COMPUTER, DOCKED, Device, NBANKS, PHASER, SRSCAN } from './consts.js';
44
+ import { damaged } from './damaged.js';
45
+ import { getcodpar, getfltpar, getintpar, skiptonl, testnl } from './getpar.js';
46
+ import { killk } from './kill.js';
47
+ import { out } from './out.js';
48
+ import { franf } from './rand.js';
49
+ /* factors for phaser hits; see description below */
50
+ /** spread */
51
+ const ALPHA = 3.0;
52
+ /** franf() */
53
+ const BETA = 3.0;
54
+ /** cos(angle) */
55
+ const GAMMA = 0.30;
56
+ /** dist ** 2 */
57
+ const EPSILON = 150.0;
58
+ /** overall scaling factor */
59
+ const OMEGA = 10.596;
60
+ /* OMEGA ~= 100 * (ALPHA + 1) * (BETA + 1) / (EPSILON + 1) */
61
+ /*
62
+ ** Phaser Control
63
+ **
64
+ ** There are up to NBANKS phaser banks which may be fired
65
+ ** simultaneously. There are two modes, "manual" and
66
+ ** "automatic". In manual mode, you specify exactly which
67
+ ** direction you want each bank to be aimed, the number
68
+ ** of units to fire, and the spread angle. In automatic
69
+ ** mode, you give only the total number of units to fire.
70
+ **
71
+ ** The spread is specified as a number between zero and
72
+ ** one, with zero being minimum spread and one being maximum
73
+ ** spread. You will normally want zero spread, unless your
74
+ ** short range scanners are out, in which case you probably
75
+ ** don't know exactly where the Klingons are. In that case,
76
+ ** you really don't have any choice except to specify a
77
+ ** fairly large spread.
78
+ **
79
+ ** Phasers spread slightly, even if you specify zero spread.
80
+ **
81
+ ** Uses trace flag 30
82
+ */
83
+ /** The mode table: value2 carries the C's (cmdfun) 1 / 0. */
84
+ const Matab = [
85
+ { abbrev: 'm', full: 'anual', value: null, value2: 1 },
86
+ { abbrev: 'a', full: 'utomatic', value: null, value2: 0 },
87
+ ];
88
+ /** Phaser control. */
89
+ export async function phaser(t, _v) {
90
+ const { Ship, Etc, Move } = t.s;
91
+ let i;
92
+ let j;
93
+ let k;
94
+ let ki;
95
+ let dx;
96
+ let dy;
97
+ let anglefactor;
98
+ let distfactor;
99
+ let b;
100
+ let manual;
101
+ let flag;
102
+ let extra = 0;
103
+ let hit;
104
+ let tot;
105
+ let n;
106
+ const hitreqd = new Array(NBANKS).fill(0);
107
+ const bank = Array.from({ length: NBANKS }, () => ({ units: 0, angle: 0, spread: 0 }));
108
+ if (Ship.cond === DOCKED) {
109
+ t.io.printf('Phasers cannot fire through starbase shields\n');
110
+ return;
111
+ }
112
+ if (damaged(t, PHASER)) {
113
+ await out(t, PHASER);
114
+ return;
115
+ }
116
+ if (Ship.shldup) {
117
+ t.io.printf('Sulu: Captain, we cannot fire through shields.\n');
118
+ return;
119
+ }
120
+ if (Ship.cloaked) {
121
+ t.io.printf('Sulu: Captain, surely you must realize that we cannot fire\n');
122
+ t.io.printf(' phasers with the cloaking device up.\n');
123
+ return;
124
+ }
125
+ /* decide if we want manual or automatic mode */
126
+ manual = 0;
127
+ if (await testnl(t)) {
128
+ if (damaged(t, COMPUTER)) {
129
+ t.io.printf('%s', Device[COMPUTER].name);
130
+ manual++;
131
+ }
132
+ else if (damaged(t, SRSCAN)) {
133
+ t.io.printf('%s', Device[SRSCAN].name);
134
+ manual++;
135
+ }
136
+ if (manual)
137
+ t.io.printf(' damaged, manual mode selected\n');
138
+ }
139
+ if (!manual) {
140
+ const ptr = await getcodpar(t, 'Manual or automatic', Matab);
141
+ manual = ptr.value2;
142
+ }
143
+ if (!manual && damaged(t, COMPUTER)) {
144
+ t.io.printf('Computer damaged, manual selected\n');
145
+ await skiptonl(t, 0);
146
+ manual++;
147
+ }
148
+ /* initialize the bank[] array */
149
+ flag = 1;
150
+ for (i = 0; i < NBANKS; i++)
151
+ bank[i].units = 0;
152
+ if (manual) {
153
+ /* collect manual mode statistics */
154
+ while (flag) {
155
+ t.io.printf('%d units available\n', Ship.energy);
156
+ extra = 0;
157
+ flag = 0;
158
+ for (i = 0; i < NBANKS; i++) {
159
+ b = bank[i];
160
+ t.io.printf('\nBank %d:\n', i);
161
+ hit = await getintpar(t, 'units');
162
+ if (hit < 0)
163
+ return;
164
+ if (hit === 0)
165
+ break;
166
+ extra += hit;
167
+ if (extra > Ship.energy) {
168
+ t.io.printf('available energy exceeded. ');
169
+ await skiptonl(t, 0);
170
+ flag++;
171
+ break;
172
+ }
173
+ b.units = hit;
174
+ hit = await getintpar(t, 'course');
175
+ if (hit < 0 || hit > 360)
176
+ return;
177
+ b.angle = hit * 0.0174532925;
178
+ b.spread = await getfltpar(t, 'spread');
179
+ if (b.spread < 0 || b.spread > 1)
180
+ return;
181
+ }
182
+ Ship.energy -= extra;
183
+ }
184
+ extra = 0;
185
+ }
186
+ else {
187
+ /* automatic distribution of power */
188
+ if (Etc.nkling <= 0) {
189
+ t.io.printf('Sulu: But there are no Klingons in this quadrant\n');
190
+ return;
191
+ }
192
+ t.io.printf('Phasers locked on target. ');
193
+ while (flag) {
194
+ t.io.printf('%d units available\n', Ship.energy);
195
+ hit = await getintpar(t, 'Units to fire');
196
+ if (hit <= 0)
197
+ return;
198
+ if (hit > Ship.energy) {
199
+ t.io.printf('available energy exceeded. ');
200
+ await skiptonl(t, 0);
201
+ continue;
202
+ }
203
+ flag = 0;
204
+ Ship.energy -= hit;
205
+ extra = hit;
206
+ n = Etc.nkling;
207
+ if (n > NBANKS)
208
+ n = NBANKS;
209
+ tot = Math.trunc((n * (n + 1)) / 2);
210
+ for (i = 0; i < n; i++) {
211
+ k = Etc.klingon[i];
212
+ b = bank[i];
213
+ distfactor = k.dist;
214
+ anglefactor = (ALPHA * BETA * OMEGA) / (distfactor * distfactor + EPSILON);
215
+ anglefactor *= GAMMA;
216
+ distfactor = k.power;
217
+ distfactor /= anglefactor;
218
+ hitreqd[i] = Math.trunc(distfactor + 0.5);
219
+ dx = Ship.sectx - k.x;
220
+ dy = k.y - Ship.secty;
221
+ b.angle = Math.atan2(dy, dx);
222
+ b.spread = 0.0;
223
+ b.units = Math.trunc(((n - i) / tot) * extra);
224
+ if (t.s.Trace) {
225
+ t.io.printf('b%d hr%d u%d df%.2f af%.2f\n', i, hitreqd[i], b.units, distfactor, anglefactor);
226
+ }
227
+ extra -= b.units;
228
+ hit = b.units - hitreqd[i];
229
+ if (hit > 0) {
230
+ extra += hit;
231
+ b.units -= hit;
232
+ }
233
+ }
234
+ /* give out any extra energy we might have around */
235
+ if (extra > 0) {
236
+ for (i = 0; i < n; i++) {
237
+ b = bank[i];
238
+ hit = hitreqd[i] - b.units;
239
+ if (hit <= 0)
240
+ continue;
241
+ if (hit >= extra) {
242
+ b.units += extra;
243
+ extra = 0;
244
+ break;
245
+ }
246
+ b.units = hitreqd[i];
247
+ extra -= hit;
248
+ }
249
+ if (extra > 0)
250
+ t.io.printf('%d units overkill\n', extra);
251
+ }
252
+ }
253
+ }
254
+ if (t.s.Trace) {
255
+ for (i = 0; i < NBANKS; i++) {
256
+ b = bank[i];
257
+ t.io.printf('b%d u%d', i, b.units);
258
+ if (b.units > 0)
259
+ t.io.printf(' a%.2f s%.2f\n', b.angle, b.spread);
260
+ else
261
+ t.io.printf('\n');
262
+ }
263
+ }
264
+ /* actually fire the shots */
265
+ Move.free = 0;
266
+ for (i = 0; i < NBANKS; i++) {
267
+ b = bank[i];
268
+ if (b.units <= 0) {
269
+ continue;
270
+ }
271
+ t.io.printf('\nPhaser bank %d fires:\n', i);
272
+ n = Etc.nkling;
273
+ ki = 0;
274
+ for (j = 0; j < n; j++) {
275
+ if (b.units <= 0)
276
+ break;
277
+ k = Etc.klingon[ki];
278
+ /*
279
+ ** The formula for hit is as follows:
280
+ **
281
+ ** zap = OMEGA * [(sigma + ALPHA) * (rho + BETA)]
282
+ ** / (dist ** 2 + EPSILON)]
283
+ ** * [cos(delta * sigma) + GAMMA]
284
+ ** * hit
285
+ **
286
+ ** where sigma is the spread factor,
287
+ ** rho is a random number (0 -> 1),
288
+ ** GAMMA is a crud factor for angle (essentially
289
+ ** cruds up the spread factor),
290
+ ** delta is the difference in radians between the
291
+ ** angle you are shooting at and the actual
292
+ ** angle of the klingon,
293
+ ** ALPHA scales down the significance of sigma,
294
+ ** BETA scales down the significance of rho,
295
+ ** OMEGA is the magic number which makes everything
296
+ ** up to "* hit" between zero and one,
297
+ ** dist is the distance to the klingon
298
+ ** hit is the number of units in the bank, and
299
+ ** zap is the amount of the actual hit.
300
+ **
301
+ ** Everything up through dist squared should maximize
302
+ ** at 1.0, so that the distance factor is never
303
+ ** greater than one. Conveniently, cos() is
304
+ ** never greater than one, but the same restric-
305
+ ** tion applies.
306
+ */
307
+ distfactor = BETA + franf(t.rnd);
308
+ distfactor *= ALPHA + b.spread;
309
+ distfactor *= OMEGA;
310
+ anglefactor = k.dist;
311
+ distfactor /= anglefactor * anglefactor + EPSILON;
312
+ distfactor *= b.units;
313
+ dx = Ship.sectx - k.x;
314
+ dy = k.y - Ship.secty;
315
+ anglefactor = Math.atan2(dy, dx) - b.angle;
316
+ anglefactor = Math.cos(anglefactor * b.spread + GAMMA);
317
+ if (anglefactor < 0.0) {
318
+ ki++;
319
+ continue;
320
+ }
321
+ hit = Math.trunc(anglefactor * distfactor + 0.5);
322
+ k.power -= hit;
323
+ t.io.printf('%d unit hit on Klingon', hit);
324
+ if (!damaged(t, SRSCAN))
325
+ t.io.printf(' at %d,%d', k.x, k.y);
326
+ t.io.printf('\n');
327
+ b.units -= hit;
328
+ if (k.power <= 0) {
329
+ await killk(t, k.x, k.y);
330
+ continue;
331
+ }
332
+ ki++;
333
+ }
334
+ }
335
+ /* compute overkill */
336
+ for (i = 0; i < NBANKS; i++)
337
+ extra += bank[i].units;
338
+ if (extra > 0)
339
+ t.io.printf('\n%d units expended on empty space\n', extra);
340
+ }
341
+ //# sourceMappingURL=phaser.js.map
@@ -0,0 +1 @@
1
+ {"version":3,"file":"phaser.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/phaser.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;;;;;GASG;AACH,OAAO,EAAE,QAAQ,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAE/E,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,QAAQ,EAAE,MAAM,EAAe,MAAM,aAAa,CAAC;AAC7F,OAAO,EAAE,KAAK,EAAE,MAAM,WAAW,CAAC;AAClC,OAAO,EAAE,GAAG,EAAE,MAAM,UAAU,CAAC;AAC/B,OAAO,EAAE,KAAK,EAAE,MAAM,WAAW,CAAC;AAGlC,oDAAoD;AAEpD,aAAa;AACb,MAAM,KAAK,GAAW,GAAG,CAAC;AAC1B,cAAc;AACd,MAAM,IAAI,GAAW,GAAG,CAAC;AACzB,iBAAiB;AACjB,MAAM,KAAK,GAAW,IAAI,CAAC;AAC3B,gBAAgB;AAChB,MAAM,OAAO,GAAW,KAAK,CAAC;AAC9B,6BAA6B;AAC7B,MAAM,KAAK,GAAW,MAAM,CAAC;AAE7B,6DAA6D;AAE7D;;;;;;;;;;;;;;;;;;;;;EAqBE;AAEF,6DAA6D;AAC7D,MAAM,KAAK,GAA0B;IACnC,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACtD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,UAAU,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;CAC1D,CAAC;AASF,sBAAsB;AACtB,MAAM,CAAC,KAAK,UAAU,MAAM,CAAC,CAAO,EAAE,EAAU;IAC9C,MAAM,EAAE,IAAI,EAAE,GAAG,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IAChC,IAAI,CAAS,CAAC;IACd,IAAI,CAAS,CAAC;IACd,IAAI,CAAQ,CAAC;IACb,IAAI,EAAU,CAAC;IACf,IAAI,EAAU,CAAC;IACf,IAAI,EAAU,CAAC;IACf,IAAI,WAAmB,CAAC;IACxB,IAAI,UAAkB,CAAC;IACvB,IAAI,CAAQ,CAAC;IACb,IAAI,MAAc,CAAC;IACnB,IAAI,IAAY,CAAC;IACjB,IAAI,KAAK,GAAW,CAAC,CAAC;IACtB,IAAI,GAAW,CAAC;IAChB,IAAI,GAAW,CAAC;IAChB,IAAI,CAAS,CAAC;IACd,MAAM,OAAO,GAAa,IAAI,KAAK,CAAS,MAAM,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAC5D,MAAM,IAAI,GAAY,KAAK,CAAC,IAAI,CAAC,EAAE,MAAM,EAAE,MAAM,EAAE,EAAE,GAAU,EAAE,CAAC,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,KAAK,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;IAEvG,IAAI,IAAI,CAAC,IAAI,KAAK,MAAM,EAAE,CAAC;QACzB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,gDAAgD,CAAC,CAAC;QAC9D,OAAO;IACT,CAAC;IACD,IAAI,OAAO,CAAC,CAAC,EAAE,MAAM,CAAC,EAAE,CAAC;QACvB,MAAM,GAAG,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC;QACrB,OAAO;IACT,CAAC;IACD,IAAI,IAAI,CAAC,MAAM,EAAE,CAAC;QAChB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,kDAAkD,CAAC,CAAC;QAChE,OAAO;IACT,CAAC;IACD,IAAI,IAAI,CAAC,OAAO,EAAE,CAAC;QACjB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,8DAA8D,CAAC,CAAC;QAC5E,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,0CAA0C,CAAC,CAAC;QACxD,OAAO;IACT,CAAC;IAED,gDAAgD;IAChD,MAAM,GAAG,CAAC,CAAC;IACX,IAAI,MAAM,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC;QACpB,IAAI,OAAO,CAAC,CAAC,EAAE,QAAQ,CAAC,EAAE,CAAC;YACzB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,CAAC,QAAQ,CAAC,CAAC,IAAI,CAAC,CAAC;YACzC,MAAM,EAAE,CAAC;QACX,CAAC;aAAM,IAAI,OAAO,CAAC,CAAC,EAAE,MAAM,CAAC,EAAE,CAAC;YAC9B,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,CAAC,MAAM,CAAC,CAAC,IAAI,CAAC,CAAC;YACvC,MAAM,EAAE,CAAC;QACX,CAAC;QACD,IAAI,MAAM;YAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,kCAAkC,CAAC,CAAC;IAC9D,CAAC;IAED,IAAI,CAAC,MAAM,EAAE,CAAC;QACZ,MAAM,GAAG,GAAW,MAAM,SAAS,CAAC,CAAC,EAAE,qBAAqB,EAAE,KAAK,CAAC,CAAC;QACrE,MAAM,GAAG,GAAG,CAAC,MAAM,CAAC;IACtB,CAAC;IACD,IAAI,CAAC,MAAM,IAAI,OAAO,CAAC,CAAC,EAAE,QAAQ,CAAC,EAAE,CAAC;QACpC,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,qCAAqC,CAAC,CAAC;QACnD,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QACrB,MAAM,EAAE,CAAC;IACX,CAAC;IAED,iCAAiC;IACjC,IAAI,GAAG,CAAC,CAAC;IACT,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE;QAAE,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC;IAC/C,IAAI,MAAM,EAAE,CAAC;QACX,oCAAoC;QACpC,OAAO,IAAI,EAAE,CAAC;YACZ,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,sBAAsB,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;YACjD,KAAK,GAAG,CAAC,CAAC;YACV,IAAI,GAAG,CAAC,CAAC;YACT,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC5B,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;gBACZ,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,cAAc,EAAE,CAAC,CAAC,CAAC;gBAC/B,GAAG,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,OAAO,CAAC,CAAC;gBAClC,IAAI,GAAG,GAAG,CAAC;oBAAE,OAAO;gBACpB,IAAI,GAAG,KAAK,CAAC;oBAAE,MAAM;gBACrB,KAAK,IAAI,GAAG,CAAC;gBACb,IAAI,KAAK,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;oBACxB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,8BAA8B,CAAC,CAAC;oBAC5C,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;oBACrB,IAAI,EAAE,CAAC;oBACP,MAAM;gBACR,CAAC;gBACD,CAAC,CAAC,KAAK,GAAG,GAAG,CAAC;gBACd,GAAG,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;gBACnC,IAAI,GAAG,GAAG,CAAC,IAAI,GAAG,GAAG,GAAG;oBAAE,OAAO;gBACjC,CAAC,CAAC,KAAK,GAAG,GAAG,GAAG,YAAY,CAAC;gBAC7B,CAAC,CAAC,MAAM,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,QAAQ,CAAC,CAAC;gBACxC,IAAI,CAAC,CAAC,MAAM,GAAG,CAAC,IAAI,CAAC,CAAC,MAAM,GAAG,CAAC;oBAAE,OAAO;YAC3C,CAAC;YACD,IAAI,CAAC,MAAM,IAAI,KAAK,CAAC;QACvB,CAAC;QACD,KAAK,GAAG,CAAC,CAAC;IACZ,CAAC;SAAM,CAAC;QACN,qCAAqC;QACrC,IAAI,GAAG,CAAC,MAAM,IAAI,CAAC,EAAE,CAAC;YACpB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,oDAAoD,CAAC,CAAC;YAClE,OAAO;QACT,CAAC;QACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,6BAA6B,CAAC,CAAC;QAC3C,OAAO,IAAI,EAAE,CAAC;YACZ,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,sBAAsB,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;YACjD,GAAG,GAAG,MAAM,SAAS,CAAC,CAAC,EAAE,eAAe,CAAC,CAAC;YAC1C,IAAI,GAAG,IAAI,CAAC;gBAAE,OAAO;YACrB,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC;gBACtB,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,8BAA8B,CAAC,CAAC;gBAC5C,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBACrB,SAAS;YACX,CAAC;YACD,IAAI,GAAG,CAAC,CAAC;YACT,IAAI,CAAC,MAAM,IAAI,GAAG,CAAC;YACnB,KAAK,GAAG,GAAG,CAAC;YACZ,CAAC,GAAG,GAAG,CAAC,MAAM,CAAC;YACf,IAAI,CAAC,GAAG,MAAM;gBAAE,CAAC,GAAG,MAAM,CAAC;YAC3B,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;YACpC,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;gBACvB,CAAC,GAAG,GAAG,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC;gBACnB,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;gBACZ,UAAU,GAAG,CAAC,CAAC,IAAI,CAAC;gBACpB,WAAW,GAAG,CAAC,KAAK,GAAG,IAAI,GAAG,KAAK,CAAC,GAAG,CAAC,UAAU,GAAG,UAAU,GAAG,OAAO,CAAC,CAAC;gBAC3E,WAAW,IAAI,KAAK,CAAC;gBACrB,UAAU,GAAG,CAAC,CAAC,KAAK,CAAC;gBACrB,UAAU,IAAI,WAAW,CAAC;gBAC1B,OAAO,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,UAAU,GAAG,GAAG,CAAC,CAAC;gBAC1C,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC;gBACtB,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC;gBACtB,CAAC,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,EAAE,EAAE,CAAC,CAAC;gBAC7B,CAAC,CAAC,MAAM,GAAG,GAAG,CAAC;gBACf,CAAC,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,GAAG,CAAC,GAAG,KAAK,CAAC,CAAC;gBAC9C,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC;oBACd,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,8BAA8B,EAAE,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,KAAK,EAAE,UAAU,EAAE,WAAW,CAAC,CAAC;gBAC/F,CAAC;gBACD,KAAK,IAAI,CAAC,CAAC,KAAK,CAAC;gBACjB,GAAG,GAAG,CAAC,CAAC,KAAK,GAAG,OAAO,CAAC,CAAC,CAAC,CAAC;gBAC3B,IAAI,GAAG,GAAG,CAAC,EAAE,CAAC;oBACZ,KAAK,IAAI,GAAG,CAAC;oBACb,CAAC,CAAC,KAAK,IAAI,GAAG,CAAC;gBACjB,CAAC;YACH,CAAC;YAED,oDAAoD;YACpD,IAAI,KAAK,GAAG,CAAC,EAAE,CAAC;gBACd,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;oBACvB,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;oBACZ,GAAG,GAAG,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC;oBAC3B,IAAI,GAAG,IAAI,CAAC;wBAAE,SAAS;oBACvB,IAAI,GAAG,IAAI,KAAK,EAAE,CAAC;wBACjB,CAAC,CAAC,KAAK,IAAI,KAAK,CAAC;wBACjB,KAAK,GAAG,CAAC,CAAC;wBACV,MAAM;oBACR,CAAC;oBACD,CAAC,CAAC,KAAK,GAAG,OAAO,CAAC,CAAC,CAAC,CAAC;oBACrB,KAAK,IAAI,GAAG,CAAC;gBACf,CAAC;gBACD,IAAI,KAAK,GAAG,CAAC;oBAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,qBAAqB,EAAE,KAAK,CAAC,CAAC;YAC3D,CAAC;QACH,CAAC;IACH,CAAC;IAED,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC;QACd,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;YAC5B,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;YACZ,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,SAAS,EAAE,CAAC,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC;YACnC,IAAI,CAAC,CAAC,KAAK,GAAG,CAAC;gBAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,gBAAgB,EAAE,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC;;gBAC7D,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;QACzB,CAAC;IACH,CAAC;IAED,6BAA6B;IAC7B,IAAI,CAAC,IAAI,GAAG,CAAC,CAAC;IACd,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5B,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;QACZ,IAAI,CAAC,CAAC,KAAK,IAAI,CAAC,EAAE,CAAC;YACjB,SAAS;QACX,CAAC;QACD,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,2BAA2B,EAAE,CAAC,CAAC,CAAC;QAC5C,CAAC,GAAG,GAAG,CAAC,MAAM,CAAC;QACf,EAAE,GAAG,CAAC,CAAC;QACP,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YACvB,IAAI,CAAC,CAAC,KAAK,IAAI,CAAC;gBAAE,MAAM;YACxB,CAAC,GAAG,GAAG,CAAC,OAAO,CAAC,EAAE,CAAC,CAAC;YACpB;;;;;;;;;;;;;;;;;;;;;;;;;;;;cA4BE;YACF,UAAU,GAAG,IAAI,GAAG,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;YACjC,UAAU,IAAI,KAAK,GAAG,CAAC,CAAC,MAAM,CAAC;YAC/B,UAAU,IAAI,KAAK,CAAC;YACpB,WAAW,GAAG,CAAC,CAAC,IAAI,CAAC;YACrB,UAAU,IAAI,WAAW,GAAG,WAAW,GAAG,OAAO,CAAC;YAClD,UAAU,IAAI,CAAC,CAAC,KAAK,CAAC;YACtB,EAAE,GAAG,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC;YACtB,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC;YACtB,WAAW,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC;YAC3C,WAAW,GAAG,IAAI,CAAC,GAAG,CAAC,WAAW,GAAG,CAAC,CAAC,MAAM,GAAG,KAAK,CAAC,CAAC;YACvD,IAAI,WAAW,GAAG,GAAG,EAAE,CAAC;gBACtB,EAAE,EAAE,CAAC;gBACL,SAAS;YACX,CAAC;YACD,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC,WAAW,GAAG,UAAU,GAAG,GAAG,CAAC,CAAC;YACjD,CAAC,CAAC,KAAK,IAAI,GAAG,CAAC;YACf,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,wBAAwB,EAAE,GAAG,CAAC,CAAC;YAC3C,IAAI,CAAC,OAAO,CAAC,CAAC,EAAE,MAAM,CAAC;gBAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,WAAW,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;YAC5D,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;YAClB,CAAC,CAAC,KAAK,IAAI,GAAG,CAAC;YACf,IAAI,CAAC,CAAC,KAAK,IAAI,CAAC,EAAE,CAAC;gBACjB,MAAM,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;gBACzB,SAAS;YACX,CAAC;YACD,EAAE,EAAE,CAAC;QACP,CAAC;IACH,CAAC;IAED,sBAAsB;IACtB,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE;QAAE,KAAK,IAAI,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC;IACpD,IAAI,KAAK,GAAG,CAAC;QAAE,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,sCAAsC,EAAE,KAAK,CAAC,CAAC;AAC5E,CAAC"}
@@ -0,0 +1,3 @@
1
+ import type { Trek } from './context.js';
2
+ /** INSTRUCTION READ AND MAIN PLAY LOOP: never returns. */
3
+ export declare function play(t: Trek): Promise<never>;
@@ -0,0 +1,112 @@
1
+ /*
2
+ * play.ts: a TypeScript port of BSD trek(6), from play.c.
3
+ * Ported from NetBSD src/games/trek (trunk 7a9ca154a8f6144307865f23390a3c63b400b801): play.c 1.12 2009/08/12.
4
+ *
5
+ * Copyright (c) 1980, 1993
6
+ * The Regents of the University of California. All rights reserved.
7
+ *
8
+ * Redistribution and use in source and binary forms, with or without
9
+ * modification, are permitted provided that the following conditions
10
+ * are met:
11
+ * 1. Redistributions of source code must retain the above copyright
12
+ * notice, this list of conditions and the following disclaimer.
13
+ * 2. Redistributions in binary form must reproduce the above copyright
14
+ * notice, this list of conditions and the following disclaimer in the
15
+ * documentation and/or other materials provided with the distribution.
16
+ * 3. Neither the name of the University nor the names of its contributors
17
+ * may be used to endorse or promote products derived from this software
18
+ * without specific prior written permission.
19
+ *
20
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30
+ * SUCH DAMAGE.
31
+ *
32
+ */
33
+ /**
34
+ * @file The instruction read and main play loop: per-move variables set
35
+ * up, the command read and executed, then events() to use up time,
36
+ * attack() to have Klingons attack if the move was not free, and
37
+ * checkcond() to check up on how we are doing after the move.
38
+ *
39
+ * @module
40
+ */
41
+ import { abandon } from './abandon.js';
42
+ import { attack } from './attack.js';
43
+ import { capture } from './capture.js';
44
+ import { checkcond } from './checkcond.js';
45
+ import { computer } from './computer.js';
46
+ import { dcrept } from './dcrept.js';
47
+ import { destruct } from './destruct.js';
48
+ import { dock, undock } from './dock.js';
49
+ import { dumpgame } from './dumpgame.js';
50
+ import { events } from './events.js';
51
+ import { getcodpar, skiptonl } from './getpar.js';
52
+ import { help } from './help.js';
53
+ import { impulse } from './impulse.js';
54
+ import { TrekReset } from './io.js';
55
+ import { lrscan } from './lrscan.js';
56
+ import { phaser } from './phaser.js';
57
+ import { rest } from './rest.js';
58
+ import { setwarp } from './setwarp.js';
59
+ import { shield } from './shield.js';
60
+ import { srscan } from './srscan.js';
61
+ import { torped } from './torped.js';
62
+ import { visual } from './visual.js';
63
+ import { dowarp } from './warp.js';
64
+ /** terminate: back to the question of another game. */
65
+ async function myreset(_t, _v) {
66
+ throw new TrekReset();
67
+ }
68
+ /** The commands. */
69
+ const Comtab = [
70
+ { abbrev: 'abandon', full: '', value: abandon, value2: 0 },
71
+ { abbrev: 'ca', full: 'pture', value: capture, value2: 0 },
72
+ { abbrev: 'cl', full: 'oak', value: shield, value2: -1 },
73
+ { abbrev: 'c', full: 'omputer', value: computer, value2: 0 },
74
+ { abbrev: 'da', full: 'mages', value: dcrept, value2: 0 },
75
+ { abbrev: 'destruct', full: '', value: destruct, value2: 0 },
76
+ { abbrev: 'do', full: 'ck', value: dock, value2: 0 },
77
+ { abbrev: 'help', full: '', value: help, value2: 0 },
78
+ { abbrev: 'i', full: 'mpulse', value: impulse, value2: 0 },
79
+ { abbrev: 'l', full: 'rscan', value: lrscan, value2: 0 },
80
+ { abbrev: 'm', full: 'ove', value: dowarp, value2: 0 },
81
+ { abbrev: 'p', full: 'hasers', value: phaser, value2: 0 },
82
+ { abbrev: 'ram', full: '', value: dowarp, value2: 1 },
83
+ { abbrev: 'dump', full: '', value: dumpgame, value2: 0 },
84
+ { abbrev: 'r', full: 'est', value: rest, value2: 0 },
85
+ { abbrev: 'sh', full: 'ield', value: shield, value2: 0 },
86
+ { abbrev: 's', full: 'rscan', value: srscan, value2: 0 },
87
+ { abbrev: 'st', full: 'atus', value: srscan, value2: -1 },
88
+ { abbrev: 'terminate', full: '', value: myreset, value2: 0 },
89
+ { abbrev: 't', full: 'orpedo', value: torped, value2: 0 },
90
+ { abbrev: 'u', full: 'ndock', value: undock, value2: 0 },
91
+ { abbrev: 'v', full: 'isual', value: visual, value2: 0 },
92
+ { abbrev: 'w', full: 'arp', value: setwarp, value2: 0 },
93
+ ];
94
+ /** INSTRUCTION READ AND MAIN PLAY LOOP: never returns. */
95
+ export async function play(t) {
96
+ const { Move } = t.s;
97
+ while (true) {
98
+ Move.free = 1;
99
+ Move.time = 0.0;
100
+ Move.shldchg = 0;
101
+ Move.newquad = 0;
102
+ Move.resting = 0;
103
+ await skiptonl(t, 0);
104
+ const r = await getcodpar(t, '\nCommand', Comtab);
105
+ if (r.value)
106
+ await r.value(t, r.value2);
107
+ await events(t, 0);
108
+ await attack(t, 0);
109
+ await checkcond(t);
110
+ }
111
+ }
112
+ //# sourceMappingURL=play.js.map
@@ -0,0 +1 @@
1
+ {"version":3,"file":"play.js","sourceRoot":"","sources":["../../../../src/builtins/games/trek/play.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA+BG;AACH;;;;;;;GAOG;AACH,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,SAAS,EAAE,MAAM,gBAAgB,CAAC;AAC3C,OAAO,EAAE,QAAQ,EAAE,MAAM,eAAe,CAAC;AAEzC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,QAAQ,EAAE,MAAM,eAAe,CAAC;AACzC,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,MAAM,WAAW,CAAC;AACzC,OAAO,EAAE,QAAQ,EAAE,MAAM,eAAe,CAAC;AACzC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,SAAS,EAAE,QAAQ,EAAe,MAAM,aAAa,CAAC;AAC/D,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,SAAS,EAAE,MAAM,SAAS,CAAC;AACpC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AACjC,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,MAAM,EAAE,MAAM,WAAW,CAAC;AAEnC,uDAAuD;AACvD,KAAK,UAAU,OAAO,CAAC,EAAQ,EAAE,EAAU;IACzC,MAAM,IAAI,SAAS,EAAE,CAAC;AACxB,CAAC;AAED,oBAAoB;AACpB,MAAM,MAAM,GAA0B;IACpC,EAAE,MAAM,EAAE,SAAS,EAAE,IAAI,EAAE,EAAE,EAAE,KAAK,EAAE,OAAO,EAAE,MAAM,EAAE,CAAC,EAAE;IAC1D,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,OAAO,EAAE,MAAM,EAAE,CAAC,EAAE;IAC1D,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,CAAC,EAAE;IACxD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,SAAS,EAAE,KAAK,EAAE,QAAQ,EAAE,MAAM,EAAE,CAAC,EAAE;IAC5D,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,EAAE;IACzD,EAAE,MAAM,EAAE,UAAU,EAAE,IAAI,EAAE,EAAE,EAAE,KAAK,EAAE,QAAQ,EAAE,MAAM,EAAE,CAAC,EAAE;IAC5D,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACpD,EAAE,MAAM,EAAE,MAAM,EAAE,IAAI,EAAE,EAAE,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACpD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,EAAE,OAAO,EAAE,MAAM,EAAE,CAAC,EAAE;IAC1D,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,EAAE;IACxD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,EAAE;IACtD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,EAAE;IACzD,EAAE,MAAM,EAAE,KAAK,EAAE,IAAI,EAAE,EAAE,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,EAAE;IACrD,EAAE,MAAM,EAAE,MAAM,EAAE,IAAI,EAAE,EAAE,EAAE,KAAK,EAAE,QAAQ,EAAE,MAAM,EAAE,CAAC,EAAE;IACxD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,EAAE;IACpD,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,EAAE;IACxD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,EAAE;IACxD,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,CAAC,EAAE;IACzD,EAAE,MAAM,EAAE,WAAW,EAAE,IAAI,EAAE,EAAE,EAAE,KAAK,EAAE,OAAO,EAAE,MAAM,EAAE,CAAC,EAAE;IAC5D,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,EAAE;IACzD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,EAAE;IACxD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,EAAE;IACxD,EAAE,MAAM,EAAE,GAAG,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,OAAO,EAAE,MAAM,EAAE,CAAC,EAAE;CACxD,CAAC;AAEF,0DAA0D;AAC1D,MAAM,CAAC,KAAK,UAAU,IAAI,CAAC,CAAO;IAChC,MAAM,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;IACrB,OAAO,IAAI,EAAE,CAAC;QACZ,IAAI,CAAC,IAAI,GAAG,CAAC,CAAC;QACd,IAAI,CAAC,IAAI,GAAG,GAAG,CAAC;QAChB,IAAI,CAAC,OAAO,GAAG,CAAC,CAAC;QACjB,IAAI,CAAC,OAAO,GAAG,CAAC,CAAC;QACjB,IAAI,CAAC,OAAO,GAAG,CAAC,CAAC;QACjB,MAAM,QAAQ,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QACrB,MAAM,CAAC,GAAW,MAAM,SAAS,CAAC,CAAC,EAAE,WAAW,EAAE,MAAM,CAAC,CAAC;QAC1D,IAAI,CAAC,CAAC,KAAK;YAAE,MAAM,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC;QACxC,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QACnB,MAAM,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QACnB,MAAM,SAAS,CAAC,CAAC,CAAC,CAAC;IACrB,CAAC;AACH,CAAC"}
@@ -0,0 +1,31 @@
1
+ /**
2
+ * @file C's printf formatting, as trek uses it.
3
+ *
4
+ * trek prints through printf with widths, precisions and flags
5
+ * (`%5.1f`, `%14.14s`, `%-3d`); a faithful port prints exactly what the C
6
+ * printed, so this formats as C does: conversions d i u c s f e g x o and
7
+ * %%, flags - + space 0 #, width and precision (either may be `*`).
8
+ * Written for the port (no BSD source here).
9
+ *
10
+ * @module
11
+ */
12
+ /** One value printf may be handed. */
13
+ export type PrintfArg = number | string;
14
+ /**
15
+ * Formats as C's sprintf.
16
+ *
17
+ * @param format - The format string.
18
+ * @param args - The values, in order.
19
+ * @returns The text.
20
+ */
21
+ export declare function sprintf(format: string, ...args: PrintfArg[]): string;
22
+ /**
23
+ * %f as glibc prints it: the double's exact binary value rounded to the
24
+ * precision, an exact tie to even. (JavaScript's toFixed rounds a tie up:
25
+ * `%.0f` of 2.5 is 2 in C and 3 in toFixed.)
26
+ *
27
+ * @param n - A non-negative finite double.
28
+ * @param precision - Digits after the point.
29
+ * @returns The digits.
30
+ */
31
+ export declare function fixed_exact(n: number, precision: number): string;