@lewismoten/gamemaker-sandbox-engine 3.1.0 → 3.3.0

package/dist/engine/character.js

@@ -0,0 +1,187 @@
+import { CHARBL as j, MONBL as J, BLEN as r, SOLRIG as u, SOLLEF as l, SOLTOP as a, SOLBOT as k, BACKBL as y } from "../formats/blocks.js";
+import { MAXFRAME as q, DIESEQ as Q, MAXSEQ as W, INF_REPEAT as N, DROPSEQ as A, IDLESEQ as L, PICKUPSEQ as R, HURTSEQ as z, MAXINV as E } from "../formats/character.js";
+import { popKey as C, chrSeq as B, pushKey as V } from "./keys.js";
+import { charBirthMon as Y } from "./monsters.js";
+import { doSound as F, checkTouch as _, getTouchBlocks as I, checkSeqForTie as U, reallyCheckTouch as Z } from "./touch.js";
+import { JSTICKKEY as M, shownBlock as $, mapBlock as w, bgBlock as G, SCRNBLEN as nn, SCRNBWID as en } from "./world.js";
+import { LASTSND as X } from "../formats/sound.js";
+import { LASTMM as cn, MLEN as h, MWID as g } from "../formats/map.js";
+function O(e) {
+  const { chr: c } = e, t = c.sequences[c.cseq] ?? c.sequences[0];
+  if (c.cframe >= 0 && c.cframe < q) return t.frames[c.cframe];
+  if (c.cframe >= q) return { ...t.frames[q - 1], pic2: j + 1 };
+  const n = c.sequences[c.cseq - 1];
+  if (!n) return { x: 0, y: 0, orient: 0, pic1: 0, pic2: 0, pause: 0, extra: new Uint8Array(5) };
+  const i = n.frames[q - 1].extra, o = (f) => f & 255;
+  return {
+    x: (i[3] | i[4] << 8) << 16 >> 16,
+    y: n.key << 16 >> 16,
+    orient: o(n.sound) | o(n.on) << 8,
+    pic1: o(n.bloc) | o(n.ground) << 8,
+    pic2: o(n.jstkBut) | o(n.jstkMov) << 8,
+    pause: o(n.norepeat) | o(n.momentum) << 8,
+    extra: new Uint8Array(5)
+  };
+}
+function D(e) {
+  const { chr: c } = e;
+  for (; c.x[1] < 0; )
+    c.x[1] += r, c.x[0]--;
+  for (; c.x[1] >= r; )
+    c.x[1] -= r, c.x[0]++;
+  for (; c.y[1] < 0; )
+    c.y[1] += r, c.y[0]--;
+  for (; c.y[1] >= r; )
+    c.y[1] -= r, c.y[0]++;
+}
+function T(e) {
+  const { chr: c } = e;
+  c.x[0] >= h && (c.x[0] -= h), c.x[0] < 0 && (c.x[0] += h), c.y[0] >= g && (c.y[0] -= g), c.y[0] < 0 && (c.y[0] += g);
+}
+function tn(e, c) {
+  const { chr: t } = e, n = (f, v, S) => {
+    const b = f - v, p = b > 0 ? -(S - f + v) : S - v + f;
+    return Math.abs(p) > Math.abs(b) ? b : p;
+  }, i = -n(e.mx, t.x[0], h), o = -n(e.my, t.y[0], g);
+  c.tx < 0 && (i < 2 && t.x[1] <= Math.abs(c.tx) && (c.tx = -t.x[1]), i < 1 && (c.tx = 0)), i > nn - 2 && c.tx > 0 && (c.tx = 0), c.ty < 0 && (o < 2 && t.y[1] <= Math.abs(c.ty) && (c.ty = -t.y[1]), o < 1 && (c.ty = 0)), o > en - 2 && c.ty > 0 && (c.ty = 0);
+}
+const m = (e, c) => G(e, c).solid;
+function on(e, c) {
+  const { chr: t } = e, n = [0, 0, 0, 0], i = c.blks[0][0] !== h ? 0 : 2;
+  return c.blknum[i + 1] !== y && (n[1] |= m(e, c.blknum[i + 1]) & k), n[0] |= m(e, c.blknum[i]) & u, i === 0 && (n[0] |= m(e, c.blknum[2]) & u), c.blknum[4] !== y && (c.blknum[5] !== y && (n[3] |= m(e, c.blknum[5]) & a), n[3] & a || (n[2] |= m(e, c.blknum[4]) & u)), n[0] & u && !(n[2] & u) && t.y[1] > r * 2 / 4 && (t.y[1] = r), !(n[0] & u) && n[2] & u && t.y[1] < r / 2 && (t.y[1] = 0), n[0] & u || n[2] & u ? l : 0;
+}
+function rn(e, c) {
+  const { chr: t } = e, n = [0, 0, 0, 0], i = c.blks[0][0] !== h ? 0 : 2;
+  return c.blknum[i + 1] !== y && (c.blknum[i] !== y && (n[0] |= m(e, c.blknum[i]) & k), n[0] & k || (n[1] |= m(e, c.blknum[i + 1]) & l)), i === 0 && (n[1] |= m(e, c.blknum[3]) & l), c.blknum[5] !== y && (c.blknum[4] !== y && (n[2] |= m(e, c.blknum[4]) & a), n[2] & a || (n[3] |= m(e, c.blknum[5]) & l)), n[1] & l && !(n[3] & l) && t.y[1] > r * 2 / 4 && (t.y[1] = r), !(n[1] & l) && n[3] & l && t.y[1] < r / 2 && (t.y[1] = 0), n[1] & l || n[3] & l ? u : 0;
+}
+function sn(e, c) {
+  const { chr: t } = e, n = [0, 0, 0, 0], i = c.blks[0][0] !== h ? 0 : 2;
+  return c.blknum[i] !== y && (c.blknum[4] !== y && (n[2] |= m(e, c.blknum[4]) & u), n[2] & u || (n[0] |= m(e, c.blknum[i]) & k)), c.blknum[i + 1] !== y && (c.blknum[5] !== y && (n[3] |= m(e, c.blknum[5]) & l), n[3] & l || (n[1] |= m(e, c.blknum[i + 1]) & k)), n[0] & k && !(n[1] & k) && t.x[1] > r * 2 / 4 && (t.x[1] = r), !(n[0] & k) && n[1] & k && t.x[1] < r / 2 && (t.x[1] = 0), n[0] & k || n[1] & k ? a : 0;
+}
+function fn(e, c) {
+  const { chr: t } = e, n = [0, 0, 0, 0], i = c.blks[0][0] !== h ? 0 : 2;
+  return c.blknum[4] !== y && (n[2] |= m(e, c.blknum[4]) & u, c.blknum[i] !== y && (n[0] |= m(e, c.blknum[i]) & u), n[2] & u && n[0] & u || (n[2] |= m(e, c.blknum[4]) & a)), c.blknum[5] !== y && (c.blknum[i + 1] !== y && (n[1] |= m(e, c.blknum[i + 1]) & l), n[3] |= m(e, c.blknum[5]) & l, n[1] & l & n[3] & l || (n[3] |= m(e, c.blknum[5]) & a)), n[2] & a && !(n[3] & a) && t.x[1] > r * 2 / 4 && (t.x[1] = r), !(n[2] & a) && n[3] & a && t.x[1] < r / 2 && (t.x[1] = 0), n[2] & a || n[3] & a ? k : 0;
+}
+function K(e, c, t, n) {
+  let i = 0;
+  return t > 0 && (i = fn(e, n)), t < 0 && (i = sn(e, n)), c > 0 && (i |= rn(e, n)), c < 0 && (i |= on(e, n)), i;
+}
+function H(e) {
+  const { chr: c } = e;
+  let t = c.y[0] + (c.y[1] > r / 2 ? 1 : 0), n = c.x[0] + (c.x[1] > r / 2 ? 1 : 0);
+  return t >= g && (t -= g), n >= h && (n -= h), $(e, w(e, n, t)).grav;
+}
+function P(e, c) {
+  const { ci: t } = e, n = H(e);
+  (e.monsolid & k || c & k) && t.gravy > 0 && (t.gravy = 0), (e.monsolid & a || c & a) && t.gravy < 0 && (t.gravy = 0), (e.monsolid & u || c & u) && t.gravx > 0 && (t.gravx = 0), (e.monsolid & l || c & l) && t.gravx < 0 && (t.gravx = 0), B(e).momentum || (n & k || n & a || (t.gravy = Math.trunc(t.gravy * 5 / 6)), n & l || n & u || (t.gravx = Math.trunc(t.gravx * 5 / 6)));
+}
+function un(e, c = !1) {
+  if (c)
+    return e.gclk = e.clock, !0;
+  if (e.clock < e.gclk + e.tune.gravityTicks) return !1;
+  e.gclk = e.clock;
+  const { ci: t } = e, n = H(e);
+  n & 4 && (t.gravy += 1), n & 1 && (t.gravy -= 1), n & 2 && (t.gravx += 1), n & 8 && (t.gravx -= 1);
+  const i = t.gravx !== 0 || t.gravy !== 0, o = e.tune.gravityCap;
+  return t.gravx = Math.max(-o, Math.min(o, t.gravx)), t.gravy = Math.max(-o, Math.min(o, t.gravy)), i;
+}
+function ln(e, c = !1) {
+  if (c)
+    return e.joyOldTime = e.clock, !1;
+  if (!e.jstickOn || !e.joystick || e.joyOldTime + 1 > e.clock) return !1;
+  e.joyOldTime = e.clock;
+  const t = e.joystick();
+  if (!t) return !1;
+  const { chr: n, ci: i } = e;
+  if (t.pos === 0 && t.buttons === 0)
+    return e.joyOldBut = 0, e.curkey === M && C(e, M), !1;
+  if (n.cseq === Q) return !1;
+  for (let o = 3; o < W; o++) {
+    const f = n.sequences[o];
+    if (f.jstkMov !== 0 && (f.jstkMov === 9 || f.jstkMov === t.pos) && !B(e).ground && i.meter[o] > 0 && i.seqon[o] && (f.jstkBut === 0 || t.buttons === 0 && f.jstkBut === 4 || t.buttons !== e.joyOldBut && f.jstkBut === t.buttons))
+      return e.joyOldBut = t.buttons, n.cseq !== o ? (e.curkey !== M && V(e), e.curkey = M, n.cframe = -1, n.cseq = o, i.nextAni = e.clock, f.sound < X && f.sound >= 0 && F(e, f.sound), !0) : !1;
+  }
+  return !1;
+}
+function mn(e) {
+  const { ci: c } = e;
+  if (c.inv[E - 1] !== y) return !1;
+  let t = 0;
+  for (; t < E && c.inv[t] !== y; ) t++;
+  const n = I(e);
+  for (let i = 0; i < 6; i++)
+    if (!(n.blks[i][0] === h || !G(e, n.blknum[i]).obj) && Z(e, n.blks[i][0], n.blks[i][1], n.blknum[i]) !== 2)
+      return c.inv[t] = n.blknum[i], U(e, n.blknum[i], !0), !0;
+  return !1;
+}
+async function an(e, c) {
+  const { ci: t, chr: n } = e;
+  e.ci.topthere = !1, e.ci.bottomthere = !1;
+  let i = !1;
+  for (; ; ) {
+    const o = await c();
+    if (o < 0) break;
+    if (t.inv[o] !== y) {
+      e.map[n.y[0] * h + n.x[0]] = t.inv[o], U(e, t.inv[o], !1);
+      for (let f = o; f < E - 1; f++) t.inv[f] = t.inv[f + 1];
+      t.inv[E - 1] = y, i = !0;
+      break;
+    }
+  }
+  return e.keydn[n.sequences[A].key >> 8] = 0, i;
+}
+async function qn(e, c) {
+  const { ci: t, chr: n } = e;
+  let i = 0, o = 0, f = !1, v = 0;
+  t.scrx = t.nextx, t.scry = t.nexty;
+  const S = un(e);
+  if (ln(e) && (t.update = !0), e.clock >= t.nextAni) {
+    const b = n.cframe, p = n.cseq;
+    if (n.cframe === -1) {
+      t.meter[n.cseq] < N && n.cseq > 4 && t.meter[n.cseq]--, n.cseq === A && !await an(e, c) && (n.cseq = L, e.keystkptr = 0, e.curkey = 0), n.cseq === R && !mn(e) && (n.cseq = L, e.keystkptr = 0, e.curkey = 0);
+      const s = B(e).sound;
+      s < X && s >= 0 && F(e, s);
+    }
+    let d = 0;
+    do {
+      for (n.cframe === 0 && v++, n.cframe++; (O(e).pic2 === j + 1 || n.cframe >= q) && d++ < 1e3; ) {
+        if (n.cseq === Q)
+          return n.cframe--, !0;
+        const x = B(e);
+        t.meter[n.cseq] <= 0 && n.cseq > 4 || n.cseq === z || n.cseq === A || n.cseq === R || x.norepeat || e.keydn[x.key >> 8] === 0 && e.curkey !== M || v > 1 ? (C(e, e.curkey), v = 0) : (n.cframe = 0, t.meter[n.cseq] < N && n.cseq > 4 && t.meter[n.cseq]--, x.frames[0].pic2 === j + 1 && (n.cseq === L ? x.frames[0].pic2 = 0 : C(e, e.curkey), v = 0));
+      }
+      const s = O(e);
+      t.nextAni = e.clock + s.pause, s.pic2 === J && !e.noMons ? (Y(e, n.x[0], n.y[0] + Math.trunc(s.y / r) - 1, s.pic1), o = 0) : (t.curtop = s.pic1, t.curbottom = s.pic2, B(e).momentum ? (t.gravx += s.x, t.gravy += s.y, (s.x !== 0 || s.y !== 0) && (t.netx = s.x, t.nety = s.y), i = 0, o = 0) : (i = s.x, o = s.y, (i !== 0 || o !== 0) && (f = !0, t.netx = i, t.nety = o)));
+    } while (O(e).pic2 > j && d++ < 1e3);
+    (n.cseq !== p || n.cframe !== b) && (t.update = !0);
+  }
+  if (i += t.gravx, o += t.gravy, f || S || e.monsolid || t.update) {
+    const b = { cx: n.x[1], cy: n.y[1], x: n.x[0], y: n.y[0] }, p = e.tune.maxSpeed, d = { tx: Math.max(-p, Math.min(p, i)), ty: Math.max(-p, Math.min(p, o)) };
+    if (tn(e, d), i = d.tx, o = d.ty, n.x[1] += i, n.y[1] += o, D(e), T(e), _(e), n.x[1] = b.cx, n.y[1] = b.cy, n.x[0] = b.x, n.y[0] = b.y, !e.noMons && e.mmSolid < cn) {
+      const x = e.mi[e.mmSolid];
+      e.monsolid & u && !(e.monsolid & l) && (n.x[1] = x.curx[1], n.x[0] = x.curx[0] - 1, i = 0), e.monsolid & l && !(e.monsolid & u) && (n.x[1] = x.curx[1], n.x[0] = x.curx[0] + 1, i = 0), e.monsolid & a && !(e.monsolid & k) && (n.y[1] = x.cury[1], n.y[0] = x.cury[0] + 1, o = 0), e.monsolid & k && !(e.monsolid & a) && (n.y[1] = x.cury[1], n.y[0] = x.cury[0] - 1, o = 0);
+    }
+    n.x[1] += i, D(e), T(e);
+    let s = K(e, i, 0, I(e));
+    for (P(e, s), s & u && (n.x[1] = 0), s & l && (n.x[0]++, n.x[1] = 0), n.y[1] += o; n.y[1] < 0; )
+      n.y[1] += r, n.y[0]--;
+    for (; n.y[1] >= r; )
+      n.y[1] -= r, n.y[0]++;
+    T(e), s = K(e, 0, o, I(e)), P(e, s), s & k && (n.y[1] = 0), s & a && (n.y[0]++, n.y[1] = 0), yn(e);
+  }
+  return !1;
+}
+function yn(e) {
+  const { chr: c, ci: t } = e;
+  let n = e.mx < c.x[0] ? (c.x[0] - e.mx) * r : (h + (c.x[0] - e.mx)) * r;
+  n += c.x[1], t.nextx = n - e.scroll.nx;
+  let i = e.my < c.y[0] ? (c.y[0] - e.my) * r : (g + (c.y[0] - e.my)) * r;
+  i += c.y[1], t.nexty = i - e.scroll.ny;
+}
+export {
+  O as currentFrame,
+  ln as handleJoystick,
+  un as moveCharGrav,
+  qn as moveChars,
+  yn as updateCharScreenPos
+};

