sci2-ts 0.9.0 → 0.11.0

package/CHANGELOG.md

@@ -4,6 +4,18 @@ All notable changes to this project. Versions follow [Semantic Versioning](https
 and the entries are generated from commit messages
 ([Conventional Commits](https://www.conventionalcommits.org/)) when a release is made.
 
+## [0.11.0](https://github.com/rlueder/sci-ts/compare/v0.10.0...v0.11.0) (2026-10-02)
+
+### Added
+
+* **lib:** menus as one framed box, and text boxes that sit on the bottom of the screen ([#13](https://github.com/rlueder/sci-ts/issues/13)) ([83cf03d](https://github.com/rlueder/sci-ts/commit/83cf03d0bb4e044d24cbff769a102294e3a66a03))
+
+## [0.10.0](https://github.com/rlueder/sci-ts/compare/v0.9.0...v0.10.0) (2026-10-02)
+
+### Added
+
+* perspective for rooms, and spoken lines ([#12](https://github.com/rlueder/sci-ts/issues/12)) ([b8a504b](https://github.com/rlueder/sci-ts/commit/b8a504bc972c85818f37f00597ac209ff6916843)), closes [#11](https://github.com/rlueder/sci-ts/issues/11)
+
 ## [0.9.0](https://github.com/rlueder/sci-ts/compare/v0.8.2...v0.9.0) (2026-10-02)
 
 ### Added

package/apps/viewer/src/files.js

@@ -13,7 +13,9 @@ export const httpFiles = {
     },
     async readRange(path, offset, length) {
         const res = await fetch(`${BASE}game/${path}`, { headers: { Range: `bytes=${offset}-${offset + length - 1}` } });
-        return new Uint8Array(await res.arrayBuffer());
+        const bytes = new Uint8Array(await res.arrayBuffer());
+        // A server that ignores Range (Python's http.server) sends the whole file.
+        return res.status === 206 ? bytes : bytes.subarray(offset, offset + length);
     },
     async list(dir) {
         if (import.meta.env.DEV)

package/apps/viewer/src/files.ts

@@ -15,7 +15,9 @@ export const httpFiles: FileSource = {
   },
   async readRange(path, offset, length) {
     const res = await fetch(`${BASE}game/${path}`, { headers: { Range: `bytes=${offset}-${offset + length - 1}` } });
-    return new Uint8Array(await res.arrayBuffer());
+    const bytes = new Uint8Array(await res.arrayBuffer());
+    // A server that ignores Range (Python's http.server) sends the whole file.
+    return res.status === 206 ? bytes : bytes.subarray(offset, offset + length);
   },
   async list(dir) {
     if (import.meta.env.DEV) return (await fetch(`/__list?dir=${encodeURIComponent(dir)}`)).json();

package/lib/992.sc

@@ -58,9 +58,17 @@
       add: SR_SAVE "Save the game"
       add: SR_RESTORE "Restore a game"
       add: SR_RESTART "Start again"
-      add: SR_TEXT (String STRING_FORMAT "Text speed: %s" (self textSpeedName:))
-      add: 0 "Carry on"
-      show: self))
+      add: SR_TEXT (String STRING_FORMAT "Text speed: %s" (self textSpeedName:)))
+    ;; Only a game with recorded lines asks how to have them.
+    (if (DoAudio 9)
+      (menu add: SR_SPEECH (String STRING_FORMAT "Speech: %s" (self speechName:))))
+    (menu add: 0 "Carry on" show: self))
+
+  (method (speechName)
+    (switch speech
+      (SPEECH_TEXT (return "text only"))
+      (SPEECH_VOICE (return "voice only"))
+      (else (return "voice and text"))))
 
   (method (textSpeedName)
     (switch textSpeed
@@ -133,6 +141,12 @@
               (TEXT_NORMAL (= textSpeed TEXT_FAST))
               (TEXT_FAST (= textSpeed TEXT_CLICK))
               (else (= textSpeed TEXT_SLOW)))
+            (self showMenu:))
+          (SR_SPEECH
+            (switch speech
+              (SPEECH_BOTH (= speech SPEECH_VOICE))
+              (SPEECH_VOICE (= speech SPEECH_TEXT))
+              (else (= speech SPEECH_BOTH)))
             (self showMenu:))))
       (SR_SAVE (if v (self askDescription: (- v 1))))
       (SR_RESTORE

package/lib/996.sc

@@ -22,6 +22,7 @@
 ;; A box of text over the room: drawn by the interpreter into a bitmap, shown as a screen
 ;; item in the UI plane. Set text (and width, x, y), then init; it's as tall as the text
 ;; unless height is set. Font, colours and frame come from the textStyle unless set here.
+;; With bottom set, y is worked out so the box ends there: it grows upwards with the text.
 (class TextItem of Obj
   (properties
     x 0 y 0 z 0
@@ -40,7 +41,8 @@
     frame -2        ; -1: none
     textLeft 0 textTop 0 textRight -1 textBottom -1
     width 200
-    height 0)
+    height 0
+    bottom -1)      ; -1: placed at y
 
   (method (init &tmp r m padL padT padR padB)
     (if (== font -1) (= font (textStyle font?)))
@@ -65,6 +67,7 @@
     (= textTop padT)
     (= textRight (- width (+ padR 1)))
     (= textBottom (- height (+ padB 1)))
+    (if (!= bottom -1) (= y (- bottom height)))
     (= plane uiPlane)
     (= bitmap (CreateTextBitmap 0 width height self))
     (if (!= frame -1) (self drawFrame:))
@@ -96,33 +99,45 @@
 ;; Shows a line until it's been there long enough to read (as long as `textSpeed` says), or
 ;; the player clicks or presses Enter, Space or "."; then cues whoever asked. The narrator
 ;; speaks for no one in particular.
+;;
+;; A line from a message file (the Messager sets module, noun, verb, cond and seq before
+;; say:) is heard too if it has a recording, unless `speech` is SPEECH_TEXT. A heard line
+;; stays until its recording ends, and a moment more; with SPEECH_VOICE it isn't shown.
 (class Narrator of Obj
   (properties
     caller 0
     box 0
-    shownAt 0       ; the game time it went up
-    readFor 0       ; how long it stays (-1: until dismissed)
+    shownAt 0       ; the game time it went up (or its recording ended)
+    readFor 0       ; how long it stays (-1: until dismissed, or while it's heard)
+    voiced 0        ; its recording is playing
+    module 0        ; the message the next say: is, if it's one (set by the Messager)
+    noun 0 verb 0 cond 0 seq 0
     font -1         ; -1: the textStyle's
     x -1            ; -1: centred
-    y 16
+    y 16            ; below 0: that far above the bottom of the screen, growing upwards
     width 220)
 
   (method (say txt whoCares)
     (self clear:)
     (if (and talking (!= talking self)) (talking clear:))
     (= caller (if (> argc 1) whoCares else 0))
-    (= box
-      ((TextItem new:)
-        text: txt
-        font: font
-        width: width
-        x: (if (== x -1) (/ (- SCREEN_WIDTH width) 2) else x)
-        y: y
-        yourself:))
-    (box init:)
+    (if (and module (!= speech SPEECH_TEXT))
+      (= voiced (!= 0 (DoAudio 2 module noun verb cond seq))))
+    (= module 0)
+    (if (or (not voiced) (!= speech SPEECH_VOICE))
+      (= box
+        ((TextItem new:)
+          text: txt
+          font: font
+          width: width
+          x: (if (== x -1) (/ (- SCREEN_WIDTH width) 2) else x)
+          y: (if (< y 0) 0 else y)
+          bottom: (if (< y 0) (+ SCREEN_HEIGHT y) else -1)
+          yourself:))
+      (box init:))
     (= talking self)
     (= shownAt gameTime)
-    (= readFor (self readingTime: (String STRING_LENGTH txt))))
+    (= readFor (if voiced -1 else (self readingTime: (String STRING_LENGTH txt)))))
 
   ;; Cycles to read a line of n characters: normally two seconds, and more for longer lines;
   ;; -1 is until the player dismisses it.
@@ -134,12 +149,18 @@
       (else (return (+ 120 (* 3 n))))))
 
   ;; Time is measured as cycles since, which stays right when gameTime wraps past 32767.
+  ;; When a heard line's recording ends, it stays a moment (or until a click, if the text
+  ;; is up and that's the text speed).
   (method (doit)
-    (if (and box (!= readFor -1) (>= (- gameTime shownAt) readFor)) (self done:)))
+    (if (and voiced (== (DoAudio 6) -1))
+      (= voiced 0)
+      (= shownAt gameTime)
+      (= readFor (if (and box (== textSpeed TEXT_CLICK)) -1 else VOICE_PAUSE)))
+    (if (and (== talking self) (!= readFor -1) (>= (- gameTime shownAt) readFor)) (self done:)))
 
   ;; A click, Enter, Space or "." while a line is up dismisses it (and nothing else).
   (method (handleEvent event)
-    (if (and box
+    (if (and (== talking self)
           (or (== (event type?) EV_MOUSE_DOWN)
             (and (== (event type?) EV_KEY_DOWN)
               (or (== (event message?) KEY_ENTER) (== (event message?) KEY_SPACE) (== (event message?) KEY_PERIOD)))))
@@ -149,6 +170,7 @@
     (return FALSE))
 
   (method (clear)
+    (if voiced (DoAudio 3) (= voiced 0))
     (if box (box dispose:) (= box 0))
     (if (== talking self) (= talking 0)))
 
@@ -200,11 +222,12 @@
     (if eyes (eyes setCycle: Blink))
     (if mouth
       (mouth setCycle: Forward)
-      ;; About as long as it takes to say: half a second, and two cycles a letter.
-      (= mouthFor (+ 30 (* 2 (String STRING_LENGTH txt))))))
+      ;; While it's heard; or about as long as it takes to say: half a second, and two
+      ;; cycles a letter.
+      (= mouthFor (if voiced 0 else (+ 30 (* 2 (String STRING_LENGTH txt)))))))
 
   (method (doit)
-    (if (and mouth (mouth cycler?) (>= (- gameTime shownAt) mouthFor))
+    (if (and mouth (mouth cycler?) (not voiced) (>= (- gameTime shownAt) mouthFor))
       (mouth setCycle: 0 setCel: 0))
     (super doit:))
 
@@ -221,7 +244,8 @@
     (super clear:)))
 
 ;; Says the lines of a message file for a noun, verb and condition, in sequence:
-;; (messager say: noun verb [cond [seq [caller [module]]]]). Each line goes to its talker.
+;; (messager say: noun verb [cond [seq [caller [module]]]]). Each line goes to its talker,
+;; told which message it is so it can play the line's recording.
 ;; Returns whether there was anything to say; cues the caller after the last line.
 (class Messager of Obj
   (properties
@@ -245,9 +269,10 @@
   (method (sayNext &tmp c talker)
     (if (not buffer) (= buffer (String ARRAY_NEW 400)))
     (if (Message 2 module noun verb cond seq)
-      (= talker (Message 0 module noun verb cond seq buffer))
+      (= talker (self findTalker: (Message 0 module noun verb cond seq buffer)))
+      (talker module: module noun: noun verb: verb cond: cond seq: seq)
       (++ seq)
-      ((self findTalker: talker) say: buffer self)
+      (talker say: buffer self)
      else
       (= c caller)
       (= caller 0)
@@ -273,25 +298,53 @@
     (String ARRAY_FREE text)
     (super dispose:)))
 
-;; Choices in boxes, one under another; the first click on one ends it. While it's open it
-;; gets every click (it's the `dialog`). The caller hears the choice by `choose: value`.
+;; Choices one under another in a box (the textStyle's frame around them all); the first
+;; click on one ends it. While it's open it gets every click (it's the `dialog`). The caller
+;; hears the choice by `choose: value`.
 (class Menu of Obj
   (properties
     items 0
     caller 0
-    y 20
-    width 240)
-
-  (method (add v txt &tmp item)
-    (if (not items) (= items (List new:)))
-    (= item ((MenuItem new:) value: v text: txt width: width x: (/ (- SCREEN_WIDTH width) 2) y: y yourself:))
+    panel 0
+    y 20            ; the top of the box
+    width 240
+    next 0)         ; where the next choice goes
+
+  (method (add v txt &tmp item f)
+    (= f (textStyle frame?))
+    (if (not items)
+      (= items (List new:))
+      (= next (+ y (if (!= f -1) (CelHigh f 0 4) else 1))))
+    (= item
+      ((MenuItem new:)
+        value: v
+        text: txt
+        frame: -1
+        borderColor: -1
+        width: (- width (if (!= f -1) (+ (CelWide f 0 6) (CelWide f 0 7)) else 2))
+        x: (+ (/ (- SCREEN_WIDTH width) 2) (if (!= f -1) (CelWide f 0 6) else 1))
+        y: next
+        yourself:))
     (item init:)
-    (+= y (+ (item height?) 2))
+    (+= next (item height?))
     (items add: item)
     (return self))
 
-  (method (show whoCares)
+  ;; The box behind the choices, then it waits for one.
+  (method (show whoCares &tmp f)
+    (= f (textStyle frame?))
     (= caller whoCares)
+    (if items
+      (= panel
+        ((TextItem new:)
+          text: ""
+          x: (/ (- SCREEN_WIDTH width) 2)
+          y: y
+          width: width
+          height: (+ (- next y) (if (!= f -1) (CelHigh f 0 5) else 1))
+          priority: 99
+          yourself:))
+      (panel init:))
     (= dialog self))
 
   (method (handleEvent event &tmp item v c)
@@ -315,6 +368,7 @@
       (items eachElementDo: #dispose)
       (items dispose:)
       (= items 0))
+    (if panel (panel dispose:) (= panel 0))
     (super dispose:)))
 
 ;; A conversation with something: talking to it opens a menu of topics, choosing one says

package/lib/999.sc

@@ -32,7 +32,8 @@
   inventory       ; what the hero carries (an Inventory)
   theItem         ; the item picked to use, or 0
   iconBar         ; the icon bar (an IconBar)
-  textSpeed)      ; how long a line stays up: TEXT_NORMAL, TEXT_SLOW, TEXT_FAST, TEXT_CLICK
+  textSpeed       ; how long a line stays up: TEXT_NORMAL, TEXT_SLOW, TEXT_FAST, TEXT_CLICK
+  speech)         ; whether recorded lines are heard, read, or both: SPEECH_BOTH, SPEECH_TEXT, SPEECH_VOICE
 
 (procedure (SetFlag n)
   (|= [gameFlags (/ n 16)] (<< 1 (mod n 16))))

package/lib/system.sh

@@ -45,6 +45,7 @@
 (define SR_RESTART 4)
 (define SR_NAME 5)
 (define SR_TEXT 6)
+(define SR_SPEECH 7)
 
 ;; How long a line stays up (the textSpeed global): normal (the default), slow, fast, or
 ;; until the player clicks.
@@ -53,6 +54,14 @@
 (define TEXT_FAST 2)
 (define TEXT_CLICK 3)
 
+;; Lines with a recording (the speech global): heard and read (the default), read only, or
+;; heard only. Lines with no recording are always shown.
+(define SPEECH_BOTH 0)
+(define SPEECH_TEXT 1)
+(define SPEECH_VOICE 2)
+;; Cycles a spoken line stays after its recording ends.
+(define VOICE_PAUSE 20)
+
 ;; Event types, as GetEvent reports them.
 (define EV_NULL 0)
 (define EV_MOUSE_DOWN 1)

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "sci2-ts",
-  "version": "0.9.0",
+  "version": "0.11.0",
   "description": "An SCI2 adventure game engine in TypeScript, and the tools to make games with it",
   "license": "MIT",
   "type": "module",

package/packages/content/room.schema.json

@@ -104,7 +104,7 @@
             "frontY",
             "backY"
           ],
-          "description": "Perspective: front% at y frontY, back% at y backY",
+          "description": "Perspective for the hero alone: front% at y frontY, back% at y backY (perspective: is simpler)",
           "properties": {
             "front": {
               "type": "integer"
@@ -122,6 +122,25 @@
         }
       }
     },
+    "perspective": {
+      "type": "object",
+      "additionalProperties": false,
+      "required": [
+        "horizon",
+        "fullSize"
+      ],
+      "description": "The picture's camera: people are sized by how far below the horizon they stand. The hero and props that move are sized as they go.",
+      "properties": {
+        "horizon": {
+          "type": "integer",
+          "description": "The y the floor's lines meet at"
+        },
+        "fullSize": {
+          "type": "integer",
+          "description": "The y of a figure's feet where it's drawn at full size"
+        }
+      }
+    },
     "walkable": {
       "$ref": "#/$defs/polygon",
       "description": "The floor: the hero stays inside"
@@ -227,6 +246,10 @@
             "type": "string",
             "pattern": "^[A-Z][A-Za-z0-9]*$",
             "description": "A Script class of the game's: an instance of it runs on the prop, e.g. an ambient behaviour"
+          },
+          "scale": {
+            "type": "boolean",
+            "description": "Sized by the room's perspective (default: if it moves). A still prop is sized once, for where it is."
           }
         }
       }

