sci2-ts 0.16.0 → 0.18.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.18.0](https://github.com/rlueder/sci-ts/compare/v0.17.0...v0.18.0) (2026-10-03)
+
+### Added
+
+* **lib:** painted game menu with lit rows, arrow keys, Escape and unavailable choices ([#21](https://github.com/rlueder/sci-ts/issues/21)) ([17dfd28](https://github.com/rlueder/sci-ts/commit/17dfd28c0f16379714a058869b7b698dc5338344))
+
+## [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/992.sc

@@ -51,14 +51,18 @@
     field 0         ; the description being typed
     slot 0)         ; the save it goes into
 
+  ;; Painted with the textStyle's menuSkin, if it has one; Restore is unavailable there until
+  ;; there's a save.
   (method (showMenu &tmp menu)
     (= mode SR_MENU)
-    (= menu (Menu new:))
+    (self load:)
+    (= menu ((Menu new:) painted: TRUE yourself:))
     (menu
       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:)))
+    (if (not count) ((menu valued: SR_RESTORE) disabled: TRUE))
     ;; 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:))))

package/lib/995.sc

@@ -73,11 +73,13 @@
 
   (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.
+    ;; theEvent now says where the pointer is: an open menu or the icon bar follows it, and at
+    ;; the top edge the icon bar comes down.
     (cond
-      ((== dialog iconBar) (iconBar pointerAt: (theEvent x?) (theEvent y?)))
+      ((and dialog (dialog respondsTo: #pointerAt)) (dialog pointerAt: (theEvent x?) (theEvent y?)))
       ((and canInput (not dialog) (not talking) (<= (theEvent y?) ICON_BAR_EDGE)) (iconBar show:))))
 
   ;; The verb right-click goes to: walk, do, look, talk, the item picked (if any), walk.

package/lib/996.sc

@@ -10,6 +10,14 @@
 ;; A frame is a view whose loop 0 has eight cels, each anchored at its top-left corner: the
 ;; corners (top-left, top-right, bottom-left, bottom-right), then the edges (top, bottom, left,
 ;; right). The edges are tiled between the corners; transparent pixels show the paper.
+;;
+;; The game menu can be painted instead (the casebook, say): `menuSkin` is a view whose loop
+;; 0, cel 0 is the panel, its title painted in, loop 1 the row behind a choice and loop 2 the
+;; bullet before it, each with a cel for a choice as it is, under the pointer or keyboard
+;; focus, pressed and unavailable; all anchored at their top-left corners. The panel goes at
+;; menuX, menuY (-1: centred), the rows from menuRowX, menuRowY down by menuRowStep, the
+;; bullet and the text at their offsets in the row. The text is in the four menu colours.
+;;   (textStyle menuSkin: 269 menuX: 38 menuY: 11 menuRowX: 10 menuRowY: 29 menuRowStep: 22)
 (class TextStyle of Obj
   (properties
     font 0
@@ -20,8 +28,17 @@
     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
-    nameFont -1))   ; the font for a speaker's name before their line (-1: the text's)
+    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)
+    menuSkin -1     ; the game menu's painted panel, rows and bullets, or -1 (above)
+    menuX -1 menuY -1
+    menuRowX 10 menuRowY 29 menuRowStep 22
+    menuBulletX 5 menuBulletY 5
+    menuTextX 25 menuTextY 4
+    menuFore -1     ; the text of a choice, under the pointer, pressed, unavailable (-1: fore)
+    menuHover -1
+    menuPressed -1
+    menuDisabled -1))
 
 ;; 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
@@ -44,6 +61,7 @@
     borderColor -2  ; -1: none
     frame -2        ; -1: none
     textLeft 0 textTop 0 textRight -1 textBottom -1
+    margin -1       ; between the text and the edge, or the frame (-1: the textStyle's)
     width 200
     height 0
     bottom -1)      ; -1: placed at y
@@ -55,7 +73,7 @@
     (if (== frame -2) (= frame (textStyle frame?)))
     (if (== borderColor -2) (= borderColor (if (!= frame -1) -1 else (textStyle border?))))
     ;; As tall as the text needs, inside the margin and the frame.
-    (= m (textStyle margin?))
+    (= m (if (== margin -1) (textStyle margin?) else margin))
     (= padL m) (= padT m) (= padR m) (= padB m)
     (if (!= frame -1)
       (+= padL (CelWide frame 0 6))
@@ -245,21 +263,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 +293,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 +306,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 +315,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)))
@@ -379,19 +407,57 @@
   (method (cue)
     (self sayNext:)))
 