package/dist/engine/funcKeys.js

@@ -0,0 +1,164 @@
+import { gVertMenu as S, gGet as M } from "./menus.js";
+import { STOCK_LOOK as f } from "./playerLook.js";
+import { match as m, displayFile as E, showGraphic as A, RGB_BLUE as T, RGB_YELLOW as K } from "./showGraphic.js";
+import { BLEN as c, BACKBL as h } from "../formats/blocks.js";
+import { INF_REPEAT as B } from "../formats/character.js";
+import "../formats/binary.js";
+const w = "savnames.dat";
+function d(t, e, r, n) {
+  const [o, a, i, s] = r && n ? r.frame(`border.${n}.outer`) : [10, 10, 310, 190], [l, u, p, v] = r && n ? r.frame(`border.${n}.inner`) : [15, 15, 305, 185];
+  t.box(o, a, i, s, e), t.box(l, u, p, v, e);
+}
+function y(t, e, r) {
+  t.box(30, 30, 35 + 5 * (c + 5), 35 + 2 * (c + 5), r);
+  for (let n = 0; n < 2; n++)
+    for (let o = 0; o < 5; o++) {
+      t.box(34 + o * (c + 5), 34 + n * (c + 5), 35 + c + o * (c + 5), 35 + c + n * (c + 5), r);
+      const a = e.ci.inv[5 * n + o];
+      a !== h && e.bg[a] && t.drawBlock(35 + o * (c + 5), 35 + n * (c + 5), e.bg[a].pixels);
+    }
+}
+async function W(t, e, r, n, o = f) {
+  n && (d(t.screen, m(e.palette, T)), await E(t, "gmhelp.txt", m(e.palette, K), 30, e.palette, n)), r ? await A(t, r, { gamePalette: e.palette, look: o }) : (t.screen.write(40, 80, o.color(e.palette, "color.select.helpNone"), o.text("str.help.none")), await t.pauseTimeKey(o.seconds("timing.helpNone")));
+}
+function C(t, e, r) {
+  const n = r.color(e.palette, "color.select.status"), { ci: o } = e;
+  d(t, n, r, "invent"), y(t, e, n), t.write(40, 88, n, r.format("str.invent.score", o.score)), o.meter[3] !== B && t.write(40, 96, n, r.format("str.invent.money", o.meter[3] - 1)), t.write(40, 112, n, r.format("str.invent.hitpoints", o.hitpts)), t.write(40, 120, n, r.format("str.invent.lives", o.lives));
+  const a = e.clock, i = Math.trunc(a / 18) - Math.trunc(a / 1818), s = (Math.trunc(a * 100 / 18) - Math.trunc(a * 100 / 1818)) % 100;
+  t.write(40, 152, n, r.format("str.invent.time", i / 3600, i % 3600 / 60, i % 60, s));
+}
+async function j(t, e, r = f) {
+  C(t.screen, e, r), await t.pauseTimeKey();
+}
+const b = [
+  [
+    "      G A M E - M A K E R",
+    "          Version 3.00   ",
+    "",
+    "Recreational Software Designs",
+    "Box 1163,  Amherst, NH, 03031",
+    "",
+    "This game was made with GAME-",
+    "MAKER.  No programming needed!",
+    "Design your own worlds, mon-  ",
+    "sters, characters, sounds...  ",
+    "",
+    "This web edition runs it with",
+    "HTML canvas and Web Audio.",
+    "",
+    "                      MORE... "
+  ].map((t, e) => [40 + e * 8, t]),
+  ["Game-Maker software, documen-", "tation, and data files are", "COPYRIGHTED by Recreational", "Software Designs."].map((t, e) => [
+    40 + e * 8,
+    t
+  ])
+];
+function x(t, e) {
+  const r = t.about?.pages ?? b, n = [...r[e] ?? []], o = t.about?.origin;
+  if (o && e === r.length - 1) {
+    const a = Math.max(...n.map(([i]) => i), 32) + 16;
+    o.forEach((i, s) => n.push([Math.min(a, 184 - 8 * o.length) + s * 8, i]));
+  }
+  return n;
+}
+const L = (t) => (t.about?.pages ?? b).length;
+function N(t, e, r, n = 0) {
+  const o = r.color(e, "color.select.aboutFrame"), a = r.color(e, "color.select.aboutText");
+  d(t, o, r, "about");
+  for (const [i, s] of x(r, n)) t.write(40, i, a, s);
+  return a;
+}
+async function Y(t, e, r = f) {
+  const n = N(t.screen, e.palette, r);
+  t.flushKeys(), await t.pauseTimeKey(r.seconds("timing.aboutPage1"));
+  for (let o = 1; o < L(r); o++) {
+    t.screen.boxFill(16, 16, 304, 184, 0);
+    for (const [a, i] of x(r, o)) t.screen.write(40, a, n, i);
+    await t.pauseTimeKey();
+  }
+}
+function R(t, e, r, n = 0, o = 0) {
+  const a = r.color(e.palette, "color.select.dropCursor"), i = r.color(e.palette, "color.select.dropFrame");
+  return t.clear(), d(t, i, r, "drop"), y(t, e, i), t.write(40, 104, i, r.text("str.drop.title")), t.write(40, 120, i, r.text("str.drop.help1")), t.write(40, 128, i, r.text("str.drop.help2")), t.write(40, 136, i, r.text("str.drop.help3")), g(t, n, o, a), a;
+}
+const g = (t, e, r, n) => t.box(33 + e * (c + 5), 33 + r * (c + 5), 36 + c + e * (c + 5), 36 + c + r * (c + 5), n);
+function $(t, e, r = f) {
+  return t.waiting(() => G(t, e, r));
+}
+async function G(t, e, r) {
+  const n = R(t.screen, e, r);
+  let o = 0, a = 0;
+  const i = (s) => g(t.screen, o, a, s);
+  for (t.flushKeys(); ; ) {
+    for (const l of t.keyPollOnce?.() ?? []) t.keyboard.feed(l);
+    const s = t.keyboard.readKey();
+    if (t.takeClick()) {
+      const l = Math.floor((t.pointer.x - 34) / (c + 5)), u = Math.floor((t.pointer.y - 34) / (c + 5));
+      if (l >= 0 && l < 5 && u >= 0 && u < 2 && (i(0), [o, a] = [l, u], i(n), e.ci.inv[a * 5 + o] !== h))
+        return a * 5 + o;
+    }
+    if (!s) {
+      await t.frame();
+      continue;
+    }
+    if (s.ascii === 27) return -1;
+    if (s.ascii === 13) {
+      if (e.ci.inv[a * 5 + o] !== h) return a * 5 + o;
+      continue;
+    }
+    i(0), (s.scan === 72 || s.scan === 80) && (a ^= 1), s.scan === 75 && (o = (o + 4) % 5), s.scan === 77 && (o = (o + 1) % 5), i(n);
+  }
+}
+function O(t) {
+  const e = t.files.get(w), r = [];
+  for (let n = 0; n < 10; n++) {
+    let o = "";
+    for (let a = 0; a < 21; a++) {
+      const i = e?.[n * 21 + a] ?? 0;
+      if (!i) break;
+      o += String.fromCharCode(i);
+    }
+    r.push(o);
+  }
+  return r;
+}
+function D(t, e) {
+  const r = new Uint8Array(210);
+  e.forEach((n, o) => {
+    for (let a = 0; a < Math.min(20, n.length); a++) r[o * 21 + a] = n.charCodeAt(a) & 255;
+  }), t.files.set(w, r);
+}
+function q(t, e, r) {
+  t.write(e.num("layout.load.title.x"), e.num("layout.load.title.y"), e.color(r, "color.select.loadText"), e.text("str.load.title"));
+}
+function z(t, e, r) {
+  const n = e.color(r, "color.select.saveText");
+  t.write(e.num("layout.save.title.x"), e.num("layout.save.title.y"), n, e.text("str.save.title"));
+  for (let o = 0; o < 10; o++) t.write(73, 40 + o * 14, n, e.text("str.save.marker"));
+}
+function P(t, e, r, n, o) {
+  const a = e.color(r, o ? "color.select.saveSlots" : "color.select.loadSlots");
+  return n.forEach((i, s) => t.write(80, 40 + s * 14, a, i)), a;
+}
+async function J(t, e, r, n = f) {
+  const o = O(t), a = P(t.screen, n, e, o, r), i = n.color(e, r ? "color.select.saveMarker" : "color.select.loadMarker"), s = await S(t, 60, 35, 14, 10, i, 1 / 0, 1, !0, n.num("border.marker.width"));
+  if (!s || s > 10) return -1;
+  const l = s - 1;
+  if (!r) return l;
+  const u = t.screen.getCol(79, 40 + l * 14), p = await M(t, 80, 40 + l * 14, a, u, o[l], 20);
+  return p === null ? -1 : (o[l] = p, D(t, o), l);
+}
+export {
+  L as aboutPages,
+  Y as aboutScreen,
+  N as drawAbout,
+  R as drawDropPicker,
+  q as drawLoadHeading,
+  z as drawSaveHeading,
+  P as drawSaveSlots,
+  C as drawStatus,
+  W as helpScreen,
+  $ as pickDropSlot,
+  J as pickSaveSlot,
+  j as statusScreen
+};