package/packages/content/src/room.d.ts

@@ -4,7 +4,8 @@ import type { Target } from "./target.ts";
  * (.sca) and message text (.msg), the formats tools/mod-build.ts already builds from.
  *
  *   room: 701
- *   hero: { at: [36, 152], enterTo: [110, 160], scale: { front: 100, back: 70, frontY: 186, backY: 122 } }
+ *   hero: { at: [36, 152], enterTo: [110, 160] }
+ *   perspective: { horizon: 72, fullSize: 176 }
  *   walkable: [[28, 152], [60, 135], ...]
  *   features:
  *     pods: { rect: [236, 14, 310, 94] }
@@ -28,7 +29,7 @@ export interface RoomSpec {
         at?: Point;
         /** Walk here on arrival (hands off until there). */
         enterTo?: Point;
-        /** Perspective: `front`% at y `frontY`, `back`% at y `backY`. */
+        /** Perspective for the hero alone: `front`% at y `frontY`, `back`% at y `backY` (perspective: is simpler). */
         scale?: {
             front: number;
             back: number;
@@ -36,6 +37,17 @@ export interface RoomSpec {
             backY: number;
         };
     };
+    /**
+     * The picture's camera, for sizing people by where they stand: the horizon (the y the
+     * floor's lines meet at), and the y where a figure's feet are when it's drawn at full
+     * size. A figure's height is in proportion to how far below the horizon it stands, so it
+     * shrinks towards the back and grows past fullSize at the front. The hero and props that
+     * move are sized as they go; a still prop only with scale: true.
+     */
+    perspective?: {
+        horizon: number;
+        fullSize: number;
+    };
     /** The floor: a polygon the hero stays inside. */
     walkable?: Point[];
     /** Polygons the hero walks around. */
@@ -84,6 +96,11 @@ interface PropSpec {
     sightAngle?: number;
     /** A Script class of the game's: an instance of it runs on the prop (ambient behaviour). */
     script?: string;
+    /**
+     * Sized by the room's perspective: by default a prop that moves is and a still one
+     * (drawn to fit its place, like someone in a chair) isn't.
+     */
+    scale?: boolean;
 }
 export interface CompiledRoom {
     number: number;
@@ -95,6 +112,32 @@ export interface CompiledRoom {
     roomTalkers: boolean;
     /** Yarn variables ($name) used: each is a flag, numbered by `options.flag`. */
     flags: string[];
+    /** The spoken lines (not menu labels), with their message keys today. */
+    lines: SpokenLine[];
+}
+/**
+ * A line someone says. Its message key (noun, verb, cond, seq) is positional and changes
+ * when lines or things are added before it; its id (#line:) doesn't, so recordings use that.
+ */
+export interface SpokenLine {
+    id?: string;
+    noun: number;
+    verb: number;
+    cond: number;
+    seq: number;
+    talker: number;
+    /** As written in the Yarn (Narrator when it has none). */
+    speaker: string;
+    text: string;
+    /** The Yarn node it's in (and for a topic's answer, the topic). */
+    node: string;
+    /** What's said just before it in the same node, if anything: context for whoever records it. */
+    before?: {
+        speaker: string;
+        text: string;
+    };
+    /** file:line in the Yarn. */
+    where: string;
 }
 export interface CompileOptions {
     /**

package/packages/content/src/room.js

@@ -42,7 +42,7 @@ class SpecChecker {
         const s = this.spec;
         if (!s || typeof s !== "object")
             this.fail([], "expected a mapping (room: ..., features: ...)");
-        this.known(s, [], ["room", "picture", "music", "hero", "walkable", "obstacles", "features", "exits", "props", "characters", "properties"]);
+        this.known(s, [], ["room", "picture", "music", "hero", "perspective", "walkable", "obstacles", "features", "exits", "props", "characters", "properties"]);
         this.int(s.room, ["room"], 0, 65535);
         if (s.picture !== undefined)
             this.int(s.picture, ["picture"], 0, 65535);
@@ -62,6 +62,14 @@ class SpecChecker {
                     this.int(sc[k], ["hero", "scale", k], 0, 1000);
             }
         }
+        if (s.perspective !== undefined) {
+            const pv = this.map(s.perspective, ["perspective"]);
+            this.known(pv, ["perspective"], ["horizon", "fullSize"]);
+            this.int(pv.horizon, ["perspective", "horizon"], -1000, 199);
+            this.int(pv.fullSize, ["perspective", "fullSize"], 0, 1000);
+            if (pv.fullSize <= pv.horizon)
+                this.fail(["perspective", "fullSize"], "must be below the horizon (a bigger y)");
+        }
         if (s.walkable !== undefined)
             this.polygon(s.walkable, ["walkable"]);
         if (s.obstacles !== undefined) {
@@ -83,7 +91,11 @@ class SpecChecker {
                 names.add(name);
                 const t = this.map(value, path);
                 if (group === "props") {
-                    this.known(t, path, ["view", "at", "loop", "cel", "cycle", "sightAngle", "moves", "script"]);
+                    this.known(t, path, ["view", "at", "loop", "cel", "cycle", "sightAngle", "moves", "script", "scale"]);
+                    if (t.scale !== undefined && typeof t.scale !== "boolean")
+                        this.fail([...path, "scale"], "expected true or false");
+                    if (t.scale === true && s.perspective === undefined)
+                        this.fail([...path, "scale"], "the room has no perspective: to size it by");
                     if (t.script !== undefined && (typeof t.script !== "string" || !/^[A-Z][A-Za-z0-9]*$/.test(t.script)))
                         this.fail([...path, "script"], "expected a class name, e.g. Scurry");
                     if (t.moves !== undefined && typeof t.moves !== "boolean")
@@ -175,6 +187,7 @@ class SpecChecker {
         v.forEach((p, i) => this.point(p, [...path, i]));
     }
 }
+const SCREEN_BOTTOM = 200;
 const num = (n) => (n < 0 ? `-$${(-n).toString(16)}` : String(n));
 function pushVal(v) {
     if (typeof v === "number")
@@ -217,6 +230,7 @@ class RoomCompiler {
     name;
     nouns = new Map();
     messages = [];
+    lines = [];
     instances = [];
     code = [];
     strings = [];
@@ -295,7 +309,7 @@ class RoomCompiler {
             this.teller(conv);
         return {
             number: spec.room, sca: this.assembly(), msg: this.messageText(), roomTalkers: characters.length > 0,
-            flags: [...this.flagsUsed].sort(),
+            flags: [...this.flagsUsed].sort(), lines: this.lines,
         };
     }
     /** Yarn nodes -> messages and scripts; returns the arrival narration's steps. */
@@ -373,7 +387,7 @@ class RoomCompiler {
                     fail(`choice "${c.text}" needs at least one line under it`, c.line);
                 const topic = k + 1;
                 const label = `${node.title}: ${c.text}`;
-                this.message(conv.rootNoun, tv, topic, 1, { kind: "line", speaker: "Hero", text: c.text, line: c.line }, label);
+                this.message(conv.rootNoun, tv, topic, 1, { kind: "line", speaker: "Hero", text: c.text, line: c.line }, label, false);
                 if (c.when)
                     conv.conditional.push({ topic, when: c.when, where: `${this.yarnFile}:${c.line}` });
                 if (c.body.every((x) => x.kind === "line")) {
@@ -692,9 +706,21 @@ class RoomCompiler {
         return [...this.expr(value, where), `bnt ${clear}`, ...this.flagCall("set", flag), `jmp ${done}`, `${clear}:`, ...this.flagCall("clear", flag), `${done}:`];
     }
     // --- Objects ---
-    message(noun, verb, cond, seq, l, label) {
+    /** A message; `spoken` is false for a topic menu's labels, which nobody says. */
+    message(noun, verb, cond, seq, l, label, spoken = true) {
         const where = `${this.yarnFile}:${l.line}`;
-        this.messages.push({ noun, verb, cond, seq, talker: this.talkerOf(l.speaker, where), text: plainText(l.text, where), label });
+        const prev = this.messages.at(-1);
+        const m = { noun, verb, cond, seq, talker: this.talkerOf(l.speaker, where), speaker: l.speaker ?? "Narrator", text: plainText(l.text, where), label };
+        this.messages.push(m);
+        if (!spoken)
+            return;
+        const twice = l.id !== undefined && this.lines.find((x) => x.id === l.id);
+        if (twice)
+            throw new ContentError(`${where}: #line:${l.id} is already the id of ${twice.where}`);
+        this.lines.push({
+            ...(l.id === undefined ? {} : { id: l.id }), noun, verb, cond, seq, talker: m.talker, speaker: m.speaker, text: m.text, node: label,
+            ...(prev?.label === label ? { before: { speaker: prev.speaker, text: prev.text } } : {}), where,
+        });
     }
     talkerOf(speaker, where) {
         if (speaker === undefined)
@@ -730,8 +756,14 @@ class RoomCompiler {
         if (hero?.at)
             egoCalls.push(["x", [hero.at[0]]], ["y", [hero.at[1]]]);
         egoCalls.push(["normalize", []]);
+        // Each room sizes the hero its own way, or not at all.
+        const perspective = this.perspective();
         if (hero?.scale)
             egoCalls.push(["setScaler", [{ cls: "Scaler" }, hero.scale.front, hero.scale.back, hero.scale.frontY, hero.scale.backY]]);
+        else if (perspective)
+            egoCalls.push(["setScaler", [{ cls: "Scaler" }, ...perspective]]);
+        else
+            egoCalls.push(["setScaler", [0]]);
         c.push(...send({ global: target.globals.ego }, egoCalls));
         if (spec.music !== undefined)
             c.push(...this.playMusic(spec.music));
@@ -740,6 +772,7 @@ class RoomCompiler {
         for (const [name, p] of Object.entries(spec.props ?? {})) {
             c.push(...send({ obj: name }, [
                 ["init", []],
+                ...(perspective && p.moves && p.scale !== false ? [["setScaler", [{ cls: "Scaler" }, ...perspective]]] : []),
                 ...(p.cycle === "forward" ? [["setCycle", [{ cls: this.target.forwardCycle }]]] : []),
                 // A new instance of the game's Script class, running on the prop.
                 ...(p.script ? [["setScript", [{ code: ["pushi #new", "push0", `class ${p.script}`, "send 4"] }]]] : []),
@@ -856,9 +889,38 @@ class RoomCompiler {
         if (cases.length)
             this.doVerb(name, "Feature", cases);
     }
+    /**
+     * The room's perspective as Scaler arguments (front, back, frontY, backY): sizes at the
+     * nearest and farthest places anyone stands (the floor, and where the hero and props that
+     * move start). Size is a straight line in y, so the Scaler's in-between is exact; keeping
+     * to that range keeps its 16-bit arithmetic from overflowing.
+     */
+    perspective() {
+        const pv = this.spec.perspective;
+        if (!pv)
+            return undefined;
+        const ys = [
+            ...(this.spec.walkable ?? []).map((p) => p[1]),
+            ...Object.values(this.spec.props ?? {}).filter((p) => p.moves).map((p) => p.at[1]),
+            ...[this.spec.hero?.at, this.spec.hero?.enterTo].flatMap((p) => (p ? [p[1]] : [])),
+        ].filter((y) => y > pv.horizon);
+        const backY = ys.length ? Math.min(...ys) : pv.horizon + 1, frontY = ys.length ? Math.max(...ys) : SCREEN_BOTTOM - 1;
+        const size = (y) => Math.round(((y - pv.horizon) / (pv.fullSize - pv.horizon)) * 100);
+        const [front, back] = [size(frontY), size(backY)];
+        // Scaler works out (front - back) * (y - backY) on the way.
+        if ((front - back) * (frontY - backY) > 32767)
+            throw new ContentError(`room ${this.spec.room}: perspective: sizes from ${back}% to ${front}% over ${frontY - backY} lines are too much for the Scaler`);
+        return [front, back, Math.max(frontY, backY + 1), backY];
+    }
     prop(name, p) {
         const cases = this.scriptedVerbs.get(name) ?? [];
-        this.instance(name, p.moves ? "Actor" : "Prop", { noun: this.nouns.get(name), modNum: -1, sightAngle: p.sightAngle ?? 180, x: p.at[0], y: p.at[1], view: p.view, loop: p.loop ?? 0, cel: p.cel ?? 0 }, cases.length ? ["doVerb"] : []);
+        // A still prop is sized once, for where it is.
+        const pv = this.spec.perspective;
+        const fixed = pv && p.scale === true && !p.moves ? Math.round(((p.at[1] - pv.horizon) / (pv.fullSize - pv.horizon)) * 128) : undefined;
+        this.instance(name, p.moves ? "Actor" : "Prop", {
+            noun: this.nouns.get(name), modNum: -1, sightAngle: p.sightAngle ?? 180, x: p.at[0], y: p.at[1], view: p.view, loop: p.loop ?? 0, cel: p.cel ?? 0,
+            ...(fixed === undefined ? {} : { scaleSignal: 1, scaleX: fixed, scaleY: fixed }),
+        }, cases.length ? ["doVerb"] : []);
         if (cases.length)
             this.doVerb(name, p.moves ? "Actor" : "Prop", cases);
     }