@fruit-pie/quicksave 0.1.0

package/README.md

@@ -0,0 +1,8 @@
+# Quicksave
+
+Extra save you can place wherever you want (on the ground) between 2 actual saves for accessibility purposes.
+
+## Keys
+
+- **X** to place a quicksave (you must be on the ground and have used an actual save at least once)
+- **C** to remove a quicksave if you changed your mind

package/dist/index.js

@@ -0,0 +1,1184 @@
+//#region node_modules/@fruit-pie/sdk/dist/index.js
+var e = function(e) {
+	let { manifest: t, hostApi: n, prefix: r, objects: i, internalReceive: a, internalCreate: o, normalizeEventName: s, context: c, queue: l, scratch: u } = e, d = /* @__PURE__ */ new Map();
+	for (let e of i) for (let n of Object.keys(e.receive ?? {})) {
+		let r = s(n), i = d.get(r);
+		if (i) throw Error(`mod ${t.id}: both ${i} and ${e.name} receive ${JSON.stringify(r)}. They would race for each message; give it to one of them.`);
+		d.set(r, e.name);
+	}
+	for (let e of Object.keys(a)) d.set(e, `${r}inbox`);
+	let f = (e, t) => `while (ds_list_size(${l(e)}) > 0) {
+    ${u("pl")} = ds_list_find_value(${l(e)}, 0);
+    ds_list_delete(${l(e)}, 0);
+    ${t}
+  }`;
+	if (d.size > 0) {
+		let e = [...d.keys()], t = e.map((e, t) => `${t === 0 ? "if" : "else if"} (${u("ev")} == "${e}") ds_list_add(${l(e)}, ${u("pl")});`).join("\n"), i = Object.entries(a).map(([e, t]) => f(e, t)).join("\n");
+		n.resource.create({
+			kind: "object",
+			name: `${r}inbox`,
+			persistent: !0,
+			visible: !1,
+			depth: 0,
+			events: {
+				create: e.map((e) => `${l(e)} = ds_list_create();`).join("\n") + o,
+				step: i || void 0,
+				beginStep: `${n.gml.receive(u("m"))}
+while (${u("m")} != "") {
+  ${u("at")} = string_pos(" ", ${u("m")});
+  if (${u("at")} > 1) {
+    ${u("ev")} = string_copy(${u("m")}, 1, ${u("at")} - 1);
+    ${u("pl")} = string_delete(${u("m")}, 1, ${u("at")});
+    ${t}
+  }
+  ${n.gml.receive(u("m"))}
+}`
+			}
+		});
+	}
+	for (let e of i) {
+		let t = (t) => t?.(c(e)), i = [Object.entries(e.receive ?? {}).map(([t, n]) => f(s(t), n({
+			...c(e),
+			payload: u("pl")
+		}))).join("\n"), t(e.events?.step)].filter(Boolean).join("\n"), a = {};
+		for (let [n, r] of [
+			["create", t(e.events?.create)],
+			["beginStep", t(e.events?.beginStep)],
+			["step", i || void 0],
+			["endStep", t(e.events?.endStep)],
+			["draw", t(e.events?.draw)],
+			["destroy", t(e.events?.destroy)]
+		]) r && (a[n] = r);
+		n.resource.create({
+			kind: "object",
+			name: `${r}o_${e.name}`,
+			depth: e.depth,
+			persistent: e.persistent,
+			visible: e.visible,
+			events: a
+		});
+	}
+}, t = function(e) {
+	let t = -1, n = (e) => {
+		switch (e.k) {
+			case "arg":
+				e.index !== null && e.index < 16 && (t = Math.max(t, e.index));
+				break;
+			case "field":
+				n(e.of);
+				break;
+			case "index":
+				n(e.of), e.at.forEach(n);
+				break;
+			case "op":
+				e.args.forEach(n);
+				break;
+			case "call": e.args.forEach(n);
+		}
+	}, r = (e) => {
+		for (let t of e) t.k === "assign" ? (n(t.target), n(t.value)) : t.k === "call" ? n(t.call) : t.k === "if" ? (n(t.cond), r(t.then), r(t.else)) : t.k === "with" ? (n(t.target), r(t.body)) : t.k === "loop" ? r(t.body) : t.k === "switch" ? (n(t.value), t.bodies.forEach(r)) : t.k === "exit" && t.value && n(t.value);
+	};
+	return r(e), t;
+}, n = /^[A-Za-z][A-Za-z0-9_-]*$/u, r = /^[A-Za-z][A-Za-z0-9_]*$/u, i = /^[A-Za-z0-9_.-]+$/u, a = (e) => {
+	let t = "";
+	for (let n = 0; n < e.length; n += 8192) t += String.fromCharCode(...e.subarray(n, n + 8192));
+	return btoa(t).replace(/=+$/u, "");
+}, o = function(e) {
+	e.hooks.forEach(({ script: n, wrap: r }, i) => {
+		let a = `${e.prefix}__orig${i}_${n}`, o = t(e.content.scripts.find((e) => e.name === n)?.body ?? []) + 1, s = `${e.prefix}__fwd${i}`, c = `global.${e.prefix}__hc${i}`, l = `global.${e.prefix}__ha${i}`, u = `global.${e.prefix}__hi${i}`, d = Array.from({ length: 17 }, (e, t) => {
+			let n = Array.from({ length: t }, (e, t) => `${l}[${t}]`).join(", ");
+			return `  case ${t}: return ${a}(${n});`;
+		}).join("\n");
+		e.hostApi.resource.create({
+			kind: "script",
+			name: s,
+			source: `switch (${c}) {\n${d}\n}\nreturn 0;`
+		});
+		let f = r({
+			engine: e.hostApi.target.engine,
+			original: {
+				call: (...e) => e.length === 0 ? `${s}()` : `${a}(${e.join(", ")})`,
+				arg: (e) => e >= 0 && e < 16 ? `argument${e}` : `argument[${e}]`,
+				argumentCount: "argument_count"
+			},
+			send: e.send,
+			call: e.call
+		});
+		e.hostApi.resource.create({
+			kind: "hook",
+			script: n,
+			original: a,
+			source: `
+        ${c} = argument_count;
+        ${u} = 0;
+        while (${u} < argument_count) {
+          ${l}[${u}] = argument[${u}];
+          ${u} += 1;
+        }
+        ${o > 0 ? `if (0) { ${l}[${o - 1}] = argument${o - 1}; }\n` : ""}${f}`
+		});
+	});
+};
+function s(e) {
+	switch (e.k) {
+		case "assign": return e.target.k === "var" ? `an assignment to ${e.target.name}` : "an assignment";
+		case "call": return `a call to ${e.call.name}`;
+		case "exit": return e.value ? "a return" : "an exit";
+		default: return `a ${e.k} statement`;
+	}
+}
+function c(e, t) {
+	let n = t.at.at;
+	if (n === void 0) throw Error(`mod ${e}: cannot insert at ${s(t.at)} -- this game's engine could not place it, so there is nothing to insert around. Statements without a place include the parts of a \`for\` header and temporaries a decompiler invented.`);
+	if (t.place !== "before" && t.place !== "after") throw Error(`mod ${e}: an insertion's place is "before" or "after", not ${JSON.stringify(t.place)}`);
+	if (t.place === "after" && t.at.k === "exit") throw Error(`mod ${e}: nothing follows ${s(t.at)}, so there is no "after" to insert at. Use "before" to run something on the way out.`);
+	return n;
+}
+var l = function(e) {
+	let t = /* @__PURE__ */ new Map();
+	for (let n of e.inserts) {
+		let r = n.body({
+			engine: e.hostApi.target.engine,
+			send: e.send,
+			call: e.call
+		}), i = t.get(r);
+		i === void 0 && (i = `${e.prefix}__ins${t.size}`, t.set(r, i), e.hostApi.resource.create({
+			kind: "script",
+			name: i,
+			source: r
+		})), e.hostApi.resource.create({
+			kind: "insert",
+			at: n.at,
+			place: n.place,
+			call: i
+		});
+	}
+}, u = function(e) {
+	for (let t of e.scripts) {
+		let n = {};
+		(t.args ?? []).forEach((i, a) => {
+			if (!r.test(i)) throw Error(`mod ${e.manifest.id}: script ${JSON.stringify(t.name)} has an argument called ${JSON.stringify(i)}, which is not a usable name`);
+			n[i] = `argument${a}`;
+		}), e.hostApi.resource.create({
+			kind: "script",
+			name: `${e.prefix}s_${t.name}`,
+			source: t.body({
+				engine: e.hostApi.target.engine,
+				a: n,
+				send: e.send,
+				call: e.call
+			})
+		});
+	}
+}, d = 1200, f = 15e3, p = (e) => e[0] === 137 && e[1] === 80 ? {
+	extension: "png",
+	type: "image/png"
+} : e[0] === 255 && e[1] === 216 ? {
+	extension: "jpg",
+	type: "image/jpeg"
+} : e[0] === 66 && e[1] === 77 ? {
+	extension: "bmp",
+	type: "image/bmp"
+} : null, m = class extends Error {
+	constructor() {
+		super("superseded by a newer load after the game restarted");
+	}
+}, h = async function(e) {
+	if (typeof e != "string") return e instanceof Uint8Array ? e : new Uint8Array(e);
+	if (e.startsWith("data:")) {
+		let t = e.indexOf(",");
+		if (t < 0) throw Error("that data: URI has no comma in it");
+		let n = e.slice(0, t), r = e.slice(t + 1);
+		if (!n.endsWith(";base64")) return new TextEncoder().encode(decodeURIComponent(r));
+		let i = atob(r), a = new Uint8Array(i.length);
+		for (let e = 0; e < i.length; e += 1) a[e] = i.charCodeAt(e);
+		return a;
+	}
+	let t = await fetch(e, { cache: "no-store" });
+	if (!t.ok) throw Error(`${e}: ${t.status}`);
+	return new Uint8Array(await t.arrayBuffer());
+}, g = async function() {
+	return await import(
+		/* @vite-ignore */
+		"electron"
+);
+}, _ = async function(e, t) {
+	if (typeof OffscreenCanvas == "function" && typeof createImageBitmap == "function") {
+		let n = await Promise.all(e.map((e, t) => {
+			let n = p(e);
+			if (!n) throw Error(`frame ${t + 1} is not a PNG, JPEG or BMP`);
+			return createImageBitmap(new Blob([e], { type: n.type }));
+		})), r = n[0];
+		for (let [e, t] of n.entries()) if (t.width !== r.width || t.height !== r.height) throw Error(`frame ${e + 1} is ${t.width}x${t.height} but frame 1 is ${r.width}x${r.height}; every frame of a sprite is the same size`);
+		let i = t ? Math.min(1, t / Math.max(r.width, r.height)) : 1, a = Math.max(1, Math.round(r.width * i)), o = Math.max(1, Math.round(r.height * i)), s = new OffscreenCanvas(a * n.length, o), c = s.getContext("2d");
+		return n.forEach((e, t) => {
+			c.drawImage(e, t * a, 0, a, o), e.close();
+		}), new Uint8Array(await (await s.convertToBlob({ type: "image/png" })).arrayBuffer());
+	}
+	let { nativeImage: n } = await g(), r = e.map((e, t) => {
+		let r = n.createFromBuffer(e);
+		if (r.getSize().width === 0) throw Error(`frame ${t + 1} could not be decoded`);
+		return r;
+	}), i = r[0].getSize();
+	for (let [e, t] of r.entries()) {
+		let n = t.getSize();
+		if (n.width !== i.width || n.height !== i.height) throw Error(`frame ${e + 1} is ${n.width}x${n.height} but frame 1 is ${i.width}x${i.height}; every frame of a sprite is the same size`);
+	}
+	let a = t ? Math.min(1, t / Math.max(i.width, i.height)) : 1, o = Math.max(1, Math.round(i.width * a)), s = Math.max(1, Math.round(i.height * a)), c = o * r.length, l = new Uint8Array(c * s * 4);
+	return r.forEach((e, t) => {
+		let n = (a < 1 ? e.resize({
+			width: o,
+			height: s
+		}) : e).toBitmap();
+		for (let e = 0; e < s; e += 1) l.set(n.subarray(e * o * 4, (e + 1) * o * 4), (e * c + t * o) * 4);
+	}), new Uint8Array(n.createFromBitmap(l, {
+		width: c,
+		height: s
+	}).toPNG());
+}, v = async function(e, t, n) {
+	if (typeof OffscreenCanvas == "function" && typeof createImageBitmap == "function") {
+		let r = await createImageBitmap(new Blob([e], { type: t })), i = n ? Math.min(1, n / Math.max(r.width, r.height)) : 1, a = Math.max(1, Math.round(r.width * i)), o = Math.max(1, Math.round(r.height * i)), s = new OffscreenCanvas(a, o);
+		return s.getContext("2d").drawImage(r, 0, 0, a, o), r.close(), new Uint8Array(await (await s.convertToBlob({ type: "image/png" })).arrayBuffer());
+	}
+	let { nativeImage: r } = await g(), i = r.createFromBuffer(e), a = i.getSize(), o = n ? Math.min(1, n / Math.max(a.width, a.height)) : 1;
+	return o < 1 && (i = i.resize({
+		width: Math.max(1, Math.round(a.width * o)),
+		height: Math.max(1, Math.round(a.height * o))
+	})), new Uint8Array(i.toPNG());
+}, y = {
+	begin: "__spr_begin",
+	part: "__spr_part",
+	end: "__spr_end",
+	ack: "__spr_ack",
+	ok: "__spr_ok",
+	failed: "__spr_failed",
+	hello: "__spr_hello"
+}, b = function(e) {
+	let t = null, n = Promise.resolve(), r = new Promise((t) => {
+		e.hostApi.on("start", t);
+	}), i = async function(t, n) {
+		let r = Array.isArray(t) ? t : [t];
+		if (r.length === 0) throw Error("there is no picture in that list");
+		let i = await Promise.all(r.map((e) => h(e))), a = n.frames ?? 1;
+		if (i.length > 1) return {
+			bytes: await _(i, n.maxSize),
+			extension: "png",
+			frames: i.length * a
+		};
+		let o = i[0], s = p(o);
+		if (!s) throw Error("those bytes are not a PNG, JPEG or BMP");
+		let c = e.hostApi.target.engine === "gms" && s.extension !== "png", l = n.maxSize !== void 0;
+		return !c && !l ? {
+			bytes: o,
+			extension: s.extension,
+			frames: a
+		} : {
+			bytes: await v(o, s.type, n.maxSize),
+			extension: "png",
+			frames: a
+		};
+	}, o = function(n, r, i) {
+		let { bytes: o, extension: s, frames: c } = i, l = a(o), u = [];
+		for (let e = 0; e < l.length; e += d) u.push(l.slice(e, e + d));
+		return new Promise((i, a) => {
+			let l = 0, d, p = (r, o, s = !1) => {
+				if (clearTimeout(d), t = null, r) {
+					if (s) {
+						a(r);
+						return;
+					}
+					console.warn(`[${e.manifest.id}] sprite ${JSON.stringify(n)} failed: ${r.message}`), a(r);
+				} else i(o);
+			}, h = () => {
+				clearTimeout(d), d = setTimeout(() => p(/* @__PURE__ */ Error(`the game stopped answering after ${l} of ${u.length} chunks`)), f);
+			};
+			t = {
+				ack: () => {
+					l < u.length ? e.sendInternal(y.part, u[l++]) : e.sendInternal(y.end), h();
+				},
+				done: (e) => p(null, e),
+				failed: (e) => p(Error(e)),
+				abandon: () => p(new m(), void 0, !0)
+			};
+			let g = r.origin ?? {
+				x: 0,
+				y: 0
+			};
+			e.sendInternal(y.begin, `${n} ${o.length} ${s} ${c} ${g.x} ${g.y}`), h();
+		});
+	};
+	return {
+		loadSprite: function(e, t, a, s = () => !0) {
+			let c = async () => {
+				let n = await i(a, t);
+				if (await r, !s()) throw new m();
+				return o(e, t, n);
+			}, l = n.then(c, c);
+			return n = l.catch(() => {}), l;
+		},
+		ack: () => t?.ack(),
+		done: (e) => t?.done(e),
+		failed: (e) => t?.failed(e),
+		abandon: () => t?.abandon()
+	};
+}, x = function(e) {
+	let { hostApi: t, prefix: n, sprites: r, payload: i, sendInternalGml: a } = e;
+	if (r.length === 0) return {};
+	let o = (e) => `global.${n}__${e}`, s = `${n}__sprfield`, c = `${n}__spropen`, l = `${n}__sprwrite`, u = `${n}__sprclose`, d = t.target.engine === "gm8" ? {
+		scratch: "temp_directory + \"\\\"",
+		open: `${o("sprfn")} = argument0;
+${o("sprfh")} = file_bin_open(argument1, 1);
+file_bin_close(${o("sprfh")});`,
+		chunkStart: `${o("sprfh")} = file_bin_open(${o("sprfile")}, 2);
+file_bin_seek(${o("sprfh")}, file_bin_size(${o("sprfh")}));`,
+		write: (e) => `file_bin_write_byte(${o("sprfh")}, ${e});`,
+		chunkEnd: `file_bin_close(${o("sprfh")});`,
+		close: `${o("sprfn")} = argument0;`
+	} : {
+		scratch: "\"\"",
+		open: `${o("sprfn")} = argument1;
+${o("sprbuf")} = buffer_create(argument0, buffer_fixed, 1);`,
+		chunkStart: "",
+		write: (e) => `buffer_write(${o("sprbuf")}, buffer_u8, ${e});`,
+		chunkEnd: "",
+		close: `buffer_save(${o("sprbuf")}, argument0); buffer_delete(${o("sprbuf")});`
+	};
+	t.resource.create({
+		kind: "script",
+		name: s,
+		source: `${o("fs")} = argument0;
+${o("fn")} = 1;
+while (${o("fn")} < argument1) {
+  ${o("fat")} = string_pos(" ", ${o("fs")});
+  if (${o("fat")} == 0) return "";
+  ${o("fs")} = string_delete(${o("fs")}, 1, ${o("fat")});
+  ${o("fn")} += 1;
+}
+${o("fat")} = string_pos(" ", ${o("fs")});
+if (${o("fat")} > 0) ${o("fs")} = string_copy(${o("fs")}, 1, ${o("fat")} - 1);
+return ${o("fs")};`
+	}), t.resource.create({
+		kind: "script",
+		name: c,
+		source: d.open
+	}), t.resource.create({
+		kind: "script",
+		name: u,
+		source: d.close
+	}), t.resource.create({
+		kind: "script",
+		name: l,
+		source: `${o("ws")} = argument0;
+${d.chunkStart}
+${o("wn")} = string_length(${o("ws")});
+${o("wi")} = 1;
+while (${o("wi")} <= ${o("wn")}) {
+  ${o("wl")} = ${o("wn")} - ${o("wi")} + 1;
+  ${o("w0")} = ${o("b64")}[ord(string_char_at(${o("ws")}, ${o("wi")}))];
+  ${o("w1")} = ${o("b64")}[ord(string_char_at(${o("ws")}, ${o("wi")} + 1))];
+  ${d.write(`(${o("w0")} << 2) | (${o("w1")} >> 4)`)}
+  if (${o("wl")} >= 3) {
+    ${o("w2")} = ${o("b64")}[ord(string_char_at(${o("ws")}, ${o("wi")} + 2))];
+    ${d.write(`((${o("w1")} & 15) << 4) | (${o("w2")} >> 2)`)}
+    if (${o("wl")} >= 4) {
+      ${o("w3")} = ${o("b64")}[ord(string_char_at(${o("ws")}, ${o("wi")} + 3))];
+      ${d.write(`((${o("w2")} & 3) << 6) | ${o("w3")}`)}
+    }
+  }
+  ${o("wi")} += 4;
+}
+${d.chunkEnd}`
+	});
+	let f = r.map(({ name: e }) => `if (${o("sprslot")} == "${e}") {
+      if (is_real(global.${n}spr_${e}) && global.${n}spr_${e} >= 0) sprite_delete(global.${n}spr_${e});
+      global.${n}spr_${e} = ${o("sprnew")};
+    }`).join(" else ");
+	return {
+		[y.begin]: `${o("sprslot")} = ${s}(${i}, 1);
+    ${o("sprlen")} = real(${s}(${i}, 2));
+    ${o("sprfile")} = ${d.scratch} + "fpsprite." + ${s}(${i}, 3);
+    ${o("sprimgs")} = real(${s}(${i}, 4));
+    ${o("sprox")} = real(${s}(${i}, 5));
+    ${o("sproy")} = real(${s}(${i}, 6));
+    ${c}(${o("sprlen")}, ${o("sprfile")});
+    ${a(y.ack)}`,
+		[y.part]: `if (${o("sprfile")} != "") {
+      ${l}(${i});
+      ${a(y.ack)}
+    }`,
+		[y.end]: `if (${o("sprfile")} != "") {
+      ${u}(${o("sprfile")});
+      ${o("sprnew")} = sprite_add(${o("sprfile")}, ${o("sprimgs")}, false, false, ${o("sprox")}, ${o("sproy")});
+      file_delete(${o("sprfile")});
+      if (is_real(${o("sprnew")}) && ${o("sprnew")} >= 0) {
+        ${f}
+        ${a(y.ok, `${o("sprslot")} + " " + string(sprite_get_width(${o("sprnew")})) + " " + string(sprite_get_height(${o("sprnew")}))`)}
+      } else {
+        ${a(y.failed, `${o("sprslot")} + " sprite_add answered " + string(${o("sprnew")})`)}
+      }
+      ${o("sprfile")} = "";
+    }`
+	};
+}, S = function(e) {
+	let { prefix: t, sprites: n, sendInternalGml: r } = e;
+	if (n.length === 0) return "";
+	let i = (e) => `global.${t}__${e}`;
+	return `
+${n.map(({ name: e }) => `global.${t}spr_${e} = -1;`).join("\n")}
+${i("sprfile")} = "";
+${i("b64a")} = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
+${i("b64i")} = 0;
+while (${i("b64i")} < 64) {
+  ${i("b64")}[ord(string_char_at(${i("b64a")}, ${i("b64i")} + 1))] = ${i("b64i")};
+  ${i("b64i")} += 1;
+}
+${r(y.hello)}`;
+}, C = function(e) {
+	let { manifest: t, sprites: n, shown: r, spriteLoader: i, handlers: a } = e;
+	if (n.length === 0) return;
+	let o = 0;
+	a.set(y.hello, [() => {
+		if (o += 1, o === 1) return;
+		i.abandon();
+		let e = o, a = () => e === o;
+		for (let [e, o] of r) {
+			let r = n.find((t) => t.name === e)?.options ?? {};
+			i.loadSprite(e, r, o, a).catch((n) => {
+				n instanceof m || console.warn(`[${t.id}] sprite ${JSON.stringify(e)} failed to come back after a restart:`, n);
+			});
+		}
+	}]), a.set(y.ack, [() => i.ack()]), a.set(y.ok, [(e) => {
+		let [, t, n] = e.split(" ");
+		i.done({
+			width: Number(t),
+			height: Number(n)
+		});
+	}]), a.set(y.failed, [(e) => {
+		let t = e.indexOf(" ");
+		i.failed(t < 0 ? "the game refused the picture" : e.slice(t + 1));
+	}]);
+}, w = function(e) {
+	let t = (e.split(".").pop() ?? e).replaceAll(/[^A-Za-z0-9]/gu, "").slice(0, 12), n = 2166136261;
+	for (let t = 0; t < e.length; t += 1) n = Math.imul(n ^ e.charCodeAt(t), 16777619);
+	return `m${t}_${((n >>> 0) % 65536).toString(16).padStart(4, "0")}_`;
+}, T = function(t, a) {
+	let s = {
+		...t,
+		apiVersion: 2
+	};
+	return {
+		manifest: s,
+		activate(t) {
+			let d = w(s.id), f = [], p = [], m = [], h = [], g = [], _ = /* @__PURE__ */ new Map(), v = !0, y = (e) => {
+				if (!n.test(e)) throw Error(`mod ${s.id}: ${JSON.stringify(e)} is not a usable event name (letters, digits, - and _, starting with a letter)`);
+				return e.replaceAll("-", "_");
+			}, T = (e) => `${d}__${e}`, E = (e) => {
+				let t = {};
+				for (let n of e.vars ?? []) {
+					if (!r.test(n)) throw Error(`mod ${s.id}: ${JSON.stringify(n)} is not a usable variable name (letters, digits and _, starting with a letter)`);
+					t[n] = `${d}v_${n}`;
+				}
+				return t;
+			}, D = (e) => `global.${d}q_${e}`, O = (e, n = "") => t.send(`${e} ${n}`), k = (e, n) => t.gml.send(n ? `"${e} " + (${n})` : `"${e} "`), A = (e, t) => k(y(e), t), j = (e, ...t) => {
+				if (!p.some((t) => t.name === e)) throw Error(`mod ${s.id}: call(${JSON.stringify(e)}) names a script this mod never declared. It has: ${p.map((e) => e.name).join(", ") || "none"}`);
+				return `${d}s_${e}(${t.join(", ")})`;
+			}, M = (e) => ({
+				engine: t.target.engine,
+				v: E(e),
+				send: A,
+				call: j
+			}), N = b({
+				hostApi: t,
+				manifest: s,
+				sendInternal: O
+			}), P = /* @__PURE__ */ new Map(), F = t.game;
+			a({
+				engine: t.target.engine,
+				content: F,
+				resource: {
+					object: { create(e) {
+						if (!v) throw Error(`mod ${s.id}: objects can only be declared while the mod is built`);
+						f.push(e);
+					} },
+					script: {
+						create(e) {
+							if (!v) throw Error(`mod ${s.id}: scripts can only be declared while the mod is built`);
+							if (!r.test(e.name)) throw Error(`mod ${s.id}: ${JSON.stringify(e.name)} is not a usable script name (letters, digits and _, starting with a letter)`);
+							if (p.some((t) => t.name === e.name)) throw Error(`mod ${s.id}: two scripts are called ${JSON.stringify(e.name)}`);
+							p.push(e);
+						},
+						hook(e, t) {
+							if (!v) throw Error(`mod ${s.id}: hooks can only be declared while the mod is built`);
+							h.push({
+								script: e,
+								wrap: t
+							});
+						},
+						insert(e) {
+							if (!v) throw Error(`mod ${s.id}: insertions can only be declared while the mod is built`);
+							g.push({
+								at: c(s.id, e),
+								place: e.place,
+								body: e.body
+							});
+						}
+					},
+					sprite: { create(e, t = {}) {
+						if (!v) throw Error(`mod ${s.id}: sprites can only be declared while the mod is built`);
+						if (!r.test(e)) throw Error(`mod ${s.id}: ${JSON.stringify(e)} is not a usable sprite name (letters, digits and _, starting with a letter)`);
+						if (m.some((t) => t.name === e)) throw Error(`mod ${s.id}: two sprites are called ${JSON.stringify(e)}`);
+						return m.push({
+							name: e,
+							options: t
+						}), {
+							id: `global.${d}spr_${e}`,
+							load: (n) => (P.set(e, n), N.loadSprite(e, t, n))
+						};
+					} }
+				},
+				on(e, t) {
+					let n = y(e), r = _.get(n);
+					r ? r.push(t) : _.set(n, [t]);
+				},
+				onStart(e) {
+					t.on("start", e);
+				},
+				scratchPath(e) {
+					if (!i.test(e)) throw Error(`mod ${s.id}: ${JSON.stringify(e)} is not a usable scratch file name (letters, digits, _ . and -)`);
+					return t.target.engine === "gm8" ? `temp_directory + "\\${d}${e}"` : `"${d}${e}"`;
+				},
+				send(e, n = "") {
+					t.send(`${y(e)} ${n}`);
+				}
+			}), v = !1, l({
+				manifest: s,
+				inserts: g,
+				prefix: d,
+				hostApi: t,
+				send: A,
+				call: j
+			}), u({
+				manifest: s,
+				scripts: p,
+				hostApi: t,
+				prefix: d,
+				send: A,
+				call: j
+			}), o({
+				manifest: s,
+				hooks: h,
+				content: F,
+				hostApi: t,
+				prefix: d,
+				send: A,
+				call: j
+			}), e({
+				manifest: s,
+				hostApi: t,
+				prefix: d,
+				objects: f,
+				internalReceive: x({
+					hostApi: t,
+					prefix: d,
+					sprites: m,
+					payload: T("pl"),
+					sendInternalGml: k
+				}),
+				internalCreate: S({
+					prefix: d,
+					sprites: m,
+					sendInternalGml: k
+				}),
+				normalizeEventName: y,
+				context: M,
+				queue: D,
+				scratch: T
+			}), C({
+				manifest: s,
+				sprites: m,
+				shown: P,
+				spriteLoader: N,
+				handlers: _
+			}), t.on("message", (e) => {
+				let t = e.indexOf(" "), n = t < 0 ? e : e.slice(0, t), r = t < 0 ? "" : e.slice(t + 1), i = _.get(n);
+				if (!i) {
+					console.warn(`[${s.id}] no handler for ${JSON.stringify(n)}`);
+					return;
+				}
+				for (let e of i) new Promise((t) => {
+					t(e(r));
+				}).catch((e) => {
+					console.error(`[${s.id}] handling ${n} failed:`, e);
+				});
+			});
+		}
+	};
+}, E = /* @__PURE__ */ new Set([
+	"file_bin_open",
+	"file_text_open_read",
+	"file_text_open_write",
+	"file_text_open_append"
+]), D = /* @__PURE__ */ new Set([
+	"file_bin_read_byte",
+	"file_text_read_real",
+	"file_text_read_string",
+	"buffer_read"
+]), O = /* @__PURE__ */ new Set([
+	"file_bin_write_byte",
+	"file_text_write_real",
+	"file_text_write_string",
+	"buffer_write"
+]), k = (e) => JSON.stringify(e ?? null), A = function(e) {
+	return e.k === "var" && (e.scope === "local" || e.scope === "self") ? `${e.scope}:${e.name}` : null;
+}, j = function(e, t) {
+	if (e.k === "asset" && e.kind === "object") return e.name;
+	if (e.k === "number" && Number.isInteger(e.value) && e.value >= 0 && e.value < 1e5) return `(${e.value})`;
+	let n = A(e);
+	return n ? t.aliases.get(n) ?? null : null;
+}, M = class {
+	facts;
+	summaries;
+	current = null;
+	constructor(e, t) {
+		this.summaries = t, this.facts = {
+			script: e,
+			vars: /* @__PURE__ */ new Map(),
+			aliases: /* @__PURE__ */ new Map(),
+			argAliases: /* @__PURE__ */ new Map(),
+			handles: /* @__PURE__ */ new Map(),
+			writes: [],
+			positionReads: [],
+			roomGotos: [],
+			globalAssigns: [],
+			counted: /* @__PURE__ */ new Set(),
+			calls: /* @__PURE__ */ new Set(),
+			returns: /* @__PURE__ */ new Set(),
+			globalReads: /* @__PURE__ */ new Set()
+		};
+	}
+	tags(e, t) {
+		let n = /* @__PURE__ */ new Set(), r = (e) => this.tags(e, t).forEach((e) => n.add(e));
+		switch (e.k) {
+			case "arg":
+				e.index !== null && n.add(`arg:${e.index}`);
+				break;
+			case "var":
+				if (e.scope === "builtin" && e.name === "room") n.add("room");
+				else if (e.scope === "builtin" && t && (e.name === "x" || e.name === "y")) n.add(`${e.name}:${t}`);
+				else if (e.scope === "global") n.add(`read:global:${e.name}`), this.facts.globalReads.add(e.name);
+				else {
+					let t = A(e);
+					this.facts.vars.get(t ?? "")?.forEach((e) => n.add(e));
+				}
+				break;
+			case "field": {
+				let t = j(e.of, this.facts);
+				t && (e.name === "x" || e.name === "y") ? n.add(`${e.name}:${t}`) : r(e.of);
+				break;
+			}
+			case "index":
+				r(e.of);
+				break;
+			case "op":
+				e.args.forEach(r);
+				break;
+			case "call": {
+				let t = this.readChannel(e);
+				t && n.add(t.startsWith("handle:") ? t : `read:${t}`);
+				for (let t of this.summaries.get(e.name)?.returns ?? []) {
+					let r = t.handle === null ? t.channel : this.handleChannel(e.args[t.handle]);
+					r && n.add(r.startsWith("handle:") ? r : `read:${r}`);
+				}
+				e.args.forEach(r);
+				break;
+			}
+		}
+		return n;
+	}
+	handleChannel(e) {
+		if (!e) return null;
+		if (e.k === "arg" && e.index !== null) return `handle:${e.index}`;
+		let t = A(e);
+		return t && this.facts.argAliases.has(t) ? `handle:${this.facts.argAliases.get(t)}` : t && this.facts.handles.get(t) || "file:?";
+	}
+	readChannel(e) {
+		let [t, n, r] = e.args;
+		return D.has(e.name) && t ? this.handleChannel(t) : e.name.startsWith("ini_read_") ? `ini:${k(t)}/${k(n)}` : /^registry_read_.*_ext$/u.test(e.name) ? `registry:${k(t)}/${k(n)}` : e.name.startsWith("registry_read_") ? `registry:${k(t)}` : e.name === "ds_map_find_value" ? `map:${k(n)}` : null;
+	}
+	writeOf(e) {
+		let [t, n, r] = e.args;
+		if (O.has(e.name) && t) {
+			let i = e.name === "buffer_write" ? r : n;
+			return i ? {
+				channel: this.handleChannel(t),
+				value: i
+			} : null;
+		}
+		return e.name.startsWith("ini_write_") && r ? {
+			channel: `ini:${k(t)}/${k(n)}`,
+			value: r
+		} : /^registry_write_.*_ext$/u.test(e.name) && r ? {
+			channel: `registry:${k(t)}/${k(n)}`,
+			value: r
+		} : e.name.startsWith("registry_write_") && n ? {
+			channel: `registry:${k(t)}`,
+			value: n
+		} : (e.name === "ds_map_add" || e.name === "ds_map_replace") && r ? {
+			channel: `map:${k(n)}`,
+			value: r
+		} : null;
+	}
+	block(e, t, n) {
+		for (let r of e) this.statement(r, t, n);
+	}
+	statement(e, t, n) {
+		switch (this.current = e, e.k) {
+			case "assign":
+				this.assign(e.target, e.op, e.value, t, n);
+				break;
+			case "call":
+				this.call(e.call, t, n);
+				break;
+			case "if":
+				this.tags(e.cond, n), this.expressionCalls(e.cond, t, n), this.block(e.then, !0, n), this.block(e.else, !0, n);
+				break;
+			case "with": {
+				let t = j(e.target, this.facts);
+				this.block(e.body, !0, t ?? n);
+				break;
+			}
+			case "loop":
+				this.block(e.body, !0, n);
+				break;
+			case "switch":
+				this.tags(e.value, n);
+				for (let t of e.bodies) this.block(t, !0, n);
+				break;
+			case "exit": e.value && (this.expressionCalls(e.value, t, n), this.tags(e.value, n).forEach((e) => this.facts.returns.add(e)));
+		}
+	}
+	expressionCalls(e, t, n) {
+		e.k === "call" ? this.call(e, t, n) : e.k === "op" ? e.args.forEach((e) => this.expressionCalls(e, t, n)) : (e.k === "field" || e.k === "index") && this.expressionCalls(e.of, t, n);
+	}
+	call(e, t, n) {
+		e.kind === "script" && this.facts.calls.add(e.name);
+		let r = this.writeOf(e);
+		r && this.facts.writes.push({
+			channel: r.channel,
+			tags: this.tags(r.value, n),
+			stmt: this.current
+		});
+		for (let t of this.summaries.get(e.name)?.writes ?? []) {
+			let r = e.args[t.value], i = t.handle === null ? t.channel : this.handleChannel(e.args[t.handle]);
+			r && i && this.facts.writes.push({
+				channel: i,
+				tags: this.tags(r, n),
+				stmt: this.current
+			});
+		}
+		if (e.name === "room_goto" && e.args[0] && this.facts.roomGotos.push(this.tags(e.args[0], n)), e.name === "instance_create" && e.args.length >= 3) {
+			let t = j(e.args[2], this.facts);
+			if (t) {
+				let r = this.tags(e.args[0], n);
+				this.tags(e.args[1], n).forEach((e) => r.add(e)), this.facts.positionReads.push({
+					object: t,
+					tags: r
+				});
+			}
+		}
+		e.args.forEach((e) => this.expressionCalls(e, t, n));
+	}
+	assign(e, t, n, r, i) {
+		this.expressionCalls(n, r, i);
+		let a = this.tags(n, i);
+		if (n.k === "call" && E.has(n.name)) {
+			let t = A(e);
+			t && this.facts.handles.set(t, `file:${k(n.args[0])}`);
+		}
+		let o = A(e);
+		if (o) {
+			let e = this.facts.vars.get(o) ?? /* @__PURE__ */ new Set();
+			a.forEach((t) => e.add(t)), this.facts.vars.set(o, e);
+			let t = j(n, this.facts);
+			t && n.k !== "number" && this.facts.aliases.set(o, t), n.k === "arg" && n.index !== null && this.facts.argAliases.set(o, n.index);
+			return;
+		}
+		if (e.k === "var" && e.scope === "global") {
+			t === "=" ? (this.facts.globalAssigns.push({
+				name: e.name,
+				tags: a,
+				topLevel: !r
+			}), this.facts.writes.push({
+				channel: `global:${e.name}`,
+				tags: a,
+				stmt: this.current
+			})) : (t === "+=" || t === "-=") && this.facts.counted.add(e.name);
+			return;
+		}
+		if (e.k === "index" && e.of.k === "var" && e.of.scope === "global") {
+			t === "=" ? this.facts.writes.push({
+				channel: `global:${e.of.name}`,
+				tags: a,
+				stmt: this.current
+			}) : (t === "+=" || t === "-=") && this.facts.counted.add(e.of.name);
+			return;
+		}
+		let s = e.k === "field" && (e.name === "x" || e.name === "y") ? j(e.of, this.facts) : e.k === "var" && e.scope === "builtin" && (e.name === "x" || e.name === "y") ? i : null;
+		s && this.facts.positionReads.push({
+			object: s,
+			tags: a
+		});
+	}
+}, N = function(e, t, n) {
+	let r = new M(e, n);
+	r.block(t, !1, null);
+	let i = new M(e, n);
+	return i.facts.vars = r.facts.vars, i.facts.aliases = r.facts.aliases, i.facts.argAliases = r.facts.argAliases, i.facts.handles = r.facts.handles, i.block(t, !1, null), i.facts;
+}, P = function(e) {
+	return [...e].filter((e) => e.startsWith("read:")).map((e) => e.slice(5));
+}, F = function(e, t) {
+	return [...e].filter((e) => e.startsWith(`${t}:`)).map((e) => e.slice(2));
+}, I = function(e, t) {
+	return [...e].filter((e) => e.startsWith(t)).map((e) => Number(e.slice(t.length)));
+}, L = function(e) {
+	let t = [];
+	for (let n of e.writes) {
+		let e = n.channel.startsWith("handle:") ? Number(n.channel.slice(7)) : null;
+		if (!n.channel.startsWith("global:")) for (let r of I(n.tags, "arg:")) t.push({
+			value: r,
+			handle: e,
+			channel: e === null ? n.channel : null
+		});
+	}
+	return {
+		writes: t,
+		returns: [...I(e.returns, "handle:").map((e) => ({
+			handle: e,
+			channel: null
+		})), ...P(e.returns).filter((e) => !e.startsWith("global:")).map((e) => ({
+			handle: null,
+			channel: e
+		}))]
+	};
+}, R = 50, z = function(e) {
+	let t = /* @__PURE__ */ new Map(), n = [], r = "";
+	for (let i = 0; i < R; i += 1) {
+		let i = t;
+		n = e.scripts.map((e) => N(e.name, e.body, i)), t = new Map(n.map((e) => [e.script, L(e)]));
+		let a = JSON.stringify([...t]);
+		if (a === r) break;
+		r = a;
+	}
+	return n;
+}, B = function(e, t, n) {
+	let r = /* @__PURE__ */ new Set(), i = /* @__PURE__ */ new Set(), a = (e) => {
+		switch (e.k) {
+			case "var":
+				e.scope === "global" && r.add(e.name);
+				break;
+			case "field":
+				a(e.of);
+				break;
+			case "index":
+				a(e.of), e.at.forEach(a);
+				break;
+			case "op":
+				e.args.forEach(a);
+				break;
+			case "call": e.kind === "script" && i.add(e.name), e.args.forEach(a);
+		}
+	}, o = (e) => {
+		for (let t of e) switch (t.k) {
+			case "assign":
+				a(t.target), a(t.value);
+				break;
+			case "call":
+				a(t.call);
+				break;
+			case "if":
+				a(t.cond), o(t.then), o(t.else);
+				break;
+			case "with":
+				a(t.target), o(t.body);
+				break;
+			case "loop":
+				o(t.body);
+				break;
+			case "switch":
+				a(t.value), t.bodies.forEach(o);
+				break;
+			case "exit": t.value && a(t.value);
+		}
+	};
+	o(e);
+	for (let e of i) {
+		if (n.has(e)) continue;
+		let r = t.scripts.find((t) => t.name === e);
+		r && o(r.body);
+	}
+	return r;
+}, V = function(e) {
+	if (e.scripts.length === 0) return {
+		ok: !1,
+		error: "this game's code could not be read"
+	};
+	let t = z(e), n = t.flatMap((e) => {
+		let t = /* @__PURE__ */ new Set();
+		e.writes.forEach((e) => e.tags.forEach((e) => t.add(e)));
+		let n = F(t, "x"), r = new Set(F(t, "y")), i = n.filter((e) => r.has(e));
+		if (!t.has("room") || i.length === 0) return [];
+		let a = e.writes.filter((e) => e.tags.has("room") || [...e.tags].some((e) => /^[xy]:/u.test(e))).map((e) => e.channel);
+		return [{
+			facts: e,
+			players: i,
+			channels: [...new Set(a)]
+		}];
+	}), r = t.flatMap((e) => {
+		let t = e.positionReads.filter((e) => P(e.tags).length > 0), n = e.roomGotos.filter((e) => P(e).length > 0);
+		if (t.length === 0 || n.length === 0) return [];
+		let r = /* @__PURE__ */ new Set();
+		return t.forEach((e) => P(e.tags).forEach((e) => r.add(e))), n.forEach((e) => P(e).forEach((e) => r.add(e))), [{
+			facts: e,
+			players: [...new Set(t.map((e) => e.object))],
+			channels: [...r]
+		}];
+	}), i = n.filter((e) => r.some((t) => t.channels.some((t) => e.channels.includes(t)))), a = r.filter((e) => i.some((t) => t.channels.some((t) => e.channels.includes(t)))), o = new Set(a.map((e) => e.facts.script)), s = a.filter((e) => ![...e.facts.calls].some((t) => t !== e.facts.script && o.has(t)));
+	if (i.length === 0 || s.length === 0) return {
+		ok: !1,
+		error: n.length === 0 ? "no script stores the room and a player's position" : r.length === 0 ? "no script puts a stored position back into a player and changes room" : "no save routine and load routine use the same storage"
+	};
+	let c = [.../* @__PURE__ */ new Set([...i.flatMap((e) => e.players), ...s.flatMap((e) => e.players)])], l = new Set(c), u = /* @__PURE__ */ new Set([...i.map((e) => e.facts.script), ...s.map((e) => e.facts.script)]), d = /* @__PURE__ */ new Set();
+	t.filter((e) => !u.has(e.script)).forEach((e) => e.counted.forEach((e) => d.add(e)));
+	for (let t of e.objects) for (let e of Object.values(t.events)) e && N(t.name, e, /* @__PURE__ */ new Map()).counted.forEach((e) => d.add(e));
+	let f = new Set(s.flatMap((e) => e.facts.globalAssigns.filter((e) => e.topLevel && P(e.tags).length > 0 && !d.has(e.name)).map((e) => e.name))), p = i.flatMap((e) => e.facts.writes).filter((e) => [...e.tags].some((e) => /^[xy]:/u.test(e)) && e.stmt?.at !== void 0), m = [...new Map(p.map((e) => [e.stmt.at, e.stmt])).values()];
+	if (m.length === 0) return {
+		ok: !1,
+		error: "no save routine stores the position at a line that can be addressed"
+	};
+	let h = /* @__PURE__ */ new Set();
+	for (let e of i) for (let t of e.facts.globalReads) h.add(t);
+	let g = [...f].filter((e) => h.has(e)), _ = /* @__PURE__ */ new Set();
+	for (let t of e.objects) l.has(t.name) && t.events.create && B(t.events.create, e, u).forEach((e) => _.add(e));
+	return {
+		ok: !0,
+		value: {
+			players: c,
+			positionWrites: m,
+			loads: s.map((e) => e.facts.script),
+			carried: g,
+			createReads: g.filter((e) => _.has(e))
+		}
+	};
+}, H = "data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAABWElEQVR4nM2VS3LCMAyGvew9ePXBIXoJLpI7dF9KIVDgGqw5RfPY9CY144CKKiJHsglh8U2UzNj/ZyESY/Z7AzwYcxNwJg23N4IXyLKsAi/I8/wPd18URQWu4b4sy4tAeJYkiUwAh9IaaBJwV0ywQN3p67qAQ+np1QL0tFwHfAJRHQAJ/BPQ1tP6qgJ1MwDXugHEdfQQdvY3xBLOFNsGwu5zfy8iCP+1byp+vl/FuP3T6cBu0/F/CY2AJjBKwFrDbsIhF3iRCWAJHGQnkwpaN4mAwEYj4LgIPeGrvQKL50CBhlCpwFojgMOlApyEWAAWgEAorMD8SSYAi7Qd2DUIfHUu8PnYnsAuVkDz4gmdAbUAne7YDqxmI7kAlfDVvvDWBHCoVGA5G+oE6CxwodJvwfIjQOCaX8MogRjOAgNeoG1cuJNgBRbvPYb+memRVMwxFII77QChyj4ABNYZj7JHZ24AAAAASUVORK5CYII=", U = 8, W = {
+	scale: .85,
+	alpha: .6,
+	swing: 8,
+	pace: 800
+}, G = {
+	state: "global.quicksave_state",
+	room: "global.quicksave_room",
+	x: "global.quicksave_x",
+	y: "global.quicksave_y",
+	markerX: "global.quicksave_marker_x",
+	markerY: "global.quicksave_marker_y",
+	hasAnchor: "global.quicksave_has_anchor",
+	anchorX: "global.quicksave_anchor_x",
+	anchorY: "global.quicksave_anchor_y",
+	applying: "global.quicksave_applying",
+	carried: (e) => `global.quicksave_carried${e}`
+}, K = function(e, t) {
+	let { players: n, carried: r, createReads: i, positionWrites: a, loads: o } = t, s = e.scratchPath("state.txt"), c = e.resource.sprite.create("save", { origin: {
+		x: 16,
+		y: 16
+	} });
+	c.load([H]), e.resource.script.create({
+		name: "player",
+		body: () => `global.quicksave_found = noone;
+${n.map((e) => `with (${e}) {
+  if (global.quicksave_found == noone || id > global.quicksave_found) global.quicksave_found = id;
+}`).join("\n")}
+return global.quicksave_found;`
+	}), e.resource.script.create({
+		name: "grounded",
+		args: ["who"],
+		body: ({ a: e }) => `global.quicksave_grounded = 0;
+with (${e.who}) {
+  if (vspeed == 0 && (!place_free(x, y + 1) || !place_free(x, y - 1))) global.quicksave_grounded = 1;
+};
+return global.quicksave_grounded;`
+	});
+	let l = (e) => `if (is_string(${e})) {
+  file_text_write_string(qs_file, "s"); file_text_writeln(qs_file); file_text_write_string(qs_file, ${e});
+} else {
+  file_text_write_string(qs_file, "r"); file_text_writeln(qs_file); file_text_write_real(qs_file, ${e});
+}
+file_text_writeln(qs_file);`, u = (e) => `qs_kind = file_text_read_string(qs_file); file_text_readln(qs_file);
+if (qs_kind == "s") ${e} = file_text_read_string(qs_file); else ${e} = file_text_read_real(qs_file);
+file_text_readln(qs_file);`, d = [
+		G.state,
+		G.room,
+		G.x,
+		G.y,
+		G.markerX,
+		G.markerY,
+		G.hasAnchor,
+		G.anchorX,
+		G.anchorY
+	];
+	e.resource.script.create({
+		name: "persist",
+		body: () => `var qs_file;
+if (${G.state} == 0) {
+  if (file_exists(${s})) file_delete(${s});
+  exit;
+}
+qs_file = file_text_open_write(${s});
+${d.map((e) => `file_text_write_real(qs_file, ${e}); file_text_writeln(qs_file);`).join("\n")}
+${r.map((e, t) => l(G.carried(t))).join("\n")}
+file_text_close(qs_file);`
+	}), e.resource.script.create({
+		name: "reset",
+		body: () => `${[
+			...d,
+			G.applying,
+			...r.map((e, t) => G.carried(t))
+		].map((e) => `${e} = 0;`).join("\n")}`
+	}), e.resource.script.create({
+		name: "restore",
+		body: ({ call: e }) => `var qs_file, qs_kind;
+${e("reset")};
+if (!file_exists(${s})) exit;
+qs_file = file_text_open_read(${s});
+${d.map((e) => `${e} = file_text_read_real(qs_file); file_text_readln(qs_file);`).join("\n")}
+${r.map((e, t) => u(G.carried(t))).join("\n")}
+file_text_close(qs_file);`
+	});
+	for (let t of a) e.resource.script.insert({
+		at: t,
+		place: "after",
+		body: ({ call: e, send: t }) => `
+        var qs_player;
+        if (!${G.applying}) {
+          qs_player = ${e("player")};
+          if (qs_player != noone) {
+            ${G.anchorX} = qs_player.x;
+            ${G.anchorY} = qs_player.y;
+            ${G.hasAnchor} = 1;
+          }
+          if (${G.state} != 0) {
+            ${G.state} = 0;
+            ${t("cleared", "\"a real save\"")}
+          }
+          ${e("persist")};
+        }
+      `
+	});
+	let f = i.map((e) => `if (global.${e} != ${G.carried(r.indexOf(e))}) qs_rebuild = 1;`).join("\n            ");
+	for (let t of o) e.resource.script.hook(t, ({ original: e, call: n, send: i }) => `
+        var qs_result, qs_player, qs_near, qs_rebuild;
+        qs_result = ${e.call()};
+        qs_player = ${n("player")};
+        if (qs_player != noone) {
+          qs_near = ${G.hasAnchor}
+            && abs(qs_player.x - ${G.anchorX}) <= ${U}
+            && abs(qs_player.y - ${G.anchorY}) <= ${U};
+          if (${G.state} == 1 && qs_near) {
+            ${G.applying} = 1;
+            qs_rebuild = 0;
+            ${f}
+            ${r.map((e, t) => `global.${e} = ${G.carried(t)};`).join("\n            ")}
+            room_goto(${G.room});
+            with (qs_player) {
+              if (qs_rebuild) event_perform(ev_create, 0);
+              x = ${G.x};
+              y = ${G.y};
+              xprevious = x;
+              yprevious = y;
+              hspeed = 0;
+              vspeed = 0;
+            }
+            ${G.applying} = 0;
+            ${i("restored", `"by ${t}"`)}
+          } else {
+            if (${G.state} == 1) ${i("dropped", "\"the game loaded a different save\"")}
+            ${G.state} = 0;
+            ${G.anchorX} = qs_player.x;
+            ${G.anchorY} = qs_player.y;
+            ${G.hasAnchor} = 1;
+          }
+          ${n("persist")};
+        }
+        return qs_result;
+      `);
+	e.resource.object.create({
+		name: "quicksave",
+		vars: ["standing", "who"],
+		events: {
+			create: ({ v: e, call: t }) => `
+        ${t("restore")};
+        ${e.standing} = 0;
+      `,
+			step: ({ v: e, call: t, send: n }) => `
+        ${e.who} = ${t("player")};
+        // One behind the player: the only depth that means the same thing in every game.
+        if (${e.who} != noone) depth = ${e.who}.depth + 1;
+        // Two steps, so bumping a ceiling mid-jump is not standing on it.
+        if (${e.who} != noone && ${t("grounded", e.who)}) ${e.standing} += 1;
+        else ${e.standing} = 0;
+
+        if (keyboard_check_pressed(ord("X"))) {
+          if (${G.state} != 0) {
+            ${n("refused", "\"a quicksave is already placed, or was cancelled until the next respawn\"")}
+          } else if (!${G.hasAnchor}) {
+            ${n("refused", "\"the game has not saved or loaded yet\"")}
+          } else if (${e.standing} < 2) {
+            ${n("refused", "\"not standing on anything\"")}
+          } else {
+            ${G.room} = room;
+            ${G.x} = ${e.who}.x;
+            ${G.y} = ${e.who}.y;
+            ${G.markerX} = (${e.who}.bbox_left + ${e.who}.bbox_right) / 2;
+            ${G.markerY} = (${e.who}.bbox_top + ${e.who}.bbox_bottom) / 2;
+            ${r.map((e, t) => `${G.carried(t)} = global.${e};`).join("\n          ")}
+            ${G.state} = 1;
+            ${t("persist")};
+            ${n("placed", `room_get_name(room) + " " + string(${G.x}) + "," + string(${G.y})`)}
+          }
+        }
+
+        if (keyboard_check_pressed(ord("C")) && ${G.state} == 1) {
+          ${G.state} = 2;
+          ${t("persist")};
+          ${n("cancelled")}
+        }
+      `,
+			draw: () => `
+        if (${G.state} == 1 && room == ${G.room} && ${c.id} >= 0) {
+          draw_sprite_ext(${c.id}, 0, ${G.markerX}, ${G.markerY}, ${W.scale}, ${W.scale},
+            ${W.swing} * sin(current_time / ${W.pace}), c_white, ${W.alpha});
+        }
+      `
+		},
+		receive: { fresh: ({ call: e }) => `
+        ${e("reset")};
+        ${e("persist")};
+      ` }
+	}), e.onStart(() => e.send("fresh"));
+	for (let t of [
+		"placed",
+		"cancelled",
+		"restored",
+		"cleared",
+		"dropped",
+		"refused"
+	]) e.on(t, (e) => console.log(`[quicksave] ${t}${e ? `: ${e}` : ""}`));
+}, q = T({
+	id: "fruit-pie.quicksave",
+	name: "Quicksave",
+	version: "1.0.0"
+}, (e) => {
+	let t = V(e.content);
+	t.ok ? K(e, t.value) : console.warn(`[quicksave] this game is not supported: ${t.error}`);
+});
+//#endregion
+export { q as default };

package/package.json

@@ -0,0 +1,35 @@
+{
+  "name": "@fruit-pie/quicksave",
+  "version": "0.1.0",
+  "description": "Save anywhere between two of the game's saves, without touching its save files.",
+  "type": "module",
+  "main": "dist/index.js",
+  "scripts": {
+    "dev": "concurrently -k \"vite build --watch\" \"vite preview\"",
+    "typecheck": "tsc --noEmit",
+    "prepublishOnly": "vite build",
+    "test": "node --test \"src/**/*.test.ts\""
+  },
+  "files": [
+    "dist"
+  ],
+  "publishConfig": {
+    "access": "public"
+  },
+  "fruitPieMod": {
+    "manifestId": "fruit-pie.quicksave",
+    "name": "Quicksave",
+    "entry": "dist/index.js",
+    "apiVersion": 2
+  },
+  "devDependencies": {
+    "@types/node": "^24.13.4",
+    "concurrently": "^10.0.5",
+    "typescript": "^7.0.2",
+    "vite": "^8.3.0"
+  },
+  "dependencies": {
+    "@fruit-pie/detect": "^1.0.0",
+    "@fruit-pie/sdk": "^1.1.0"
+  }
+}