@lewismoten/gamemaker-sandbox-engine 0.0.0-stage → 3.3.0

package/dist/engine/recorder.js

@@ -0,0 +1,127 @@
+import { parseRecording as a, RECLEN as n, serializeRecording as d } from "../formats/recording.js";
+const r = 1, e = 2;
+class u {
+  mode = 0;
+  keys = [];
+  index = 0;
+  timer = 0;
+  lastKeyPress = 0;
+  paused = !1;
+  initRecord() {
+    this.mode = r, this.keys = [], this.restart();
+  }
+  /**
+   * Whether waits for a key count toward playback time. PLAYGAME's GetKey called
+   * DoPlayBack on every poll, so while a "hit any key" screen waited the timer raced
+   * ahead (thousands of polls a second), and a demo recorded in DOS stores those polls
+   * as one huge DeltaTime before the key that dismissed the screen (Nebula's 26058).
+   * Demos recorded here count game ticks only, so for them waits must not count.
+   */
+  countsWaits = !1;
+  initPlayback(s) {
+    return s ? (this.keys = a(s), this.countsWaits = this.keys.some((t) => t.delta > 4096), this.mode = e, this.restart(), !0) : !1;
+  }
+  stop() {
+    this.mode = 0, this.restart();
+  }
+  restart() {
+    this.lastKeyPress = 0, this.index = 0, this.timer = 0, this.paused = !1;
+  }
+  pause() {
+    this.paused = !0;
+  }
+  unpause() {
+    this.paused = !1;
+  }
+  /** Game ticks counted since the recording or playback (re)started; the playback position. */
+  get tick() {
+    return this.timer;
+  }
+  get playing() {
+    return this.mode === e;
+  }
+  /** Paused: play has left the levels (the won/lost pictures and score table follow). */
+  get halted() {
+    return this.paused;
+  }
+  /** DoPlayBack: advance one tick; returns the keys that become pending now. */
+  doPlayback() {
+    const s = [];
+    if (this.paused || (this.timer++, this.mode !== e)) return s;
+    for (; this.index < this.keys.length && this.lastKeyPress + this.keys[this.index].delta <= this.timer; )
+      s.push(this.keys[this.index].key), this.lastKeyPress += this.keys[this.index].delta, this.index++;
+    return s;
+  }
+  /**
+   * GetKey polls while a screen waits for a key: `polls` calls to DoPlayBack at once.
+   * Returns the recorded keys that become pending (only for recordings made in DOS).
+   */
+  advanceWait(s) {
+    const t = [];
+    if (this.paused || this.mode !== e || !this.countsWaits) return t;
+    for (this.timer += s; this.index < this.keys.length && this.lastKeyPress + this.keys[this.index].delta <= this.timer; )
+      t.push(this.keys[this.index].key), this.lastKeyPress += this.keys[this.index].delta, this.index++;
+    return t;
+  }
+  /**
+   * One GetKey poll (DoPlayBack) by a key screen in a tick-counted recording, where waits
+   * otherwise don't count (advanceWait): the keys a demo gave that screen one tick after
+   * its opening key (DropBloc's Enter) become pending. Recordings made in DOS count their waits.
+   */
+  pollOnce() {
+    return this.paused || this.mode !== e || this.countsWaits ? [] : this.advanceByTick();
+  }
+  advanceByTick() {
+    const s = [];
+    for (this.timer++; this.index < this.keys.length && this.lastKeyPress + this.keys[this.index].delta <= this.timer; )
+      s.push(this.keys[this.index].key), this.lastKeyPress += this.keys[this.index].delta, this.index++;
+    return s;
+  }
+  /**
+   * A screen that read keys has finished. In DOS the next key may have come during it
+   * (the recording shows a gap of many thousands of polls), however fast that PC polled;
+   * catch up to it, and to keys a poll or two behind it (taken by the keyboard flush that
+   * follows every screen), so gameplay resumes in step. Only for DOS recordings.
+   */
+  finishWait() {
+    const s = [];
+    if (this.paused || this.mode !== e || !this.countsWaits) return s;
+    const t = this.keys[this.index];
+    if (!t || t.delta <= 1e3) return s;
+    for (this.timer = Math.max(this.timer, this.lastKeyPress + t.delta); this.index < this.keys.length; ) {
+      const i = this.keys[this.index], h = this.lastKeyPress + i.delta <= this.timer;
+      if (!h && i.delta > 2) break;
+      h || (this.timer = this.lastKeyPress + i.delta), s.push(i.key), this.lastKeyPress += i.delta, this.index++;
+    }
+    return s;
+  }
+  /**
+   * DoRecord: called when a key is actually applied to the character (keys held back
+   * while a sequence can't be interrupted are recorded on the tick they take effect).
+   * DeltaTime is a 16-bit uint in the C, and at most RECLEN keys are kept.
+   */
+  doRecord(s) {
+    this.paused || this.mode !== r || this.index >= n || (this.keys[this.index] = { key: s, delta: this.timer - this.lastKeyPress & 65535 }, this.lastKeyPress = this.timer, this.index++);
+  }
+  /** The recording so far, in .rec format. */
+  save() {
+    return d(this.keys.slice(0, this.index));
+  }
+  /** For save games (the C wrote the Recording object and its keys into the .sav). */
+  snapshot() {
+    return {
+      mode: this.mode,
+      keys: this.keys.slice(0, Math.max(this.index, this.keys.length)),
+      index: this.index,
+      timer: this.timer,
+      lastKeyPress: this.lastKeyPress
+    };
+  }
+  restore(s) {
+    Object.assign(this, { mode: s.mode, keys: s.keys, index: s.index, timer: s.timer, lastKeyPress: s.lastKeyPress, paused: !1 });
+  }
+}
+export {
+  r as RECORD,
+  u as Recorder
+};

