diff --git a/apps/adventure-arena/controllers/LibraryController.lua b/apps/adventure-arena/controllers/LibraryController.lua
index 3aad6b5a..36fecd97 100644
--- a/apps/adventure-arena/controllers/LibraryController.lua
+++ b/apps/adventure-arena/controllers/LibraryController.lua
@@ -17,13 +17,12 @@ function Controller.new(options)
 	}, Controller)
 end
 
--- Where a saved story stands, in the words a reader uses: the chapter and
--- the room, then the status line and how far the score has come.
+-- Where a saved story stands, in the words a reader uses: the room, then
+-- the status line and how far the score has come.
 function Controller:progressEntry(record)
 	local game = self.model:find(record.gameId)
 	if not game then return nil end
-	local chapter = (record.chapter or 0) > 0 and ("Chapter " .. Session.roman(record.chapter)) or nil
-	local place = chapter and record.room and (chapter .. " · " .. record.room) or record.room or game.title
+	local place = record.room or game.title
 	local maxScore = tonumber(record.maxScore) or 0
 	return {
 		game = game,
diff --git a/apps/adventure-arena/controllers/ReadingSettingsController.lua b/apps/adventure-arena/controllers/ReadingSettingsController.lua
index 2c1b1ccb..3ef523d5 100644
--- a/apps/adventure-arena/controllers/ReadingSettingsController.lua
+++ b/apps/adventure-arena/controllers/ReadingSettingsController.lua
@@ -52,6 +52,7 @@ function Controller:actions()
 		decreaseSize = function() self:apply(model:adjustFontSize(-1)) end,
 		increaseSize = function() self:apply(model:adjustFontSize(1)) end,
 		justifyChanged = function(on) self:apply(model:setJustified(on)) end,
+		dropCapChanged = function(on) self:apply(model:setDropCap(on)) end,
 	}
 	for index = 0, #model.themes() - 1 do
 		actions["theme_" .. index] = function() self:apply(model:setThemeIndex(index)) end
diff --git a/apps/adventure-arena/controllers/SessionController.lua b/apps/adventure-arena/controllers/SessionController.lua
index e910af7e..12d3f59d 100644
--- a/apps/adventure-arena/controllers/SessionController.lua
+++ b/apps/adventure-arena/controllers/SessionController.lua
@@ -90,6 +90,8 @@ function Controller:show(id, fresh)
 		dictate = function() self:toggleDictation() end,
 		close = function() self:close() end,
 		readingSettings = function() self:showReadingSettings() end,
+		-- The reader's page no longer shows the compass; Compass.etlua
+		-- still binds to this when a page includes it.
 		compassDrag = function(gesture)
 			if type(gesture) ~= "table" or not self.refs then return end
 			local direction = CompassGesture.direction(gesture.translation)
@@ -193,17 +195,51 @@ function Controller:renderTranscript()
 		font = settings.font, fontSize = settings.fontSize, lineSpacing = settings.lineSpacing,
 		alignment = settings.alignment, primary = settings.primaryTextColor,
 		secondary = settings.secondaryTextColor, rule = settings.ruleColor,
+		dropCap = settings.dropCap,
 	}
 	data.reveal = self:revealState(data.earlierEntries)
-	data.actions = {}
+	data.linkMenus, data.actions = self:linkMenus(data.entries)
 	self.transcriptEarlier = data.earlierEntries
 	return self.transcript:update(data)
 end
 
+-- Links are live in the scene the reader stands in: the words of earlier
+-- rooms name things that are no longer at hand, so they are set as plain
+-- prose. Returns the menus keyed "entry_paragraph", as the Transcript
+-- template's paragraph ids are, and the action each menu item runs.
+function Controller:linkMenus(entries)
+	local menus, actions = {}, {}
+	local first = #entries + 1
+	for index = #entries, 1, -1 do
+		first = index
+		if entries[index].kind == "scene" then break end
+	end
+	for index = first, #entries do
+		for paragraph, links in pairs(entries[index].links or {}) do
+			local menu = {}
+			for linkIndex, link in ipairs(links) do
+				local items = {}
+				for itemIndex, action in ipairs(self.model:linkActions(link.target)) do
+					local name = table.concat({ "link", index, paragraph, linkIndex, itemIndex }, "_")
+					actions[name] = function() self:submitCommand(action.command) end
+					table.insert(items, { title = action.title, action = name })
+				end
+				if #items > 0 then
+					table.insert(menu, {
+						location = link.location, length = link.length, label = link.label, items = items,
+					})
+				end
+			end
+			if #menu > 0 then menus[index .. "_" .. paragraph] = menu end
+		end
+	end
+	return menus, actions
+end
+
 -- ── Typing ──────────────────────────────────────────────────────────────
 -- New prose is rendered whole and revealed by `revealedCharacters`, so its
 -- lines never reflow as it types; paragraphs still waiting are hidden, and
--- so is a whole entry (a chapter heading with it) until typing reaches it. The
+-- so is a whole entry (a scene's title with it) until typing reaches it. The
 -- template describes the reveal at each render (a command or a reading
 -- settings change); between renders each tick writes the one paragraph
 -- being typed.
@@ -355,8 +391,7 @@ function Controller:submitCommand(command)
 	self:beginTyping(firstNew)
 	local presentation = self.model:presentation()
 	self.refs.progress.text = presentation.progress
-	self.refs.sessionPlace.text = presentation.chapterLabel ~= ""
-		and (presentation.chapterLabel .. " · " .. presentation.roomTitle) or presentation.roomTitle
+	self.refs.sessionPlace.text = presentation.roomTitle
 	self.refs.input.text = ""
 	self.refs.dictationStatus.text = ""
 	self.refs.dictationStatus.hidden = true
diff --git a/apps/adventure-arena/models/ReadingSettings.lua b/apps/adventure-arena/models/ReadingSettings.lua
index 1f862b3a..a9dd1be2 100644
--- a/apps/adventure-arena/models/ReadingSettings.lua
+++ b/apps/adventure-arena/models/ReadingSettings.lua
@@ -48,6 +48,8 @@ function ReadingSettings.new(initial)
 		theme = indexOf(THEMES, initial.theme) and initial.theme or THEMES[1].id,
 		spacing = indexOf(SPACING, initial.spacing) and initial.spacing or "normal",
 		justified = initial.justified == true,
+		-- A scene opens with a dropped initial unless the reader turns it off.
+		dropCap = initial.dropCap ~= false,
 	}, ReadingSettings)
 	self:setFontSize(initial.fontSize or SIZE.default)
 	return self
@@ -85,11 +87,16 @@ function ReadingSettings:setJustified(value)
 	return true
 end
 
+function ReadingSettings:setDropCap(value)
+	self.dropCap = value == true
+	return true
+end
+
 -- Plain values for persistence; `ReadingSettings.new(snapshot)` restores them.
 function ReadingSettings:snapshot()
 	return {
 		font = self.font, fontSize = self.fontSize, theme = self.theme,
-		spacing = self.spacing, justified = self.justified,
+		spacing = self.spacing, justified = self.justified, dropCap = self.dropCap,
 	}
 end
 
@@ -115,6 +122,7 @@ function ReadingSettings:presentation()
 		spacingIndex = spacingIndex - 1,
 		justified = self.justified,
 		alignment = self.justified and "justified" or "leading",
+		dropCap = self.dropCap,
 		theme = theme.id,
 		themeIndex = themeIndex - 1,
 		themes = themes,
diff --git a/apps/adventure-arena/models/SavedGames.lua b/apps/adventure-arena/models/SavedGames.lua
index 3be1c402..5050d6c5 100644
--- a/apps/adventure-arena/models/SavedGames.lua
+++ b/apps/adventure-arena/models/SavedGames.lua
@@ -2,8 +2,8 @@ local SavedGames = {}
 SavedGames.__index = SavedGames
 
 -- Autosaves, one per adventure: the command history and random seed that
--- replay the story, plus what the library shows about it (chapter, room and
--- score) without starting an engine. The store is injected, so the model
+-- replay the story, plus what the library shows about it (room and score)
+-- without starting an engine. The store is injected, so the model
 -- never touches files; `store.load()` returns the saved table and
 -- `store.save(table)` persists it.
 local VERSION = 1