-;; One choice in a Menu.
+;; One choice in a Menu. In a painted menu it has a row and a bullet behind it, and is in one
+;; of the skin's states (MENU_NORMAL, MENU_HOVER, MENU_PRESSED, MENU_DISABLED).
 (class MenuItem of TextItem
   (properties
-    value 0)
+    value 0
+    disabled 0      ; can't be chosen: shown unavailable in a painted menu (a plain one ignores it)
+    row 0
+    bullet 0
+    state -1)
+
+  ;; Anywhere on its row, if it has one.
+  (method (onMe theX theY &tmp v)
+    (if (not row) (return (super onMe: theX theY)))
+    (= v (row view?))
+    (return
+      (and (>= theX (row x?)) (< theX (+ (row x?) (CelWide v 1 0)))
+        (>= theY (row y?)) (< theY (+ (row y?) (CelHigh v 1 0))))))
+
+  ;; Its row, bullet and text as they look in state st.
+  (method (setState st &tmp c)
+    (if (or (not row) (== st state)) (return))
+    (= state st)
+    (row setCel: st)
+    (bullet setCel: st)
+    (= c
+      (switch st
+        (MENU_HOVER (textStyle menuHover?))
+        (MENU_PRESSED (textStyle menuPressed?))
+        (MENU_DISABLED (textStyle menuDisabled?))
+        (else (textStyle menuFore?))))
+    (= fore (if (== c -1) (textStyle fore?) else c))
+    (if bitmap
+      (Bitmap BITMAP_DISPOSE bitmap)
+      (= bitmap (CreateTextBitmap 0 width height self))
+      (UpdateScreenItem self)))
 
   (method (dispose)
+    (if row (row dispose:) (= row 0))
+    (if bullet (bullet dispose:) (= bullet 0))
     ;; Its text was made for it (a literal string is left alone).
     (String ARRAY_FREE text)
     (super dispose:)))
 
