sci2-ts 0.10.0 → 0.12.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.12.0](https://github.com/rlueder/sci-ts/compare/v0.11.0...v0.12.0) (2026-10-02)
+
+### Added
+
+* **lib:** portraits that face the middle from their character's side, framed, and one for the hero ([#14](https://github.com/rlueder/sci-ts/issues/14)) ([e7be055](https://github.com/rlueder/sci-ts/commit/e7be0555af2c49743c539e7231cf979ac274617e))
+
+## [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

package/lib/996.sc

@@ -17,11 +17,15 @@
     back 255        ; paper
     border 0        ; a one-pixel border's colour; -1: none
     frame -1        ; a frame view, or -1
-    margin 4))      ; between the text and the border or frame
+    margin 4        ; between the text and the border or frame
+    portraitFrame -1 ; a view around portraits: loop 0 behind the face, loop 1 over its edges
+    portraitX 8     ; where a portrait's face goes on the left (mirrored on the right)
+    portraitY 8))
 
 ;; 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 +44,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 +70,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:))
@@ -111,7 +117,7 @@
     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)
@@ -128,7 +134,8 @@
           font: font
           width: width
           x: (if (== x -1) (/ (- SCREEN_WIDTH width) 2) else x)
-          y: y
+          y: (if (< y 0) 0 else y)
+          bottom: (if (< y 0) (+ SCREEN_HEIGHT y) else -1)
           yourself:))
       (box init:))
     (= talking self)
@@ -187,34 +194,80 @@
     (super say: line &rest whoCares)))
 
 ;; Someone with a portrait: a view whose loop 0 is the bust, loop 1 the mouth and loop 2 the