diff --git a/apps/adventure-arena/models/Session.lua b/apps/adventure-arena/models/Session.lua
index 8810d6e0..aafb3c4f 100644
--- a/apps/adventure-arena/models/Session.lua
+++ b/apps/adventure-arena/models/Session.lua
@@ -20,21 +20,8 @@ local DIRECTIONS = {
 -- reader keeps the most recent entries; the story itself is unaffected.
 local TRANSCRIPT = { limit = 120 }
 
-local ROMAN = {
-	{ 1000, "M" }, { 900, "CM" }, { 500, "D" }, { 400, "CD" }, { 100, "C" }, { 90, "XC" },
-	{ 50, "L" }, { 40, "XL" }, { 10, "X" }, { 9, "IX" }, { 5, "V" }, { 4, "IV" }, { 1, "I" },
-}
-
-function Session.roman(number)
-	local parts = {}
-	for _, pair in ipairs(ROMAN) do
-		while number >= pair[1] do
-			table.insert(parts, pair[2])
-			number = number - pair[1]
-		end
-	end
-	return table.concat(parts)
-end
+-- A tapped word offers a handful of actions, never a wall of them.
+local LINK = { actions = 6 }
 
 function Session.new(options)
 	options = options or {}
@@ -49,7 +36,7 @@ end
 
 function Session:reset()
 	self.entries, self.history = {}, {}
-	self.moves, self.score, self.maxScore, self.chapters, self.scoreChange = 0, 0, 0, 0, 0
+	self.moves, self.score, self.maxScore, self.scoreChange = 0, 0, 0, 0
 	self.availableDirections, self.exitList = {}, {}
 	self.items, self.knownItems, self.knownByNoun = {}, {}, {}
 	self.roomTitle, self.scene, self.openEntry = nil, nil, nil
@@ -110,9 +97,10 @@ end
 
 -- ── Transcript structure ────────────────────────────────────────────────
 -- The engine prints plain text. Books give the reader structure, so the
--- transcript is parsed into a title-page banner, scenes (a new room opens a
--- chapter whose first letter is set as a drop cap), the player's own commands, and
--- narration.
+-- transcript is parsed into a title-page banner, scenes (a new room opens
+-- one under the room's name), the player's own commands, and narration.
+-- Stories mark the words a reader can act on as "[[label]]" or
+-- "[[label->target]]"; paragraphs keep the label and carry the links apart.
 
 local function trim(text)
 	return (tostring(text or ""):gsub("^%s+", ""):gsub("%s+$", ""))
@@ -154,12 +142,39 @@ local function splitFirstLine(paragraph)
 	return trim(first), rest ~= "" and rest or nil
 end
 
+-- Splits link markup from prose. Returns the text as the reader sees it and
+-- its links, each { location, length, label, target }: `location` counts
+-- characters from 0 as `utf8.len` does, and `target` is the parser's word
+-- for the thing (the label itself when the story names no other).
+function Session.parseLinks(text)
+	text = tostring(text or "")
+	local plain, links, position = {}, {}, 1
+	local length = 0
+	local function keep(piece)
+		table.insert(plain, piece)
+		length = length + (utf8.len(piece) or #piece)
+	end
+	while true do
+		local first, last, body = text:find("%[%[(.-)%]%]", position)
+		if not first then break end
+		keep(text:sub(position, first - 1))
+		local label, target = body:match("^(.-)%->(.*)$")
+		label, target = trim(label or body), trim(target or body)
+		if label ~= "" and target ~= "" then
+			table.insert(links, {
+				location = length, length = utf8.len(label) or #label,
+				label = label, target = target:lower(),
+			})
+		end
+		keep(label)
+		position = last + 1
+	end
+	keep(text:sub(position))
+	return table.concat(plain), links
+end
+
 function Session:beginScene(title)
-	self.chapters = self.chapters + 1
-	local scene = {
-		kind = "scene", chapter = self.chapters, chapterLabel = "Chapter " .. Session.roman(self.chapters),
-		title = title, paragraphs = {},
-	}
+	local scene = { kind = "scene", title = title, paragraphs = {}, links = {} }
 	table.insert(self.entries, scene)
 	self.scene, self.openEntry = scene, scene
 	return scene
@@ -167,10 +182,56 @@ end
 
 function Session:appendParagraph(paragraph)
 	if not self.openEntry then
-		self.openEntry = { kind = "narration", paragraphs = {} }
+		self.openEntry = { kind = "narration", paragraphs = {}, links = {} }
 		table.insert(self.entries, self.openEntry)
 	end
-	table.insert(self.openEntry.paragraphs, paragraph)
+	local text, links = Session.parseLinks(paragraph)
+	table.insert(self.openEntry.paragraphs, text)
+	self.openEntry.links[#self.openEntry.paragraphs] = links
+end
+
+local function capitalized(text)
+	return (text:gsub("^%l", string.upper))
+end
+
+-- What a reader can do with a linked word, as { title, command } in the
+-- order they are likeliest to want. A direction walks; an object offers
+-- "examine" and the verbs the story accepts for it, where those need no
+-- second object. The command uses the story's own word for the thing.
+function Session:linkActions(target)
+	target = trim(target):lower()
+	if target == "" then return {} end
+	local direction = DIRECTIONS[target]
+	if direction then
+		return { { title = "Go " .. direction, command = direction } }
+	end
+	local words = {}
+	for word in target:gmatch("[%w']+") do words[word] = true end
+	local noun = Suggestions.noun(target)
+	local function find(items)
+		for _, item in ipairs(items) do
+			if item.noun == noun then return item end
+		end
+		for _, item in ipairs(items) do
+			for word in item.name:lower():gmatch("[%w']+") do
+				if words[word] then return item end
+			end
+		end
+	end
+	local item = find(self.items) or find(self.knownItems)
+	local verbs, seen = { "examine" }, { examine = true, look = true }
+	for _, verb in ipairs(item and Suggestions.oneTapVerbs(item) or {}) do
+		if not seen[verb] then
+			seen[verb] = true
+			table.insert(verbs, verb)
+		end
+	end
+	local actions = {}
+	for index = 1, math.min(#verbs, LINK.actions) do
+		local command = verbs[index] .. " " .. target
+		table.insert(actions, { title = capitalized(command), command = command })
+	end
+	return actions
 end
 
 function Session:appendOutput(text, openingTitle)
@@ -185,7 +246,7 @@ function Session:appendOutput(text, openingTitle)
 	end
 	-- A move without a printed heading still enters a new room: the scene
 	-- opens at the first paragraph that is not the title page.
-	-- The opening always starts Chapter I, even when the engine names no room.
+	-- The opening always starts a scene, even when the engine names no room.
 	local pendingRoom = not headingFound and (room or openingTitle)
 		and (not self.scene or self.scene.title ~= (room or openingTitle)) and (room or openingTitle) or nil
 
@@ -217,7 +278,7 @@ end
 
 -- `saved` is a snapshot from `Session:snapshot()`. The story is restored by
 -- replaying its commands against an engine seeded as before, which rebuilds
--- the chapters exactly as the reader first saw them.
+-- the transcript exactly as the reader first saw it.
 function Session:start(game, saved)
 	if not game then return false, "Adventure not found." end
 	if not self.engineFactory then return false, "No session engine configured." end
@@ -262,7 +323,7 @@ function Session:snapshot()
 	for _, command in ipairs(self.history) do table.insert(commands, command) end
 	return {
 		gameId = game.id, seed = self.seed, commands = commands,
-		chapter = self.chapters, room = self.roomTitle or (self.scene and self.scene.title) or game.title,
+		room = self.roomTitle or (self.scene and self.scene.title) or game.title,
 		score = self.score, maxScore = self.maxScore, moves = self.moves,
 	}
 end
@@ -329,7 +390,6 @@ function Session:presentation()
 		ink = game.ink or game.tint or "accent",
 		initialFont = game.initialFont,
 		roomTitle = self.roomTitle or (scene and scene.title) or game.title or "",
-		chapterLabel = scene and scene.chapterLabel or "",
 		entries = entries,
 		earlierEntries = earlier,
 		score = self.score,
diff --git a/apps/adventure-arena/models/Suggestions.lua b/apps/adventure-arena/models/Suggestions.lua
index 1d70c1a1..54f4338d 100644
--- a/apps/adventure-arena/models/Suggestions.lua
+++ b/apps/adventure-arena/models/Suggestions.lua
@@ -92,6 +92,22 @@ local function primaryVerb(item)
 	return best or "examine"
 end
 
+-- The verbs the story accepts for an item that make whole commands on
+-- their own, best known first; verbs outside the common set keep the
+-- story's order after them.
+function Suggestions.oneTapVerbs(item)
+	local verbs = {}
+	for index, verb in ipairs(item.verbs or {}) do
+		if not NEEDS_SECOND[verb] then
+			table.insert(verbs, { verb = verb, rank = VERB_RANK[verb] or (#VERBS + index) })
+		end
+	end
+	table.sort(verbs, function(a, b) return a.rank < b.rank end)
+	local names = {}
+	for _, entry in ipairs(verbs) do table.insert(names, entry.verb) end
+	return names
+end
+
 local function tokenize(input)
 	local words = {}
 	for word in input:lower():gmatch("%S+") do table.insert(words, word) end
diff --git a/apps/adventure-arena/services/ZILRuntime.lua b/apps/adventure-arena/services/ZILRuntime.lua
index 06261caa..6eb53925 100644
--- a/apps/adventure-arena/services/ZILRuntime.lua
+++ b/apps/adventure-arena/services/ZILRuntime.lua
@@ -66,6 +66,8 @@ function ZILRuntime.new(game, readFile, seed)
 		local runtime = require("zilscript.runtime")
 		local env = runtime.create_game_env()
 		env.rawget, env.rawset, env.rawequal = rawget, rawset, rawequal
+		-- The reader renders the story's link markup; see Session.parseLinks.
+		env.PROSE_LINKS = true
 		env.math = setmetatable({ random = ZILRuntime.random(seed or os.time()),
 			randomseed = function() end }, { __index = math })
 		local bootstrapPath = "apps/adventure-arena/zilscript/zilscript/bootstrap.lua"
diff --git a/apps/adventure-arena/views/ProseLinks.etlua b/apps/adventure-arena/views/ProseLinks.etlua
new file mode 100644
index 00000000..00e9c161
--- /dev/null
+++ b/apps/adventure-arena/views/ProseLinks.etlua
@@ -0,0 +1,10 @@
+<%
+  -- The words of a paragraph the reader can act on, and what each offers.
+%>
+<% for _, link in ipairs(links or {}) do %>
+<Hyperlink location="<%= link.location %>" length="<%= link.length %>" label="<%= link.label %>">
+  <% for _, item in ipairs(link.items) do %>
+  <MenuItem title="<%= item.title %>" action="<%= item.action %>" />
+  <% end %>
+</Hyperlink>
+<% end %>
diff --git a/apps/adventure-arena/views/ReadingOptions.etlua b/apps/adventure-arena/views/ReadingOptions.etlua
index 8ec22a0a..0d33644e 100644
--- a/apps/adventure-arena/views/ReadingOptions.etlua
+++ b/apps/adventure-arena/views/ReadingOptions.etlua
@@ -1,6 +1,6 @@
 <%
   -- Apple Books’ "Themes & Settings": type size, page themes shown as pages,
-  -- the face, the leading and justification. Used by the in-book sheet and the
+  -- the face, the leading, justification and drop caps. Used by the in-book sheet and the
   -- Settings tab; `preview` adds a sample page for when no book is behind it.
   local SWATCH = { width = 74, height = 92, radius = 16, sample = 26 }
 %>
@@ -50,13 +50,13 @@
       <Option title="Relaxed" />
     </Picker>
     <Toggle id="justifyToggle" label="Justify Text" value="<%= justified and 'true' or 'false' %>" onChange="justifyChanged" maxWidth="infinity" />
+    <Toggle id="dropCapToggle" label="Drop Caps" value="<%= dropCap and 'true' or 'false' %>" onChange="dropCapChanged" maxWidth="infinity" />
   </VStack>
 
   <% if preview then %>
   <VStack id="preview" padding="20" spacing="0" alignment="leading" background="<%= pageColor %>" cornerRadius="22" clipsToBounds="true" maxWidth="infinity">
-    <Label text="Chapter I" size="<%= fontSize - 3 %>" weight="semibold" color="systemIndigo|systemIndigo" smallCaps="true" />
-    <Label text="West of House" size="<%= fontSize + 6 %>" weight="semibold" design="serif" color="<%= primaryTextColor %>" paddingTop="2" paddingBottom="<%= math.floor(fontSize * 0.7) %>" />
-    <Paragraph id="previewBody" text="You are standing in an open field west of a white house, with a boarded front door. There is a small mailbox here." size="<%= fontSize %>" design="<%= font %>" color="<%= primaryTextColor %>" lineSpacing="<%= lineSpacing %>" alignment="<%= alignment %>" hyphenation="<%= justified and 'true' or 'false' %>" dropCap="true" dropCapFontName="SnellRoundhand-Bold" dropCapColor="systemIndigo" selectable="false" />
+    <Label text="West of House" size="<%= fontSize + 6 %>" weight="semibold" design="serif" color="<%= primaryTextColor %>" paddingBottom="<%= math.floor(fontSize * 0.7) %>" />
+    <Paragraph id="previewBody" text="You are standing in an open field west of a white house, with a boarded front door. There is a small mailbox here." size="<%= fontSize %>" design="<%= font %>" color="<%= primaryTextColor %>" lineSpacing="<%= lineSpacing %>" alignment="<%= alignment %>" hyphenation="<%= justified and 'true' or 'false' %>" dropCap="<%= dropCap and 'true' or 'false' %>" dropCapFontName="SnellRoundhand-Bold" dropCapColor="systemIndigo" selectable="false" />
   </VStack>
   <% end %>
 </VStack>
diff --git a/apps/adventure-arena/views/Session.etlua b/apps/adventure-arena/views/Session.etlua
index 541786a2..53b2f84d 100644
--- a/apps/adventure-arena/views/Session.etlua
+++ b/apps/adventure-arena/views/Session.etlua
@@ -1,15 +1,15 @@
 <%
   -- The reader. A page of the book fills the screen; the navigation bar is a
-  -- running head (the story, then the chapter and room). Everything that is
-  -- not the story floats in one Liquid Glass group at the foot of the page:
-  -- quick actions, the command field and the compass, with suggestion chips
-  -- above them and the status line set small like a book’s folio.
+  -- running head (the story, then the room). Everything that is not the
+  -- story floats in one Liquid Glass group at the foot of the page: quick
+  -- actions and the command field, with suggestion chips above them and the
+  -- status line set small like a book’s folio.
   local BAR = { height = 52, radius = 26, merge = 14 }
 %>
 <Page title="<%= gameTitle %>" hidesTabBar="true" titleDisplayMode="inline" backButtonDisplayMode="minimal" onDisappear="disappear">
 <Toolbar>
   <ToolbarItem id="sessionTitle" placement="principal" label="<%= gameTitle %>">
-    <%- partial("SessionTitle.etlua", { gameTitle = gameTitle, chapterLabel = chapterLabel, roomTitle = roomTitle }) %>
+    <%- partial("SessionTitle.etlua", { gameTitle = gameTitle, roomTitle = roomTitle }) %>
   </ToolbarItem>
   <ToolbarItem id="readingSettings" placement="primaryAction" icon="textformat.size" label="Themes and settings" action="readingSettings" />
 </Toolbar>
@@ -41,7 +41,6 @@
               <Button id="send" title="" systemImage="arrow.up.circle.fill" symbolSize="30" weight="semibold" foregroundStyle="accent" tint="<%= tint %>" accessibilityLabel="Send command" action="submit" style="plain" width="40" height="44" hidden="<%= speechAvailable and 'true' or 'false' %>" disabled="true" />
             </HStack>
           </GlassEffect>
-          <%- partial("Compass.etlua", { availableDirections = availableDirections, compassSegments = compassSegments, size = BAR.height }) %>
         </HStack>
       </GlassEffectContainer>
     </VStack>
diff --git a/apps/adventure-arena/views/SessionTitle.etlua b/apps/adventure-arena/views/SessionTitle.etlua
index ab1a7bf4..c529be65 100644
--- a/apps/adventure-arena/views/SessionTitle.etlua
+++ b/apps/adventure-arena/views/SessionTitle.etlua
@@ -1,8 +1,8 @@
 <%
-  -- A running head: the book’s title over the chapter and room, as printed
-  -- books carry the title on one page and the chapter on the facing one.
+  -- A running head: the book’s title over the room, as printed books carry
+  -- the title on one page and the section on the facing one.
 %>
 <VStack spacing="1" alignment="center" width="230">
   <Label id="sessionTitle" text="<%= gameTitle %>" size="15" weight="semibold" lines="1" truncation="tail" alignment="center" maxWidth="infinity" />
-  <Label id="sessionPlace" text="<%= chapterLabel ~= '' and (chapterLabel .. ' · ' .. roomTitle) or roomTitle %>" size="11" color="secondary" lines="1" truncation="tail" alignment="center" maxWidth="infinity" />
+  <Label id="sessionPlace" text="<%= roomTitle %>" size="11" color="secondary" lines="1" truncation="tail" alignment="center" maxWidth="infinity" />
 </VStack>
diff --git a/apps/adventure-arena/views/Transcript.etlua b/apps/adventure-arena/views/Transcript.etlua
index d9b9e9e1..10177d9e 100644
--- a/apps/adventure-arena/views/Transcript.etlua
+++ b/apps/adventure-arena/views/Transcript.etlua
@@ -3,11 +3,14 @@
   --  · A title page: the author in small capitals, the title in the story’s
   --    own face and colour, a fleuron, and the tagline as an epigraph.
   --  · The Infocom banner becomes the colophon, small and centred.
-  --  · Each new room opens a chapter: "Chapter II" in small capitals, the
-  --    room as its title, and a drop cap the first lines wrap around.
+  --  · Each new room opens a scene: the room as its title and, when the
+  --    reader keeps drop caps, an initial the first lines wrap around.
   --  · What the reader does is set in small capitals in the story’s colour,
   --    like a stage direction; the story answers in ordinary prose. Nothing
   --    is a bubble: the page is one continuous column of type.
+  --  · Words the reader can act on carry a dashed rule in the story’s colour
+  --    and open a menu of what can be done with them. `linkMenus` holds the
+  --    live links of each paragraph, keyed like `reveal`.
   -- `reading` carries the reader’s face, size, leading, alignment and inks.
   -- `reveal` holds the characters shown of paragraphs still typing, keyed
   -- "entry_paragraph"; they, and entries in `reveal.waiting`, wait hidden
@@ -15,12 +18,13 @@
   local size, lead = reading.fontSize, reading.lineSpacing
   local PAGE = {
     side = 24, top = 28, bottom = 24,
-    paragraph = math.floor(size * 0.75), chapter = math.floor(size * 2.6),
+    paragraph = math.floor(size * 0.75), scene = math.floor(size * 2.6),
     command = math.floor(size * 1.3), afterCommand = math.floor(size * 0.45),
     dropCapLines = 3,
   }
   local hyphenate = reading.alignment == "justified" and "true" or "false"
   reveal = reveal or { waiting = {} }
+  linkMenus = linkMenus or {}
   local function revealed(index, paragraphIndex)
     local shown = reveal[index .. "_" .. paragraphIndex]
     return string.format('revealedCharacters="%d" hidden="%s"', shown or -1, shown == 0 and "true" or "false")
@@ -31,7 +35,7 @@
 %>
 <VStack paddingHorizontal="<%= PAGE.side %>" paddingTop="<%= PAGE.top %>" paddingBottom="<%= PAGE.bottom %>" spacing="0" alignment="leading" maxWidth="infinity">
   <% if earlierEntries == 0 then %>
-  <VStack id="titlePage" spacing="10" alignment="center" maxWidth="infinity" paddingTop="12" paddingBottom="<%= PAGE.chapter - PAGE.paragraph %>">
+  <VStack id="titlePage" spacing="10" alignment="center" maxWidth="infinity" paddingTop="12" paddingBottom="<%= PAGE.scene - PAGE.paragraph %>">
     <% if gameAuthor ~= "" then %>
     <Label id="gameAuthor" text="<%= gameAuthor %>" size="<%= size - 3 %>" design="serif" smallCaps="true" color="<%= reading.secondary %>" alignment="center" />
     <% end %>
@@ -53,14 +57,15 @@
     <% end %>
   </VStack>
   <% elseif entry.kind == "scene" then %>
-  <VStack id="entry_<%= index %>" spacing="0" alignment="leading" maxWidth="infinity" paddingTop="<%= (index == 1 and earlierEntries == 0) and 0 or PAGE.chapter %>" <%- waiting(index) %>>
-    <Label id="chapter_<%= index %>" text="<%= entry.chapterLabel %>" size="<%= size - 3 %>" design="serif" weight="semibold" smallCaps="true" color="<%= ink %>" />
-    <VStack paddingTop="2" paddingBottom="<%= PAGE.paragraph + 2 %>" alignment="leading" maxWidth="infinity">
+  <VStack id="entry_<%= index %>" spacing="0" alignment="leading" maxWidth="infinity" paddingTop="<%= (index == 1 and earlierEntries == 0) and 0 or PAGE.scene %>" <%- waiting(index) %>>
+    <VStack paddingBottom="<%= PAGE.paragraph + 2 %>" alignment="leading" maxWidth="infinity">
       <Label id="sceneTitle_<%= index %>" text="<%= entry.title %>" size="<%= size + 9 %>" design="serif" weight="semibold" color="<%= reading.primary %>" lines="0" />
     </VStack>
     <VStack spacing="<%= PAGE.paragraph %>" alignment="leading" maxWidth="infinity">
       <% for paragraphIndex, paragraph in ipairs(entry.paragraphs) do %>
-      <Paragraph id="paragraph_<%= index %>_<%= paragraphIndex %>" text="<%= paragraph %>" size="<%= size %>" design="<%= reading.font %>" color="<%= reading.primary %>" lineSpacing="<%= lead %>" alignment="<%= reading.alignment %>" hyphenation="<%= hyphenate %>" dropCap="<%= paragraphIndex == 1 and 'true' or 'false' %>" dropCapLines="<%= PAGE.dropCapLines %>" dropCapFontName="<%= initialFont or '' %>" dropCapColor="<%= ink %>" <%- revealed(index, paragraphIndex) %> />
+      <Paragraph id="paragraph_<%= index %>_<%= paragraphIndex %>" text="<%= paragraph %>" size="<%= size %>" design="<%= reading.font %>" color="<%= reading.primary %>" lineSpacing="<%= lead %>" alignment="<%= reading.alignment %>" hyphenation="<%= hyphenate %>" dropCap="<%= (reading.dropCap and paragraphIndex == 1) and 'true' or 'false' %>" dropCapLines="<%= PAGE.dropCapLines %>" dropCapFontName="<%= initialFont or '' %>" dropCapColor="<%= ink %>" linkColor="<%= ink %>" <%- revealed(index, paragraphIndex) %>>
+        <%- partial("ProseLinks.etlua", { links = linkMenus[index .. "_" .. paragraphIndex] }) %>
+      </Paragraph>
       <% end %>
     </VStack>
   </VStack>
@@ -71,7 +76,9 @@
   <% else %>
   <VStack id="entry_<%= index %>" spacing="<%= PAGE.paragraph %>" alignment="leading" maxWidth="infinity" paddingTop="<%= (entries[index - 1] and entries[index - 1].kind == 'command') and PAGE.afterCommand or PAGE.paragraph %>" <%- waiting(index) %>>
     <% for paragraphIndex, paragraph in ipairs(entry.paragraphs) do %>
-    <Paragraph id="paragraph_<%= index %>_<%= paragraphIndex %>" text="<%= paragraph %>" size="<%= size %>" design="<%= reading.font %>" color="<%= reading.primary %>" lineSpacing="<%= lead %>" alignment="<%= reading.alignment %>" hyphenation="<%= hyphenate %>" <%- revealed(index, paragraphIndex) %> />
+    <Paragraph id="paragraph_<%= index %>_<%= paragraphIndex %>" text="<%= paragraph %>" size="<%= size %>" design="<%= reading.font %>" color="<%= reading.primary %>" lineSpacing="<%= lead %>" alignment="<%= reading.alignment %>" hyphenation="<%= hyphenate %>" linkColor="<%= ink %>" <%- revealed(index, paragraphIndex) %>>
+      <%- partial("ProseLinks.etlua", { links = linkMenus[index .. "_" .. paragraphIndex] }) %>
+    </Paragraph>
     <% end %>
   </VStack>
   <% end %>
diff --git a/apps/adventure-arena/zilscript b/apps/adventure-arena/zilscript
index a014873e..bf7d98ad 160000
--- a/apps/adventure-arena/zilscript
+++ b/apps/adventure-arena/zilscript
@@ -1 +1 @@
-Subproject commit a014873ea17fafbedf0d6cbf7ce10f092db811a4
+Subproject commit bf7d98ad363b5be40ddb618d9723c7188280d6cf
diff --git a/docs/PROJECT_REFERENCE.md b/docs/PROJECT_REFERENCE.md
index bd71b47d..14896ff3 100644
--- a/docs/PROJECT_REFERENCE.md
+++ b/docs/PROJECT_REFERENCE.md
@@ -778,6 +778,8 @@ around.
 | `dropCap`, `dropCapLines` (default 3) | drop the first letter through N lines |
 | `dropCapFontName`, `dropCapDesign`, `dropCapWeight`, `dropCapColor` | the initial's face and colour |
 | `revealedCharacters` | typewriter reveal: characters shown so far, counted as `utf8.len` counts them; `-1` (default) shows everything |
+| `linkColor` | colour of the dashed rule under links; defaults to the tint |
+| `<Hyperlink location length label>` children | the words a reader can act on; see **Links** below |
 
 The initial is sized by its **ink**, not font metrics: a plain capital spans
 from the first line's cap height to the last line's baseline, as in print; a
@@ -790,6 +792,30 @@ space. Implementation: a non-scrolling `UITextView` / non-editable
 `NSTextView` on TextKit 1 with `NSTextContainer.exclusionPaths`
 (`src/uikit/paragraph.m`, `src/appkit/paragraph.m`).
 
+**Links.** `<Hyperlink>` children mark runs of the text the reader can act
+on, as WPF sets `Hyperlink` inside a `TextBlock`. `location` (from 0) and
+`length` count characters as `utf8.len` does; `<MenuItem>` children are what
+the link offers:
+
+```xml
+<Paragraph text="A corroded brass plaque hangs askew on the gate.">
+  <Hyperlink location="11" length="12" label="plaque">
+    <MenuItem title="Examine plaque" action="examinePlaque" />
+    <MenuItem title="Read plaque" action="readPlaque" />
+  </Hyperlink>
+</Paragraph>
+```
+
+The words keep the body's colour and take a dashed underline in `linkColor`;
+a tap opens the menu at the words. On UIKit a link is a tagged text item
+(`UITextItemTagAttributeName`) whose menu the text view presents itself; on
+AppKit it is an `NSLinkAttributeName` run whose click pops up an `NSMenu`.
+Links follow the typewriter reveal: a link is ruled, and can be tapped, only
+once typing has reached it. A retained template gives new links to the same
+native view. Headless tests read links with `bridge._paragraphLinks(view)`
+and choose an item with `bridge._paragraphPerformLink(view, link, item)`.
+The shared link model and bridge are in `src/shared/paragraph_links.m`.
+
 **Typewriter reveal.** `revealedCharacters` is what SwiftUI typewriter
 effects build with `TextRenderer`: the whole paragraph is laid out once, so
 words never jump between lines as they appear, and unrevealed characters are
diff --git a/docs/research/ADVENTURE_ARENA_DESIGN.md b/docs/research/ADVENTURE_ARENA_DESIGN.md
index 57895b79..1deb188d 100644
--- a/docs/research/ADVENTURE_ARENA_DESIGN.md
+++ b/docs/research/ADVENTURE_ARENA_DESIGN.md
@@ -30,15 +30,24 @@ messaging app does. It now reads as a book:
 - **Title page.** The author in small capitals, the title in the story's own
   face and colour, a fleuron (❦), and the tagline as an italic epigraph. The
   Infocom banner follows as a colophon.
-- **Chapters.** A new room opens "CHAPTER IV" in small capitals and the room
-  name as a heading. The first paragraph begins with a **three-line drop cap**
-  that the text wraps around. It uses real TextKit exclusion paths, not a
-  side column.
+- **Scenes.** A new room opens with the room name as a heading; rooms are
+  not numbered as chapters. The first paragraph begins with a **three-line
+  drop cap** that the text wraps around, unless the reader turns **Drop
+  Caps** off in Themes & Settings. It uses real TextKit exclusion paths, not
+  a side column.
+- **Links.** Stories mark the words a reader can act on (`[[brass
+  plaque->plaque]]`, `[[north]]`; see zilscript's `WRITING_ADVENTURES.md`).
+  The page rules them with a dashed underline in the story's ink, and a tap
+  opens a menu of what can be done: "examine" and the verbs the story accepts
+  for the object, or "Go north" for a direction. Links are live in the scene
+  the reader stands in; the words of rooms left behind are plain prose.
 - **Your commands** are stage directions: small capitals in the story's ink,
   inline in the column, with no bubble and no right alignment. VoiceOver reads
   them as "You: …".
-- **Running head.** The navigation title is the book's title over "Chapter IV ·
-  Kitchen".
+- **Running head.** The navigation title is the book's title over the room.
+- **Command bar.** Quick actions and the command field, which fills the bar.
+  The draggable compass (`views/Compass.etlua`, `services/CompassGesture.lua`)
+  is kept as a component but is no longer on the reader's page.
 - **Folio.** The status line sits under the page in small type: "Score 10 of
   350 · 4 moves". Planetfall shows "Time 4602", because its MOVES global is the
   ship's chronometer.
@@ -55,12 +64,10 @@ messaging app does. It now reads as a book:
 ### Glass where the system puts it
 
 Everything that is not the story floats in one `GlassEffectContainer` at the
-foot of the page: the quick-actions menu, the command field, and the
-**compass**, which is now an SF Symbol (`location.north.fill`) inside the
-glass bar. Suggestion chips above them are glass buttons that merge as they
+foot of the page: the quick-actions menu and the command field. Suggestion chips above them are glass buttons that merge as they
 slide. When the score changes, a glass capsule ("✦ +10 points") drops from the
 top of the page with a success haptic and fades after 2.2 s. The whole page is
-tinted with the story's ink, so the cursor, send button and compass ring take
+tinted with the story's ink, so the cursor, send button and link rules take
 its colour.
 
 ## Colour: jewel tones, no brown
@@ -88,7 +95,7 @@ for ink on dark pages. The pair is used as one dynamic colour (`"#4338CA|#A5B4FC
   with a clear-glass **Read** capsule. **Continue Reading** follows once a story
   is in progress, then the shelves, Top Rated, and genre tiles, which now carry
   SF Symbols.
-- The **Library** tab lists every story in progress: cover, chapter and room,
+- The **Library** tab lists every story in progress: cover, room,
   a progress bar tinted to the story, the status line, and a menu with **Start
   Over** and **Remove from Library**.
 - **Search** is iOS 26's separate search tab (`role="search"`).
@@ -97,7 +104,7 @@ for ink on dark pages. The pair is used as one dynamic colour (`"#4338CA|#A5B4FC
 - **Detail** runs the cover under the navigation bar and shows an App Store
   fact strip (rating, difficulty, genre, year), the blurb as prose, review
   cards in a carousel, and a floating `glassProminent` button tinted to the
-  story: **Start Reading**, or **Continue · Chapter IV · Kitchen** with a
+  story: **Start Reading**, or **Continue · Kitchen** with a
   glass **Start Over** beside it.
 
 ### Autosave
@@ -106,7 +113,7 @@ Every command is saved. A save is the story's random seed plus its command
 history (`models/SavedGames.lua`, `services/JsonDocument.lua`). Resuming
 replays the commands against an engine seeded the same way
 (`ZILRuntime.random`, a private Park–Miller generator), which rebuilds the
-exact chapters and prose. It does not announce old points again. Opening a
+exact transcript. It does not announce old points again. Opening a
 book without playing it is not saved. Headless tests never touch the real
 store.
 
@@ -137,9 +144,9 @@ Each has headless tests (see `tests/paragraph.test.lua`,
 
 ## Next ideas, in priority order
 
-1. **Tappable nouns.** Link objects named in the prose. A tap offers that
-   object's verbs as chips, as Heaven's Vault and 80 Days do.
-2. **Chapter index and atlas.** Tapping the running head lists visited rooms
+1. **Links in every story.** Tappable words are authored in the prose;
+   Sanitarium's opening rooms have them. The other stories need a pass.
+2. **Room index and atlas.** Tapping the running head lists visited rooms
    and jumps to them. Later, draw the map from the exits.
 3. **Typographic covers** for stories without art: tint plus title in the
    story's face.
diff --git a/lua/embedded/AppKit.lua b/lua/embedded/AppKit.lua
index 93fce165..0ba5e979 100644
--- a/lua/embedded/AppKit.lua
+++ b/lua/embedded/AppKit.lua
@@ -1073,6 +1073,8 @@ end
 --- @prop dropCapLines number optional. Lines the initial spans; defaults to 3.
 --- @prop dropCapFontName string optional. Face for the initial; defaults to bold body.
 --- @prop revealedCharacters number optional. Typewriter reveal: characters shown so far (as `utf8.len` counts them); -1, the default, shows all. Lines are those of the whole text; only revealed lines take height.
+--- @prop links table optional. Runs the reader can act on, from `<Hyperlink>` children: `{ location, length, label, items }`, where `location` (from 0) and `length` count characters as `utf8.len` does and `items` are `<MenuItem>` records. A link is ruled with a dashed underline and opens its menu when tapped.
+--- @prop linkColor string optional. Colour of the rule under links; defaults to the tint.
 --- @prop dropCapColor string optional. Colour of the initial; defaults to the accent.
 --- @example <Paragraph text="Once upon a time…" design="serif" lineSpacing="5" dropCap="true" />
 --- @platform AppKit non-editable NSTextView (TextKit 1 exclusion paths). UIKit non-scrolling UITextView.
@@ -1095,6 +1097,8 @@ function AppKit.Paragraph(props)
 		if props.dropCapLines then view.dropCapLines = props.dropCapLines end
 		view.dropCap = true
 	end
+	if props.linkColor then view.linkColor = bridge._systemColor(props.linkColor) end
+	if props.links then bridge._paragraphSetLinks(view, props.links) end
 	if props.revealedCharacters then view.revealedCharacters = props.revealedCharacters end
 	if props.accessibilityLabel then view.accessibilityLabel = props.accessibilityLabel end
 	-- Prose fills the column it is given and wraps to it.
diff --git a/lua/embedded/UIKit.lua b/lua/embedded/UIKit.lua
index 906ca0c7..6cc321b5 100644
--- a/lua/embedded/UIKit.lua
+++ b/lua/embedded/UIKit.lua
@@ -906,6 +906,8 @@ local PARAGRAPH_ALIGNMENT = { leading = 4, center = 1, trailing = 2, justified =
 --- @prop dropCapLines number optional. Lines the initial spans; defaults to 3.
 --- @prop dropCapFontName string optional. Face for the initial; defaults to bold body.
 --- @prop revealedCharacters number optional. Typewriter reveal: characters shown so far (as `utf8.len` counts them); -1, the default, shows all. Lines are those of the whole text; only revealed lines take height.
+--- @prop links table optional. Runs the reader can act on, from `<Hyperlink>` children: `{ location, length, label, items }`, where `location` (from 0) and `length` count characters as `utf8.len` does and `items` are `<MenuItem>` records. A link is ruled with a dashed underline and opens its menu when tapped.
+--- @prop linkColor string optional. Colour of the rule under links; defaults to the tint.
 --- @prop dropCapColor string optional. Colour of the initial; defaults to the tint.
 --- @example <Paragraph text="Once upon a time…" design="serif" lineSpacing="5" dropCap="true" />
 --- @platform UIKit non-scrolling UITextView (TextKit 1 exclusion paths). AppKit non-editable NSTextView.
@@ -928,6 +930,8 @@ function UIKit.Paragraph(props)
 		if props.dropCapLines then view.dropCapLines = props.dropCapLines end
 		view.dropCap = true
 	end
+	if props.linkColor then view.linkColor = bridge._systemColor(props.linkColor) end
+	if props.links then bridge._paragraphSetLinks(view, props.links) end
 	if props.revealedCharacters then view.revealedCharacters = props.revealedCharacters end
 	if props.accessibilityLabel then view.accessibilityLabel = props.accessibilityLabel end
 	-- Prose fills the column it is given and wraps to it.
diff --git a/lua/parity/composer_contracts.lua b/lua/parity/composer_contracts.lua
index 12553bb0..fa2ad597 100644
--- a/lua/parity/composer_contracts.lua
+++ b/lua/parity/composer_contracts.lua
@@ -6,9 +6,9 @@ local M = {}
 function M.run(ns)
 	local xml = require("ui.xml")
 	local _, refs = xml.renderFile("apps/adventure-arena/views/Session.etlua", {
-		gameTitle = "Zork I", chapterLabel = "Chapter I", roomTitle = "West of House",
+		gameTitle = "Zork I", roomTitle = "West of House",
 		progress = "Score 0 · 0 moves", tint = "#4338CA", ink = "#4338CA|#A5B4FC",
-		speechAvailable = true, availableDirections = {}, compassSegments = {},
+		speechAvailable = true,
 		actions = { disappear = function() end, readingSettings = function() end },
 	}, ns)
 	-- Session.etlua is a <Page>; measure its content view.
diff --git a/lua/ui/xml.lua b/lua/ui/xml.lua
index f2ad0ebb..bb88b569 100644
--- a/lua/ui/xml.lua
+++ b/lua/ui/xml.lua
@@ -986,8 +986,40 @@ local TAG_SCHEMA = {
             hyphenation = "bool", selectable = "bool", accessibilityLabel = "str",
             dropCap = "bool", dropCapLines = "num", dropCapFontName = "str",
             dropCapDesign = "str", dropCapWeight = "str", dropCapColor = "str",
-            revealedCharacters = "num",
+            revealedCharacters = "num", linkColor = "str",
         },
+        -- <Hyperlink> children mark the words a reader can act on.
+        collect = function(props, children)
+            if #children == 0 then return end
+            props.links = {}
+            for _, child in ipairs(children) do
+                if type(child) ~= "table" or not child.__hyperlink then
+                    error("xml: <Paragraph> accepts only <Hyperlink> children")
+                end
+                table.insert(props.links, child)
+            end
+        end,
+        updateRecords = function(view, records)
+            for _, name in ipairs({ "UIKitNative", "AppKitNative" }) do
+                local ok, native = pcall(require, name)
+                if ok and type(native) == "table" and type(native._paragraphSetLinks) == "function" then
+                    native._paragraphSetLinks(view, records)
+                    return true
+                end
+            end
+            return false
+        end,
+    },
+    -- A run of a <Paragraph> that opens a menu when tapped (WPF Hyperlink
+    -- inside a TextBlock). `location` counts characters from 0 as
+    -- `utf8.len` does; <MenuItem> children are what the reader can do.
+    Hyperlink = {
+        kind = "record",
+        flag = "__hyperlink",
+        props = { location = "num", length = "num", label = "str" },
+        collect = function(rec, children)
+            rec.items = children
+        end,
     },
     Title = {
         constructor = "Title",
diff --git a/src/appkit/paragraph.m b/src/appkit/paragraph.m
index 76d58e5c..c9a8002c 100644
--- a/src/appkit/paragraph.m
+++ b/src/appkit/paragraph.m
@@ -26,7 +26,7 @@ - (void)drawRect:(NSRect)rect {
 }
 @end
 
-@interface LuaParagraphView : NSTextView
+@interface LuaParagraphView : NSTextView <NSTextViewDelegate, LuaParagraphLinking>
 @property(nonatomic, copy) NSString *text;
 @property(nonatomic, strong) NSFont *bodyFont;
 @property(nonatomic, strong) NSColor *bodyColor;
@@ -37,6 +37,9 @@ @interface LuaParagraphView : NSTextView
 @property(nonatomic) NSInteger dropCapLines;
 @property(nonatomic, strong) NSFont *dropCapFont;
 @property(nonatomic, strong) NSColor *dropCapColor;
+@property(nonatomic, copy) NSArray<LuaParagraphLink *> *links;
+/* The dashed rule under a link; the words keep the body's colour. */
+@property(nonatomic, strong) NSColor *linkColor;
 /* Characters shown so far, counted as Lua's utf8.len counts them; -1 shows
  * the whole paragraph. See `paragraph_revealed_length`. */
 @property(nonatomic) NSInteger revealedCharacters;
@@ -74,7 +77,12 @@ - (instancetype)init {
 	_textAlignment = NSTextAlignmentNatural;
 	_dropCapLines = kParagraphDropCapLines;
 	_dropCapColor = NSColor.controlAccentColor;
+	_links = @[];
 	_revealedCharacters = -1;
+	/* The text view reports clicks on links to its delegate; the paragraph
+	 * rules them itself, so a link changes only the pointer. */
+	self.delegate = self;
+	self.linkTextAttributes = @{NSCursorAttributeName: NSCursor.pointingHandCursor};
 	_initialView = [[LuaDropCapView alloc] initWithFrame:NSZeroRect];
 	_initialView.hidden = YES;
 	[_initialView setAccessibilityElement:NO];
@@ -93,6 +101,8 @@ - (void)setDropCap:(BOOL)value { _dropCap = value; [self rebuild]; }
 - (void)setDropCapLines:(NSInteger)value { _dropCapLines = MAX(2, value); [self rebuild]; }
 - (void)setDropCapFont:(NSFont *)font { _dropCapFont = font; [self rebuild]; }
 - (void)setDropCapColor:(NSColor *)color { _dropCapColor = color ?: NSColor.controlAccentColor; [self rebuild]; }
+- (void)setLinks:(NSArray<LuaParagraphLink *> *)links { _links = [links copy] ?: @[]; [self rebuild]; }
+- (void)setLinkColor:(NSColor *)color { _linkColor = color; [self applyReveal]; }
 
 /* A typewriter reveal. The whole paragraph is always laid out, so words never
  * jump between lines as they appear — the approach of SwiftUI typewriter
@@ -148,6 +158,67 @@ - (NSUInteger)revealedBodyLength {
 	return revealed > initial ? revealed - initial : 0;
 }
 
+- (NSRange)bodyRangeOfLink:(LuaParagraphLink *)link {
+	NSUInteger start = paragraph_revealed_length(_text, MAX(0, link.location));
+	NSUInteger end = paragraph_revealed_length(_text, MAX(0, link.location) + MAX(0, link.length));
+	NSUInteger initial = [self initialLetter].length;
+	start = MAX(start, initial) - initial;
+	end = MAX(end, initial) - initial;
+	end = MIN(end, self.textStorage.length);
+	return start < end ? NSMakeRange(start, end - start) : NSMakeRange(NSNotFound, 0);
+}
+
+- (void)applyLinks {
+	NSTextStorage *storage = self.textStorage;
+	[storage beginEditing];
+	[_links enumerateObjectsUsingBlock:^(LuaParagraphLink *link, NSUInteger index, __unused BOOL *stop) {
+		NSRange range = [self bodyRangeOfLink:link];
+		if (range.location == NSNotFound) return;
+		[storage addAttribute:NSLinkAttributeName value:@(index).stringValue range:range];
+		[storage addAttribute:NSUnderlineStyleAttributeName
+			value:@(NSUnderlineStyleSingle | NSUnderlineStylePatternDash) range:range];
+	}];
+	[storage endEditing];
+}
+
+- (LuaParagraphLink *)linkAtCharacterIndex:(NSUInteger)index {
+	if (index >= MIN([self revealedBodyLength], self.textStorage.length)) return nil;
+	for (LuaParagraphLink *link in _links)
+		if (NSLocationInRange(index, [self bodyRangeOfLink:link])) return link;
+	return nil;
+}
+
+- (void)chooseLinkItem:(NSMenuItem *)item {
+	[(LuaParagraphLink *)item.representedObject performItem:(NSUInteger)item.tag];
+}
+
+- (NSMenu *)menuForLink:(LuaParagraphLink *)link {
+	NSMenu *menu = [[NSMenu alloc] initWithTitle:link.label ?: @""];
+	menu.autoenablesItems = NO;
+	[link.titles enumerateObjectsUsingBlock:^(NSString *title, NSUInteger index, __unused BOOL *stop) {
+		NSMenuItem *item = [menu addItemWithTitle:title action:@selector(chooseLinkItem:) keyEquivalent:@""];
+		NSString *symbol = index < link.symbols.count ? link.symbols[index] : @"";
+		if (symbol.length) item.image = [NSImage imageWithSystemSymbolName:symbol accessibilityDescription:nil];
+		item.target = self;
+		item.tag = (NSInteger)index;
+		item.representedObject = link;
+		item.enabled = [link.callbacks[index] isKindOfClass:LuaReg.class];
+	}];
+	return menu;
+}
+
+/* A click on a link opens its menu below the words, as a pull-down does. */
+- (BOOL)textView:(__unused NSTextView *)textView clickedOnLink:(__unused id)value atIndex:(NSUInteger)index {
+	LuaParagraphLink *link = [self linkAtCharacterIndex:index];
+	if (!link || link.titles.count == 0) return YES;
+	NSRange glyphs = [self.layoutManager glyphRangeForCharacterRange:[self bodyRangeOfLink:link]
+		actualCharacterRange:NULL];
+	NSRect words = [self.layoutManager boundingRectForGlyphRange:glyphs inTextContainer:self.textContainer];
+	[[self menuForLink:link] popUpMenuPositioningItem:nil
+		atLocation:NSMakePoint(NSMinX(words), NSMaxY(words)) inView:self];
+	return YES;
+}
+
 - (void)applyReveal {
 	NSTextStorage *storage = self.textStorage;
 	NSUInteger shown = MIN([self revealedBodyLength], storage.length);
@@ -155,6 +226,15 @@ - (void)applyReveal {
 	[storage addAttribute:NSForegroundColorAttributeName value:_bodyColor range:NSMakeRange(0, shown)];
 	[storage addAttribute:NSForegroundColorAttributeName value:NSColor.clearColor
 		range:NSMakeRange(shown, storage.length - shown)];
+	/* A link is ruled only under the words typed so far. */
+	for (LuaParagraphLink *link in _links) {
+		NSRange range = [self bodyRangeOfLink:link];
+		if (range.location == NSNotFound) continue;
+		NSRange visible = NSIntersectionRange(range, NSMakeRange(0, shown));
+		[storage addAttribute:NSUnderlineColorAttributeName value:NSColor.clearColor range:range];
+		if (visible.length) [storage addAttribute:NSUnderlineColorAttributeName
+			value:_linkColor ?: NSColor.controlAccentColor range:visible];
+	}
 	[storage endEditing];
 	_initialView.hidden = !([self initialLetter] && _revealedCharacters != 0);
 	self.needsDisplay = YES;
@@ -278,6 +358,7 @@ - (void)rebuild {
 		_initialInk = NSZeroRect;
 		self.textContainer.exclusionPaths = @[];
 	}
+	[self applyLinks];
 	[self applyReveal];
 	[self setAccessibilityValue:_text];
 	[self invalidateIntrinsicContentSize];
diff --git a/src/main.m b/src/main.m
index c9fd0eaf..6efe9f5e 100644
--- a/src/main.m
+++ b/src/main.m
@@ -320,6 +320,7 @@ static void bridge_set_optional_callback(
 #include "appkit/presentation.m"
 #include "appkit/text_field.m"
 #include "appkit/views.m"
+#include "shared/paragraph_links.m"
 #include "appkit/paragraph.m"
 #include "shared/flow_layout.m"
 #include "appkit/layout.m"
@@ -389,6 +390,9 @@ static void bridge_set_optional_callback(
 	{"_navigationOnBack", bridge_navigation_on_back},
 	{"_label", bridge_AppKitControls_label},
 	{"_paragraph", bridge_AppKitControls_paragraph},
+	{"_paragraphSetLinks", bridge_paragraph_set_links},
+	{"_paragraphLinks", bridge_paragraph_links},
+	{"_paragraphPerformLink", bridge_paragraph_perform_link},
 	{"_hasLayoutAxis", bridge_has_layout_axis},
 	{"_textField", bridge_AppKitControls_textField},
 	{"_secureTextField", bridge_AppKitControls_secureTextField},
diff --git a/src/shared/paragraph_links.m b/src/shared/paragraph_links.m
new file mode 100644
index 00000000..34350f22
--- /dev/null
+++ b/src/shared/paragraph_links.m
@@ -0,0 +1,136 @@
+#pragma mark - Paragraph links
+
+/* A run of the paragraph the reader can act on: tapping it opens a menu of
+ * what can be done with the thing the words name. `location` and `length`
+ * count characters as Lua's utf8.len does, like `revealedCharacters`. */
+@interface LuaParagraphLink : NSObject
+@property(nonatomic) NSInteger location;
+@property(nonatomic) NSInteger length;
+@property(nonatomic, copy) NSString *label;
+@property(nonatomic, copy) NSArray<NSString *> *titles;
+@property(nonatomic, copy) NSArray<NSString *> *symbols;
+/* A LuaReg for each item, or NSNull for an item without an action. */
+@property(nonatomic, copy) NSArray *callbacks;
+- (void)performItem:(NSUInteger)index;
+@end
+
+/* What each platform's paragraph view provides to the bridge below. */
+@protocol LuaParagraphLinking <NSObject>
+@property(nonatomic, copy) NSArray<LuaParagraphLink *> *links;
+@property(nonatomic, readonly) NSTextStorage *textStorage;
+/* A link's range in the text storage, which leaves out a dropped initial;
+ * its location is NSNotFound when none of the link is in the storage. */
+- (NSRange)bodyRangeOfLink:(LuaParagraphLink *)link;
+/* The link, if any, whose revealed words include the storage's character. */
+- (LuaParagraphLink *)linkAtCharacterIndex:(NSUInteger)index;
+@end
+
+@implementation LuaParagraphLink
+- (void)performItem:(NSUInteger)index {
+	if (index >= self.callbacks.count) return;
+	id callback = self.callbacks[index];
+	if (![callback isKindOfClass:LuaReg.class]) return;
+	lua_State *L = lua_reg_live_state(callback);
+	if (L && lua_reg_push(callback)) lua_objc_pcall(L, 0, 0, "paragraph link");
+}
+- (void)dealloc {
+	for (id callback in _callbacks)
+		if ([callback isKindOfClass:LuaReg.class]) [callback dispose];
+}
+@end
+
+static id<LuaParagraphLinking> paragraph_check(lua_State *L, int index) {
+	id view = check_objc(L, index);
+	if (![view conformsToProtocol:@protocol(LuaParagraphLinking)]) luaL_error(L, "expected a Paragraph");
+	return view;
+}
+
+static NSString *paragraph_string_field(lua_State *L, int index, const char *name) {
+	lua_getfield(L, index, name);
+	NSString *value = lua_isstring(L, -1) ? @(lua_tostring(L, -1)) : @"";
+	lua_pop(L, 1);
+	return value;
+}
+
+/* _paragraphSetLinks(view, { { location, length, label, items = { { title,
+ * systemImage, action }, … } }, … }) */
+static int bridge_paragraph_set_links(lua_State *L) {
+	id<LuaParagraphLinking> view = paragraph_check(L, 1);
+	luaL_checktype(L, 2, LUA_TTABLE);
+	NSMutableArray<LuaParagraphLink *> *links = [NSMutableArray array];
+	lua_Integer count = luaL_len(L, 2);
+	for (lua_Integer i = 1; i <= count; i++) {
+		lua_rawgeti(L, 2, i);
+		int entry = lua_gettop(L);
+		luaL_checktype(L, entry, LUA_TTABLE);
+		LuaParagraphLink *link = [[LuaParagraphLink alloc] init];
+		lua_getfield(L, entry, "location");
+		link.location = (NSInteger)luaL_optinteger(L, -1, 0);
+		lua_getfield(L, entry, "length");
+		link.length = (NSInteger)luaL_optinteger(L, -1, 0);
+		lua_pop(L, 2);
+		link.label = paragraph_string_field(L, entry, "label");
+		NSMutableArray *titles = [NSMutableArray array], *symbols = [NSMutableArray array],
+			*callbacks = [NSMutableArray array];
+		lua_getfield(L, entry, "items");
+		if (lua_istable(L, -1)) {
+			int items = lua_gettop(L);
+			lua_Integer itemCount = luaL_len(L, items);
+			for (lua_Integer j = 1; j <= itemCount; j++) {
+				lua_rawgeti(L, items, j);
+				[titles addObject:paragraph_string_field(L, -1, "title")];
+				[symbols addObject:paragraph_string_field(L, -1, "systemImage")];
+				lua_getfield(L, -1, "action");
+				[callbacks addObject:lua_reg_opt(L, -1) ?: NSNull.null];
+				lua_pop(L, 2);
+			}
+		}
+		lua_pop(L, 1);
+		link.titles = titles;
+		link.symbols = symbols;
+		link.callbacks = callbacks;
+		[links addObject:link];
+		lua_pop(L, 1);
+	}
+	view.links = links;
+	return 0;
+}
+
+/* _paragraphLinks(view) → { { location, length, label, text, titles }, … },
+ * where `text` is the linked words as the text storage holds them. */
+static int bridge_paragraph_links(lua_State *L) {
+	id<LuaParagraphLinking> view = paragraph_check(L, 1);
+	lua_newtable(L);
+	[view.links enumerateObjectsUsingBlock:^(LuaParagraphLink *link, NSUInteger index, __unused BOOL *stop) {
+		lua_newtable(L);
+		lua_pushinteger(L, link.location); lua_setfield(L, -2, "location");
+		lua_pushinteger(L, link.length); lua_setfield(L, -2, "length");
+		lua_pushstring(L, link.label.UTF8String); lua_setfield(L, -2, "label");
+		NSRange range = [view bodyRangeOfLink:link];
+		lua_pushstring(L, range.location == NSNotFound ? ""
+			: [view.textStorage.string substringWithRange:range].UTF8String);
+		lua_setfield(L, -2, "text");
+		lua_pushboolean(L, range.location != NSNotFound
+			&& [view linkAtCharacterIndex:range.location] == link);
+		lua_setfield(L, -2, "revealed");
+		lua_newtable(L);
+		[link.titles enumerateObjectsUsingBlock:^(NSString *title, NSUInteger item, __unused BOOL *inner) {
+			lua_pushstring(L, title.UTF8String);
+			lua_rawseti(L, -2, (lua_Integer)item + 1);
+		}];
+		lua_setfield(L, -2, "titles");
+		lua_rawseti(L, -2, (lua_Integer)index + 1);
+	}];
+	return 1;
+}
+
+/* _paragraphPerformLink(view, link, item): chooses a menu item as a tap does. */
+static int bridge_paragraph_perform_link(lua_State *L) {
+	id<LuaParagraphLinking> view = paragraph_check(L, 1);
+	lua_Integer link = luaL_checkinteger(L, 2), item = luaL_checkinteger(L, 3);
+	if (link < 1 || link > (lua_Integer)view.links.count) return luaL_error(L, "no such paragraph link");
+	LuaParagraphLink *target = view.links[(NSUInteger)link - 1];
+	if (item < 1 || item > (lua_Integer)target.titles.count) return luaL_error(L, "no such link item");
+	[target performItem:(NSUInteger)item - 1];
+	return 0;
+}
diff --git a/src/uikit/bridge.m b/src/uikit/bridge.m
index f46e5190..dc525359 100644
--- a/src/uikit/bridge.m
+++ b/src/uikit/bridge.m
@@ -176,6 +176,7 @@ static void motion_invalidate_layout(UIView *view) {
 #include "tables.m"
 #include "platform.m"
 #include "constructors.m"
+#include "../shared/paragraph_links.m"
 #include "paragraph.m"
 #include "mesh_gradient.m"
 #include "speech_recognition.m"
@@ -229,6 +230,9 @@ static void motion_invalidate_layout(UIView *view) {
 	{"_textEditor", bridge_UIKitControls_textEditor},
 	{"_label", bridge_UIKitControls_label},
 	{"_paragraph", bridge_UIKitControls_paragraph},
+	{"_paragraphSetLinks", bridge_paragraph_set_links},
+	{"_paragraphLinks", bridge_paragraph_links},
+	{"_paragraphPerformLink", bridge_paragraph_perform_link},
 	{"_hasLayoutAxis", bridge_has_layout_axis},
 	LUA_OBJC_MOTION_FUNCTIONS
 	LUA_OBJC_NOTIFICATION_FUNCTIONS
diff --git a/src/uikit/paragraph.m b/src/uikit/paragraph.m
index bdff1c88..b54ab8da 100644
--- a/src/uikit/paragraph.m
+++ b/src/uikit/paragraph.m
@@ -33,7 +33,7 @@ - (void)drawRect:(CGRect)rect {
 }
 @end
 
-@interface LuaParagraphView : UITextView
+@interface LuaParagraphView : UITextView <UITextViewDelegate, LuaParagraphLinking>
 @property(nonatomic, copy) NSString *paragraphText;
 @property(nonatomic, strong) UIFont *bodyFont;
 @property(nonatomic, strong) UIColor *bodyColor;
@@ -44,6 +44,9 @@ @interface LuaParagraphView : UITextView
 @property(nonatomic) NSInteger dropCapLines;
 @property(nonatomic, strong) UIFont *dropCapFont;
 @property(nonatomic, strong) UIColor *dropCapColor;
+@property(nonatomic, copy) NSArray<LuaParagraphLink *> *links;
+/* The dashed rule under a link; the words keep the body's colour. */
+@property(nonatomic, strong) UIColor *linkColor;
 /* Characters shown so far, counted as Lua's utf8.len counts them; -1 shows
  * the whole paragraph. See `paragraph_revealed_length`. */
 @property(nonatomic) NSInteger revealedCharacters;
@@ -77,7 +80,12 @@ - (instancetype)init {
 	_bodyAlignment = NSTextAlignmentNatural;
 	_dropCapLines = kParagraphDropCapLines;
 	_dropCapColor = UIColor.tintColor;
+	_links = @[];
 	_revealedCharacters = -1;
+	/* Links are tagged text items, not URLs: the text view reports taps
+	 * on them to its delegate and styles nothing itself. */
+	self.delegate = self;
+	self.linkTextAttributes = @{};
 	_initialView = [[LuaDropCapView alloc] initWithFrame:CGRectZero];
 	_initialView.hidden = YES;
 	[self addSubview:_initialView];
@@ -98,6 +106,9 @@ - (void)setDropCap:(BOOL)value { _dropCap = value; [self rebuild]; }
 - (void)setDropCapLines:(NSInteger)value { _dropCapLines = MAX(2, value); [self rebuild]; }
 - (void)setDropCapFont:(UIFont *)font { _dropCapFont = font; [self rebuild]; }
 - (void)setDropCapColor:(UIColor *)color { _dropCapColor = color ?: UIColor.tintColor; [self rebuild]; }
+- (void)setLinks:(NSArray<LuaParagraphLink *> *)links { _links = [links copy] ?: @[]; [self rebuild]; }
+- (void)setLinkColor:(UIColor *)color { _linkColor = color; [self applyReveal]; }
+- (void)tintColorDidChange { [super tintColorDidChange]; [self applyReveal]; }
 
 /* A typewriter reveal. The whole paragraph is always laid out, so words never
  * jump between lines as they appear — the approach of SwiftUI typewriter
@@ -139,6 +150,65 @@ - (NSUInteger)revealedBodyLength {
 	return revealed > initial ? revealed - initial : 0;
 }
 
+/* A link's range in the text storage, which leaves out a dropped initial. */
+- (NSRange)bodyRangeOfLink:(LuaParagraphLink *)link {
+	NSUInteger start = paragraph_revealed_length(_paragraphText, MAX(0, link.location));
+	NSUInteger end = paragraph_revealed_length(_paragraphText, MAX(0, link.location) + MAX(0, link.length));
+	NSUInteger initial = [self initialLetter].length;
+	start = MAX(start, initial) - initial;
+	end = MAX(end, initial) - initial;
+	end = MIN(end, self.textStorage.length);
+	return start < end ? NSMakeRange(start, end - start) : NSMakeRange(NSNotFound, 0);
+}
+
+- (void)applyLinks {
+	NSTextStorage *storage = self.textStorage;
+	[storage beginEditing];
+	[_links enumerateObjectsUsingBlock:^(LuaParagraphLink *link, NSUInteger index, __unused BOOL *stop) {
+		NSRange range = [self bodyRangeOfLink:link];
+		if (range.location == NSNotFound) return;
+		[storage addAttribute:UITextItemTagAttributeName value:@(index).stringValue range:range];
+		[storage addAttribute:NSUnderlineStyleAttributeName
+			value:@(NSUnderlineStyleSingle | NSUnderlineStylePatternDash) range:range];
+	}];
+	[storage endEditing];
+}
+
+/* The link, if any, whose revealed words include the storage's character. */
+- (LuaParagraphLink *)linkAtCharacterIndex:(NSUInteger)index {
+	if (index >= MIN([self revealedBodyLength], self.textStorage.length)) return nil;
+	for (LuaParagraphLink *link in _links)
+		if (NSLocationInRange(index, [self bodyRangeOfLink:link])) return link;
+	return nil;
+}
+
+- (UIMenu *)menuForLink:(LuaParagraphLink *)link {
+	NSMutableArray<UIMenuElement *> *elements = [NSMutableArray array];
+	[link.titles enumerateObjectsUsingBlock:^(NSString *title, NSUInteger index, __unused BOOL *stop) {
+		NSString *symbol = index < link.symbols.count ? link.symbols[index] : @"";
+		UIAction *action = [UIAction actionWithTitle:title
+			image:(symbol.length ? [UIImage systemImageNamed:symbol] : nil) identifier:nil
+			handler:^(__unused UIAction *selected) { [link performItem:index]; }];
+		if (![link.callbacks[index] isKindOfClass:LuaReg.class]) action.attributes = UIMenuElementAttributesDisabled;
+		[elements addObject:action];
+	}];
+	return [UIMenu menuWithTitle:@"" children:elements];
+}
+
+/* A link has no primary action, so a tap presents its menu. */
+- (UIAction *)textView:(__unused UITextView *)textView primaryActionForTextItem:(__unused UITextItem *)textItem
+		defaultAction:(__unused UIAction *)defaultAction {
+	return nil;
+}
+
+- (UITextItemMenuConfiguration *)textView:(__unused UITextView *)textView
+		menuConfigurationForTextItem:(UITextItem *)textItem defaultMenu:(__unused UIMenu *)defaultMenu {
+	if (textItem.contentType != UITextItemContentTypeTag) return nil;
+	LuaParagraphLink *link = [self linkAtCharacterIndex:textItem.range.location];
+	if (!link || link.titles.count == 0) return nil;
+	return [UITextItemMenuConfiguration configurationWithMenu:[self menuForLink:link]];
+}
+
 - (void)applyReveal {
 	NSTextStorage *storage = self.textStorage;
 	NSUInteger shown = MIN([self revealedBodyLength], storage.length);
@@ -146,6 +216,15 @@ - (void)applyReveal {
 	[storage addAttribute:NSForegroundColorAttributeName value:_bodyColor range:NSMakeRange(0, shown)];
 	[storage addAttribute:NSForegroundColorAttributeName value:UIColor.clearColor
 		range:NSMakeRange(shown, storage.length - shown)];
+	/* A link is ruled only under the words typed so far. */
+	for (LuaParagraphLink *link in _links) {
+		NSRange range = [self bodyRangeOfLink:link];
+		if (range.location == NSNotFound) continue;
+		NSRange visible = NSIntersectionRange(range, NSMakeRange(0, shown));
+		[storage addAttribute:NSUnderlineColorAttributeName value:UIColor.clearColor range:range];
+		if (visible.length) [storage addAttribute:NSUnderlineColorAttributeName
+			value:_linkColor ?: self.tintColor range:visible];
+	}
 	[storage endEditing];
 	_initialView.hidden = !([self initialLetter] && _revealedCharacters != 0);
 }
@@ -276,6 +355,7 @@ - (void)rebuild {
 		_initialInk = CGRectZero;
 		self.textContainer.exclusionPaths = @[];
 	}
+	[self applyLinks];
 	[self applyReveal];
 	self.accessibilityValue = _paragraphText;
 	[self invalidateIntrinsicContentSize];
@@ -326,3 +406,4 @@ static int bridge_UIKitControls_paragraph(lua_State *L) {
 	push_objc(L, view, "uiview");
 	return 1;
 }
+
diff --git a/tests/adventure_arena_flow.test.lua b/tests/adventure_arena_flow.test.lua
index 70c561ad..bd471b37 100644
--- a/tests/adventure_arena_flow.test.lua
+++ b/tests/adventure_arena_flow.test.lua
@@ -23,9 +23,9 @@ ns.Menu = function(props)
 	return view
 end
 ns._addDrag = function(view, callback) drags[view] = callback end
-xml.renderFile = function(...)
-	local view, refs = renderFile(...)
-	rendered = { view = view, refs = refs }
+xml.renderFile = function(path, data, ...)
+	local view, refs = renderFile(path, data, ...)
+	rendered = { view = view, refs = refs, data = data }
 	return view, refs
 end
 local function click(ref)
@@ -95,19 +95,11 @@ t.assertEqual(controller.navigation.depth, 3, "detail play opens session")
 t.assertEqual(rendered.refs.sessionTitle.text, catalog:list()[1].title, "session header retains the game title")
 t.expect(rendered.refs.back == nil and rendered.refs.sessionHeader == nil,
 	"the system navigation owns the back button; the screen draws no header")
-local compassParent = rendered.refs.compassControl.superview
-local reachesOverlay, entersInset = false, false
-while compassParent do
-	if compassParent == rendered.refs.sessionOverlay then reachesOverlay = true end
-	if compassParent == rendered.refs.sessionContent then entersInset = true end
-	compassParent = compassParent.superview
-end
-t.expect(entersInset and not reachesOverlay,
-	"the compass rides in the glass command bar instead of covering the page")
+t.expect(rendered.refs.compassControl == nil, "the reader's command bar carries no compass")
 t.assertEqual(page().gameTitle.text, catalog:list()[1].title, "the title page names the game")
 t.assertEqual(page().gameDescription.text, catalog:list()[1].shortDescription,
 	"the title page carries the tagline as its epigraph")
-t.assertEqual(page().sceneTitle_1.text, catalog:list()[1].title, "the opening chapter is named")
+t.assertEqual(page().sceneTitle_1.text, catalog:list()[1].title, "the opening scene is named")
 t.assertEqual(page().paragraph_1_1.text, "Opening <&>", "transcript escapes XML characters")
 t.expect(page().paragraph_1_1.dropCap, "the opening starts with a drop cap")
 t.expect(rendered.refs.backdrop == nil, "the page is paper, not blurred cover art")
@@ -135,6 +127,13 @@ t.assertEqual(rendered.refs.input.text, "", "send clears input")
 t.assertEqual(rendered.refs.progress.text, "Score 0 · Time 1", "session refreshes progress after a command")
 t.assertEqual(controller.savedGames:latest().gameId, catalog:list()[1].id, "a played story is saved")
 t.expect(controller.tabs.accessoryHidden, "the tab accessory stays hidden while the book is open")
+-- The compass is off the reader's page, and still works where a page
+-- includes it: the session binds its drag and marks its exits.
+local _, compassRefs = renderFile("apps/adventure-arena/views/Compass.etlua", {
+	availableDirections = rendered.data.availableDirections,
+	compassSegments = rendered.data.compassSegments, size = 52, actions = rendered.data.actions,
+}, ns)
+for id, view in pairs(compassRefs) do rendered.refs[id] = view end
 local compassDrag = drags[rendered.refs.compassControl]
 t.expect(type(compassDrag) == "function", "compass binds the native drag gesture")
 t.assertEqual(rendered.refs.compassExit_north.strokeAlpha, 1, "compass marks the north exit")
@@ -217,17 +216,17 @@ empty:home()
 t.expect(rendered.refs.emptyCatalog ~= nil, "empty model renders the etlua empty state")
 t.assertEqual(empty.navigation.depth, 1, "empty catalog retains navigation root")
 local _, systemRefs = renderFile("apps/adventure-arena/views/Session.etlua", {
-	gameTitle = "Zork", gameDescription = "A story", chapterLabel = "Chapter I", ink = "accent", tint = "accent",
+	gameTitle = "Zork", gameDescription = "A story", ink = "accent", tint = "accent",
 	roomTitle = "Gate", progress = "Score 0 · 0 moves",
-	speechAvailable = false, availableDirections = {}, compassSegments = {},
+	speechAvailable = false,
 	actions = { disappear = function() end, readingSettings = function() end },
 }, ns)
 t.expect(systemRefs.back == nil, "the navigation bar owns the back button")
 local _, titleRefs = renderFile("apps/adventure-arena/views/SessionTitle.etlua", {
-	gameTitle = "Zork", chapterLabel = "Chapter II", roomTitle = "Kitchen",
+	gameTitle = "Zork", roomTitle = "Kitchen",
 }, ns)
 t.assertEqual(titleRefs.sessionTitle.text, "Zork", "the running head keeps the game name")
-t.assertEqual(titleRefs.sessionPlace.text, "Chapter II · Kitchen", "the running head names the chapter and room")
+t.assertEqual(titleRefs.sessionPlace.text, "Kitchen", "the running head names the room alone")
 ns.Button, ns.Menu, ns._addDrag, xml.renderFile = button, menu, addDrag, renderFile
 
 os.exit(t.summary() and 0 or 1)
diff --git a/tests/adventure_arena_links.test.lua b/tests/adventure_arena_links.test.lua
new file mode 100644
index 00000000..72f00963
--- /dev/null
+++ b/tests/adventure_arena_links.test.lua
@@ -0,0 +1,190 @@
+_G.__headless = true
+
+local t = require("TestKit")
+local ns = require("AppKit")
+local bridge = require("AppKitNative")
+local xml = require("ui.xml")
+local Template = require("ui.template")
+local Adventures = require("apps.adventure-arena.models.Adventures")
+local Session = require("apps.adventure-arena.models.Session")
+local ReadingSettings = require("apps.adventure-arena.models.ReadingSettings")
+local SessionController = require("apps.adventure-arena.controllers.SessionController")
+local ZILRuntime = require("apps.adventure-arena.services.ZILRuntime")
+
+-- ── Markup ──────────────────────────────────────────────────────────────
+local text, links = Session.parseLinks("A corroded [[brass plaque->plaque]] hangs on the [[gate]]. Go [[north]].")
+t.assertEqual(text, "A corroded brass plaque hangs on the gate. Go north.", "the reader sees the labels")
+t.assertEqual(#links, 3, "every marked run is a link")
+t.assertEqual(links[1].location, 11, "a link starts where its label does, counted from 0")
+t.assertEqual(links[1].length, 12, "a link is as long as its label")
+t.assertEqual(links[1].label, "brass plaque", "a link keeps the words of the prose")
+t.assertEqual(links[1].target, "plaque", "a link names the parser's word")
+t.assertEqual(links[2].target, "gate", "a bare link is its own target")
+t.assertEqual(text:sub(links[3].location + 1, links[3].location + links[3].length), "north", "later links follow the stripped text")
+
+text, links = Session.parseLinks("Café — the [[Door]] is open.")
+t.assertEqual(links[1].location, 11, "locations count characters, not bytes")
+t.assertEqual(links[1].target, "door", "targets are lower case, as commands are")
+t.assertEqual(text, "Café — the Door is open.", "labels keep their case")
+
+text, links = Session.parseLinks("Nothing to tap here.")
+t.assertEqual(text, "Nothing to tap here.", "plain prose is untouched")
+t.assertEqual(#links, 0, "plain prose has no links")
+text, links = Session.parseLinks("An [[]] empty link and an [[unclosed one.")
+t.assertEqual(#links, 0, "empty and unclosed markup makes no link")
+t.assertEqual(text, "An  empty link and an [[unclosed one.", "unclosed markup stays as written")
+text, links = Session.parseLinks("")
+t.assertEqual(text, "", "empty text stays empty")
+t.assertEqual(#links, 0, "empty text has no links")
+
+-- ── Actions for a tapped word ───────────────────────────────────────────
+local state = { room = "Gate" }
+local function engine()
+	return { start = function()
+		return {
+			resume = function(_, command)
+				if command == "north" then
+					state.room = "Hall"
+					return "Hall\nA [[grand staircase->staircase]] climbs away. The gate lies [[south]]."
+				end
+				return "You " .. command .. "."
+			end,
+			roomName = function() return state.room end,
+			exits = function() return state.room == "Gate" and { "north" } or { "south" } end,
+			items = function()
+				if state.room ~= "Gate" then return { { "grand staircase", { "EXAMINE", "CLIMB" }, {} } } end
+				return {
+					{ "brass plaque", { "TAKE", "READ" }, {} },
+					{ "iron gate", { "EXAMINE", "OPEN", "CLOSE", "UNLOCK" }, {} },
+					{ "door to the operating theater", { "OPEN" }, {} },
+				}
+			end,
+		}, "Gate\nThe rusted [[iron gates->gate]] stand open. A path leads [[north]].\nA [[brass plaque->plaque]] hangs askew."
+	end }
+end
+
+local function commands(actions)
+	local list = {}
+	for _, action in ipairs(actions) do table.insert(list, action.command) end
+	return table.concat(list, ",")
+end
+
+local model = Session.new { engineFactory = engine }
+t.expect(model:start({ id = "links", title = "Links" }), "a story with links starts")
+local scene = model:presentation().entries[1]
+t.assertEqual(scene.paragraphs[1], "The rusted iron gates stand open. A path leads north.\nA brass plaque hangs askew.",
+	"the transcript holds the prose without markup")
+t.assertEqual(#scene.links[1], 3, "the paragraph carries its links")
+t.assertEqual(commands(model:linkActions("plaque")), "examine plaque,take plaque,read plaque",
+	"an object offers examine, then the story's verbs by how often players use them")
+t.assertEqual(model:linkActions("plaque")[2].title, "Take plaque", "menu titles are capitalized commands")
+t.assertEqual(commands(model:linkActions("gate")), "examine gate,open gate,close gate",
+	"verbs that need a second object are left out, and examine is offered once")
+t.assertEqual(commands(model:linkActions("door")), "examine door,open door",
+	"a target finds its object by any word of the object's name")
+t.assertEqual(commands(model:linkActions("north")), "north", "a direction walks")
+t.assertEqual(model:linkActions("north")[1].title, "Go north", "a direction's action says where it goes")
+t.assertEqual(commands(model:linkActions("d")), "down", "direction abbreviations walk too")
+t.assertEqual(commands(model:linkActions("ghost")), "examine ghost", "an unknown thing can still be examined")
+t.assertEqual(#model:linkActions(""), 0, "an empty target offers nothing")
+
+-- ── The reader's page ───────────────────────────────────────────────────
+state.room = "Gate"
+local rendered
+local controller = SessionController.new {
+	model = model,
+	findGame = function() return { id = "links", title = "Links" } end,
+	push = function(_, data)
+		local view, refs = xml.renderFile("apps/adventure-arena/views/Session.etlua", data, ns)
+		rendered = { view = view, refs = refs }
+		return view, refs
+	end,
+	back = function() end,
+	ns = ns,
+	readingSettings = ReadingSettings.new(),
+	renderTemplate = function() end,
+	mountTemplate = function(host, template)
+		return Template.new(host, "apps/adventure-arena/views/" .. template .. ".etlua", ns)
+	end,
+	presentSheet = function() end,
+	dismissSheet = function() end,
+	reduceMotion = function() return true end,
+}
+t.expect(controller:show("links"), "the session opens")
+local function page() return controller.transcript.refs end
+local live = bridge._paragraphLinks(page().paragraph_1_1)
+t.assertEqual(#live, 3, "the page marks the scene's links")
+t.assertEqual(live[1].text, "iron gates", "a link underlines the words of the prose")
+t.assertEqual(live[3].text, "brass plaque", "links in later lines keep their place")
+t.assertEqual(table.concat(live[3].titles, ","), "Examine plaque,Take plaque,Read plaque", "a link's menu lists its actions")
+t.assertEqual(page().paragraph_1_1.text, scene.paragraphs[1], "the page shows the prose without markup")
+
+bridge._paragraphPerformLink(page().paragraph_1_1, 3, 3)
+t.assertEqual(model.history[#model.history], "read plaque", "choosing an action sends its command")
+t.assertEqual(page().command_2.text, "read plaque", "the command appears on the page")
+t.assertEqual(#bridge._paragraphLinks(page().paragraph_1_1), 3, "links stay live while the reader stays in the room")
+
+bridge._paragraphPerformLink(page().paragraph_1_1, 2, 1)
+t.assertEqual(model.history[#model.history], "north", "a direction link walks")
+t.assertEqual(model:presentation().roomTitle, "Hall", "the reader arrives in the next room")
+t.assertEqual(#bridge._paragraphLinks(page().paragraph_1_1), 0, "the words of a room left behind are plain prose")
+local entries = model:presentation().entries
+local hall = bridge._paragraphLinks(page()["paragraph_" .. #entries .. "_1"])
+t.assertEqual(#hall, 2, "the new scene's links are live")
+t.assertEqual(table.concat(hall[1].titles, ","), "Examine staircase,Climb staircase", "they offer the new room's verbs")
+t.assertEqual(table.concat(hall[2].titles, ","), "Go south", "and the way back")
+
+-- Reading settings re-set the page and keep its links.
+controller.readingSettings:setDropCap(false)
+controller:applyReadingSettings()
+hall = bridge._paragraphLinks(page()["paragraph_" .. #entries .. "_1"])
+t.assertEqual(#hall, 2, "links survive a change of reading settings")
+controller.readingSettings:setDropCap(true)
+controller:applyReadingSettings()
+hall = bridge._paragraphLinks(page()["paragraph_" .. #entries .. "_1"])
+t.assertEqual(hall[1].text, "grand staircase", "a dropped initial leaves links on their words")
+
+-- A resumed story rebuilds its links from the replayed commands.
+state.room = "Gate"
+local resumed = Session.new { engineFactory = engine }
+t.expect(resumed:start({ id = "links", title = "Links" }, { seed = 1, commands = { "north" } }), "a saved story resumes")
+local last = resumed.entries[#resumed.entries]
+t.assertEqual(last.links[1][1].target, "staircase", "replayed prose carries its links")
+
+-- ── The real story ──────────────────────────────────────────────────────
+local game = Adventures.new():find("books.blackwood-horror")
+t.expect(game ~= nil, "the horror story is in the catalog")
+if game then
+	local story = Session.new { engineFactory = function(entry, seed) return ZILRuntime.new(entry, nil, seed) end }
+	t.expect(story:start(game), "the horror story starts")
+	local opening = story.entries[#story.entries]
+	local targets = {}
+	for _, paragraphLinks in pairs(opening.links) do
+		for _, link in ipairs(paragraphLinks) do targets[link.target] = true end
+	end
+	t.expect(targets.gate and targets.north and targets.plaque, "the opening links the gate, the path north and the plaque")
+	t.expect(not table.concat(opening.paragraphs, "\n"):find("[[", 1, true), "no markup reaches the page")
+	t.assertEqual(commands(story:linkActions("plaque")), "examine plaque,take plaque,read plaque",
+		"the plaque offers the verbs the story accepts")
+	story:submit("north")
+	t.assertEqual(story.roomTitle, "Sanitarium Entrance Hall", "walking north enters the hall")
+	story:submit("go back")
+	t.assertEqual(story.roomTitle, "Sanitarium Gate", "GO BACK retraces the last step")
+	story:submit("walk back")
+	t.assertEqual(story.roomTitle, "Sanitarium Entrance Hall", "WALK BACK retraces it again")
+	story:submit("north")
+	local theater = table.concat(story.entries[#story.entries].paragraphs, "\n")
+	t.expect(theater:find("slightly ajar", 1, true) ~= nil, "the cabinet is described")
+	t.expect(not theater:find("scalpel", 1, true), "what the cabinet holds is not told at a glance")
+	story:submit("examine cabinet")
+	t.expect(table.concat(story.entries[#story.entries].paragraphs, "\n"):find("scalpel", 1, true) ~= nil,
+		"examining the cabinet shows what it holds")
+
+	-- A saved story replays "go back" to the same place.
+	local replayed = Session.new { engineFactory = function(entry, seed) return ZILRuntime.new(entry, nil, seed) end }
+	t.expect(replayed:start(game, story:snapshot()), "the story resumes from its commands")
+	t.assertEqual(replayed.roomTitle, story.roomTitle, "replaying GO BACK ends in the same room")
+	t.assertEqual(#replayed.entries, #story.entries, "the transcript is rebuilt whole")
+end
+
+os.exit(t.summary() and 0 or 1)
diff --git a/tests/adventure_arena_progress.test.lua b/tests/adventure_arena_progress.test.lua
index 7ad14078..7983144b 100644
--- a/tests/adventure_arena_progress.test.lua
+++ b/tests/adventure_arena_progress.test.lua
@@ -66,9 +66,9 @@ controller.navigation:pop()
 controller.sessionController:onDisappear()
 t.expect(not controller.tabs.accessoryHidden, "closing the book shows the accessory")
 t.assertEqual(controller.nowReading.refs.nowReadingTitle.text, zork.title, "the accessory names the story")
-t.assertEqual(controller.nowReading.refs.nowReadingPlace.text, "Chapter I · West of House", "the accessory names the chapter and room")
+t.assertEqual(controller.nowReading.refs.nowReadingPlace.text, "West of House", "the accessory names the room")
 t.assertEqual(controller.continueShelf.refs.continue_1.accessibilityLabel,
-	"Continue " .. zork.title .. ", Chapter I · West of House", "Continue Reading offers the story")
+	"Continue " .. zork.title .. ", West of House", "Continue Reading offers the story")
 t.expect(controller.bookshelf.refs.shelfRow_1 ~= nil, "the Library tab lists the story")
 local shelf = controller.library:bookshelf()
 t.assertEqual(shelf.entries[1].status, "Score 5 of 350 · 0 moves", "the Library row carries the status line")
@@ -84,7 +84,7 @@ xml.renderFile = function(path, data, platform)
 end
 controller.library:showGame(zork.id, "library")
 xml.renderFile = renderFile
-t.assertEqual(detail.saved.place, "Chapter I · West of House", "the detail page knows where the reader stopped")
+t.assertEqual(detail.saved.place, "West of House", "the detail page knows where the reader stopped")
 controller.navigation:pop()
 
 -- The accessory resumes the story at its last page.
diff --git a/tests/adventure_arena_reading_settings.test.lua b/tests/adventure_arena_reading_settings.test.lua
index 7f6ed027..e074f870 100644
--- a/tests/adventure_arena_reading_settings.test.lua
+++ b/tests/adventure_arena_reading_settings.test.lua
@@ -46,6 +46,11 @@ t.assertEqual(settings:presentation().lineSpacing, math.floor(14 * 0.5 + 0.5), "
 settings:setJustified(true)
 t.assertEqual(settings:presentation().alignment, "justified", "justification is a reading preference")
 
+t.expect(ReadingSettings.new():presentation().dropCap, "scenes open with a drop cap by default")
+t.expect(settings:setDropCap(false), "drop caps can be turned off")
+t.expect(settings:presentation().dropCap == false, "the page sets its first letter in the running text")
+t.assertEqual(settings:presentation().alignment, "justified", "turning drop caps off leaves other preferences alone")
+
 -- Preferences persist as plain values and restore exactly.
 local restored = ReadingSettings.new(settings:snapshot())
 t.assertEqual(restored.font, "monospaced", "the face survives a relaunch")
@@ -53,6 +58,8 @@ t.assertEqual(restored.fontSize, 14, "the size survives a relaunch")
 t.assertEqual(restored.theme, "night", "the theme survives a relaunch")
 t.assertEqual(restored.spacing, "relaxed", "the leading survives a relaunch")
 t.expect(restored.justified, "justification survives a relaunch")
+t.expect(restored.dropCap == false, "the drop cap choice survives a relaunch")
+t.expect(ReadingSettings.new({ dropCap = "no" }).dropCap, "a malformed saved choice keeps drop caps")
 local defaults = ReadingSettings.new({ font = "comic", theme = "cover", spacing = "huge", fontSize = 99 })
 t.assertEqual(defaults.font, "serif", "an unknown saved face falls back to the default")
 t.assertEqual(defaults.theme, "paper", "a retired theme falls back to paper")
diff --git a/tests/adventure_arena_reading_settings_flow.test.lua b/tests/adventure_arena_reading_settings_flow.test.lua
index 4513ceea..fdbb8f7b 100644
--- a/tests/adventure_arena_reading_settings_flow.test.lua
+++ b/tests/adventure_arena_reading_settings_flow.test.lua
@@ -30,9 +30,15 @@ ns.Picker = function(props)
 	return picker(props)
 end
 ns.Toggle = function(props)
-	table.insert(toggleControls, { onChange = props.onChange })
+	table.insert(toggleControls, { onChange = props.onChange, label = props.label or props.title or props[1] })
 	return toggle(props)
 end
+-- The panel re-renders as preferences change; the newest toggle is live.
+local function toggleNamed(label)
+	for index = #toggleControls, 1, -1 do
+		if toggleControls[index].label == label then return toggleControls[index] end
+	end
+end
 
 local game = {
 	id = "sanitarium", title = "Sanitarium", shortDescription = "A psychological horror adventure.",
@@ -92,11 +98,11 @@ controller = SessionController.new {
 
 t.expect(controller:show(game.id), "session screen opens for the selected game")
 t.assertEqual(sessionRefs.sessionTitle.text, game.title, "the running head names the story")
-t.assertEqual(sessionRefs.sessionPlace.text, "Chapter I · Sanitarium Gate", "the running head names the chapter and room")
+t.assertEqual(sessionRefs.sessionPlace.text, "Sanitarium Gate", "the running head names the room")
 local function page() return controller.transcript.refs end
 t.assertEqual(page().gameTitle.text, game.title, "the page opens on the title")
 t.assertEqual(page().gameDescription.text, game.shortDescription, "the tagline is the title page's epigraph")
-t.assertEqual(page().sceneTitle_1.text, "Sanitarium Gate", "the first chapter identifies the active room")
+t.assertEqual(page().sceneTitle_1.text, "Sanitarium Gate", "the first scene identifies the active room")
 t.assertEqual(sessionRefs.progress.text, "Score 2 of 10 · 3 moves", "the folio shows score and moves")
 t.assertEqual(page().paragraph_1_1.font.pointSize, 18, "the story is set at the default 18pt")
 
@@ -131,10 +137,23 @@ t.assertEqual(settings.theme, "night", "the Night swatch selects the night page"
 t.expect(math.abs(sessionRefs.session.backgroundColor.redComponent) < 0.01, "the page turns black")
 t.assertEqual(page().paragraph_1_1.text, "The rusted gate stands open.", "re-setting the page preserves the story")
 t.assertEqual(sessionRefs.progress.text, "Score 2 of 10 · 3 moves", "re-setting the page preserves progress")
-toggleControls[#toggleControls].onChange(true)
+toggleNamed("Justify Text").onChange(true)
 t.expect(settings.justified, "the justify toggle updates reading preferences")
 t.assertEqual(page().paragraph_1_1.textAlignment, 3, "the open book is justified")
 
+-- Drop caps are the reader's choice.
+t.expect(page().paragraph_1_1.dropCap == true, "a scene opens with a dropped initial by default")
+toggleNamed("Drop Caps").onChange(false)
+t.expect(settings.dropCap == false, "the drop cap toggle updates reading preferences")
+t.expect(saved.dropCap == false, "the choice is persisted")
+t.expect(page().paragraph_1_1.dropCap ~= true, "the open book sets its first letter in the running text")
+t.expect(page().paragraph_1_1.initialView.hidden == true, "no initial is drawn")
+t.assertEqual(page().paragraph_1_1.text, "The rusted gate stands open.", "the paragraph keeps its first letter")
+t.assertEqual(controller.readingSettingsOptions.refs.dropCapToggle.state, 0, "the toggle shows the choice")
+toggleNamed("Drop Caps").onChange(true)
+t.expect(page().paragraph_1_1.dropCap == true, "turning drop caps back on drops the initial again")
+toggleNamed("Drop Caps").onChange(false)
+
 local done = buttonActions[sheetRefs.done]
 t.expect(type(done) == "function", "Done has a native action")
 if done then done() end
@@ -145,7 +164,11 @@ t.assertEqual(#options.mounted, 0, "closing the sheet unmounts its options")
 -- The Settings tab mounts the same options with a sample page.
 local host = ns.VStack {}
 local tab = options:mount(host, true)
-t.expect(tab.refs.previewBody ~= nil and tab.refs.previewBody.dropCap, "the Settings tab shows a sample page with a drop cap")
+t.expect(tab.refs.previewBody ~= nil and tab.refs.previewBody.dropCap ~= true,
+	"the Settings tab's sample page follows the drop cap preference")
+options:apply(settings:setDropCap(true))
+t.expect(tab.refs.previewBody.dropCap == true, "the sample page drops its initial when drop caps are on")
+t.expect(tab.refs.chapter == nil, "the sample page has no chapter line")
 t.assertEqual(tab.refs.previewBody.textAlignment, 3, "the sample page follows the preferences")
 
 ns.Button, ns.Slider, ns.Picker, ns.Page, ns.Toggle = button, slider, picker, page, toggle
diff --git a/tests/adventure_arena_saves.test.lua b/tests/adventure_arena_saves.test.lua
index 1348e1cd..e22f4620 100644
--- a/tests/adventure_arena_saves.test.lua
+++ b/tests/adventure_arena_saves.test.lua
@@ -17,13 +17,13 @@ t.assertEqual(#saves:list(), 0, "a new library has no saved games")
 t.expect(not saves:record({ gameId = "zork", commands = {} }),
 	"opening a story without playing it is not saved")
 t.expect(not saves:record({ commands = { "look" } }), "a save needs a game")
-t.expect(saves:record({ gameId = "zork", seed = 7, commands = { "open mailbox" }, chapter = 1, room = "West of House" }),
+t.expect(saves:record({ gameId = "zork", seed = 7, commands = { "open mailbox" }, room = "West of House" }),
 	"a played story is saved")
 clock = 200
-saves:record({ gameId = "planetfall", seed = 9, commands = { "up" }, chapter = 2, room = "Gangway" })
+saves:record({ gameId = "planetfall", seed = 9, commands = { "up" }, room = "Gangway" })
 t.assertEqual(saves:latest().gameId, "planetfall", "the most recently played story comes first")
 clock = 300
-saves:record({ gameId = "zork", seed = 7, commands = { "open mailbox", "read leaflet" }, chapter = 1, room = "West of House" })
+saves:record({ gameId = "zork", seed = 7, commands = { "open mailbox", "read leaflet" }, room = "West of House" })
 t.assertEqual(saves:latest().gameId, "zork", "playing again moves a story to the front")
 t.assertEqual(#saves:find("zork").commands, 2, "a save replaces the previous one for the same story")
 t.assertEqual(written.version, 1, "the store receives a versioned document")
@@ -104,7 +104,6 @@ local resumed = play(999)
 t.expect(resumed:start(planetfall, snapshot), "a saved game resumes")
 t.assertEqual(resumed.moves, first.moves, "the ship's clock resumes at the same time")
 t.assertEqual(resumed.roomTitle, first.roomTitle, "the story resumes in the same room")
-t.assertEqual(resumed.chapters, first.chapters, "the same chapters are rebuilt")
 t.assertEqual(#resumed.entries, #first.entries, "the whole transcript is rebuilt")
 t.assertEqual(resumed.scoreChange, 0, "replaying does not announce old points")
 local last = resumed.entries[#resumed.entries]
diff --git a/tests/adventure_arena_session.test.lua b/tests/adventure_arena_session.test.lua
index 97b12d71..0ebd5df1 100644
--- a/tests/adventure_arena_session.test.lua
+++ b/tests/adventure_arena_session.test.lua
@@ -8,7 +8,7 @@ local function kinds(session)
 	return table.concat(list, ",")
 end
 
--- Plain engine: no room names, so the opening still opens Chapter I.
+-- Plain engine: no room names, so the opening still opens a scene.
 local session = Session.new({ engineFactory = function()
 	return { start = function()
 		return { resume = function(_, command)
@@ -22,10 +22,12 @@ local game = { id = "test", title = "Test Story" }
 t.expect(session:start(game), "session starts with an opening message")
 t.assertEqual(session:presentation().progress, "Score 0 · 0 moves", "new session starts with empty progress")
 local opening = session:presentation().entries[1]
-t.assertEqual(opening.kind, "scene", "the opening starts a chapter")
-t.assertEqual(opening.chapterLabel, "Chapter I", "chapters are numbered in roman numerals")
-t.assertEqual(opening.title, "Test Story", "without a room name the chapter takes the game title")
-t.assertEqual(opening.paragraphs[1], "Welcome.", "the chapter keeps its whole first paragraph; the view drops the initial")
+t.assertEqual(opening.kind, "scene", "the opening starts a scene")
+t.assertEqual(opening.chapterLabel, nil, "scenes are named for their rooms, never numbered as chapters")
+t.assertEqual(session:presentation().chapterLabel, nil, "the running head carries no chapter")
+t.assertEqual(session:snapshot().chapter, nil, "a save records no chapter")
+t.assertEqual(opening.title, "Test Story", "without a room name the scene takes the game title")
+t.assertEqual(opening.paragraphs[1], "Welcome.", "the scene keeps its whole first paragraph; the view drops the initial")
 t.expect(session:submit("  look  "), "trimmed command succeeds")
 t.assertEqual(session:presentation().progress, "Score 0 · 1 move", "submitted commands increment the move count")
 t.assertEqual(kinds(session), "scene,command,narration", "a command and its response append two entries")
@@ -67,25 +69,24 @@ t.assertEqual(kinds(story), "banner,narration,scene", "banner, prologue, then th
 local entries = story:presentation().entries
 t.assertEqual(entries[1].title, "PLANETFALL", "the banner keeps the story title")
 t.assertEqual(#entries[1].lines, 3, "the banner keeps its credit lines")
-t.assertEqual(entries[2].paragraphs[1], "Another routine day.", "prologue precedes the first chapter")
-t.assertEqual(entries[3].title, "Deck Nine", "a heading line names the chapter")
+t.assertEqual(entries[2].paragraphs[1], "Another routine day.", "prologue precedes the first scene")
+t.assertEqual(entries[3].title, "Deck Nine", "a heading line names the scene")
 t.assertEqual(entries[3].paragraphs[1], "A featureless corridor.\nA brush lies here.", "the heading line is not repeated")
 t.assertEqual(story:presentation().roomTitle, "Deck Nine", "presentation names the active room")
 story:submit("north")
 t.assertEqual(kinds(story), "banner,narration,scene,command,narration", "a failed move is narration")
 story:submit("look")
 entries = story:presentation().entries
-t.assertEqual(entries[#entries].kind, "narration", "looking again does not open a new chapter")
+t.assertEqual(entries[#entries].kind, "narration", "looking again does not open a new scene")
 t.assertEqual(entries[#entries].paragraphs[1], "Still here.", "the repeated heading line is dropped")
 story:submit("up")
 entries = story:presentation().entries
-t.assertEqual(entries[#entries].chapterLabel, "Chapter II", "a printed heading opens the next chapter")
-t.assertEqual(entries[#entries].title, "Gangway", "the new chapter is named for the new room")
+t.assertEqual(entries[#entries].kind, "scene", "a printed heading opens the next scene")
+t.assertEqual(entries[#entries].title, "Gangway", "the new scene is named for the new room")
 story:submit("starboard")
 entries = story:presentation().entries
-t.assertEqual(entries[#entries].title, "Reactor", "a room change without a heading still opens a chapter")
-t.assertEqual(entries[#entries].paragraphs[1], "The reactor hums.", "that chapter opens with its description")
-t.assertEqual(Session.roman(1994), "MCMXCIV", "roman numerals cover long games")
+t.assertEqual(entries[#entries].title, "Reactor", "a room change without a heading still opens a scene")
+t.assertEqual(entries[#entries].paragraphs[1], "The reactor hums.", "that scene opens with its description")
 
 -- Openings that start with punctuation keep it and skip the initial.
 local quoted = Session.new({ engineFactory = function()
diff --git a/tests/adventure_arena_transcript.test.lua b/tests/adventure_arena_transcript.test.lua
index 84f4d56b..a1852580 100644
--- a/tests/adventure_arena_transcript.test.lua
+++ b/tests/adventure_arena_transcript.test.lua
@@ -72,8 +72,23 @@ scroll:layout(320)
 t.assertEqual(scroll.contentView.bounds.origin.y, 0, "a new message returns to the latest line")
 t.assertEqual(controller.transcript.refs.command_2.text, "look", "the submitted command is in the transcript")
 t.assertEqual(controller.transcript.refs.paragraph_3_1.text, "Response look", "the response follows the command")
-t.assertEqual(rendered.refs.compassExit_north.strokeAlpha, 1, "loaded exits stay marked after a command")
-t.assertEqual(rendered.refs.compassExit_south.strokeAlpha, 0, "closed exits stay unmarked after a command")
+t.expect(rendered.refs.compassControl == nil and rendered.refs.compassExit_north == nil,
+	"the reader's page shows no compass")
+t.expect(model:hasExit("north") and not model:hasExit("south"), "the session still knows its exits")
+t.expect(controller.transcript.refs.chapter_1 == nil, "a scene carries no chapter line above its title")
+t.assertEqual(controller.transcript.refs.sceneTitle_1.text, "Zork", "a scene opens with its title")
+
+-- The command field takes the width the compass left: it ends at the bar's
+-- trailing edge, and the bar holds only the menu and the field.
+local bar = rendered.refs.quickActions.superview
+rendered.refs.session.size = ns.Size(390, 700)
+rendered.refs.session:layout(390)
+local field = rendered.refs.input
+local glass = field.superview
+while glass.superview ~= bar do glass = glass.superview end
+t.assertEqual(#bar.subviews, 2, "the command bar holds the menu and the field")
+t.assertEqual(glass.frame.origin.x + glass.frame.size.width, bar.bounds.size.width,
+	"the command field fills the bar to its trailing edge")
 
 local savedOpening = opening .. "\n\n> inventory\n\nYou are empty handed."
 local saved = Session.new { engineFactory = function()
@@ -111,7 +126,7 @@ scroll:layout(320)
 t.assertEqual(scroll.contentView.bounds.origin.y, 0, "loading a session shows the latest line")
 local page = loaded.transcript.refs
 t.assertEqual(page.paragraph_1_1.text:sub(1, 20), "A long opening parag", "a loaded session keeps its opening, first letter included")
-t.expect(page.paragraph_1_1.dropCap == true, "the chapter's first paragraph drops its initial")
+t.expect(page.paragraph_1_1.dropCap == true, "the scene's first paragraph drops its initial")
 t.expect(page.paragraph_1_1.initialView.hidden == false, "the initial is drawn beside the wrapped lines")
 t.expect(page.paragraph_1_2.dropCap ~= true, "later paragraphs run as plain prose")
 t.expect(page.paragraph_1_2.text:find("> inventory", 1, true) ~= nil, "a loaded session keeps its commands")
diff --git a/tests/paragraph_links.test.lua b/tests/paragraph_links.test.lua
new file mode 100644
index 00000000..9013e0ac
--- /dev/null
+++ b/tests/paragraph_links.test.lua
@@ -0,0 +1,119 @@
+_G.__headless = true
+local t = require("TestKit")
+local ns = require("AppKit")
+local xml = require("ui.xml")
+local Template = require("ui.template")
+local bridge = require("AppKitNative")
+
+-- A paragraph marks the words a reader can act on with <Hyperlink> children
+-- (WPF Hyperlink inside a TextBlock); each opens a menu of <MenuItem>s.
+local PROSE = "A corroded brass plaque hangs askew on the gate. A path leads north."
+local chosen = {}
+local function actions()
+	return {
+		examine = function() table.insert(chosen, "examine plaque") end,
+		read = function() table.insert(chosen, "read plaque") end,
+		north = function() table.insert(chosen, "north") end,
+	}
+end
+local SOURCE = [[
+<VStack spacing="0" alignment="leading">
+	<Paragraph id="linked" text="]] .. PROSE .. [[" size="17" design="serif" dropCap="<%= dropCap %>" revealedCharacters="<%= revealed %>">
+		<% for _, link in ipairs(links) do %>
+		<Hyperlink location="<%= link.location %>" length="<%= link.length %>" label="<%= link.label %>">
+			<% for _, item in ipairs(link.items) do %>
+			<MenuItem title="<%= item.title %>" action="<%= item.action %>" />
+			<% end %>
+		</Hyperlink>
+		<% end %>
+	</Paragraph>
+	<Paragraph id="plain" text="]] .. PROSE .. [[" size="17" design="serif" />
+</VStack>]]
+local LINKS = {
+	{ location = 11, length = 12, label = "plaque", items = {
+		{ title = "Examine plaque", action = "examine" }, { title = "Read plaque", action = "read" },
+		{ title = "Unavailable", action = "missing" },
+	} },
+	{ location = 62, length = 5, label = "north", items = { { title = "Go north", action = "north" } } },
+}
+
+local path = os.tmpname() .. ".etlua"
+local file = assert(io.open(path, "w"))
+file:write(SOURCE)
+file:close()
+local host = ns.VStack {}
+local template = Template.new(host, path, ns)
+local _, refs = template:update({ links = LINKS, dropCap = "false", revealed = -1, actions = actions() })
+host.size = ns.Size(320, 2000); host:layout(320)
+
+local links = bridge._paragraphLinks(refs.linked)
+t.assertEqual(#links, 2, "each <Hyperlink> becomes a link")
+t.assertEqual(links[1].text, "brass plaque", "a link covers the characters it names")
+t.assertEqual(links[2].text, "north", "a later link covers its own words")
+t.assertEqual(links[1].label, "plaque", "a link keeps its label")
+t.assertEqual(#links[1].titles, 3, "a link lists its menu items")
+t.assertEqual(links[1].titles[2], "Read plaque", "menu items keep their order")
+t.expect(links[1].revealed, "a link in fully shown text can be tapped")
+t.assertEqual(refs.linked.text, PROSE, "links leave the paragraph's text alone")
+t.assertEqual(refs.linked.size.height, refs.plain.size.height, "links do not change how the text is set")
+t.assertEqual(#bridge._paragraphLinks(refs.plain), 0, "a paragraph without children has no links")
+
+bridge._paragraphPerformLink(refs.linked, 1, 2)
+bridge._paragraphPerformLink(refs.linked, 2, 1)
+t.assertEqual(table.concat(chosen, ","), "read plaque,north", "choosing a menu item runs its action")
+bridge._paragraphPerformLink(refs.linked, 1, 3)
+t.assertEqual(#chosen, 2, "an item without an action does nothing")
+t.assertThrows(function() bridge._paragraphPerformLink(refs.linked, 3, 1) end, "a missing link is an error")
+t.assertThrows(function() bridge._paragraphPerformLink(refs.linked, 1, 4) end, "a missing item is an error")
+
+-- A typewriter reveal: a link can be tapped once typing has reached it.
+local view = refs.linked
+view.revealedCharacters = 5
+links = bridge._paragraphLinks(view)
+t.expect(not links[1].revealed and not links[2].revealed, "links wait hidden until typing reaches them")
+view.revealedCharacters = 12
+links = bridge._paragraphLinks(view)
+t.expect(links[1].revealed and not links[2].revealed, "a link is live from its first typed character")
+view.revealedCharacters = -1
+
+-- New links reach the same native view in place.
+local _, updated = template:update({ links = { LINKS[2] }, dropCap = "false", revealed = -1, actions = actions() })
+t.expect(updated.linked == view, "changing links keeps the paragraph's native view")
+links = bridge._paragraphLinks(view)
+t.assertEqual(#links, 1, "removed links are gone")
+t.assertEqual(links[1].text, "north", "the remaining link keeps its range")
+bridge._paragraphPerformLink(view, 1, 1)
+t.assertEqual(chosen[#chosen], "north", "the remaining link still runs its action")
+_, updated = template:update({ links = {}, dropCap = "false", revealed = -1, actions = actions() })
+t.assertEqual(#bridge._paragraphLinks(updated.linked), 0, "a paragraph can lose every link")
+
+-- A dropped initial leaves the text storage; links follow the words.
+_, updated = template:update({ links = LINKS, dropCap = "true", revealed = -1, actions = actions() })
+host:layout(320)
+links = bridge._paragraphLinks(updated.linked)
+t.assertEqual(links[1].text, "brass plaque", "a link skips the dropped initial")
+local initial = { { location = 0, length = 10, label = "corroded", items = { { title = "Examine", action = "examine" } } } }
+_, updated = template:update({ links = initial, dropCap = "true", revealed = -1, actions = actions() })
+t.assertEqual(bridge._paragraphLinks(updated.linked)[1].text, " corroded", "a link that starts at the initial covers the rest of its words")
+
+-- Edge cases: ranges beyond the text, empty ranges, other children.
+local edge = { { location = 62, length = 500, label = "tail", items = {} }, { location = 900, length = 4, label = "gone", items = {} },
+	{ location = 3, length = 0, label = "empty", items = {} } }
+_, updated = template:update({ links = edge, dropCap = "false", revealed = -1, actions = actions() })
+links = bridge._paragraphLinks(updated.linked)
+t.assertEqual(links[1].text, "north.", "a link running past the end stops at the end")
+t.assertEqual(links[2].text, "", "a link beyond the text covers nothing")
+t.assertEqual(links[3].text, "", "an empty link covers nothing")
+t.assertThrows(function()
+	xml.render([[<Paragraph text="x"><Label text="y" /></Paragraph>]], {}, ns)
+end, "a paragraph accepts only Hyperlink children")
+
+-- Characters are counted as utf8.len counts them.
+local accented = xml.render([[<Paragraph text="Café — the door is open.">
+	<Hyperlink location="11" length="4" label="door"><MenuItem title="Open door" action="examine" /></Hyperlink>
+</Paragraph>]], { actions = actions() }, ns)
+t.assertEqual(bridge._paragraphLinks(accented)[1].text, "door", "link ranges count characters, not bytes")
+
+template:dispose()
+os.remove(path)
+os.exit(t.summary() and 0 or 1)