-;; 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`.
+;; Choices one under another in a box (the textStyle's frame around them all); a click on one
+;; ends it, and Escape chooses the one worth 0 (Cancel, Carry on, Goodbye). While it's open it
+;; gets every event (it's the `dialog`). The caller hears the choice by `choose: value`.
+;;
+;; A `painted` menu is drawn with the textStyle's menuSkin instead, if it has one and the
+;; choices fit on its panel: each on its row, lit under the pointer, pressed while the button
+;; is down; the arrow keys move between them and Enter or Space chooses, and an unavailable
+;; one is passed over.
 (class Menu of Obj
   (properties
     items 0
@@ -399,56 +465,175 @@
     panel 0
     y 20            ; the top of the box
     width 240
-    next 0)         ; where the next choice goes
+    next 0          ; where the next choice goes
+    painted 0       ; drawn with the textStyle's menuSkin, if it fits
+    skin -1         ; the skin it's drawn with, or -1
+    focus 0         ; the choice that's lit
+    pressed 0       ; the choice the button went down on
+    pointerX -1 pointerY -1)
+
+  (method (add v txt &tmp item)
+    (if (not items) (= items (List new:)))
+    (= item ((MenuItem new:) value: v text: txt yourself:))
+    (items add: item)
+    (return self))
+
+  ;; The choices on their box, then it waits for one.
+  (method (show whoCares &tmp s)
+    (= caller whoCares)
+    (if (not items) (return))
+    (= s (textStyle menuSkin?))
+    (if (and painted (!= s -1)
+          (<= (+ (textStyle menuRowY?) (* (items size?) (textStyle menuRowStep?))) (CelHigh s 0 0)))
+      (= skin s)
+      (self showPainted:)
+     else
+      (self showPlain:))
+    (= dialog self))
 
-  (method (add v txt &tmp item f)
+  (method (showPlain &tmp f node item)
     (= 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
+    (= next (+ y (if (!= f -1) (CelHigh f 0 4) else 1)))
+    (for ((= node (FirstNode (items elements?)))) node ((= node (NextNode node)))
+      (= item (NodeValue node))
+      (item
         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
+        disabled: 0)
+      (item init:)
+      (+= next (item height?)))
+    (= 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:))
-    (item init:)
-    (+= next (item height?))
-    (items add: item)
-    (return self))
-
-  ;; 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)
+    (panel init:))
+
+  (method (showPainted &tmp px py rx ry node item)
+    (= px (if (== (textStyle menuX?) -1) (/ (- SCREEN_WIDTH (CelWide skin 0 0)) 2) else (textStyle menuX?)))
+    (= py (if (== (textStyle menuY?) -1) (/ (- SCREEN_HEIGHT (CelHigh skin 0 0)) 2) else (textStyle menuY?)))
+    (= panel (self part: 0 0 px py 99))
+    (= rx (+ px (textStyle menuRowX?)))
+    (= ry (+ py (textStyle menuRowY?)))
+    (for ((= node (FirstNode (items elements?)))) node ((= node (NextNode node)))
+      (= item (NodeValue node))
+      (item
+        row: (self part: 1 0 rx ry 100)
+        bullet: (self part: 2 0 (+ rx (textStyle menuBulletX?)) (+ ry (textStyle menuBulletY?)) 101)
+        frame: -1
+        borderColor: -1
+        margin: 0
+        back: 254
+        x: (+ rx (textStyle menuTextX?))
+        y: (+ ry (textStyle menuTextY?))
+        width: (- (CelWide skin 1 0) (textStyle menuTextX?))
+        height: (- (CelHigh skin 1 0) (textStyle menuTextY?))
+        priority: 102)
+      (item setState: (if (item disabled?) MENU_DISABLED else MENU_NORMAL))
+      (item init:)
+      (+= ry (textStyle menuRowStep?))))
+
+  ;; A cel of the skin on the screen, over the room whether or not there is one.
+  (method (part l c theX theY pri &tmp p)
+    (= p
+      ((View new:)
+        view: skin loop: l cel: c x: theX y: theY
+        plane: uiPlane priority: pri fixPriority: 1
+        yourself:))
+    (cast add: p)
+    (AddScreenItem p)
+    (return p))
+
+  ;; Lights choice it (0: none), and only it.
+  (method (light it &tmp node item)
+    (= focus it)
+    (for ((= node (FirstNode (items elements?)))) node ((= node (NextNode node)))
+      (= item (NodeValue node))
+      (item setState:
+        (cond
+          ((item disabled?) MENU_DISABLED)
+          ((and (== item pressed) (== item it)) MENU_PRESSED)
+          ((== item it) MENU_HOVER)
+          (else MENU_NORMAL)))))
+
+  ;; The User says where the pointer is each cycle: when it moves, what's under it is lit.
+  (method (pointerAt theX theY &tmp item)
+    (if (or (== skin -1) (and (== theX pointerX) (== theY pointerY))) (return))
+    (= pointerX theX)
+    (= pointerY theY)
+    (= item (items firstTrue: #onMe theX theY))
+    (if (and item (item disabled?)) (= item 0))
+    (if (!= item focus) (self light: item)))
+
+  ;; The i-th choice, from 0.
+  (method (nth i &tmp node)
+    (for ((= node (FirstNode (items elements?)))) (and node i) ((= node (NextNode node)))
+      (-- i))
+    (return (if node (NodeValue node) else 0)))
+
+  ;; The choice worth v, or 0.
+  (method (valued v &tmp node)
+    (for ((= node (FirstNode (items elements?)))) node ((= node (NextNode node)))
+      (if (== ((NodeValue node) value?) v) (return (NodeValue node))))
+    (return 0))
+
+  ;; Lights the next choice that's available, dir 1 down or -1 up, round from the end.
+  (method (step dir &tmp i n k node item)
+    (= n (items size?))
+    (= i (if (> dir 0) -1 else n))
+    (= k 0)
+    (for ((= node (FirstNode (items elements?)))) node ((= node (NextNode node)))
+      (if (== (NodeValue node) focus) (= i k))
+      (++ k))
+    (for ((= k 0)) (< k n) ((++ k))
+      (= i (mod (+ i dir n) n))
+      (= item (self nth: i))
+      (if (not (item disabled?))
+        (self light: item)
+        (return))))
+
+  (method (handleEvent event &tmp item)
     (event claimed: TRUE)
-    (if (!= (event type?) EV_MOUSE_DOWN) (return TRUE))
-    (= item (items firstTrue: #onMe (event x?) (event y?)))
-    (if item
-      (= v (item value?))
-      (= c caller)
-      (self dispose:)
-      (c choose: v))
+    (switch (event type?)
+      (EV_KEY_DOWN
+        (switch (event message?)
+          (KEY_ESCAPE (self pick: (self valued: 0)))
+          (KEY_UP (if (!= skin -1) (self step: -1)))
+          (KEY_DOWN (if (!= skin -1) (self step: 1)))
+          (KEY_ENTER (if focus (self pick: focus)))
+          (KEY_SPACE (if focus (self pick: focus)))))
+      (EV_MOUSE_DOWN
+        (= item (items firstTrue: #onMe (event x?) (event y?)))
+        (cond
+          ((== skin -1) (self pick: item))
+          ((and item (not (item disabled?)))
+            (= pressed item)
+            (self light: item))))
+      (EV_MOUSE_UP
+        (if pressed
+          (= item (items firstTrue: #onMe (event x?) (event y?)))
+          (if (== item pressed)
+            (self pick: item)
+           else
+            (= pressed 0)
+            (self light: (if (and item (not (item disabled?))) item else 0))))))
     (return TRUE))
 
+  ;; Ends it with that choice (none: it stays open).
+  (method (pick item &tmp v c)
+    (if (or (not item) (item disabled?)) (return))
+    (= v (item value?))
+    (= c caller)
+    (self dispose:)
+    (c choose: v))
+
   ;; Closed without a choice.
   (method (dismiss)
     (self dispose:))

package/lib/system.sh

@@ -39,6 +39,12 @@
 
 (define SAVE_DESCRIPTION 36)
 (define SAVES_SHOWN 8)
+;; A painted menu choice's look: the cels of the skin's row and bullet loops.
+(define MENU_NORMAL 0)
+(define MENU_HOVER 1)
+(define MENU_PRESSED 2)
+(define MENU_DISABLED 3)
+
 (define SR_MENU 1)
 (define SR_SAVE 2)
 (define SR_RESTORE 3)
@@ -74,6 +80,8 @@
 (define KEY_SPACE 32)
 (define KEY_PERIOD 46)
 (define KEY_ESCAPE 27)
+(define KEY_UP $4800)
+(define KEY_DOWN $5000)
 (define KEY_F5 $3f00)
 (define KEY_F7 $4100)
 (define KEY_I 73)

package/package.json

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