-;; eyes, every cel the same size and anchored at its top-left corner. The room's talker hands
-;; its parts to init: mouth bust eyes frame, where frame is drawn first (the bust), placed
-;; where the portrait goes (the top left of the screen). The text goes to its right. While
-;; the line is said the mouth moves, then closes; the eyes blink.
+;; eyes, every cel the same size and anchored at its top-left corner; loops 3 to 5, if there
+;; are any, are the same facing left. A room's talker is handed its parts (init: mouth bust
+;; eyes frame, where frame is drawn as the bust); one with a view of its own (the hero's)
+;; makes them. While the line is said the mouth moves, then closes; the eyes blink.
+;;
+;; The portrait goes at the top left facing right, or the top right facing left, with the
+;; text beside it on the side towards the middle. A character takes the side of the hero
+;; it stands on (who: is its body in the room; without one, the right); the hero takes the
+;; side opposite whoever spoke last. The textStyle places it (portraitX, portraitY) and can
+;; frame it (portraitFrame).
 (class PortraitTalker of Talker
   (properties
     mouth 0 bust 0 eyes 0 frame 0
+    view -1         ; the portrait's view, for a talker that makes its own parts
+    who 0           ; the character's body in the room
+    side 0          ; where the portrait is: 0 the left, 1 the right
+    otherSide 1     ; the hero's: the side of whoever spoke last
+    back 0 front 0  ; the portraitFrame, behind the face and over its edges
     priority 150
     mouthFor 0)     ; cycles the mouth moves for
 
   (method (init theMouth theBust theEyes theFrame)
-    (= mouth theMouth)
-    (= bust theBust)
-    (= eyes theEyes)
-    (= frame theFrame))
-
-  (method (say txt whoCares &tmp portrait)
-    (self init:)
-    (= portrait (if frame frame else bust))
-    (if portrait
-      (= x (+ (portrait x?) (CelWide (portrait view?) (portrait loop?) (portrait cel?)) 6))
-      (= y (portrait y?))
-      (= width (- SCREEN_WIDTH (+ x 6))))
+    (if argc
+      (= mouth theMouth)
+      (= bust theBust)
+      (= eyes theEyes)
+      (= frame theFrame)))
+
+  (method (makeParts)
+    (if (and (!= view -1) (not bust) (not frame))
+      (= bust ((View new:) view: view yourself:))
+      (= mouth ((Prop new:) view: view yourself:))
+      (= eyes ((Prop new:) view: view yourself:))))
+
+  ;; This line's side: see above.
+  (method (pickSide &tmp s)
+    (if (== self heroTalker) (return (- 1 otherSide)))
+    (= s (if (and who ego (< (who x?) (ego x?))) 0 else 1))
+    (if (and heroTalker (!= heroTalker self) (heroTalker respondsTo: #otherSide)) (heroTalker otherSide: s))
+    (return s))
+
+  (method (say txt whoCares &tmp face l pw f fx fy over)
+    (self init: makeParts:)
+    (= face (if frame frame else bust))
+    (if face
+      (= side (self pickSide:))
+      (= l (if (and side (>= (NumLoops face) 6)) 3 else 0))
+      (= pw (CelWide (face view?) l 0))
+      (= f (textStyle portraitFrame?))
+      (= over (if (!= f -1) (/ (- (CelWide f 0 0) pw) 2) else 0))
+      (= fx (if side (- SCREEN_WIDTH (+ (textStyle portraitX?) pw)) else (textStyle portraitX?)))
+      (= fy (textStyle portraitY?))
+      (face x: fx y: fy loop: l cel: 0)
+      (if mouth (mouth x: fx y: fy loop: (+ l 1) cel: 0))
+      (if eyes (eyes x: fx y: fy loop: (+ l 2) cel: 0))
+      (if (!= f -1)
+        (if (not back) (= back ((View new:) view: f loop: 0 cel: 0 yourself:)))
+        (back x: fx y: fy)
+        (if (and (not front) (>= (NumLoops back) 2)) (= front ((View new:) view: f loop: 1 cel: 0 yourself:)))
+        (if front (front x: fx y: fy)))
+      ;; The text beside it, towards the middle.
+      (= y fy)
+      (if side
+        (= x 6)
+        (= width (- fx (+ over 12)))
+       else
+        (= x (+ fx pw over 6))
+        (= width (- SCREEN_WIDTH (+ x 6)))))
     (super say: txt &rest whoCares)
-    (self showPart: frame priority)
-    (self showPart: bust priority)
-    (self showPart: eyes (+ priority 1))
+    (self showPart: back (- priority 1))
+    (self showPart: face priority)
     (self showPart: mouth (+ priority 1))
+    (self showPart: eyes (+ priority 1))
+    (self showPart: front (+ priority 2))
     (if eyes (eyes setCycle: Blink))
     (if mouth
       (mouth setCycle: Forward)
@@ -232,11 +285,19 @@
       (part init:)
       (part plane: uiPlane setPri: pri)))
 
+  ;; Off the screen, kept for the next line.
+  (method (hidePart part)
+    (if part
+      (DeleteScreenItem part)
+      (cast delete: part)))
+
   (method (clear)
-    (if frame (frame dispose:))
-    (if bust (bust dispose:))
-    (if eyes (eyes dispose:))
-    (if mouth (mouth dispose:))
+    (self hidePart: front)
+    (self hidePart: back)
+    (self hidePart: frame)
+    (self hidePart: bust)
+    (self hidePart: eyes)
+    (self hidePart: mouth)
     (super clear:)))
 
 ;; Says the lines of a message file for a noun, verb and condition, in sequence:
@@ -294,25 +355,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)
@@ -336,6 +425,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/package.json

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

package/packages/content/src/room.js

@@ -837,6 +837,8 @@ class RoomCompiler {
             "&rest 1", `super ${p.class} 12`,
             "pushi #setPri", "push1", "pTos priority", "ldi 1", "add", "push", `lofsa @${key}Mouth`, "send 6",
             "pushi #setPri", "push1", "pTos priority", "ldi 1", "add", "push", `lofsa @${key}Eyes`, "send 6",
+            // Its body in the room, if a prop has its name: where it stands picks the portrait's side.
+            ...(p.who && this.spec.props?.[key] ? send("self", [["who", [{ obj: key }]]]) : []),
             "ret",
         ], "");
     }

package/packages/content/src/room.ts

@@ -975,6 +975,8 @@ class RoomCompiler {
         "&rest 1", `super ${p.class} 12`,
         "pushi #setPri", "push1", "pTos priority", "ldi 1", "add", "push", `lofsa @${key}Mouth`, "send 6",
         "pushi #setPri", "push1", "pTos priority", "ldi 1", "add", "push", `lofsa @${key}Eyes`, "send 6",
+        // Its body in the room, if a prop has its name: where it stands picks the portrait's side.
+        ...(p.who && this.spec.props?.[key] ? send("self", [["who", [{ obj: key }]]]) : []),
         "ret",
       ],
       "",

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

@@ -40,7 +40,8 @@ export interface Target {
     /**
      * A character with a portrait view: loop 0 the bust, loop 1 mouth shapes, loop 2 eyes
      * (cel 0 open), all cels the same size so the parts line up. The talker class gets
-     * `init: mouth bust eyes frame`; parts are a View (bust) and Props at `at`.
+     * `init: mouth bust eyes frame`; parts are a View (bust) and Props at `at`. With `who`,
+     * the talker is also told the character's prop in the room, if it has one (`who:`).
      */
     portrait: {
         class: string;
@@ -48,6 +49,7 @@ export interface Target {
         at: [number, number];
         frameSignal: number;
         partSignal: number;
+        who?: boolean;
     };
     /**
      * Conversations: an instance of this class runs a menu of topics for a thing (e.g. a

package/packages/content/src/target.ts

@@ -37,9 +37,10 @@ export interface Target {
   /**
    * A character with a portrait view: loop 0 the bust, loop 1 mouth shapes, loop 2 eyes
    * (cel 0 open), all cels the same size so the parts line up. The talker class gets
-   * `init: mouth bust eyes frame`; parts are a View (bust) and Props at `at`.
+   * `init: mouth bust eyes frame`; parts are a View (bust) and Props at `at`. With `who`,
+   * the talker is also told the character's prop in the room, if it has one (`who:`).
    */
-  portrait: { class: string; props: Record<string, number>; at: [number, number]; frameSignal: number; partSignal: number };
+  portrait: { class: string; props: Record<string, number>; at: [number, number]; frameSignal: number; partSignal: number; who?: boolean };
   /**
    * Conversations: an instance of this class runs a menu of topics for a thing (e.g. a
    * Teller with `init: client modNum sayNoun verb rootNoun`; topic labels are messages at

package/tools/game/target.js

@@ -31,8 +31,8 @@ export function libraryTarget(globals, items = {}) {
         heroTalker: 98,
         firstRoomTalker: 200,
         voice: { class: "Talker", props: {} },
-        // Portraits stand at the top left, the text beside them.
-        portrait: { class: "PortraitTalker", props: {}, at: [8, 8], frameSignal: 0, partSignal: 0 },
+        // Portraits stand at the top, left or right by where the character is (who:).
+        portrait: { class: "PortraitTalker", props: {}, at: [8, 8], frameSignal: 0, partSignal: 0, who: true },
         teller: { class: "Teller", props: {}, verb: 2 },
         forwardCycle: "Forward",
         closeUp: "CloseUp",

package/tools/game/target.ts

@@ -33,8 +33,8 @@ export function libraryTarget(globals: readonly string[], items: Record<string,
     heroTalker: 98,
     firstRoomTalker: 200,
     voice: { class: "Talker", props: {} },
-    // Portraits stand at the top left, the text beside them.
-    portrait: { class: "PortraitTalker", props: {}, at: [8, 8], frameSignal: 0, partSignal: 0 },
+    // Portraits stand at the top, left or right by where the character is (who:).
+    portrait: { class: "PortraitTalker", props: {}, at: [8, 8], frameSignal: 0, partSignal: 0, who: true },
     teller: { class: "Teller", props: {}, verb: 2 },
     forwardCycle: "Forward",
     closeUp: "CloseUp",