package/dist/engine/render.js

@@ -0,0 +1,45 @@
+import { currentFrame as S } from "./character.js";
+import { monPicNum as a } from "./monsters.js";
+import { inScreenBounds as d } from "./touch.js";
+import { SCRNBWID as y, SCRNBLEN as b, shownBlock as B, mapBlock as L, MAXMONSSHOWN as N, OFFSCRN as f } from "./world.js";
+import { LASTMON as M, LASTSL as P } from "../formats/monster.js";
+import { MLEN as h, MWID as k, LASTMM as I } from "../formats/map.js";
+import { BLEN as p, MONBL as A, CHARBL as e } from "../formats/blocks.js";
+const C = 312, D = 196;
+function V(s) {
+  const { ci: o } = s;
+  o.update = !1, o.scrx > f && (o.oldx = o.scrx, o.oldy = o.scry, o.topthere = o.curtop < e, o.bottomthere = o.curbottom < e);
+}
+function _(s, o) {
+  const l = o.scroll.littleShiftx, n = o.scroll.littleShifty, x = o.scroll.nx + l, u = o.scroll.ny + n;
+  for (let t = 0; t <= y; t++)
+    for (let c = 0; c <= b; c++) {
+      const r = (o.mx + c) % h, m = (o.my + t) % k;
+      s.drawBlock(c * p - x, t * p - u, B(o, L(o, r, m)).pixels);
+    }
+  if (!o.noMons) {
+    let t = 0;
+    for (let c = 0; c < I && t < N; c++) {
+      const r = o.mi[c];
+      if (o.mm[c].monnum >= M || r.curPic < 0 || r.curPic >= P) continue;
+      const m = a(o, c);
+      if (!d(r.scrPos) || m >= A) {
+        r.picDrawn = !1;
+        continue;
+      }
+      t++, r.picDrawn = !0, r.oldPos = { ...r.scrPos }, s.drawSprite(r.scrPos.x - l, r.scrPos.y - n, r.orient, o.mblk[m].pixels);
+    }
+  }
+  const { ci: i } = o;
+  if (i.scrx > f) {
+    const t = S(o).orient;
+    i.curtop < e && s.drawSprite(i.scrx - l, i.scry - p - n, t & 15, o.cblk[i.curtop].pixels), i.curbottom < e && s.drawSprite(i.scrx - l, i.scry - n, t >> 4, o.cblk[i.curbottom].pixels);
+  }
+  s.boxFill(C, 0, 319, 199, 0), s.boxFill(0, D, 319, 199, 0);
+}
+export {
+  D as VISIBLE_H,
+  C as VISIBLE_W,
+  _ as renderWorld,
+  V as updateCharDrawState
+};

package/dist/engine/scene.js

