sci2-ts 0.6.1 → 0.7.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.7.0](https://github.com/rlueder/sci-ts/compare/v0.6.1...v0.7.0) (2026-10-01)
+
+### Added
+
+* **lib:** text speed, and dismissing a line from the keyboard ([#6](https://github.com/rlueder/sci-ts/issues/6)) ([3ab244b](https://github.com/rlueder/sci-ts/commit/3ab244b0d96a34dd0c3e7d13b1f52404fdceccfe))
+
 ## [0.6.1](https://github.com/rlueder/sci-ts/compare/v0.6.0...v0.6.1) (2026-10-01)
 
 ### Fixed

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))
 
+  (method (textSpeedName)
+    (switch textSpeed
+      (TEXT_SLOW (return "slow"))
+      (TEXT_FAST (return "fast"))
+      (TEXT_CLICK (return "until I click"))
+      (else (return "normal"))))
+
   ;; The saves there are now.
   (method (load)
     (self release:)
@@ -117,7 +125,15 @@
         (switch v
           (SR_SAVE (self save:))
           (SR_RESTORE (self restore:))
-          (SR_RESTART (RestartGame))))
+          (SR_RESTART (RestartGame))
+          ;; The next speed, slowest first; the menu again, showing it.
+          (SR_TEXT
+            (switch textSpeed
+              (TEXT_SLOW (= textSpeed TEXT_NORMAL))
+              (TEXT_NORMAL (= textSpeed TEXT_FAST))
+              (TEXT_FAST (= textSpeed TEXT_CLICK))
+              (else (= textSpeed TEXT_SLOW)))
+            (self showMenu:))))
       (SR_SAVE (if v (self askDescription: (- v 1))))
       (SR_RESTORE
         (if v

package/lib/996.sc

@@ -93,8 +93,9 @@
     (if bitmap (Bitmap BITMAP_DISPOSE bitmap) (= bitmap 0))
     (super dispose:)))
 
-;; Shows a line until it's been there long enough to read, or the player clicks; then
-;; cues whoever asked. The narrator speaks for no one in particular.
+;; 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.
 (class Narrator of Obj
   (properties
     caller 0
@@ -119,15 +120,26 @@
         yourself:))
     (box init:)
     (= talking self)
-    ;; Two seconds, and more for longer lines.
-    (= until (+ gameTime 120 (* 3 (String STRING_LENGTH txt)))))
+    (= until (self readingTime: (String STRING_LENGTH txt))))
+
+  ;; Game time to read a line of n characters: normally two seconds, and more for longer
+  ;; lines; -1 is until the player dismisses it.
+  (method (readingTime n)
+    (switch textSpeed
+      (TEXT_SLOW (return (+ gameTime 180 (* 5 n))))
+      (TEXT_FAST (return (+ gameTime 70 (* 2 n))))
+      (TEXT_CLICK (return -1))
+      (else (return (+ gameTime 120 (* 3 n))))))
 
   (method (doit)
-    (if (and box (>= gameTime until)) (self done:)))
+    (if (and box (!= until -1) (>= gameTime until)) (self done:)))
 
-  ;; A click while a line is up dismisses it (and nothing else).
+  ;; A click, Enter, Space or "." while a line is up dismisses it (and nothing else).
   (method (handleEvent event)
-    (if (and box (== (event type?) EV_MOUSE_DOWN))
+    (if (and box
+          (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)))))
       (event claimed: TRUE)
       (self done:)
       (return TRUE))

package/lib/999.sc

@@ -31,7 +31,8 @@
   textStyle       ; how text boxes and menus look (a TextStyle)
   inventory       ; what the hero carries (an Inventory)
   theItem         ; the item picked to use, or 0
-  iconBar)        ; the icon bar (an IconBar)
+  iconBar         ; the icon bar (an IconBar)
+  textSpeed)      ; how long a line stays up: TEXT_NORMAL, TEXT_SLOW, TEXT_FAST, TEXT_CLICK
 
 (procedure (SetFlag n)
   (|= [gameFlags (/ n 16)] (<< 1 (mod n 16))))

package/lib/system.sh

@@ -44,6 +44,14 @@
 (define SR_RESTORE 3)
 (define SR_RESTART 4)
 (define SR_NAME 5)
+(define SR_TEXT 6)
+
+;; How long a line stays up (the textSpeed global): normal (the default), slow, fast, or
+;; until the player clicks.
+(define TEXT_NORMAL 0)
+(define TEXT_SLOW 1)
+(define TEXT_FAST 2)
+(define TEXT_CLICK 3)
 
 ;; Event types, as GetEvent reports them.
 (define EV_NULL 0)
@@ -54,6 +62,8 @@
 ;; Keys (an event's message).
 (define KEY_TAB 9)
 (define KEY_ENTER 13)
+(define KEY_SPACE 32)
+(define KEY_PERIOD 46)
 (define KEY_ESCAPE 27)
 (define KEY_F5 $3f00)
 (define KEY_F7 $4100)
@@ -78,6 +88,7 @@
 (define ARRAY_AT_PUT 3)
 (define ARRAY_FREE 4)
 (define STRING_LENGTH 10)
+(define STRING_FORMAT 11)
 (define STRING_FORMAT_INTO 12)
 (define ARRAY_COPY 6)
 

package/package.json

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