sci2-ts 0.16.0 → 0.17.0

package/CHANGELOG.md

@@ -4,6 +4,12 @@ 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.17.0](https://github.com/rlueder/sci-ts/compare/v0.16.0...v0.17.0) (2026-10-02)
+
+### Added
+
+* **lib:** a sliding icon bar, and portraits at the bottom of the screen ([#20](https://github.com/rlueder/sci-ts/issues/20)) ([31e82ca](https://github.com/rlueder/sci-ts/commit/31e82ca33478c163b80b4f4fb16c5718b3c36bae))
+
 ## [0.16.0](https://github.com/rlueder/sci-ts/compare/v0.15.1...v0.16.0) (2026-10-02)
 
 ### Added

package/lib/991.sc

@@ -31,10 +31,16 @@
     top -1
     box 0
     icons 0
-    height 0)
+    height 0
+    slides TRUE     ; slides down from above the screen, and back up when it closes
+    shown 0         ; how far down it is: 0 all the way, -height out of sight
+    leaving 0)      ; sliding back up
 
   (method (show &tmp x y step)
-    (if box (return))
+    ;; Opened again while it slides away: it comes back down.
+    (if box
+      (if leaving (= leaving 0) (= dialog self))
+      (return))
     (if (!= skin -1)
       (= box ((View new:) view: skin loop: 0 cel: 0 x: 0 y: 0 yourself:))
       (box init:)
@@ -66,7 +72,37 @@
     (self addIcon: (+ x (* 4 step)) y -1 V_ITEM)
     (self addIcon: (+ x (* 5 step)) y 4 ICON_INVENTORY)
     (self addIcon: (+ x (* 6 step)) y 5 ICON_MENU)
-    (= dialog self))
+    (= dialog self)
+    (if slides
+      (= shown 0)
+      (self moveBy: (- height))
+      (= shown (- height))))
+
+  ;; Everything in the bar up or down by dy.
+  (method (moveBy dy &tmp node icon)
+    (box y: (+ (box y?) dy))
+    (UpdateScreenItem box)
+    (for ((= node (FirstNode (icons elements?)))) node ((= node (NextNode node)))
+      (= icon (NodeValue node))
+      (icon y: (+ (icon y?) dy))
+      (UpdateScreenItem icon)))
+
+  ;; A cycle of sliding (the User calls it while the bar is up): down while it opens, up
+  ;; while it closes, quickly at first and easing to a stop.
+  (method (step &tmp d)
+    (cond
+      ((not box) 0)
+      (leaving
+        (= d (+ 4 (/ (+ height shown) 3)))
+        (if (> d (+ height shown)) (= d (+ height shown)))
+        (self moveBy: (- d))
+        (-= shown d)
+        (if (<= shown (- height)) (self remove:)))
+      ((< shown 0)
+        (= d (+ 2 (/ (- shown) 3)))
+        (if (> d (- shown)) (= d (- shown)))
+        (self moveBy: d)
+        (+= shown d))))
 
   ;; An icon at (x, y): cel c of the bar's view (-1: the item in use), standing for `what`.
   (method (addIcon theX theY c what &tmp icon)
@@ -85,8 +121,17 @@
     (icon plane: uiPlane setPri: (+ (box priority?) 1))
     (icons add: icon))
 
+  ;; Closes it: it slides away (or goes at once, without slides), and stops taking clicks.
   (method (hide)
     (if (== dialog self) (= dialog 0))
+    (if (and slides box)
+      (= leaving 1)
+     else
+      (self remove:)))
+
+  (method (remove)
+    (= leaving 0)
+    (= shown 0)
     (if icons
       (icons eachElementDo: #dispose)
       (icons dispose:)

package/lib/995.sc

@@ -73,6 +73,7 @@
 
   (method (doit)
     (self showCursor:)
+    (if (and iconBar (iconBar box?)) (iconBar step:))
     (while (GetEvent EV_ALL theEvent)
       (self handleEvent: theEvent))
     ;; theEvent now says where the pointer is: at the top edge, the icon bar comes down.

package/lib/996.sc

@@ -20,7 +20,7 @@
     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
+    portraitY 8     ; its top; below 0, its bottom that far above the screen's, its text with it
     nameFont -1))   ; the font for a speaker's name before their line (-1: the text's)
 
 ;; A box of text over the room: drawn by the interpreter into a bitmap, shown as a screen
@@ -245,21 +245,29 @@
     (if (and (!= self heroTalker) heroTalker (heroTalker respondsTo: #otherSide)) (heroTalker otherSide: s))
     (return s))
 
-  ;; Whether the portrait on side s (frame and all) would be over the speaker or the hero.
-  (method (covers face s &tmp pw ph over left right bottom)
+  ;; Where the face's top goes: textStyle's portraitY, or below 0, counted up from the bottom.
+  (method (faceTop face &tmp py)
+    (= py (textStyle portraitY?))
+    (return (if (< py 0) (- (+ SCREEN_HEIGHT py) (CelHigh (face view?) 0 0)) else py)))
+
+  ;; Whether the portrait on side s (frame and all) would be over the speaker's or the hero's
+  ;; head.
+  (method (covers face s &tmp pw ph over left right top bottom f)
     (= pw (CelWide (face view?) 0 0))
     (= ph (CelHigh (face view?) 0 0))
-    (= over (if (!= (textStyle portraitFrame?) -1) (/ (- (CelWide (textStyle portraitFrame?) 0 0) pw) 2) else 0))
+    (= f (textStyle portraitFrame?))
+    (= over (if (!= f -1) (/ (- (CelWide f 0 0) pw) 2) else 0))
     (= left (if s (- SCREEN_WIDTH (+ (textStyle portraitX?) pw over)) else (- (textStyle portraitX?) over)))
     (= right (+ left pw over over))
-    (= bottom (+ (textStyle portraitY?) ph over))
+    (= top (- (self faceTop: face) (if (!= f -1) (- (- (CelHigh f 0 0) ph) over) else 0)))
+    (= bottom (+ (self faceTop: face) ph over))
     (return
       (or
-        (self over: (if (== self heroTalker) ego else who) left right bottom)
-        (and (!= self heroTalker) (self over: ego left right bottom)))))
+        (self over: (if (== self heroTalker) ego else who) left right top bottom)
+        (and (!= self heroTalker) (self over: ego left right top bottom)))))
 
-  ;; Whether someone's figure reaches into the screen's top band from left to right, down to bottom.
-  (method (over body left right bottom &tmp w h)
+  ;; Whether someone's head (the top quarter of their figure) is in the box.
+  (method (over body left right top bottom &tmp w h)
     (if (or (not body) (not (body respondsTo: #view)) (& (body signal?) SIG_HIDDEN)) (return FALSE))
     (= w (CelWide (body view?) (body loop?) (body cel?)))
     (= h (CelHigh (body view?) (body loop?) (body cel?)))
@@ -267,7 +275,8 @@
       (= w (/ (* w (body scaleX?)) 128))
       (= h (/ (* h (body scaleY?)) 128)))
     (return
-      (and (< (- (body x?) (/ w 2)) right) (> (+ (body x?) (/ w 2)) left) (< (- (body y?) h) bottom))))
+      (and (< (- (body x?) (/ w 2)) right) (> (+ (body x?) (/ w 2)) left)
+        (< (- (body y?) h) bottom) (> (+ (- (body y?) h) (/ h 4)) top))))
 
   (method (say txt whoCares &tmp face l pw f fx fy over)
     (self init: makeParts:)
@@ -279,7 +288,7 @@
       (= 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?))
+      (= fy (self faceTop: face))
       (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))
@@ -288,8 +297,9 @@
         (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)
+      ;; The text beside it, towards the middle: level with its top, or at the bottom of the
+      ;; screen, ending level with its frame's bottom and growing upwards.
+      (= y (if (< (textStyle portraitY?) 0) (- (+ fy (CelHigh (face view?) l 0) over) SCREEN_HEIGHT) else fy))
       (if side
         (= x 6)
         (= width (- fx (+ over 12)))

package/package.json

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