@@ -0,0 +1,324 @@
+import { aboutScreen as ge, statusScreen as he, helpScreen as be, drawLoadHeading as ve, pickSaveSlot as $, drawSaveHeading as xe, pickDropSlot as Se } from "./funcKeys.js";
+import { moveCharGrav as X, handleJoystick as Q, updateCharScreenPos as Me, moveChars as Ce } from "./character.js";
+import { resetKeys as z, simKeyPress as Le } from "./keys.js";
+import { resetMonInfo as Ae, birthMon as we, blockBirthMonsters as Oe, moveAllMonsters as Te } from "./monsters.js";
+import { renderWorld as V, updateCharDrawState as Pe } from "./render.js";
+import { initScroll as Y, changeScroll as Ee, drawScroll as Ne } from "./scroll.js";
+import { showGraphic as Z } from "./showGraphic.js";
+import { playTuning as Ke, STOCK_LOOK as K } from "./playerLook.js";
+import { getTouchBlocks as Be } from "./touch.js";
+import { bgBlock as H, createWorld as qe, padBlocks as I, OFFSCRN as A, SCRNBLEN as ee, SCRNBWID as oe, NEVER as Re, mapBlock as De } from "./world.js";
+import { BACKBL as C, parseBlocks as j, MONBL as F, CHARBL as N } from "../formats/blocks.js";
+import { parseCharacter as Ie, MAXINV as _, MAXSEQ as E } from "../formats/character.js";
+import { parseMonsters as je, LASTMON as Fe } from "../formats/monster.js";
+import { parseMap as Ge, MLEN as te, MWID as ne, LASTMM as U } from "../formats/map.js";
+import { parsePalette as Ue } from "../formats/palette.js";
+import { parseSoundSet as ce, LASTSND as We } from "../formats/sound.js";
+import { MAXSCENELINKS as M, NOSCENE as Ve } from "../formats/game.js";
+import { TICK_RATE as He } from "../audio/cmfPlayer.js";
+import { SlowCpu as _e, tickCost as J, sceneLoadMs as Je, vocStallMs as $e, vocWontFit as Xe, musicHoldMs as Qe, scrollCost as ze } from "./slowPc.js";
+import { songIsrMs as Ye, songLoad as Ze } from "./slowPcMusic.js";
+import { newPlayGain as re, gainAtLoad as eo } from "./playGain.js";
+const G = 2;
+function B(e, r, t) {
+  return e.scenes[r]?.files[t] || void 0;
+}
+function se(e, r, t) {
+  const { m: c, game: o } = e, s = (y) => B(o, r, y), i = [], a = (y) => {
+    const b = s(y);
+    if (!b) return;
+    const T = c.files.get(b);
+    return T || i.push(b), T;
+  }, d = a(0), v = a(1), g = a(2), n = a(3), x = a(4), S = a(5), L = a(6);
+  if (i.length) return i;
+  const u = qe(Ge(v ?? new Uint8Array(0)), { play: () => !1 }, e.rand?.());
+  u.tune = Ke(e.look ?? K), d ? u.palette = Ue(d) : t && (u.palette = t.palette), u.bg = I(g ? j(g, C) : t?.bg.slice(0, C), C), u.mblk = I(x ? j(x, F) : t?.mblk.slice(0, F), F), u.cblk = I(L ? j(L, N) : t?.cblk.slice(0, N), N), u.mon = n ? je(n) : t?.mon ?? [], u.noMons = !s(3) || !s(4);
+  const h = e.onTouched;
+  if (h && (u.onTouched = (y, b, T) => h(r, y, b, T)), u.chr = S ? Ie(S) : t.chr, !u.chr) return [s(5) ?? "character"];
+  const P = s(7), w = P ? c.files.get(P) : void 0, O = s(8);
+  return { world: u, sounds: w ? ce(w) : void 0, song: O ? c.files.get(O) : void 0 };
+}
+const ie = [0, 1, 2, 3, 4, 5, 6, 7], oo = [0, 2, 3, 4, 6, 7];
+function to(e, r, t, c = ie) {
+  const o = [];
+  for (const s of t ? [...c, 8] : c) {
+    const i = B(e.game, r, s);
+    i && o.push(e.m.files.get(i)?.length ?? 0);
+  }
+  return o;
+}
+async function ae(e, r, t) {
+  const c = e.speed.slowPc;
+  if (!c || c.vocOpenMs === void 0 || !c.vocBytesPerMs) {
+    e.sceneLoad && (e.sceneLoad = void 0);
+    return;
+  }
+  const o = to(e, r, e.m.audio.musicEnabled, t), s = Je(c, o);
+  e.sceneLoad = { files: o.length, bytes: o.reduce((i, a) => i + a, 0), ms: s }, s > 0 && (me(e, s), await e.m.sleep(s));
+}
+async function le(e, r) {
+  const { m: t, game: c } = e, o = c.scenes[r]?.files ?? [];
+  await t.need(...o.slice(0, 9));
+  const s = o[7] ? t.files.get(o[7]) : void 0;
+  let i = [];
+  try {
+    i = s ? ce(s).digital.filter((d) => d && d[0] !== " ").map((d) => `${d}.voc`) : [];
+  } catch {
+  }
+  await t.need(...i);
+  const a = (c.scenes[r]?.links ?? []).flatMap((d) => c.scenes[d.toScene]?.files.slice(0, 10) ?? []);
+  t.want(o[10], ...a);
+}
+function no(e, r) {
+  e.vocStall = (e.vocStall ?? 0) + r, me(e, r);
+}
+function me(e, r) {
+  e.m.audio.holdMusic(Qe(e.speed.slowPc, r));
+}
+function fe(e, r, t) {
+  r.sound = {
+    play: (c) => {
+      if (!t || !e.soundOn || c < 0 || c >= We) return !1;
+      const o = t.digital[c];
+      if (!e.speakerOnly && e.m.audio.soundCardEnabled !== !1 && o && o[0] !== " ") {
+        const s = e.m.files.get(`${o}.voc`), i = e.speed.slowPc, a = s ? $e(i, s.length) : 0;
+        !s || !i || !a ? e.m.audio.playVoc(s) : (e.m.audio.stopVoc(), no(e, a), Xe(i, s.length) ? e.vocLate = void 0 : e.vocLate = { bytes: s, wait: (e.vocLate?.wait ?? 0) + a });
+      } else e.m.audio.playSpeaker(t.freqs[c]);
+      return !0;
+    }
+  }, r.joystick = e.joystick;
+}
+function qo(e) {
+  e.timerCounter = 1, e.sndClock = 1;
+  const r = e.ci;
+  r.hitpts = -1, r.lives = -1, r.score = 0, e.gain = re(), r.inv.fill(C + 1), r.meter.fill(-1);
+}
+function co(e, r) {
+  const { ci: t, chr: c } = e;
+  if (t.inv[0] === C + 1) for (let o = 0; o < _; o++) t.inv[o] = c.inv[o];
+  for (let o = 0; o < E; o++)
+    t.seqon[o] = c.sequences[o].bloc === C, t.meter[o] === -2e4 && (t.meter[o] = c.meter[o]);
+  for (let o = 0; o < _; o++) for (let s = 0; s < E; s++) c.sequences[s].bloc === t.inv[o] && (t.seqon[s] = !0);
+  if (t.meter[0] === -1) {
+    for (let o = 0; o < 5; o++) t.meter[o] = c.meter[o];
+    for (let o = 5; o < E; o++) t.meter[o] = c.sequences[o].key > 0 ? c.meter[o] : -2e4;
+    for (let o = E; o < E + 10; o++) t.meter[o] = c.meter[o];
+  }
+  c.x[0] = r.x, c.y[0] = r.y, c.x[1] = 0, c.y[1] = 0, c.cseq = 0, c.cframe = -1, t.hitpts === -1 && (t.hitpts = t.meter[0]), t.lives === -1 && (t.lives = t.meter[1]), t.netx = 5, t.nety = 0, t.gravx = 0, t.gravy = 0, t.scrx = t.oldx = t.nextx = A, t.scry = t.oldy = t.nexty = A, t.topthere = !1, t.bottomthere = !1, t.curtop = N, t.curbottom = N, t.nextAni = e.clock, e.mx = r.x - ee / 2, e.my = r.y - oe / 2, e.mx < 0 && (e.mx += te), e.my < 0 && (e.my += ne);
+  for (let o = 0; o < U; o++)
+    Ae(e.mi[o]), we(e, o, e.mm[o].monnum, e.mm[o].curx, e.mm[o].cury), e.mi[o].fromchar = 0;
+  for (let o = 0; o < C; o++)
+    e.blkmap[o] = o, e.nxtchg[o] = e.bg[o].ntime > 0 ? e.clock + e.bg[o].ntime : Re;
+  if (e.blkMon = [], !e.noMons)
+    for (let o = 0; o < C; o++) e.bg[o].birthTime > 0 && e.blkMon.push({ blnum: o, nexttime: e.clock + e.bg[o].birthTime });
+  z(e), ro(e.keydn, c.sequences[c.cseq].key);
+}
+function ro(e, r) {
+  r >= 0 && r < 128 && (e[r] = 1);
+}
+function so(e) {
+  for (let r = 0; r < C; r++) {
+    const t = e.blkmap[r], c = H(e, t);
+    e.nxtchg[r] <= e.clock && c.nextBl !== t && (e.blkmap[r] = c.nextBl, e.nxtchg[r] = c.ntime <= 0 ? 0 : e.nxtchg[r] + H(e, e.blkmap[r]).ntime);
+  }
+}
+function io(e, r, t) {
+  const c = Be(r), o = e.game.scenes[t].links;
+  for (let s = 0; s < M; s++) {
+    const i = o[s];
+    if (!(!i || i.toScene === Ve)) {
+      for (let a = 0; a < 6; a++)
+        if (i.from.x === c.blks[a][0] && i.from.y === c.blks[a][1])
+          return r.chr.x[0] = i.to.x, r.chr.y[0] = i.to.y, s;
+    }
+  }
+  return M;
+}
+async function ao(e, r) {
+  const { m: t } = e, c = e.look ?? K;
+  t.screen.setPalette(new Uint8Array(768));
+  for (let o = 1; o <= 4; o++) t.screen.setColor(o, ...c.rgb(`color.missing.${o}`));
+  t.screen.clear(), t.screen.box(...c.frame("border.missing.outer"), 4), t.screen.box(...c.frame("border.missing.inner"), 4), t.screen.write(40, 20, 1, c.text("str.missing.title")), r.forEach((o, s) => t.screen.write(32, (9 + s) * 8, 2, o)), t.screen.write(120, 168, 3, c.text("str.missing.anyKey")), await t.pauseTimeKey(c.seconds("timing.missingFiles"));
+}
+async function Ro(e, r, t, c) {
+  const { m: o, game: s } = e, i = e.look ?? K;
+  let a = r, d = t, v = c;
+  o.screen.setPaletteTo(0, 0, 0), await le(e, a);
+  const g = se(e, a, e.lastWorld);
+  if (Array.isArray(g))
+    return await ao(e, g), { ok: !1, link: M + 1 };
+  await ae(e, a, ie);
+  let n = g.world;
+  e.lastWorld = n, n.ci = e.ci, n.clock = e.timerCounter, fe(e, n, g.sounds);
+  let x = g.song;
+  e.musicOn && o.audio.playSong(x), co(n, s.scenes[d]?.links[v]?.to ?? { x: 0, y: 0 }), X(n, !0), Q(n, !0), Y(n, s.scenes[a].scroll), e.colors = n.palette, o.screen.dosCropped = !0, o.screen.sceneNumber = a, V(o.screen, n), await o.fadeTo(n.palette, n.tune.fadeSteps), o.keyboard.attach();
+  const L = new Set(n.chr.sequences.map((l) => l.key >> 8).filter((l) => l));
+  o.keyboard.chordable = (l) => L.has(l), o.flushKeys();
+  let u = 0, h = M, P = !1, w = e.timerCounter;
+  const O = 1e3 / He, y = new _e(O);
+  let b;
+  const T = (l) => ((!b || b.song !== l) && (b = { song: l, load: Ze(l) }), b.load), ue = () => {
+    let l = 0;
+    for (let p = 0; p < U && l < 50; p++) n.mm[p].monnum < Fe && n.mi[p].scrPos.x !== A && l++;
+    return l;
+  }, R = new Uint8Array(n.blkmap.length), pe = () => {
+    let l = 0;
+    for (let p = 0; p < oe; p++)
+      for (let m = 0; m < ee; m++) {
+        const k = De(n, (n.mx + m) % te, (n.my + p) % ne);
+        k < R.length && n.blkmap[k] !== R[k] && l++;
+      }
+    return l;
+  };
+  let D = o.now(), q = 0;
+  const W = () => {
+    D = o.now(), q = 0;
+  }, ke = async () => {
+    n.clock = w = e.timerCounter, n.noMons || (Oe(n), Te(n)), o.keyboard.typed.length = 0;
+    const l = o.keyboard.events.splice(0);
+    for (const m of e.rec.doPlayback()) l.push(m);
+    if (l.length && (!n.chr.sequences[n.chr.cseq].ground || n.chr.cframe === 0)) {
+      for (const m of l)
+        e.rec.doRecord(m), Le(n, m);
+      for (const m of l) (m === 1 || m >= 59 && m <= 68) && (n.keydn[m] = 1);
+    } else l.length && o.keyboard.events.unshift(...l);
+    let p = 0;
+    do
+      await Ce(n, async () => {
+        const m = await Se(o, n, i);
+        return o.flushKeys(), n.keydn.fill(0), W(), m;
+      }) && (u = G);
+    while (n.chr.cframe === -1 && u !== G && p++ < 50);
+    so(n), Pe(n), P = Ee(n) !== 0, n.monsolid = 0, n.mmSolid = U, h = io(e, n, a);
+  }, ye = async (l) => {
+    const p = e.sndClock;
+    o.audio.stopSpeaker(), o.screen.dosCropped = !1, o.screen.clear(), n.keydn.fill(0), o.flushKeys();
+    const m = n.palette;
+    switch (o.screen.setPalette(m), i.fkeyOn(l) ? l : 0) {
+      case 1:
+        await be(o, n, B(s, 0, 6), e.gmHelp, i);
+        break;
+      case 2:
+        await he(o, n, i);
+        break;
+      case 5:
+        await mo(e, n, { prevscene: d, doscene: a, linkin: v });
+        break;
+      case 6: {
+        const f = await uo(e, n);
+        f && ({ w: n, prevscene: d, doscene: a, linkin: v, song: x } = { ...f, song: f.song });
+        break;
+      }
+      case 9:
+        o.screen.write(40, 80, i.color(m, "color.select.joyText"), "Joysticks are configured by"), o.screen.write(40, 88, i.color(m, "color.select.joyText"), "your browser (Gamepad API)."), await o.pauseTimeKey(5);
+        break;
+      case 10:
+        await ge(o, n, i);
+        break;
+    }
+    const k = e.sndClock >> 3;
+    for (const f of n.mi)
+      f.nextAni = k, f.nextMove = k, f.scrPos = { x: A, y: A }, f.oldPos = { x: A, y: A }, f.picDrawn = !1;
+    n.scroll.nx = n.scroll.ny = 0, n.scroll.movx = n.scroll.movy = 0, z(n), n.chr.cseq = 0, n.chr.cframe = 0, n.ci.topthere = n.ci.bottomthere = !1, Me(n), n.ci.scrx = n.ci.nextx, n.ci.scry = n.ci.nexty, o.screen.setPalette(n.palette), e.colors = n.palette, l !== 6 && (e.sndClock = p), e.timerCounter = n.clock = e.sndClock >> 3, w = e.timerCounter, o.flushKeys(), W();
+  };
+  for (; !u && h === M; ) {
+    await o.frame();
+    const l = o.now();
+    q += l - D, D = l;
+    let p = Math.floor(q / O);
+    q -= p * O, p > 40 && (p = 40);
+    for (let m = 0; m < p && !u && h === M; m++) {
+      (e.sndClock & 7) === 0 && e.timerCounter++, e.sndClock++;
+      const k = e.speed.slowPc;
+      if (!k) y.reset();
+      else if (y.spend(Ye(k, e.musicOn && o.audio.musicEnabled ? T(x) : void 0)), y.busy()) continue;
+      if (P) {
+        const f = Ne(n);
+        k && y.spend(ze(k, f));
+      }
+      if (n.keydn[1]) {
+        u = 1;
+        break;
+      }
+      for (let f = 1; f <= 10; f++)
+        n.keydn[58 + f] && (n.keydn[58 + f] = 0, f === 3 ? o.audio.musicEnabled && (e.musicOn = !e.musicOn, e.musicOn ? o.audio.playSong(x) : o.audio.stopSong()) : f === 4 ? e.soundOn = !e.soundOn : f === 8 ? n.jstickOn = !n.jstickOn : f !== 7 && await ye(f));
+      w < e.timerCounter && (k && (y.spend(J(k, ue())), R.set(n.blkmap)), e.vocStall = 0, await ke(), k && k.cellMs && y.spend(J({ ...k, tickMs: 0, monsterMs: 0 }, 0, pe())), k && e.vocStall && y.spend(e.vocStall), e.vocStall = 0);
+    }
+    e.vocLate && (e.vocLate.due ??= l + e.vocLate.wait, l >= e.vocLate.due && (e.m.audio.playVoc(e.vocLate.bytes), e.vocLate = void 0)), o.screen.dosCropped = !0, o.screen.sceneNumber = a, V(o.screen, n), e.onFrame?.(n);
+  }
+  return e.vocLate = void 0, o.audio.stopSong(), o.audio.stopSpeaker(), await o.fadeAllTo(0, 0, 0, n.tune.fadeSteps), o.screen.dosCropped = !1, o.keyboard.detach(), o.keyboard.chordable = void 0, o.keyboard.attach(), n.keydn[1] && (h = M + 1), u === G && (e.rec.playing || e.onLifeLost?.(), e.ci.lives > 0 ? (e.ci.lives--, e.ci.hitpts = -1, h = M) : h = M + 2), { ok: !0, link: h, doscene: a, prevscene: d };
+}
+const de = (e) => `game${e}.sav`;
+function lo(e, r, t, c) {
+  return {
+    version: 1,
+    ...r,
+    sndClock: t,
+    world: {
+      nxtchg: e.nxtchg,
+      ci: e.ci,
+      mx: e.mx,
+      my: e.my,
+      mi: e.mi,
+      mm: e.mm,
+      noMons: e.noMons,
+      blkMon: e.blkMon,
+      blkmap: [...e.blkmap],
+      map: [...e.map],
+      mapMon: [...e.mapMon],
+      chr: { x: e.chr.x, y: e.chr.y, cframe: e.chr.cframe, cseq: e.chr.cseq }
+    },
+    rec: c.snapshot()
+  };
+}
+async function mo(e, r, t) {
+  const { m: c, game: o } = e, s = e.look ?? K;
+  e.rec.pause();
+  const i = B(o, 0, 10), a = new Uint8Array(768);
+  i ? await Z(c, i, { cols: a, pause: 0, gamePalette: r.palette, look: s }) : (a.set(r.palette), xe(c.screen, s, a));
+  const d = await $(c, a, !0, s);
+  d >= 0 && (c.files.set(de(d), new TextEncoder().encode(JSON.stringify(lo(r, t, e.sndClock, e.rec)))), c.screen.write(112, 185, s.color(a, i ? "color.select.saveTextPic" : "color.select.saveText"), s.text("str.save.done")), await c.pauseTimeKey(s.seconds("timing.saveMessage"))), e.rec.unpause();
+}
+function fo(e, r, t) {
+  const c = se(e, t.doscene, r);
+  if (Array.isArray(c)) return;
+  const o = c.world, s = t.world;
+  return Object.assign(o, { nxtchg: s.nxtchg, mx: s.mx, my: s.my, mi: s.mi, mm: s.mm, noMons: s.noMons, blkMon: s.blkMon }), o.blkmap = Uint8Array.from(s.blkmap), o.map = Uint8Array.from(s.map), o.mapMon = Uint8Array.from(s.mapMon), Object.assign(e.ci, s.ci), o.ci = e.ci, Object.assign(o.chr, s.chr), Y(o, e.game.scenes[t.doscene].scroll), e.rec.restore(t.rec), e.sndClock = t.sndClock, o.clock = e.sndClock >> 3, X(o, !0), Q(o, !0), c;
+}
+async function uo(e, r) {
+  const { m: t, game: c } = e, o = e.look ?? K, s = B(c, 0, 9), i = new Uint8Array(768);
+  s ? await Z(t, s, { cols: i, pause: 0, gamePalette: r.palette, look: o }) : (i.set(r.palette), ve(t.screen, o, i));
+  const a = await $(t, i, !1, o);
+  if (a < 0) return;
+  const d = t.files.get(de(a)), v = o.color(i, s ? "color.select.loadTextPic" : "color.select.loadText"), g = o.seconds("timing.loadMessage");
+  if (!d) {
+    t.screen.write(40, 185, v, o.text("str.load.empty")), await t.pauseTimeKey(g);
+    return;
+  }
+  let n;
+  try {
+    n = JSON.parse(new TextDecoder().decode(d));
+  } catch {
+    t.screen.write(40, 185, v, "This saved game is damaged!"), await t.pauseTimeKey(g);
+    return;
+  }
+  await le(e, n.doscene);
+  const x = e.ci.score, S = fo(e, r, n);
+  if (!S) return;
+  eo(e.gain ??= re(), x, e.ci.score);
+  const L = S.world;
+  return fe(e, L, S.sounds), t.screen.write(88, 185, v, o.text("str.load.done")), await ae(e, n.doscene, oo), await t.pauseTimeKey(g), e.musicOn && t.audio.playSong(S.song), { w: L, prevscene: n.prevscene, doscene: n.doscene, linkin: n.linkin, song: S.song };
+}
+export {
+  oo as LOADGAME_SLOTS,
+  so as changeBlocks,
+  se as loadScene,
+  Ro as playScene,
+  fo as restoreSaved,
+  lo as savedState,
+  B as sceneFile,
+  to as sceneReads,
+  ro as setStartKey,
+  qo as startGameInits,
+  co as startSceneInits
+};