package/dist/engine/game.js

@@ -0,0 +1,133 @@
+import { Recorder as P } from "./recorder.js";
+import { startGameInits as E, playScene as N, sceneFile as h } from "./scene.js";
+import { checkHighScores as v, showHighScores as S, drawDefaultScreen as L, drawMenu as T, menuMarker as x, gVertMenu as C, drawNoFile as m } from "./menus.js";
+import { showGraphic as g } from "./showGraphic.js";
+import { STOCK_LOOK as O, playerLook as K } from "./playerLook.js";
+import { newCharInfo as M } from "./world.js";
+import { parseGame as A, MAXSCENELINKS as p } from "../formats/game.js";
+import { MLEN as F, MWID as G } from "../formats/map.js";
+import { PALETTE_SIZE as I } from "../formats/palette.js";
+import { gainAtEnd as H, newPlayGain as R } from "./playGain.js";
+function D(e) {
+  return e.replace(/\.[^.]*$/, "").toLowerCase();
+}
+function W(e, u) {
+  const a = e.files.get(u);
+  if (!a) throw new Error(`Missing ${u}`);
+  return A(a);
+}
+async function B(e, u, a = {}) {
+  const d = W(e, u);
+  a.noSoundCard && (e.audio.musicEnabled = !1);
+  const o = {
+    m: e,
+    game: d,
+    gameName: D(u),
+    ci: M(),
+    colors: new Uint8Array(I),
+    rec: new P(),
+    sndClock: 1,
+    timerCounter: 1,
+    soundOn: !0,
+    musicOn: e.audio.musicEnabled,
+    speakerOnly: !!a.speakerOnly || !!a.noSoundCard,
+    joystick: a.joystick,
+    onFrame: a.onFrame,
+    speed: a.speed ?? {},
+    onPlayEnd: a.onPlayEnd,
+    onLifeLost: a.onLifeLost,
+    gmHelp: a.gmHelp,
+    look: K(a.player, a.playerAbout)
+  }, t = o.look, l = a.onTouched;
+  l && (o.onTouched = (n, c, f, b) => {
+    !o.rec.playing && l(n, c, f, b);
+  }), e.keyboard.attach(), e.keyPoll = (n) => o.rec.advanceWait(n), e.keyPollEnd = () => o.rec.finishWait(), e.keyPollOnce = () => o.rec.pollOnce(), a.onSession?.(o);
+  const i = (n, c) => h(d, n, c), r = (n, c, f) => g(e, n, { cols: c, pause: f, gamePalette: o.colors, look: t });
+  if (a.skipTitle)
+    e.want(i(0, 2), i(0, 3)), o.rec.initRecord(), await k(o, 0);
+  else {
+    if (e.want(i(0, 0), i(0, 2), i(0, 3)), await e.need(i(0, 1)), await e.audio.playSong(e.files.get(i(0, 1) ?? "")), i(0, 0) && await r(i(0, 0)), a.playback && o.rec.initPlayback(a.playback)) {
+      e.audio.stopSong(), await k(o, 0);
+      return;
+    }
+    if (a.record) {
+      e.audio.stopSong(), o.rec.initRecord(), await k(o, 0);
+      return;
+    }
+  }
+  const y = async () => {
+    await e.need(i(0, 3)), await e.audio.playSong(e.files.get(i(0, 3) ?? ""));
+  };
+  await y();
+  let w = 1, s;
+  for (; ; ) {
+    s ? (e.screen.restore(s.pixels), e.screen.setPalette(s.palette), o.colors = s.palette.slice()) : (i(0, 2) ? await r(i(0, 2), o.colors, 0) : L(e, o.colors), s = { pixels: e.screen.snapshot(), palette: e.screen.palette.slice() });
+    const n = () => s && e.screen.restore(s.pixels), c = T(e.screen, t, o.colors, d.scenes[0].desc), f = x(t);
+    switch (w = await C(e, f.x, f.y, f.dy, 6, c, f.idle, w, !1, f.width), w) {
+      case 1:
+        s = void 0, e.audio.stopSong(), o.rec.initRecord(), await k(o, 0), await y();
+        break;
+      case 2:
+        n(), i(0, 6) ? await r(i(0, 6)) : (m(e.screen, t, o.colors, "noInstructions"), await e.pauseTimeKey(t.seconds("timing.menuNoFile")));
+        break;
+      case 3:
+        n(), await e.need(i(0, 5)), await e.audio.playSong(e.files.get(i(0, 5) ?? "")), i(0, 4) ? await r(i(0, 4)) : (m(e.screen, t, o.colors, "noStoryline"), await e.pauseTimeKey(t.seconds("timing.menuNoFile")));
+        break;
+      case 4:
+        n(), i(0, 7) ? await r(i(0, 7)) : (m(e.screen, t, o.colors, "noCredits"), await e.pauseTimeKey(t.seconds("timing.menuNoFile")));
+        break;
+      case 5:
+        i(0, 8) ? await r(i(0, 8), o.colors, 0) : n(), await S(e, o.gameName, o.colors, -1, t);
+        break;
+      case 7:
+        await e.need(i(0, 11)), i(0, 11) && o.rec.initPlayback(e.files.get(i(0, 11))) && (s = void 0, e.audio.stopSong(), await k(o, 0), await y()), w = 1;
+        break;
+      default:
+        if (e.audio.stopSong(), a.onQuit && await a.onQuit()) {
+          w = 1, s = void 0, await y();
+          break;
+        }
+        return;
+    }
+  }
+}
+async function k(e, u) {
+  const { m: a, game: d } = e, o = e.look ?? O, t = (n, c) => h(d, n, c);
+  let l = u, i = 0;
+  E(e);
+  let r = d.scenes[0].links[l]?.toScene ?? 65535;
+  const y = d.scenes[r], w = d.scenes[0].links[l];
+  if (y && w)
+    for (const n of y.links)
+      n.toScene === 1 && n.from.x === w.from.x && n.from.y === w.from.y && (a.screen.setPalette(new Uint8Array(768).fill(63)), a.screen.setColor(0, 0, 0, 30), a.screen.clear(0), [
+        "Although you correctly drew",
+        "links between scenes, the",
+        'character starts on the "game',
+        'won" link, so the game would be',
+        "won before it starts. The link",
+        "is moved for now; fix it in the",
+        "integrator."
+      ].forEach((c, f) => a.screen.write(32, 40 + f * 10, 15, c)), await a.pauseTimeKey(120), n.from.x = (n.from.x + 10) % F, n.from.y = (n.from.y + 10) % G);
+  for (a.screen.clear(), e.rec.restart(); r < d.scenes.length && r !== 1; ) {
+    e.onScene?.(r), t(r, 9) && await g(a, t(r, 9), { gamePalette: e.colors, look: o });
+    const n = l, c = await N(e, r, i, l);
+    if (!c.ok || (c.doscene !== void 0 && (r = c.doscene), c.prevscene !== void 0 && (i = c.prevscene), l = c.link, a.flushKeys(), l > p)) break;
+    l !== p ? (t(r, 10) && await g(a, t(r, 10), { gamePalette: e.colors, look: o }), i = r, r = d.scenes[i].links[l].toScene) : l = n;
+  }
+  e.rec.pause(), r === 1 && (e.onScene?.(1), await a.need(t(1, 1)), await a.audio.playSong(a.files.get(t(1, 1) ?? "")), t(1, 0) && await g(a, t(1, 0), { gamePalette: e.colors, look: o })), l === p + 2 && (await a.need(t(1, 3)), await a.audio.playSong(a.files.get(t(1, 3) ?? "")), t(1, 2) && await g(a, t(1, 2), { gamePalette: e.colors, look: o })), a.screen.clear(), a.screen.setPalette(e.colors), a.flushKeys();
+  let s = e.ci.score;
+  if (e.rec.playing)
+    s = -1;
+  else {
+    e.onPlayEnd?.(s, r === 1 ? "won" : l === p + 2 ? "lost" : "quit", H(e.gain ?? R(), s));
+    const n = await v(a, e.gameName, e.colors, s, o);
+    n && a.files.set(`data${n}.rec`, e.rec.save());
+  }
+  t(0, 8) ? await g(a, t(0, 8), { cols: e.colors, pause: 0, gamePalette: e.colors, look: o }) : a.screen.clear(), await S(a, e.gameName, e.colors, s, o), a.audio.stopSong(), e.rec.stop();
+}
+export {
+  D as gameNameOf,
+  W as loadGameFile,
+  k as play,
+  B as runGame
+};