package/dist/engine/scroll.js

@@ -0,0 +1,79 @@
+import { updateCharDrawState as v } from "./render.js";
+import { inScreenBounds as g } from "./touch.js";
+import { SIZEX as m, SIZEY as M, i16 as s, sign as c, OFFSCRN as r } from "./world.js";
+import { BLEN as x, SOLLEF as a, SOLRIG as f, SOLTOP as S, SOLBOT as d } from "../formats/blocks.js";
+import { MLEN as p, MWID as u, LASTMM as L } from "../formats/map.js";
+import { LASTMON as O } from "../formats/monster.js";
+function T(i, t) {
+  const o = i.scroll;
+  Object.assign(o, {
+    nx: 0,
+    ny: 0,
+    totalx: 0,
+    totaly: 0,
+    distx: 0,
+    disty: 0,
+    inMotion: 0,
+    movx: 0,
+    movy: 0,
+    littleShiftx: 0,
+    littleShifty: 0,
+    bx: { dscroll: 0, ctr: 0, iters: 0 },
+    by: { dscroll: 0, ctr: 0, iters: 0 }
+  }), o.up = t.down, o.down = t.up, o.left = t.right, o.right = t.left, o.maxX = m / 3, o.minX = -m / 3, o.maxY = 60, o.minY = -60, o.upStop = Math.trunc(-M / 6), o.downStop = Math.trunc(M / 6), o.leftStop = -m / 4, o.rightStop = m / 4;
+}
+function y(i, t, o, n = !1) {
+  let l = s(s(i) * t);
+  return n && (l = s(-l)), s(Math.trunc(l / s(o)));
+}
+function B(i) {
+  const t = i.scroll;
+  t.totalx = t.totaly = 0;
+  const o = i.ci.nextx + x / 2 - m / 2, n = i.ci.nexty + x / 2 - M / 2;
+  return t.distx = o, t.disty = n, t.left === 255 && o > t.maxX && (t.inMotion |= a), t.right === 255 && o < t.minX && (t.inMotion |= f), t.up === 255 && n > t.maxY && (t.inMotion |= S), t.down === 255 && n < t.minY && (t.inMotion |= d), t.inMotion & a && (o < t.leftStop ? t.inMotion &= ~a : t.totalx = y(o - t.leftStop, i.tune.scrollSpeedX, t.maxX - t.leftStop)), t.inMotion & f && (o > t.rightStop ? t.inMotion &= ~f : t.totalx = y(-o + t.rightStop, i.tune.scrollSpeedX, t.rightStop - t.minX, !0)), t.inMotion & S && (n < t.upStop ? t.inMotion &= ~S : t.totaly = y(n - t.upStop, i.tune.scrollSpeedY, t.maxY - t.upStop)), t.inMotion & d && (n > t.downStop ? t.inMotion &= ~d : t.totaly = y(-n + t.downStop, i.tune.scrollSpeedY, t.downStop - t.minY, !0)), t.totalx = Math.max(-28, Math.min(28, t.totalx)), t.totaly = Math.max(-28, Math.min(28, t.totaly)), t.bx = { dscroll: t.totalx, ctr: 0, iters: i.tune.scrollSteps }, t.by = { dscroll: t.totaly, ctr: 0, iters: i.tune.scrollSteps }, t.inMotion;
+}
+function h(i) {
+  let t = 0;
+  const o = Math.abs(i.dscroll);
+  if (o > i.iters) {
+    for (; i.ctr < o; )
+      t += c(i.dscroll), i.ctr += i.iters;
+    i.ctr -= o;
+  } else
+    i.ctr += o, i.ctr >= i.iters && (i.ctr -= i.iters, t += c(i.dscroll));
+  return t;
+}
+function P(i, t) {
+  for (let l = 0; l < L; l++) {
+    if (i.mm[l].monnum >= O) continue;
+    const e = i.mi[l];
+    e.scrPos.x !== r && (e.scrPos.x += t.x, e.scrPos.y += t.y), e.oldPos.x !== r && (e.oldPos.x += t.x, e.oldPos.y += t.y, g(e.oldPos) || (e.oldPos = { x: r, y: r }));
+  }
+  const o = i.ci;
+  let n = !1;
+  return o.nexty - o.oldy === 0 || c(t.y) === c(o.nexty - o.oldy) ? o.scry !== r && (o.scry += t.y) : (n = !0, Math.abs(o.nexty - o.oldy) < 4 && (o.scry += o.nexty - o.oldy + t.y)), o.nextx - o.oldx === 0 || c(t.x) === c(o.nextx - o.oldx) ? o.scrx !== r && (o.scrx += t.x) : (n = !0, Math.abs(o.nextx - o.oldx) < 4 && (o.scrx += o.nextx - o.oldx + t.x)), o.nextx !== r && (o.nextx += t.x, o.nexty += t.y), o.oldx !== r && (o.oldx += t.x, o.oldy += t.y), n;
+}
+function F(i) {
+  const t = i.scroll;
+  t.movx += h(t.bx), t.movy += h(t.by);
+  const o = { x: 0, y: 0 };
+  if (t.movx < 0)
+    for (; t.movx < 0; )
+      o.x += 4, t.movx += 4, t.nx -= 4;
+  else if (t.movx > 0)
+    for (; t.movx > 3; )
+      o.x -= 4, t.movx -= 4, t.nx += 4;
+  if (t.movy < 0)
+    for (; t.movy < 0; )
+      o.y += 4, t.movy += 4, t.ny -= 4;
+  else if (t.movy > 0)
+    for (; t.movy > 3; )
+      o.y -= 4, t.movy -= 4, t.ny += 4;
+  return t.littleShiftx = t.movx & 3, t.littleShifty = t.movy & 3, t.nx >= x && (t.nx -= x, i.mx = (i.mx + 1) % p), t.ny >= x && (t.ny -= x, i.my = (i.my + 1) % u), t.nx < 0 && (t.nx += x, i.mx = (i.mx - 1 + p) % p), t.ny < 0 && (t.ny += x, i.my = (i.my - 1 + u) % u), ((o.x || o.y) && P(i, o) || t.littleShiftx || t.littleShifty) && v(i), (Math.abs(o.x) + Math.abs(o.y)) / 4;
+}
+export {
+  B as changeScroll,
+  y as dosSpeed,
+  F as drawScroll,
+  T as initScroll
+};

package/dist/engine/showGraphic.js

@@ -0,0 +1,107 @@
+import { isGif as d, decodeGif as h } from "../formats/gif.js";
+import { isFli as x, parseFli as y, newFliCanvas as k, applyFliFrame as G } from "../formats/fli.js";
+import { textLines as b, parseBackdrop as p, parseSlideList as T } from "../formats/graphicScripts.js";
+import { matchColor as P, PALETTE_SIZE as F } from "../formats/palette.js";
+import { STOCK_LOOK as u } from "./playerLook.js";
+const S = [63, 10, 10], A = [10, 10, 63], U = [63, 63, 0], D = [50, 10, 50], N = (e, t) => P(e, t[0], t[1], t[2]), w = (e) => (/\.[^.]*$/.exec(e)?.[0] ?? "").toLowerCase();
+async function L(e, t, a) {
+  if (await e.need(t), w(t) === ".bkd") {
+    const s = e.files.get(t);
+    s && await e.need(p(s).gif);
+  }
+  return e.waiting(() => E(e, t, a));
+}
+async function E(e, t, a) {
+  e.audio.stopVoc();
+  const s = w(t);
+  let i = a.pause ?? -1;
+  const o = a.look ?? u, n = a.cols ?? new Uint8Array(F);
+  let c;
+  if (e.onItem?.(s === ".fli" ? "cartoon" : s === ".txt" ? "text" : s === ".lst" ? "slides" : "picture", t), s === ".gif" || s === ".bkd")
+    i === -1 && (i = o.seconds(s === ".gif" ? "timing.showGraphic.gif" : "timing.showGraphic.bkd")), e.screen.setPaletteTo(0, 0, 0), K(e, t, n, s === ".bkd") ? (await e.fadeTo(n, o.num("play.fadeSteps")), c = (await e.pauseTimeKey(i))?.ascii) : e.screen.clear();
+  else if (s === ".fli")
+    i === -1 && (i = o.seconds("timing.showGraphic.fli")), await C(e, t) && (n.set(e.screen.palette), c = (await e.pauseTimeKey(i))?.ascii);
+  else if (s === ".txt") {
+    i === -1 && (i = o.seconds("timing.showGraphic.txt"));
+    const r = a.cols ?? a.gamePalette;
+    return R(e, t, o.color(r, "color.select.textPages"), i, a.gamePalette, e.files.get(t), o);
+  } else if (s === ".lst") {
+    const r = e.files.get(t);
+    if (!r) return !0;
+    for (const l of T(r))
+      if (!await L(e, l.name, { cols: n, pause: l.pause ?? 65535, gamePalette: a.gamePalette, look: o })) return !1;
+  }
+  return c !== 27;
+}
+function K(e, t, a, s = !1) {
+  let i = 0, o = 0, n = t;
+  if (s) {
+    const r = e.files.get(t);
+    if (!r) return !1;
+    const l = p(r);
+    i = l.x, o = l.y, n = l.gif;
+  }
+  const c = e.files.get(n);
+  if (!c || !d(c)) return !1;
+  try {
+    const r = h(c);
+    return e.screen.drawImage(r.pixels, r.width, r.height, i, o), a.set(r.palette), !0;
+  } catch {
+    return !1;
+  }
+}
+function B() {
+  return new Promise((e) => {
+    const t = new MessageChannel();
+    t.port1.onmessage = () => e(), t.port2.postMessage(0);
+  });
+}
+async function C(e, t) {
+  const a = e.files.get(t);
+  if (!a || !x(a)) return !1;
+  const s = y(a), i = k(s);
+  i.palette.set(e.screen.palette), i.pixels.set(e.screen.pixels.subarray(0, Math.min(i.pixels.length, e.screen.pixels.length)));
+  let o = e.now();
+  for (let n = 0; n < s.frameCount; n++) {
+    if (G(s, n, i) && e.screen.setPalette(i.palette), e.screen.drawImage(i.pixels, s.width, s.height), s.speed === 0) {
+      await B(), e.checkAbort();
+      continue;
+    }
+    o += s.speed * 1e3 / 70;
+    do
+      await e.frame();
+    while (e.now() < o);
+  }
+  return !0;
+}
+async function R(e, t, a, s, i, o = e.files.get(t), n = u) {
+  const c = e.screen.snapshot(), r = n.color(i, "color.select.textMissing");
+  e.flushKeys();
+  let l = !1;
+  if (!o)
+    e.screen.write(40, 80, r, n.text("str.text.missingTitle")), e.screen.write(40, 96, r, n.format("str.text.missingFile", t)), e.screen.write(40, 104, r, n.text("str.text.missingTail"));
+  else {
+    let f = 5;
+    for (const g of b(o)) {
+      if (f > 20) {
+        if (e.screen.write(224, 168, r, n.text("str.text.more")), (await e.pauseTimeKey(s))?.ascii === 27) {
+          l = !0;
+          break;
+        }
+        f = 5, e.screen.restore(c);
+      }
+      e.screen.write(40, f * 8, a, g), f++;
+    }
+  }
+  return l || await e.pauseTimeKey(s), e.screen.restore(c), !l;
+}
+export {
+  A as RGB_BLUE,
+  D as RGB_PURPLE,
+  S as RGB_RED,
+  U as RGB_YELLOW,
+  R as displayFile,
+  N as match,
+  C as playFli,
+  L as showGraphic
+};