package/dist/engine/keys.js

@@ -0,0 +1,68 @@
+import { IDLESEQ as c, MAXSEQ as a, DIESEQ as o } from "../formats/character.js";
+import { MAXKEYS as n } from "./world.js";
+function y(e) {
+  return e.chr.sequences[e.chr.cseq] ?? e.chr.sequences[0];
+}
+function u(e) {
+  const k = y(e);
+  return k.frames[Math.max(0, Math.min(k.frames.length - 1, e.chr.cframe))];
+}
+function m(e, k) {
+  const { chr: r, ci: s } = e;
+  if (k < 128) {
+    if (e.keydn[k] === 0) {
+      for (let t = 0; t < a; t++)
+        if (r.sequences[t].key >> 8 === k && r.cseq !== o && !y(e).ground && s.meter[t] > 0 && s.seqon[t] && e.keystkptr < n) {
+          e.keystack[e.keystkptr] = { key: e.curkey, seq: r.cseq, frame: r.cframe }, e.keystkptr++, e.keystkptr >= n && f(e), r.cseq = t, r.cframe = -1, s.nextAni = e.clock, e.curkey = k;
+          break;
+        }
+      e.keydn[k] = 1;
+    }
+    return;
+  }
+  if (k &= 127, e.keydn[k] !== 0) {
+    e.keydn[k] = 0;
+    for (let t = 0; t < e.keystkptr; t++) e.keystack[t].key === k && (e.keystack[t].key = 255);
+    if (k === e.curkey && e.keystkptr > 0 && !y(e).ground) {
+      for (; e.keystkptr > 0 && e.keystack[e.keystkptr - 1].key === 255; ) e.keystkptr--;
+      const t = e.keystack[Math.max(0, e.keystkptr - 1)];
+      e.curkey = t.key, r.cseq = t.seq, r.cframe = t.frame, s.update = !0, s.nextAni = e.clock, e.keystkptr = Math.max(0, e.keystkptr - 1);
+    }
+    r.cseq === c && (r.cframe = 0);
+  }
+}
+function f(e) {
+  let k = 0;
+  for (let r = 0; r < e.keystkptr; r++)
+    e.keystack[r].key !== 255 && (e.keystack[k++] = { ...e.keystack[r] });
+  e.keystkptr = k;
+}
+function h(e) {
+  e.keystkptr >= e.keystack.length && f(e), e.keystkptr >= e.keystack.length && (e.keystkptr = e.keystack.length - 1), e.keystack[e.keystkptr] = { key: e.curkey, seq: e.chr.cseq, frame: e.chr.cframe }, e.keystkptr++;
+}
+function q(e, k) {
+  const { chr: r, ci: s } = e;
+  for (let t = 0; t < e.keystkptr; t++) e.keystack[t].key === k && (e.keystack[t].key = 255);
+  for (; e.keystkptr > 0 && e.keystack[e.keystkptr - 1].key === 255; ) e.keystkptr--;
+  if (e.keystkptr === 0)
+    e.curkey = 0, r.cseq = c, r.cframe = 0;
+  else {
+    const t = e.keystack[e.keystkptr - 1];
+    e.curkey = t.key, r.cseq = t.seq, r.cframe = t.frame, e.keystkptr--, r.cseq === c && (r.cframe = 0);
+  }
+  s.update = !0, s.nextAni = e.clock;
+}
+function l(e) {
+  e.keydn.fill(0);
+  for (const k of e.keystack)
+    k.seq = 0, k.frame = 0, k.key = 255;
+  e.keystkptr = 0, e.curkey = 0;
+}
+export {
+  u as chrFrame,
+  y as chrSeq,
+  q as popKey,
+  h as pushKey,
+  l as resetKeys,
+  m as simKeyPress
+};