diff --git a/README.md b/README.md
index c98fd80..bab176d 100644
--- a/README.md
+++ b/README.md
@@ -122,6 +122,11 @@ The table is generated from [`index.yaml`](index.yaml); edit that file, then run
 | [`sheet-charge-chargen/`](sheet-charge-chargen/) | 1.0.2 | Joins the Charge sheet to +app character applications |
 | [`charge-wiki/`](charge-wiki/) | 1.0.4 | Charge rules as wiki pages (action rolls, momentum, consequences, stress, clocks, progression; CC BY 4.0) |
 | [`duties-charge/`](duties-charge/) | 1.0.2 | Duties roll provider "charge" on the Charge sheet |
+| [`radio/`](radio/) | 1.8.1 | +radio — frequencies to tune in to, speak on and recall, with moderators, admins and locks; the worked example of a system built on @feed |
+| [`radio-help/`](radio-help/) | 1.1.1 | Registers the radio topics with +help (requires radio and plus-help) |
+| [`radio-config/`](radio-config/) | 1.0.1 | Registers the radio settings with +config (requires radio and plus-config) |
+| [`radio-scene/`](radio-scene/) | 1.4.3 | +radio/log — what a listener hears on a frequency goes into their scene, through a tap on the radio feed kind (requires radio and scene) |
+| [`scene-verse/`](scene-verse/) | 2.0.0 | Verse and canon on scenes, and +scene/verses (requires scene) |
 <!-- packages-table:end -->
 
 Packages bundled with SharpMUSH (`+who`/`+where`, the HTTP handler, the
diff --git a/index.yaml b/index.yaml
index 50f1332..c8b7473 100644
--- a/index.yaml
+++ b/index.yaml
@@ -351,3 +351,28 @@ packages:
     package: duties-charge
     version: 1.0.2
     description: Duties roll provider "charge" on the Charge sheet
+  - path: radio/
+    name: Radio
+    package: radio
+    version: 1.8.1
+    description: +radio — frequencies to tune in to, speak on and recall, with moderators, admins and locks; the worked example of a system built on @feed
+  - path: radio-help/
+    name: Radio help
+    package: radio-help
+    version: 1.1.1
+    description: Registers the radio topics with +help (requires radio and plus-help)
+  - path: radio-config/
+    name: Radio settings
+    package: radio-config
+    version: 1.0.1
+    description: Registers the radio settings with +config (requires radio and plus-config)
+  - path: radio-scene/
+    name: Radio in scenes
+    package: radio-scene
+    version: 1.4.3
+    description: +radio/log — what a listener hears on a frequency goes into their scene, through a tap on the radio feed kind (requires radio and scene)
+  - path: scene-verse/
+    name: Verse and canon in scenes
+    package: scene-verse
+    version: 2.0.0
+    description: Verse and canon on scenes, and +scene/verses (requires scene)
diff --git a/radio-config/package.yaml b/radio-config/package.yaml
new file mode 100644
index 0000000..edcbd8e
--- /dev/null
+++ b/radio-config/package.yaml
@@ -0,0 +1,37 @@
+format: "1.20"
+package: radio-config
+title: "Radio: +config settings"
+version: 1.0.1
+authors: [SharpMUSH]
+description: "Puts the Radio settings into +config: registers them with the +config registry, so staff see and change them with +config radio."
+license: MIT
+homepage: https://github.com/SharpMUSH/SharpMUSH.Packages
+keywords: [radio, config, bridge]
+category: Community
+bridge: true
+requires_server: ">=1.0"
+verified_server: "1.0"
+
+# A bridge: it joins two packages that do not know about each other. radio declares its settings as
+# DATA`CONFIG`<NAME>, with their types and limits, and reads them with get() whether or not +config is installed.
+# This package is the one leaf that tells the +config registry where they are.
+depends:
+  - package: radio
+    version: ">=1.5"
+    source:
+      repo: https://github.com/SharpMUSH/SharpMUSH.Packages
+      path: radio/
+      branch: main
+  - package: plus-config
+    version: ">=1.0"
+    source:
+      repo: https://github.com/SharpMUSH/SharpMUSH
+      path: examples/packages/plus-config/
+      branch: main
+
+objects:
+  - ref: config_registration
+    target: "{{plus-config/registry}}"
+    attributes:
+      SYSTEM`RADIO: |-
+        {{radio/radio}}
diff --git a/radio-help/package.yaml b/radio-help/package.yaml
new file mode 100644
index 0000000..4f0c2c8
--- /dev/null
+++ b/radio-help/package.yaml
@@ -0,0 +1,46 @@
+format: "1.20"
+package: radio-help
+title: "Radio: +help topics"
+version: 1.1.1
+authors: [SharpMUSH]
+description: "Puts the Radio topics into +help: registers the radio package's help with the +help librarian, and points its messages at +help."
+license: MIT
+homepage: https://github.com/SharpMUSH/SharpMUSH.Packages
+keywords: [radio, help, bridge]
+category: Community
+bridge: true
+requires_server: ">=1.0"
+verified_server: "1.0"
+
+# A bridge: it joins two packages that do not know about each other. radio keeps its topics on its own help
+# object, and plus-help reads any object registered with its librarian. This package is that registration, and the lines that point its messages at +help;
+# uninstalling it takes the topics out of +help, and neither package changes.
+depends:
+  - package: radio
+    version: ">=1.6"
+    source:
+      repo: https://github.com/SharpMUSH/SharpMUSH.Packages
+      path: radio/
+      branch: main
+  - package: plus-help
+    version: ">=1.0"
+    source:
+      repo: https://github.com/SharpMUSH/SharpMUSH
+      path: examples/packages/plus-help/
+      branch: main
+
+objects:
+  - ref: help_registration
+    target: "{{plus-help/librarian}}"
+    attributes:
+      SRC`RADIO: |-
+        {{radio/radio_help}}
+
+  # Lines the radio package's messages end with when +help is here, through its FUN`HINT: HINT`<message>.
+  - ref: message_hints
+    target: "{{radio/radio}}"
+    attributes:
+      HINT`SWITCHES: |-
+        +help radio lists them.
+      HINT`USAGE: |-
+        +help radio lists the rest.
diff --git a/radio-scene/package.yaml b/radio-scene/package.yaml
new file mode 100644
index 0000000..da00037
--- /dev/null
+++ b/radio-scene/package.yaml
@@ -0,0 +1,127 @@
+format: "1.20"
+package: radio-scene
+title: "Radio in scenes"
+version: 1.4.3
+authors: [SharpMUSH]
+description: "Radio in scenes: +radio/log puts what a player hears on a frequency into the scene they are in. Joins the radio and scene packages through a tap on the radio feed kind."
+license: MIT
+homepage: https://github.com/SharpMUSH/SharpMUSH.Packages
+keywords: [radio, scene, logging, feed]
+category: Scenes
+bridge: true
+requires_server: ">=1.0"
+verified_server: "1.0"
+
+# +radio/log writes poses through the Scene plugin, so it installs only while the plugin runs.
+plugins: [scene]
+
+# Neither package knows about the other. The radio keeps frequencies and who hears them; the scene
+# package keeps scenes and their poses. This one listens to the radio's feed and writes into scenes.
+depends:
+  - package: radio
+    version: ">=1.3"
+    source:
+      repo: https://github.com/SharpMUSH/SharpMUSH.Packages
+      path: radio/
+      branch: main
+  - package: scene
+    version: ">=1.5"
+    source:
+      repo: https://github.com/SharpMUSH/SharpMUSH
+      path: examples/packages/scene/
+      branch: main
+
+objects:
+  # The logger: a tap on the radio feed kind, and the /log and /stoplog switches of +radio. WIZARD because
+  # it reads the WIZARD radio's attributes and adds poses to other people's scenes.
+  #
+  #   DATA`PLAYER`<key>`LOG`<id>   a player logs frequency <id> into the scene they are in; <key> is the
+  #                                radio's FUN`KEY for them, so it matches the radio's own settings
+  - ref: radiolog
+    type: thing
+    name: Radio Scene Log
+    flags: [WIZARD]
+    attributes:
+      # A tap on the radio kind, queued once per line after it is delivered. It reads the line by name (help
+      # @feed taps): feed is radio/<id>, recipients who heard it, speaker, style, text, and name the
+      # alterego. A listener who logs this frequency
+      # and is in a scene gets the line into that scene, drawn as they heard it, once per scene however
+      # many people in it are logging. It is recorded as the radio type, with the frequency's name in the
+      # pose's frequency field, which the portal shows in the message's header.
+      TAP`LOG: |-
+        think setqm(tap_frequency,after(%<feed>,/),
+        tap_scenes,,
+        tap_pairs,)[iter(%<recipients>,if(u({{radiolog}}/FUN`LOGS`INTO,%i0),setqm(tap_scenes,%q<tap_scenes> %q<tap_scene>,
+        tap_pairs,%q<tap_pairs> %q<tap_scene>~%i0)))]; @dolist/inline %q<tap_pairs>={@scene/addpose [before(##,~)]=[after(##,~)],[scenemember(before(##,~),after(##,~),showas)],[loc(after(##,~))],radio,emit,,[uargs({{radio/radio}}/FUN`LINE,frequency,%q<tap_frequency>,speaker,%<speaker>,name,firstof(%<name>,name(%<speaker>)),style,%<style>,text,%<text>,reader,after(##,~))]; @scene/setpose [last(sceneposes(before(##,~)))]/frequency=[u({{radio/radio}}/FUN`NAME,%q<tap_frequency>)]}
+      # %0 a listener: 1 when they log %q<tap_frequency>, their scene (left in %q<tap_scene>) is new or active, and no
+      # one before them put the line into it. A paused scene records nothing until +scene/start resumes it,
+      # though the player's focus stays on it.
+      FUN`LOGS`INTO: |-
+        cand(hasattr({{radiolog}},DATA`PLAYER`[u({{radio/radio}}/FUN`KEY,%0)]`LOG`%q<tap_frequency>),not(strmatch(setr(tap_scene,scenefocus(%0)),#-*)),not(match(paused finished cancelled,scene(%q<tap_scene>,status))),not(member(%q<tap_scenes>,%q<tap_scene>)))
+
+      # +radio includes these with its registers: %q<cmd_left> the frequency as typed, %q<viewer_key> the player's
+      # key and %q<extension_object> this object; INC`NEED`JOINED sets %q<frequency_id>. The radio is the executor
+      # while they run, so they name it %! and this object %q<extension_object>: a {{ref}} is looked up on the
+      # executor, and the radio holds none of this package's.
+      # /log <frequency> starts logging it into the player's scene; /log alone lists what they log.
+      INC`LOG: |-
+        @assert strlen(%q<cmd_left>)=@include %q<extension_object>/INC`LOGGED; @include %!/INC`NEED`JOINED; @assert not(strmatch(scenefocus(%#),#-*))=@pemit %#=notice(RADIO,Join a scene first: what you hear is logged into the scene you are in.,warn); &DATA`PLAYER`%q<viewer_key>`LOG`%q<frequency_id> %q<extension_object>=1; @pemit %#=notice(RADIO,What you hear on [u(%!/FUN`NAME,%q<frequency_id>)] goes into your scene until +radio/stoplog.,ok)
+      INC`STOPLOG: |-
+        @include %!/INC`NEED`JOINED; @assert hasattr(%q<extension_object>,DATA`PLAYER`%q<viewer_key>`LOG`%q<frequency_id>)=@pemit %#=notice(RADIO,You are not logging [u(%!/FUN`NAME,%q<frequency_id>)].,warn); &DATA`PLAYER`%q<viewer_key>`LOG`%q<frequency_id> %q<extension_object>; @pemit %#=notice(RADIO,[u(%!/FUN`NAME,%q<frequency_id>)] is no longer logged into your scene.,ok)
+      # The frequencies the player logs that still exist.
+      INC`LOGGED: |-
+        think setq(logged_ids,squish(iter(lattr(%q<extension_object>/DATA`PLAYER`%q<viewer_key>`LOG`*),if(hasattr(%!,DATA`FREQUENCY`[last(%i0,`)]`NAME),last(%i0,`))))); @assert words(%q<logged_ids>)=@pemit %#=notice(RADIO,You log no frequency into your scene. +radio/log <frequency> starts.); @pemit %#=notice(RADIO,Logged into your scene: [itemize(iter(%q<logged_ids>,u(%!/FUN`NAME,%i0),,|),|)].)
+
+      # Taps are stored, so this only puts the tap back after the radio kind was undefined and defined again.
+      STARTUP: |-
+        @feed/tap radio={{radiolog}}/TAP`LOG
+      AINSTALL: |-
+        @trigger {{radiolog}}/STARTUP
+
+  # The radio pose type, on the Scene Logger beside the scene package's own (see TYPE` there): a message in
+  # the portal, in the info colour, with the radio icon; in a terminal one line tagged with the scene,
+  # <RADIO · 12>, in the reader's info colour. Uninstalling this package takes it away, and radio
+  # lines already recorded then read as in character.
+  - ref: scene_type_radio
+    target: "{{scene/logger}}"
+    attributes:
+      TYPE`RADIO: |-
+        {"label":"Radio","presentation":"message","tone":"info","icon":"radio","order":40}
+      TYPE`RADIO`FORMAT: |-
+        tone(info,<RADIO[if(strlen(%3),%b[chr(183)] %3)]> %2)
+
+  # +radio/log and /stoplog: the radio runs INC`LOG and INC`STOPLOG on the logger. Uninstalling this
+  # package takes them away again.
+  - ref: radio_switches
+    target: "{{radio/radio}}"
+    attributes:
+      EXT`LOG: |-
+        {{radiolog}}
+      EXT`STOPLOG: |-
+        {{radiolog}}
+
+  # The +help topics go into the radio's and the scene package's own help, so +help radio and +help scene
+  # list them as subtopics. Attached, so uninstalling this package takes them away again. Bodies are
+  # evaluated, so brackets, parentheses and percent signs are escaped.
+  - ref: radio_help_log
+    target: "{{radio/radio_help}}"
+    attributes:
+      SEE`RADIO`LOG: |-
+        scene radio
+      HELP`RADIO`LOG: |-
+        What you hear on a frequency can go into the scene you are in, so the log shows the calls that came in while you played.
+
+        - `+radio/log <frequency>` puts everything you hear on that frequency into your scene, until `+radio/stoplog <frequency>`.
+        - `+radio/log` lists the frequencies you log.
+
+        You must be tuned in to the frequency and in a scene. While your scene is paused nothing is logged into it, radio included, until `+scene/start` resumes it. A line goes into a scene once, however many people in it are logging, and it reads the way the first of them heard it. Logging lasts until you stop it: when you move to another scene, what you hear goes there instead.
+
+  - ref: scene_help_radio
+    target: "{{scene/scene_help}}"
+    attributes:
+      SEE`SCENE`RADIO: |-
+        radio log|radio
+      HELP`SCENE`RADIO: |-
+        A frequency you are tuned in to can be logged into your scene: `+radio/log <frequency>` starts, `+radio/stoplog <frequency>` stops, and `+radio/log` lists what you log.
+
+        Each line goes into the scene once, under the name of the first person in it who logs that frequency, drawn the way they heard it. Radio lines are their own pose type, `radio`, so `+scene/hide radio` leaves them out of your recall and log. See `+help radio log` for the rest.
diff --git a/radio/package.yaml b/radio/package.yaml
new file mode 100644
index 0000000..524b35f
--- /dev/null
+++ b/radio/package.yaml
@@ -0,0 +1,559 @@
+format: "1.16"
+package: radio
+title: "Radio"
+version: 1.8.1
+authors: [SharpMUSH]
+description: "Radio: +radio frequencies players tune in to, speak on and recall, with moderators, admins and their own locks. Built on @feed: the engine keeps each frequency's lines and listeners; this package keeps the names, lists and rules."
+license: MIT
+homepage: https://github.com/SharpMUSH/SharpMUSH.Packages
+keywords: [radio, channels, comms, feed]
+category: Community
+requires_server: ">=1.0"
+verified_server: "1.0"
+
+
+# Who may create frequencies, and who moderates and runs every one of them, is a permission, so it
+# moves with roles: @role/assign <player>=radio-admin, or radio-moderator to moderate every frequency.
+# Wizards pass the default locks too.
+categories:
+  roles:
+    - name: Radio
+      description: Roles for the people who run the radio.
+  permissions:
+    - name: Radio
+      description: Running the radio and its frequencies.
+permissions:
+  - name: softcode.radio.admin
+    category: Radio
+    description: Create radio frequencies, and moderate and run every one of them.
+  - name: softcode.radio.moderate
+    category: Radio
+    description: Moderate every radio frequency.
+roles:
+  - slug: radio-admin
+    name: Radio Admin
+    category: Radio
+    priority: 10
+    permissions:
+      softcode.radio.admin: allow
+  - slug: radio-moderator
+    name: Radio Moderator
+    category: Radio
+    priority: 5
+    permissions:
+      softcode.radio.moderate: allow
+
+objects:
+  # The radio: the @feed kind's owner, so its attributes are the kind's tie-ins, and the command object.
+  # WIZARD because it defines the feed kind and adds the +radio command and its hook.
+  # +radio is an @hook/override/inline target of a command STARTUP adds with /noparse/rsnoparse, so what a
+  # player types reaches the code as typed and nothing a player wrote is evaluated. So is `.`, the short alias:
+  # a one-character added command is a token, so `.wild hello` runs `. wild hello`.
+  #
+  # What the engine keeps, per frequency: the feed radio/<id> (its lines within its limits, who is tuned
+  # in, who is gagged). What this object keeps, in attributes: everything that is only how +radio works.
+  #   DATA`FREQUENCY`<id>`NAME, `CATEGORY, `DESC      the frequency; <id> never changes, so a rename is one attribute
+  #   DATA`FREQUENCY`<id>`LOCK`TALK|MODERATE|ADMIN    its locks; an unset one falls back to DATA`LOCK`<name>
+  #   DATA`FREQUENCY`<id>`LIST`MEMBER|MODERATOR|ADMIN objids on its lists; a list always passes its lock
+  #   DATA`FREQUENCY`<id>`RESTRICT`<key>              when a restriction ends, in seconds, or 0 for never
+  #   DATA`PLAYER`<key>`TITLE|ALTEREGO|COLOR`<id>     a player's own settings on a frequency
+  #   DATA`COUNTER                                    the highest frequency id given out; ids are never reused
+  #   EXT`<switch>                                    another package's switch: the object whose INC`<switch> runs it
+  #
+  # Trees: CMD` the hooked command, INC`COMMAND` its parse and dispatch, INC` one routine per switch, FUN` the
+  # reads, FUN`SCREEN` the paged screens, DATA`CONFIG` the settings +config radio shows.
+  - ref: radio
+    type: thing
+    name: Radio
+    flags: [WIZARD]
+    attributes:
+      # Everything this object keeps. NO_COMMAND, so a title or a name a player typed is never matched as a
+      # $-command; restrictive flags reach every leaf under it.
+      DATA:
+        value: |-
+          The radio's settings and records: frequencies, players' settings on them, and the locks and switches.
+        flags: [no_command]
+
+      # ---- settings: +config radio ------------------------------------------------
+      # Each DATA`CONFIG`<NAME> is the value; the leaves under it tell +config what it accepts. The code reads the
+      # value with get(); see plus-config's README.
+      DATA`CONFIG: |-
+        How frequencies look, how much +radio/recall shows, and how long names, titles and alteregos may be.
+      DATA`CONFIG`LABEL: |-
+        Radio
+      DATA`CONFIG`COLOR: |-
+        info
+      DATA`CONFIG`COLOR`TYPE: |-
+        text
+      DATA`CONFIG`COLOR`DEFAULT: |-
+        info
+      DATA`CONFIG`COLOR`CHECK: |-
+        CHECK`COLOR
+      DATA`CONFIG`COLOR`DESCRIPTION: |-
+        The colour of a frequency's name for a listener who chose none: a theme colour such as info, which each listener sees in their own @theme, or ansi() codes.
+      DATA`CONFIG`COLOR`LABEL: |-
+        Frequency colour
+      DATA`CONFIG`COLOR`EXAMPLE: |-
+        primary
+      DATA`CONFIG`RECALL: |-
+        50
+      DATA`CONFIG`RECALL`TYPE: |-
+        integer
+      DATA`CONFIG`RECALL`DEFAULT: |-
+        50
+      DATA`CONFIG`RECALL`MIN: |-
+        1
+      DATA`CONFIG`RECALL`MAX: |-
+        10000
+      DATA`CONFIG`RECALL`DESCRIPTION: |-
+        How many lines +radio/recall shows when no number is given.
+      DATA`CONFIG`RECALL`LABEL: |-
+        Lines recalled
+      DATA`CONFIG`RECALL`EXAMPLE: |-
+        20
+      DATA`CONFIG`RECALL-MAX: |-
+        500
+      DATA`CONFIG`RECALL-MAX`TYPE: |-
+        integer
+      DATA`CONFIG`RECALL-MAX`DEFAULT: |-
+        500
+      DATA`CONFIG`RECALL-MAX`MIN: |-
+        1
+      DATA`CONFIG`RECALL-MAX`MAX: |-
+        10000
+      DATA`CONFIG`RECALL-MAX`DESCRIPTION: |-
+        The most lines a player may ask +radio/recall for.
+      DATA`CONFIG`RECALL-MAX`LABEL: |-
+        Most lines recalled
+      DATA`CONFIG`RECALL-MAX`EXAMPLE: |-
+        200
+      DATA`CONFIG`NAME-LENGTH: |-
+        30
+      DATA`CONFIG`NAME-LENGTH`TYPE: |-
+        integer
+      DATA`CONFIG`NAME-LENGTH`DEFAULT: |-
+        30
+      DATA`CONFIG`NAME-LENGTH`MIN: |-
+        3
+      DATA`CONFIG`NAME-LENGTH`MAX: |-
+        60
+      DATA`CONFIG`NAME-LENGTH`DESCRIPTION: |-
+        The longest name a frequency may have, in characters.
+      DATA`CONFIG`NAME-LENGTH`LABEL: |-
+        Longest frequency name
+      DATA`CONFIG`NAME-LENGTH`EXAMPLE: |-
+        20
+      DATA`CONFIG`TITLE-LENGTH: |-
+        40
+      DATA`CONFIG`TITLE-LENGTH`TYPE: |-
+        integer
+      DATA`CONFIG`TITLE-LENGTH`DEFAULT: |-
+        40
+      DATA`CONFIG`TITLE-LENGTH`MIN: |-
+        1
+      DATA`CONFIG`TITLE-LENGTH`MAX: |-
+        200
+      DATA`CONFIG`TITLE-LENGTH`DESCRIPTION: |-
+        The longest title a player may put before their name on a frequency, in characters.
+      DATA`CONFIG`TITLE-LENGTH`LABEL: |-
+        Longest title
+      DATA`CONFIG`TITLE-LENGTH`EXAMPLE: |-
+        60
+      DATA`CONFIG`ALTEREGO-LENGTH: |-
+        30
+      DATA`CONFIG`ALTEREGO-LENGTH`TYPE: |-
+        integer
+      DATA`CONFIG`ALTEREGO-LENGTH`DEFAULT: |-
+        30
+      DATA`CONFIG`ALTEREGO-LENGTH`MIN: |-
+        1
+      DATA`CONFIG`ALTEREGO-LENGTH`MAX: |-
+        100
+      DATA`CONFIG`ALTEREGO-LENGTH`DESCRIPTION: |-
+        The longest alterego a player may speak under on a frequency, in characters.
+      DATA`CONFIG`ALTEREGO-LENGTH`LABEL: |-
+        Longest alterego
+      DATA`CONFIG`ALTEREGO-LENGTH`EXAMPLE: |-
+        20
+      # +config's CHECK for COLOR (%0 the value): a theme colour or ansi() codes.
+      CHECK`COLOR: |-
+        if(u(%!/FUN`COLOUR`VALID,%0),,'%0' is not a colour. Use a theme colour such as info or success%, or ansi() codes such as hg or +red.)
+
+      # ---- configuration --------------------------------------------------------
+      # Who passes the moderate and admin locks of a frequency that sets none, and who may create one: the wizard
+      # role, and the permissions the radio roles carry.
+      DATA`LOCK`MODERATE: |-
+        role^wizard|perm^softcode.radio.moderate
+      DATA`LOCK`ADMIN: |-
+        role^wizard|perm^softcode.radio.admin
+      # The switches +radio takes; each is INC`<SWITCH>. A package that adds one (radio-scene adds /log)
+      # sets EXT`<SWITCH> here to its own object (a ref the package manager fills in, so it is read with u()).
+      # +radio includes that object's INC`<SWITCH> with the same registers, %q<extension_object> that object, and
+      # cmd_left, cmd_right and viewer_key as INC`COMMAND`PARSE sets them; INC`NEED`JOINED and INC`NEED`ANY set
+      # frequency_id. The radio is still the executor, so the included code names the radio %! and its own object
+      # %q<extension_object>.
+      DATA`SWITCHES: |-
+        join leave gag ungag title alterego color examine recall restrict unrestrict create rename category desc delete lock unlock options memadd memrem modadd modrem admadd admrem
+      # What +radio says when a page of 0 is asked for: the command's usage line, one per paged route.
+      DATA`USAGE`LIST: |-
+        +radio lists the frequencies you can tune in to, a page at a time: +radio/2 is the second page.
+      DATA`USAGE`RECALL: |-
+        +radio/recall <frequency>=<lines> shows what was said last, a page at a time: +radio/recall/2 <frequency> is the page before.
+      DATA`COUNTER: |-
+        0
+
+      # ---- the command ----------------------------------------------------------
+      # %1 is the switches and %2 what follows, both as typed.
+      CMD`RADIO:
+        value: |-
+          $(?is)^\+radio(/\S*)?(?\: +(.*))?$: think u({{radio}}/FUN`COMMAND`PARSE,%1,%2); @include {{radio}}/INC`COMMAND`CHECK; @include %q<extension_object>/INC`%q<cmd_route>
+        flags: [REGEXP]
+      # .<frequency> <message>: %1 the frequency as typed and %2 the message.
+      CMD`DOT:
+        value: |-
+          $(?is)^\.(?\: +(\S+))?(?\: +(.*))?$: think u({{radio}}/FUN`DOT`PARSE,%1,%2); @include {{radio}}/INC`DOT
+        flags: [REGEXP]
+      # %0 the switches and %1 what follows, as typed. Sets cmd_switches (every switch, lower case), cmd_page (a last
+      # switch of digits, the page asked for), cmd_switch (the switches without it), cmd_argument, cmd_equals (1 when
+      # it has an =), cmd_left and cmd_right (either side of the =), cmd_route (the INC` routine to run) and
+      # viewer_key (where the player's settings are filed).
+      # %0 how many attributes a write may add to {{radio}}: 1 when they fit under max_attrs_per_obj.
+      FUN`ROOM: |-
+        lte(add(nattr({{radio}}/**),%0),config(max_attrs_per_obj))
+      FUN`COMMAND`PARSE: |-
+        setqm(cmd_switches,lcstr(after(%0,/)),
+        cmd_page,if(regmatch(last(%q<cmd_switches>,/),^\[0-9\]+$),last(%q<cmd_switches>,/)),
+        cmd_switch,if(strlen(%q<cmd_page>),revwords(rest(revwords(%q<cmd_switches>,/),/),/),%q<cmd_switches>),
+        cmd_argument,trim(%1),
+        cmd_equals,strmatch(%q<cmd_argument>,*=*),
+        cmd_left,trim(before(%q<cmd_argument>,=)),
+        cmd_right,trim(after(%q<cmd_argument>,=)),
+        cmd_route,ucstr(firstof(%q<cmd_switch>,if(%q<cmd_equals>,SEND,if(strlen(%q<cmd_argument>),USAGE,LIST)))),
+        viewer_key,u({{radio}}/FUN`KEY,%#))
+      # %0 the frequency and %1 the message after a `.`, as typed. Sets cmd_alias, cmd_right (the message, as
+      # INC`SEND`LINE reads it) and viewer_key.
+      FUN`DOT`PARSE: |-
+        setqm(cmd_alias,trim(%0),
+        cmd_right,trim(%1),
+        viewer_key,u({{radio}}/FUN`KEY,%#))
+      # A line a bridge adds to one of this object's messages: HINT`<message>, set here by a bridge such as
+      # radio-help. %1 on are passed to it. Nothing when no bridge set one, so the message stands without it.
+      FUN`HINT: |-
+        if(hasattr(%!,HINT`%0),%b[u(%!/HINT`%0,%1,%2)])
+      # The switch is one the radio or another package takes, a page goes only with a paged route, and a page of 0
+      # answers with the usage line. Sets extension_object, the object whose INC`<route> runs.
+      INC`COMMAND`CHECK: |-
+        @assert cor(not(strlen(%q<cmd_switch>)),member(get({{radio}}/DATA`SWITCHES),%q<cmd_switch>),hasattr({{radio}},EXT`%q<cmd_switch>))=@pemit %#=notice(RADIO,+radio has no /%q<cmd_switch> switch.[u({{radio}}/FUN`HINT,SWITCHES)],warn); @assert cor(not(strlen(%q<cmd_page>)),match(LIST RECALL,%q<cmd_route>))=@pemit %#=notice(RADIO,+radio/%q<cmd_switch> takes no page number.,warn); @assert cor(not(strlen(%q<cmd_page>)),%q<cmd_page>)=@pemit %#=notice(RADIO,get({{radio}}/DATA`USAGE`%q<cmd_route>),warn); think setq(extension_object,if(cand(strlen(%q<cmd_switch>),hasattr({{radio}},EXT`%q<cmd_switch>)),u({{radio}}/EXT`%q<cmd_switch>),{{radio}}))
+
+      # ---- reads ----------------------------------------------------------------
+      # %0 a player: the key their settings are filed under.
+      FUN`KEY: |-
+        edit(objid(%0),#,,:,_)
+      # Every frequency id.
+      FUN`IDS: |-
+        sort(iter(lattr({{radio}}/DATA`FREQUENCY`*`NAME),extract(%i0,3,1,`)),n)
+      # %0 a frequency id: its name.
+      FUN`NAME: |-
+        get({{radio}}/DATA`FREQUENCY`%0`NAME)
+      # %0 a player: the ids of the frequencies they are tuned in to.
+      FUN`JOINED: |-
+        squish(iter(feedsof(%0,radio),after(%i0,/)))
+      # %0 what was typed, %1 the ids to look in: the id whose name it is, else the one name it begins,
+      # else #-2 when it begins several and #-1 when none.
+      FUN`FIND: |-
+        setqm(find_exact,squish(iter(%1,if(strmatch(get({{radio}}/DATA`FREQUENCY`%i0`NAME),%0),%i0))),
+        find_prefix,squish(iter(%1,if(strmatch(get({{radio}}/DATA`FREQUENCY`%i0`NAME),%0*),%i0))))[cond(eq(words(%q<find_exact>),1),%q<find_exact>,eq(words(%q<find_prefix>),1),%q<find_prefix>,words(%q<find_prefix>),#-2,#-1)]
+      # %0 a short alias as typed after a `.`, %1 the ids to look in: the id whose name, without its spaces, it is,
+      # else the one such name it begins, else #-2 when it begins several and #-1 when none. Only letters, digits,
+      # dots and dashes are looked up, so nothing typed is read as a wildcard.
+      FUN`FIND`ALIAS: |-
+        setqm(alias_exact,if(regmatch(%0,^\[A-Za-z0-9.-\]+$),squish(iter(%1,if(strmatch(edit(u({{radio}}/FUN`NAME,%i0),%b,),%0),%i0)))),
+        alias_prefix,u({{radio}}/FUN`ALIAS`MATCHES,%0,%1))[cond(eq(words(%q<alias_exact>),1),%q<alias_exact>,eq(words(%q<alias_prefix>),1),%q<alias_prefix>,words(%q<alias_prefix>),#-2,#-1)]
+      # %0 a short alias, %1 the ids to look in: the ids whose name, without its spaces, begins with it.
+      FUN`ALIAS`MATCHES: |-
+        if(regmatch(%0,^\[A-Za-z0-9.-\]+$),squish(iter(%1,if(strmatch(edit(u({{radio}}/FUN`NAME,%i0),%b,),%0*),%i0))))
+      # %0 what was typed, %1 what it finds among every frequency: why it is not one the player is tuned in to.
+      FUN`NOT`JOINED: |-
+        cond(isint(%1),You are not tuned in to [u({{radio}}/FUN`NAME,%1)]. +radio/join [u({{radio}}/FUN`NAME,%1)] tunes in.,strmatch(%1,#-2),You are not tuned in to a frequency called '%0'. +radio lists them.,There is no frequency called '%0'. +radio lists them.)
+      # %0 what was typed: the objid of the player it names, or nothing.
+      FUN`PLAYER: |-
+        if(isdbref(setr(found_player,pmatch(%0))),objid(%q<found_player>))
+      # %0 id, %1 player, %2 MEMBER, MODERATOR or ADMIN: 1 when the player is on that list.
+      FUN`ON: |-
+        t(member(get({{radio}}/DATA`FREQUENCY`%0`LIST`%2),objid(%1)))
+      # %0 id, %1 player, %2 TALK, MODERATE or ADMIN: 1 when the player passes that lock. A lock the
+      # frequency does not set is DATA`LOCK`<name>, and an empty one passes everyone.
+      FUN`PASS: |-
+        setq(pass_lock,if(hasattr({{radio}},DATA`FREQUENCY`%0`LOCK`%2),get({{radio}}/DATA`FREQUENCY`%0`LOCK`%2),get({{radio}}/DATA`LOCK`%2)))[if(strlen(%q<pass_lock>),t(testlock(%q<pass_lock>,%1)),1)]
+      FUN`IS`ADMIN: |-
+        cor(u({{radio}}/FUN`ON,%0,%1,ADMIN),u({{radio}}/FUN`PASS,%0,%1,ADMIN))
+      FUN`IS`MOD: |-
+        cor(u({{radio}}/FUN`IS`ADMIN,%0,%1),u({{radio}}/FUN`ON,%0,%1,MODERATOR),u({{radio}}/FUN`PASS,%0,%1,MODERATE))
+      # Who may tune in and recall: moderators, members, and whoever passes the talk lock.
+      FUN`CAN`JOIN: |-
+        cor(u({{radio}}/FUN`IS`MOD,%0,%1),u({{radio}}/FUN`ON,%0,%1,MEMBER),u({{radio}}/FUN`PASS,%0,%1,TALK))
+      # Who may speak: whoever may tune in and is not restricted.
+      FUN`CAN`TALK: |-
+        cand(u({{radio}}/FUN`CAN`JOIN,%0,%1),not(u({{radio}}/FUN`RESTRICTED,%0,%1)))
+      FUN`RESTRICTED: |-
+        setq(restrict_until,get({{radio}}/DATA`FREQUENCY`%0`RESTRICT`[u({{radio}}/FUN`KEY,%1)]))[cand(isint(%q<restrict_until>),cor(eq(%q<restrict_until>,0),gt(%q<restrict_until>,secs())))]
+      # Who may create frequencies.
+      FUN`CAN`CREATE: |-
+        t(testlock(get({{radio}}/DATA`LOCK`ADMIN),%0))
+      # %0 id, %1 player: on, gagged, or - when not tuned in.
+      FUN`STATE: |-
+        if(feedmember(radio/%0,%1),if(feedmember(radio/%0,%1,gag),gagged,on),-)
+      # %0 a duration, 30m, 2h or 7d: its seconds; 0 for none given, -1 for one that is not a duration.
+      FUN`SECS: |-
+        if(not(strlen(%0)),0,if(regmatch(%0,^\[0-9\]+\[mhd\]$),mul(left(%0,dec(strlen(%0))),switch(right(%0,1),m,60,h,3600,86400)),-1))
+      # %0 a list of objids: their names.
+      FUN`NAMES: |-
+        firstof(itemize(iter(%0,name(%i0),,|),|),none)
+      # %0 a setting: its value, as +config keeps it.
+      FUN`CONFIG: |-
+        get({{radio}}/DATA`CONFIG`%0)
+
+      # ---- the line -------------------------------------------------------------
+      # Named arguments: id (the line's id, when it has one), frequency (its id), speaker (objid), name (the name the
+      # line is under), style, text, and reader (who reads it). The frequency's name in the reader's colour, then the
+      # speaker's title on it. A line goes to every listener in one queue entry, so the parts that are the same for
+      # all of them (title, speaker, frequency name) and the last painted name are kept in LINE_* registers, and
+      # each listener after the first pays only for their colour.
+      FUN`LINE: |-
+        if(cor(not(strlen(%<id>)),comp(%q<line_id>,%<frequency>/%<id>)),setqm(line_id,%<frequency>/%<id>,
+        line_title,get({{radio}}/DATA`PLAYER`[u({{radio}}/FUN`KEY,%<speaker>)]`TITLE`%<frequency>),
+        line_speaker,if(strlen(%q<line_title>),%q<line_title>%b)%<name>,
+        line_frequency,get({{radio}}/DATA`FREQUENCY`%<frequency>`NAME),
+        line_painted_colour,#-1))[setq(line_colour,firstof(get({{radio}}/DATA`PLAYER`[edit(objid(%<reader>),#,,:,_)]`COLOR`%<frequency>),get({{radio}}/DATA`CONFIG`COLOR)))][if(comp(%q<line_painted_colour>,%q<line_colour>),setqm(line_painted_colour,%q<line_colour>,
+        line_painted,u({{radio}}/FUN`PAINT,%q<line_colour>,%q<line_frequency>)))]<%q<line_painted>> [switch(%<style>,pose,%q<line_speaker> %<text>,semipose,%q<line_speaker>%<text>,emit,%<text>,announce,%<text>,%q<line_speaker> says\, "%<text>")]
+      # %0 a colour, %1 text — the text in a theme colour when %0 names one (tone()), so each reader sees it in
+      # their own @theme, and in ansi() codes otherwise. tone() is asked first: "info" also reads as ansi() codes.
+      FUN`PAINT: |-
+        if(strmatch(setr(paint_toned,tone(%0,%1)),#-*),ansi(%0,%1),%q<paint_toned>)
+      # %0 a colour as typed: 1 when it is a theme colour tone() knows, a colour colors() knows (+red, #ff8800,
+      # <255 136 0>, +xterm123), or ansi()'s letter codes (hg, hcB). ansi() itself ignores what it does not know,
+      # so it cannot tell, and neither can colors() for a bare word: it reads "sparkly" as letter codes.
+      FUN`COLOUR`VALID: |-
+        cand(strlen(%0),cor(not(strmatch(tone(%0,x),#-*)),cand(regmatch(%0,^\[+#<0-9\]),not(strmatch(colors(%0,hex),#-*))),regmatch(%0,^\[fhiunxXrRgGyYbBmMcCwW\]+$)))
+      # The feed's tie-in: each listener's copy of a line, read by name (help @feed tie-ins): key the
+      # frequency's id, recipient the listener, name the alterego it was sent under.
+      FEED`RADIO`FORMAT: |-
+        uargs({{radio}}/FUN`LINE,id,%<id>,frequency,%<key>,speaker,%<speaker>,name,firstof(%<name>,name(%<speaker>)),style,%<style>,text,%<text>,reader,%<recipient>)
+
+      # ---- pages ----------------------------------------------------------------
+      # %<count> things to show, %<frame> the lines the screen takes besides them: sets page_size (the rows that fit
+      # the reader's screen), page_count and page_number (the page asked for, 1 when none), and stops at a page past
+      # the end.
+      INC`PAGE: |-
+        think setqm(page_size,max(5,sub(height(%#,24),%<frame>)),
+        page_count,ceil(fdiv(%<count>,%q<page_size>)),
+        page_number,if(strlen(%q<cmd_page>),%q<cmd_page>,1)); @assert lte(%q<page_number>,%q<page_count>)=@pemit %#=notice(RADIO,There [if(gt(%q<page_count>,1),are %q<page_count> pages,is one page)] - you asked for page %q<page_number>.,warn)
+      # %0 the command for the next page: the page's place, and that command while there is one after it.
+      FUN`PAGE`FOOTER: |-
+        if(gt(%q<page_count>,1),%b· page %q<page_number> of %q<page_count>[if(lt(%q<page_number>,%q<page_count>),%b- %0)])
+
+      # ---- players --------------------------------------------------------------
+      INC`USAGE: |-
+        @pemit %#=notice(RADIO,+radio <frequency>=<message> speaks.[u({{radio}}/FUN`HINT,USAGE)],warn)
+      # Sets %q<frequency_id> from %q<cmd_left>: any frequency, or one the player is tuned in to.
+      INC`NEED`ANY: |-
+        think setq(frequency_id,u({{radio}}/FUN`FIND,%q<cmd_left>,u({{radio}}/FUN`IDS))); @assert strlen(%q<cmd_left>)=@pemit %#=notice(RADIO,Which frequency?,warn); @assert not(strmatch(%q<frequency_id>,#-2))=@pemit %#=notice(RADIO,'%q<cmd_left>' begins more than one frequency's name. Type more of it.,warn); @assert isint(%q<frequency_id>)=@pemit %#=notice(RADIO,There is no frequency called '%q<cmd_left>'.,warn)
+      INC`NEED`JOINED: |-
+        think setq(frequency_id,u({{radio}}/FUN`FIND,%q<cmd_left>,u({{radio}}/FUN`JOINED,%#))); @assert strlen(%q<cmd_left>)=@pemit %#=notice(RADIO,Which frequency?,warn); @assert not(strmatch(%q<frequency_id>,#-2))=@pemit %#=notice(RADIO,'%q<cmd_left>' begins more than one of your frequencies. Type more of it.,warn); @assert isint(%q<frequency_id>)=@pemit %#=notice(RADIO,u({{radio}}/FUN`NOT`JOINED,%q<cmd_left>,u({{radio}}/FUN`FIND,%q<cmd_left>,u({{radio}}/FUN`IDS))),warn)
+      INC`NEED`MOD: |-
+        @include {{radio}}/INC`NEED`ANY; @assert u({{radio}}/FUN`IS`MOD,%q<frequency_id>,%#)=@pemit %#=notice(RADIO,Only a moderator of [u({{radio}}/FUN`NAME,%q<frequency_id>)] can do that.,error)
+      INC`NEED`ADMIN: |-
+        @include {{radio}}/INC`NEED`ANY; @assert u({{radio}}/FUN`IS`ADMIN,%q<frequency_id>,%#)=@pemit %#=notice(RADIO,Only an admin of [u({{radio}}/FUN`NAME,%q<frequency_id>)] can do that.,error)
+      # +radio[/<page>]: the frequencies the player may tune in to, a page at a time.
+      INC`LIST: |-
+        think setq(listed_ids,squish(iter(u({{radio}}/FUN`IDS),if(u({{radio}}/FUN`CAN`JOIN,%i0,%#),%i0)))); @assert words(%q<listed_ids>)=@pemit %#=notice(RADIO,There are no frequencies you can tune in to.); @include/args {{radio}}/INC`PAGE=count,words(%q<listed_ids>),frame,4; @pemit %#=u({{radio}}/FUN`SCREEN`LIST)
+      # One page of %q<listed_ids>: name, category, the reader's state and the description.
+      FUN`SCREEN`LIST: |-
+        setq(page_ids,extract(%q<listed_ids>,inc(mul(dec(%q<page_number>),%q<page_size>)),%q<page_size>))[rule(Radio)]%r[datacolumns(json(object,rule,json(string,),delim,json(string,%r),nowrap,json(string,1%r3),grow,json(string,%r%r%r1)),[tone(strong,Frequency)]%r[iter(%q<page_ids>,u({{radio}}/FUN`NAME,%i0),,%r)],[tone(strong,Category)]%r[iter(%q<page_ids>,firstof(get({{radio}}/DATA`FREQUENCY`%i0`CATEGORY),-),,%r)],[tone(strong,You)]%r[iter(%q<page_ids>,u({{radio}}/FUN`STATE,%i0,%#),,%r)],[tone(strong,About)]%r[iter(%q<page_ids>,firstof(edit(get({{radio}}/DATA`FREQUENCY`%i0`DESC),%r,%b),-),,%r)])]%r[rule(+radio/join <frequency> tunes in[u({{radio}}/FUN`PAGE`FOOTER,+radio/[inc(%q<page_number>)] for the next)])]
+      INC`SEND: |-
+        @include {{radio}}/INC`NEED`JOINED; @include {{radio}}/INC`SEND`LINE
+      # .<frequency> <message>: the frequency is the one of the player's whose name, without spaces, is or begins
+      # with what was typed; a start that fits several sends nothing and names them.
+      INC`DOT: |-
+        @assert strlen(%q<cmd_alias>)=@pemit %#=notice(RADIO,.<frequency> <message> speaks on a frequency you are tuned in to.,warn); think setq(frequency_id,u({{radio}}/FUN`FIND`ALIAS,%q<cmd_alias>,u({{radio}}/FUN`JOINED,%#))); @assert not(strmatch(%q<frequency_id>,#-2))=@pemit %#=notice(RADIO,'.%q<cmd_alias>' could be [itemize(iter(u({{radio}}/FUN`ALIAS`MATCHES,%q<cmd_alias>,u({{radio}}/FUN`JOINED,%#)),u({{radio}}/FUN`NAME,%i0),%b,|),|,or)]. Type more of it.,warn); @assert isint(%q<frequency_id>)=@pemit %#=notice(RADIO,u({{radio}}/FUN`NOT`JOINED,%q<cmd_alias>,u({{radio}}/FUN`FIND`ALIAS,%q<cmd_alias>,u({{radio}}/FUN`IDS))),warn); @include {{radio}}/INC`SEND`LINE
+      # Speaks %q<cmd_right> on %q<frequency_id>, which the player is tuned in to.
+      INC`SEND`LINE: |-
+        @assert u({{radio}}/FUN`CAN`TALK,%q<frequency_id>,%#)=@pemit %#=notice(RADIO,You may not speak on [u({{radio}}/FUN`NAME,%q<frequency_id>)].,error); @assert strlen(%q<cmd_right>)=@pemit %#=notice(RADIO,What do you want to say?,warn); @assert cor(not(feedinfo(radio/%q<frequency_id>,max_length)),lte(strlen(%q<cmd_right>),feedinfo(radio/%q<frequency_id>,max_length)))=@pemit %#=notice(RADIO,[u({{radio}}/FUN`NAME,%q<frequency_id>)] takes messages of up to [feedinfo(radio/%q<frequency_id>,max_length)] characters.,warn); think setq(alterego,get({{radio}}/DATA`PLAYER`%q<viewer_key>`ALTEREGO`%q<frequency_id>)); @if strlen(%q<alterego>)={@feed/send/as radio/%q<frequency_id>=%q<alterego>/%q<cmd_right>},{@feed/send radio/%q<frequency_id>=%q<cmd_right>}
+      INC`JOIN: |-
+        @include {{radio}}/INC`NEED`ANY; @assert not(feedmember(radio/%q<frequency_id>,%#))=@pemit %#=notice(RADIO,You are already tuned in to [u({{radio}}/FUN`NAME,%q<frequency_id>)].,warn); @assert u({{radio}}/FUN`CAN`JOIN,%q<frequency_id>,%#)=@pemit %#=notice(RADIO,You may not tune in to [u({{radio}}/FUN`NAME,%q<frequency_id>)].,error); @feed/join radio/%q<frequency_id>=%#; @pemit %#=notice(RADIO,You tune in to [u({{radio}}/FUN`NAME,%q<frequency_id>)].,ok)
+      INC`LEAVE: |-
+        @include {{radio}}/INC`NEED`JOINED; @feed/leave radio/%q<frequency_id>=%#; @pemit %#=notice(RADIO,You tune out of [u({{radio}}/FUN`NAME,%q<frequency_id>)].,ok)
+      # /gag and /ungag take a frequency or all. Every gag ends when the player disconnects (ADISCONNECT).
+      INC`GAG: |-
+        @assert strlen(%q<cmd_left>)=@pemit %#=notice(RADIO,+radio/gag <frequency> or +radio/gag all,warn); @if strmatch(%q<cmd_left>,all)={@dolist/inline feedsof(%#,radio)=@feed/gag ##=%#; @pemit %#=notice(RADIO,You hear none of your frequencies until you ungag them or disconnect.,ok)},{@include {{radio}}/INC`NEED`JOINED; @feed/gag radio/%q<frequency_id>=%#; @pemit %#=notice(RADIO,You hear nothing from [u({{radio}}/FUN`NAME,%q<frequency_id>)] until you ungag it or disconnect.,ok)}
+      INC`UNGAG: |-
+        @assert strlen(%q<cmd_left>)=@pemit %#=notice(RADIO,+radio/ungag <frequency> or +radio/ungag all,warn); @if strmatch(%q<cmd_left>,all)={@dolist/inline feedsof(%#,radio)=@feed/ungag ##=%#; @pemit %#=notice(RADIO,You hear all of your frequencies again.,ok)},{@include {{radio}}/INC`NEED`JOINED; @feed/ungag radio/%q<frequency_id>=%#; @pemit %#=notice(RADIO,You hear [u({{radio}}/FUN`NAME,%q<frequency_id>)] again.,ok)}
+      # /title, /alterego and /color set one of the player's own settings on a frequency; nothing after the
+      # = clears it.
+      INC`TITLE: |-
+        @include {{radio}}/INC`NEED`JOINED; @assert u({{radio}}/FUN`ROOM,3)=@pemit %#=notice(RADIO,There is no room to record that: an object holds at most [config(max_attrs_per_obj)] attributes.,warn); think setq(title_length,u({{radio}}/FUN`CONFIG,TITLE-LENGTH)); @assert lte(strlen(%q<cmd_right>),%q<title_length>)=@pemit %#=notice(RADIO,A title is up to %q<title_length> characters.,warn); &DATA`PLAYER`%q<viewer_key>`TITLE`%q<frequency_id> {{radio}}=%q<cmd_right>; @pemit %#=notice(RADIO,if(strlen(%q<cmd_right>),Your title on [u({{radio}}/FUN`NAME,%q<frequency_id>)] is now %q<cmd_right>.,You have no title on [u({{radio}}/FUN`NAME,%q<frequency_id>)] now.),ok)
+      INC`ALTEREGO: |-
+        @include {{radio}}/INC`NEED`JOINED; @assert u({{radio}}/FUN`ROOM,3)=@pemit %#=notice(RADIO,There is no room to record that: an object holds at most [config(max_attrs_per_obj)] attributes.,warn); think setq(alterego_length,u({{radio}}/FUN`CONFIG,ALTEREGO-LENGTH)); @assert cand(lte(strlen(%q<cmd_right>),%q<alterego_length>),not(strmatch(%q<cmd_right>,*/*)))=@pemit %#=notice(RADIO,An alterego is up to %q<alterego_length> characters with no /.,warn); &DATA`PLAYER`%q<viewer_key>`ALTEREGO`%q<frequency_id> {{radio}}=%q<cmd_right>; @pemit %#=notice(RADIO,if(strlen(%q<cmd_right>),You speak on [u({{radio}}/FUN`NAME,%q<frequency_id>)] as %q<cmd_right> now.,You speak on [u({{radio}}/FUN`NAME,%q<frequency_id>)] under your own name now.),ok)
+      INC`COLOR: |-
+        @include {{radio}}/INC`NEED`JOINED; @assert u({{radio}}/FUN`ROOM,3)=@pemit %#=notice(RADIO,There is no room to record that: an object holds at most [config(max_attrs_per_obj)] attributes.,warn); @assert cor(not(strlen(%q<cmd_right>)),u({{radio}}/FUN`COLOUR`VALID,%q<cmd_right>))=@pemit %#=notice(RADIO,'%q<cmd_right>' is not a colour. Use a theme colour such as info or success%, or ansi() codes such as hg or +red.,warn); &DATA`PLAYER`%q<viewer_key>`COLOR`%q<frequency_id> {{radio}}=%q<cmd_right>; @pemit %#=notice(RADIO,You see [u({{radio}}/FUN`PAINT,firstof(%q<cmd_right>,u({{radio}}/FUN`CONFIG,COLOR)),u({{radio}}/FUN`NAME,%q<frequency_id>))] like this now.,ok)
+      INC`EXAMINE: |-
+        @include {{radio}}/INC`NEED`ANY; @assert u({{radio}}/FUN`CAN`JOIN,%q<frequency_id>,%#)=@pemit %#=notice(RADIO,You may not tune in to [u({{radio}}/FUN`NAME,%q<frequency_id>)].,error); @pemit %#=u({{radio}}/FUN`SCREEN`EXAMINE)
+      # %q<frequency_id> as the reader sees it, with its locks for an admin.
+      FUN`SCREEN`EXAMINE: |-
+        rule(u({{radio}}/FUN`NAME,%q<frequency_id>))%r[fields(,Category,firstof(get({{radio}}/DATA`FREQUENCY`%q<frequency_id>`CATEGORY),none),About,firstof(get({{radio}}/DATA`FREQUENCY`%q<frequency_id>`DESC),none),You,switch(u({{radio}}/FUN`STATE,%q<frequency_id>,%#),on,tuned in,gagged,tuned in and gagged,not tuned in),Title,firstof(get({{radio}}/DATA`PLAYER`%q<viewer_key>`TITLE`%q<frequency_id>),none),Alterego,firstof(get({{radio}}/DATA`PLAYER`%q<viewer_key>`ALTEREGO`%q<frequency_id>),none),Listening,u({{radio}}/FUN`NAMES,iter(feedwho(radio/%q<frequency_id>,active),if(hasflag(%i0,connected),%i0))),Admins,u({{radio}}/FUN`NAMES,get({{radio}}/DATA`FREQUENCY`%q<frequency_id>`LIST`ADMIN)),Moderators,u({{radio}}/FUN`NAMES,get({{radio}}/DATA`FREQUENCY`%q<frequency_id>`LIST`MODERATOR)),Members,u({{radio}}/FUN`NAMES,get({{radio}}/DATA`FREQUENCY`%q<frequency_id>`LIST`MEMBER)))][if(u({{radio}}/FUN`IS`ADMIN,%q<frequency_id>,%#),%r[fields(,Talk lock,firstof(get({{radio}}/DATA`FREQUENCY`%q<frequency_id>`LOCK`TALK),everyone),Moderate lock,firstof(get({{radio}}/DATA`FREQUENCY`%q<frequency_id>`LOCK`MODERATE),get({{radio}}/DATA`LOCK`MODERATE)),Admin lock,firstof(get({{radio}}/DATA`FREQUENCY`%q<frequency_id>`LOCK`ADMIN),get({{radio}}/DATA`LOCK`ADMIN)),Keeps,feedinfo(radio/%q<frequency_id>,max_messages) lines)])]%r[rule()]
+      # +radio/recall[/<page>] <frequency>[=<lines>]: the last lines, the newest page first.
+      INC`RECALL: |-
+        @include {{radio}}/INC`NEED`ANY; @assert u({{radio}}/FUN`CAN`JOIN,%q<frequency_id>,%#)=@pemit %#=notice(RADIO,You may not tune in to [u({{radio}}/FUN`NAME,%q<frequency_id>)].,error); think setqm(recall_count,firstof(%q<cmd_right>,u({{radio}}/FUN`CONFIG,RECALL)),
+        recall_most,u({{radio}}/FUN`CONFIG,RECALL-MAX)); @assert cand(isint(%q<recall_count>),gt(%q<recall_count>,0),lte(%q<recall_count>,%q<recall_most>))=@pemit %#=notice(RADIO,Recall takes a number of lines from 1 to %q<recall_most>.,warn); think setq(recall_ids,feedrecall(radio/%q<frequency_id>,%q<recall_count>)); @assert words(%q<recall_ids>)=@pemit %#=notice(RADIO,Nothing has been said on [u({{radio}}/FUN`NAME,%q<frequency_id>)].); @include/args {{radio}}/INC`PAGE=count,words(%q<recall_ids>),frame,3; @pemit %#=u({{radio}}/FUN`SCREEN`RECALL)
+      # One page of %q<recall_ids>: page 1 is the newest lines, each later page the lines before.
+      FUN`SCREEN`RECALL: |-
+        setqm(recall_last,sub(words(%q<recall_ids>),mul(dec(%q<page_number>),%q<page_size>)),
+        recall_first,max(1,sub(%q<recall_last>,dec(%q<page_size>))))[rule(Recall: [u({{radio}}/FUN`NAME,%q<frequency_id>)])]%r[iter(extract(%q<recall_ids>,%q<recall_first>,inc(sub(%q<recall_last>,%q<recall_first>))),uargs({{radio}}/FUN`LINE,id,%i0,frequency,%q<frequency_id>,speaker,feedmsg(%i0,speaker),name,firstof(feedmsg(%i0,display),feedmsg(%i0,name)),style,feedmsg(%i0,style),text,feedmsg(%i0,text),reader,%#),%b,%r)]%r[rule(End of recall[u({{radio}}/FUN`PAGE`FOOTER,+radio/recall/[inc(%q<page_number>)] %q<cmd_left>[if(strlen(%q<cmd_right>),=%q<cmd_right>)] for the lines before)])]
+
+      # ---- moderators -----------------------------------------------------------
+      # /restrict <frequency>=<player>[/<duration>]: no speaking until it ends, or until /unrestrict.
+      INC`RESTRICT: |-
+        @include {{radio}}/INC`NEED`MOD; @assert strlen(setr(target_player,u({{radio}}/FUN`PLAYER,before(%q<cmd_right>,/))))=@pemit %#=notice(RADIO,+radio/restrict <frequency>=<player>/<duration> such as 30m%, 2h or 7d. Without one it lasts until lifted.,warn); think setq(restrict_secs,u({{radio}}/FUN`SECS,trim(after(%q<cmd_right>,/)))); @assert gte(%q<restrict_secs>,0)=@pemit %#=notice(RADIO,'[trim(after(%q<cmd_right>,/))]' is not a duration: give minutes%, hours or days such as 30m%, 2h or 7d.,warn); &DATA`FREQUENCY`%q<frequency_id>`RESTRICT`[u({{radio}}/FUN`KEY,%q<target_player>)] {{radio}}=if(%q<restrict_secs>,add(secs(),%q<restrict_secs>),0); @pemit %#=notice(RADIO,[name(%q<target_player>)] may not speak on [u({{radio}}/FUN`NAME,%q<frequency_id>)] [if(%q<restrict_secs>,until [convsecs(add(secs(),%q<restrict_secs>))],until you lift it)].,ok); @pemit %q<target_player>=notice(RADIO,You may not speak on [u({{radio}}/FUN`NAME,%q<frequency_id>)] [if(%q<restrict_secs>,until [convsecs(add(secs(),%q<restrict_secs>))],until a moderator lifts it)].)
+      INC`UNRESTRICT: |-
+        @include {{radio}}/INC`NEED`MOD; @assert strlen(setr(target_player,u({{radio}}/FUN`PLAYER,%q<cmd_right>)))=@pemit %#=notice(RADIO,+radio/unrestrict <frequency>=<player>,warn); @assert u({{radio}}/FUN`RESTRICTED,%q<frequency_id>,%q<target_player>)=@pemit %#=notice(RADIO,[name(%q<target_player>)] is not restricted on [u({{radio}}/FUN`NAME,%q<frequency_id>)].,warn); &DATA`FREQUENCY`%q<frequency_id>`RESTRICT`[u({{radio}}/FUN`KEY,%q<target_player>)] {{radio}}; @pemit %#=notice(RADIO,[name(%q<target_player>)] may speak on [u({{radio}}/FUN`NAME,%q<frequency_id>)] again.,ok); @pemit %q<target_player>=notice(RADIO,You may speak on [u({{radio}}/FUN`NAME,%q<frequency_id>)] again.)
+      # /memadd and /memrem are a moderator's; the moderator and admin lists are an admin's.
+      INC`MEMADD: |-
+        @include {{radio}}/INC`NEED`MOD; @include/args {{radio}}/INC`DO`LISTADD=list,MEMBER,listword,members
+      INC`MEMREM: |-
+        @include {{radio}}/INC`NEED`MOD; @include/args {{radio}}/INC`DO`LISTREM=list,MEMBER,listword,members
+      INC`MODADD: |-
+        @include {{radio}}/INC`NEED`ADMIN; @include/args {{radio}}/INC`DO`LISTADD=list,MODERATOR,listword,moderators
+      INC`MODREM: |-
+        @include {{radio}}/INC`NEED`ADMIN; @include/args {{radio}}/INC`DO`LISTREM=list,MODERATOR,listword,moderators
+      INC`ADMADD: |-
+        @include {{radio}}/INC`NEED`ADMIN; @include/args {{radio}}/INC`DO`LISTADD=list,ADMIN,listword,admins
+      INC`ADMREM: |-
+        @include {{radio}}/INC`NEED`ADMIN; @include/args {{radio}}/INC`DO`LISTREM=list,ADMIN,listword,admins
+      # Named arguments: list, the list's attribute word (MEMBER, MODERATOR or ADMIN), and listword, its name
+      # in a message. %q<frequency_id> and %q<cmd_right> are the frequency and the player, as the command set them.
+      INC`DO`LISTADD: |-
+        @assert strlen(setr(target_player,u({{radio}}/FUN`PLAYER,%q<cmd_right>)))=@pemit %#=notice(RADIO,I don't know a player called '%q<cmd_right>'.,warn); @assert not(u({{radio}}/FUN`ON,%q<frequency_id>,%q<target_player>,%<list>))=@pemit %#=notice(RADIO,[name(%q<target_player>)] is one of the %<listword> of [u({{radio}}/FUN`NAME,%q<frequency_id>)] already.,warn); think setq(list_next,squish(get({{radio}}/DATA`FREQUENCY`%q<frequency_id>`LIST`%<list>) %q<target_player>)); @assert lte(strlen(%q<list_next>),config(max_attribute_value_length))=@pemit %#=notice(RADIO,[u({{radio}}/FUN`NAME,%q<frequency_id>)] has as many %<listword> as fit in [config(max_attribute_value_length)] bytes.,warn); @assert cor(hasattr({{radio}},DATA`FREQUENCY`%q<frequency_id>`LIST`%<list>),u({{radio}}/FUN`ROOM,1))=@pemit %#=notice(RADIO,There is no room to record that: an object holds at most [config(max_attrs_per_obj)] attributes.,warn); &DATA`FREQUENCY`%q<frequency_id>`LIST`%<list> {{radio}}=%q<list_next>; @pemit %#=notice(RADIO,[name(%q<target_player>)] is one of the %<listword> of [u({{radio}}/FUN`NAME,%q<frequency_id>)] now.,ok)
+      INC`DO`LISTREM: |-
+        @assert strlen(setr(target_player,u({{radio}}/FUN`PLAYER,%q<cmd_right>)))=@pemit %#=notice(RADIO,I don't know a player called '%q<cmd_right>'.,warn); @assert u({{radio}}/FUN`ON,%q<frequency_id>,%q<target_player>,%<list>)=@pemit %#=notice(RADIO,[name(%q<target_player>)] is not one of the %<listword> of [u({{radio}}/FUN`NAME,%q<frequency_id>)].,warn); &DATA`FREQUENCY`%q<frequency_id>`LIST`%<list> {{radio}}=remove(get({{radio}}/DATA`FREQUENCY`%q<frequency_id>`LIST`%<list>),%q<target_player>); @pemit %#=notice(RADIO,[name(%q<target_player>)] is no longer one of the %<listword> of [u({{radio}}/FUN`NAME,%q<frequency_id>)].,ok)
+
+      # ---- admins ---------------------------------------------------------------
+      # /create <name>[=<category>]: whoever passes DATA`LOCK`ADMIN, and the creator is its first admin.
+      INC`CREATE: |-
+        @assert u({{radio}}/FUN`CAN`CREATE,%#)=@pemit %#=notice(RADIO,Only a radio admin can create frequencies.,error); @include {{radio}}/INC`NEED`FREENAME; think setq(frequency_id,inc(get({{radio}}/DATA`COUNTER))); &DATA`COUNTER {{radio}}=%q<frequency_id>; &DATA`FREQUENCY`%q<frequency_id>`NAME {{radio}}=%q<cmd_left>; &DATA`FREQUENCY`%q<frequency_id>`CATEGORY {{radio}}=%q<cmd_right>; &DATA`FREQUENCY`%q<frequency_id>`LIST`ADMIN {{radio}}=objid(%#); @pemit %#=notice(RADIO,Created %q<cmd_left>. +radio/join %q<cmd_left> tunes in.,ok)
+      # %q<cmd_left> as a new name: letters, digits, spaces, . and -, no longer than NAME-LENGTH, and no frequency
+      # has it.
+      INC`NEED`FREENAME: |-
+        think setq(name_length,u({{radio}}/FUN`CONFIG,NAME-LENGTH)); @assert cand(lte(strlen(%q<cmd_left>),%q<name_length>),regmatch(%q<cmd_left>,^\[A-Za-z0-9\]\[A-Za-z0-9 .-\]*$))=@pemit %#=notice(RADIO,A frequency's name is up to %q<name_length> letters%, digits%, spaces%, dots and dashes.,warn); @assert not(words(squish(iter(u({{radio}}/FUN`IDS),if(strmatch(get({{radio}}/DATA`FREQUENCY`%i0`NAME),%q<cmd_left>),%i0)))))=@pemit %#=notice(RADIO,There is a frequency called %q<cmd_left> already.,warn)
+      INC`RENAME: |-
+        @include {{radio}}/INC`NEED`ADMIN; think setqm(old_name,u({{radio}}/FUN`NAME,%q<frequency_id>),
+        cmd_left,%q<cmd_right>); @include {{radio}}/INC`NEED`FREENAME; &DATA`FREQUENCY`%q<frequency_id>`NAME {{radio}}=%q<cmd_left>; @pemit %#=notice(RADIO,%q<old_name> is called %q<cmd_left> now.,ok)
+      INC`CATEGORY: |-
+        @include {{radio}}/INC`NEED`ADMIN; &DATA`FREQUENCY`%q<frequency_id>`CATEGORY {{radio}}=%q<cmd_right>; @pemit %#=notice(RADIO,[u({{radio}}/FUN`NAME,%q<frequency_id>)] is in [firstof(%q<cmd_right>,no category)] now.,ok)
+      INC`DESC: |-
+        @include {{radio}}/INC`NEED`ADMIN; &DATA`FREQUENCY`%q<frequency_id>`DESC {{radio}}=%q<cmd_right>; @pemit %#=notice(RADIO,Set the description of [u({{radio}}/FUN`NAME,%q<frequency_id>)].,ok)
+      # /delete <frequency> asks; /delete <frequency>=<its name> deletes it, its lines and everyone's settings.
+      INC`DELETE: |-
+        @include {{radio}}/INC`NEED`ADMIN; think setq(frequency_name,u({{radio}}/FUN`NAME,%q<frequency_id>)); @assert strmatch(%q<cmd_right>,%q<frequency_name>)=@pemit %#=notice(RADIO,This deletes %q<frequency_name> with everything said on it. Type +radio/delete %q<frequency_name>=%q<frequency_name> to do it.,warn); @feed/delete radio/%q<frequency_id>; @wipe {{radio}}/DATA`FREQUENCY`%q<frequency_id>`**; &DATA`FREQUENCY`%q<frequency_id> {{radio}}; @dolist/inline lattr({{radio}}/DATA`PLAYER`*`*`%q<frequency_id>)=&## {{radio}}; @pemit %#=notice(RADIO,Deleted %q<frequency_name>.,ok)
+      # /lock <frequency>/<talk|moderate|admin>=<lock>; /unlock puts back the default.
+      INC`LOCK: |-
+        think setqm(lock_name,ucstr(after(%q<cmd_left>,/)),
+        cmd_left,before(%q<cmd_left>,/)); @include {{radio}}/INC`NEED`ADMIN; @assert member(TALK MODERATE ADMIN,%q<lock_name>)=@pemit %#=notice(RADIO,+radio/lock <frequency>/talk=<lock> %(or /moderate or /admin%),warn); @assert strlen(%q<cmd_right>)=@pemit %#=notice(RADIO,Give a lock%, such as role^police. +radio/unlock puts back the default.,warn); @assert not(strmatch(testlock(%q<cmd_right>,%#),#-*))=@pemit %#=notice(RADIO,'%q<cmd_right>' is not a lock.,warn); &DATA`FREQUENCY`%q<frequency_id>`LOCK`%q<lock_name> {{radio}}=%q<cmd_right>; @pemit %#=notice(RADIO,The [lcstr(%q<lock_name>)] lock of [u({{radio}}/FUN`NAME,%q<frequency_id>)] is %q<cmd_right> now.,ok)
+      INC`UNLOCK: |-
+        think setqm(lock_name,ucstr(after(%q<cmd_left>,/)),
+        cmd_left,before(%q<cmd_left>,/)); @include {{radio}}/INC`NEED`ADMIN; @assert member(TALK MODERATE ADMIN,%q<lock_name>)=@pemit %#=notice(RADIO,+radio/unlock <frequency>/talk %(or /moderate or /admin%),warn); &DATA`FREQUENCY`%q<frequency_id>`LOCK`%q<lock_name> {{radio}}; @pemit %#=notice(RADIO,The [lcstr(%q<lock_name>)] lock of [u({{radio}}/FUN`NAME,%q<frequency_id>)] is the default now.,ok)
+      # /options <frequency>/<keep|age|length>=<value>: the feed's own limits, set on its feed.
+      INC`OPTIONS: |-
+        think setqm(option_name,lcstr(after(%q<cmd_left>,/)),
+        cmd_left,before(%q<cmd_left>,/)); @include {{radio}}/INC`NEED`ADMIN; @assert member(keep age length,%q<option_name>)=@pemit %#=notice(RADIO,+radio/options <frequency>/keep=<lines>%, /age=<30d> or /length=<characters>. Nothing after = puts back the default.,warn); @feed/set radio/%q<frequency_id>/[switch(%q<option_name>,keep,max_messages,age,max_age,max_length)]=%q<cmd_right>; @pemit %#=notice(RADIO,[u({{radio}}/FUN`NAME,%q<frequency_id>)]: %q<option_name> is [firstof(%q<cmd_right>,the default)].,ok)
+
+      # ---- lifecycle ------------------------------------------------------------
+      # A player's gags end when they disconnect. The radio sits in the master room, so this runs for everyone.
+      ADISCONNECT: |-
+        @dolist/inline feedsof(%#,radio)=@feed/ungag ##=%#
+      # @command/add and @hook last until a restart, so STARTUP sets them on every boot. Defining the kind
+      # again changes nothing.
+      STARTUP: |-
+        @feed/define radio={{radio}}; @feed/describe radio=The +radio frequencies.; @command/add/noparse/rsnoparse +radio; @hook/override/inline +radio={{radio}},CMD`RADIO; @command/add/noparse/rsnoparse .; @hook/override/inline .={{radio}},CMD`DOT
+      AINSTALL: |-
+        @teleport {{radio}}=#2; @trigger {{radio}}/STARTUP
+
+  # The +help topics. A plain thing, not the WIZARD radio: the librarian cannot u() a privileged object's
+  # attributes. Bodies are evaluated, so brackets, parentheses and percent signs are escaped.
+  - ref: radio_help
+    type: thing
+    name: Radio Help
+    location: "{{radio}}"
+    attributes:
+      HELP: |-
+        Radio: frequencies to tune in to and speak on.
+      SEE`RADIO: |-
+        radio moderators|radio admins|radio settings
+      SEE`RADIO`MODERATORS: |-
+        radio|radio admins
+      SEE`RADIO`ADMINS: |-
+        radio|radio moderators|radio settings
+      SEE`RADIO`SETTINGS: |-
+        radio|radio admins|config
+      HELP`RADIO: |-
+        The radio is a set of **frequencies**. Tune in to one and you hear everything said on it, wherever you are, and you can speak on it yourself.
+
+        - `+radio` lists the frequencies you can tune in to, a screen at a time: `+radio/2` is the second page.
+        - `+radio/join <frequency>` tunes in, and `+radio/leave <frequency>` tunes out.
+        - `+radio <frequency>=<message>` speaks. Start the message with `:` to pose or `;` to pose without a space.
+        - `+radio/recall <frequency>\[=<lines>\]` shows what was said last, 50 lines unless you ask for another number. A long recall comes a screen at a time, the newest first: `+radio/recall/2 <frequency>` shows the lines before.
+        - `+radio/examine <frequency>` shows a frequency, who is listening, and your settings on it.
+
+        You only have to type enough of a frequency's name to tell it from the others you are tuned in to: `+radio pol=Unit 4, respond.`
+
+        ## Short aliases
+
+        `.<frequency> <message>` speaks on a frequency you are tuned in to, the way `+<channel>` does on a channel. Type its name without the spaces, or enough of the start of it to tell it from your other frequencies: on Wild and Police, `.wild`, `.wi` and `.w` all mean Wild.
+
+        A name typed in full wins: `.ops` is Ops even when you are on Opsec too. A start that fits more than one sends nothing and says which it could be: `'.op' could be Ops or Opsec.`
+
+        Example:
+
+        `.w :waves.`
+
+        Output: `<Wild> Grave waves.`
+
+        ## Your settings
+
+        - `+radio/gag <frequency>` stops what you hear on it until you `+radio/ungag` it or disconnect. `+radio/gag all` gags every frequency.
+        - `+radio/title <frequency>=<title>` puts a title before your name on that frequency.
+        - `+radio/alterego <frequency>=<name>` speaks under another name there, such as a callsign. What you said keeps that name in the recall.
+        - `+radio/color <frequency>=<colour>` shows that frequency's name in a colour of your choosing: a theme colour such as `info`, `primary` or `success`, which follows your `@theme`, a colour such as `+red` or `#ff8800`, or ansi() codes such as `hg`. See `help tone\(\)` and `help ansi\(\)`.
+
+        Leave the part after `=` empty to clear a setting.
+      HELP`RADIO`MODERATORS: |-
+        A frequency's moderators keep order on it. Whoever holds the `radio-moderator` role moderates every frequency.
+
+        - `+radio/restrict <frequency>=<player>/<duration>` stops a player speaking there, for `30m`, `2h` or `7d`. With no duration it lasts until lifted. They can still listen.
+        - `+radio/unrestrict <frequency>=<player>` lifts it.
+        - `+radio/memadd <frequency>=<player>` and `+radio/memrem` put a player on the frequency's members list or take them off.
+
+        Members can always tune in and speak, whatever the talk lock says. That is how a closed frequency lets its people in: lock it to nobody else and add them as members.
+      HELP`RADIO`ADMINS: |-
+        A frequency's admins run it. A radio admin, the `radio-admin` role, runs every frequency and creates new ones.
+
+        - `+radio/create <name>\[=<category>\]` creates a frequency, with you as its first admin. A name is up to 30 letters, digits, spaces, dots and dashes, or as many as the `name-length` setting allows.
+        - `+radio/rename <frequency>=<name>`, `+radio/category <frequency>=<category>` and `+radio/desc <frequency>=<text>` change how it is listed. Renaming keeps everything said on it.
+        - `+radio/delete <frequency>` deletes it, with everything said on it, once you confirm by typing its name after `=`.
+        - `+radio/modadd`, `+radio/modrem`, `+radio/admadd` and `+radio/admrem <frequency>=<player>` change who moderates and runs it.
+
+        ## Locks
+
+        `+radio/lock <frequency>/talk=<lock>` decides who else may tune in and speak; with no talk lock, everyone may. `/moderate` and `/admin` decide who else moderates and runs it; by default the wizard role and radio admins do, and radio moderators moderate. Being on a list always passes its lock. `+radio/unlock <frequency>/talk` puts back the default. Any lock works, such as `role^police` or `perm^softcode.radio.admin`.
+
+        ## What it keeps
+
+        `+radio/options <frequency>/keep=<lines>` sets how many lines a frequency keeps for recall, 500 unless set. `/age=30d` drops lines older than that, and `/length=<characters>` refuses longer messages. Leave the part after `=` empty to put back the default.
+      LOCK`RADIO`SETTINGS: |-
+        perm^config.admin
+      HELP`RADIO`SETTINGS: |-
+        Staff change how the radio works with `+config radio`, which lists its settings. `+config radio/<setting>=<value>` changes one, and `+config/reset radio/<setting>` puts back its default.
+
+        - `color`: the colour of a frequency's name for a listener who chose none, `info` unless set.
+        - `recall`: how many lines `+radio/recall` shows when no number is given, 50 unless set.
+        - `recall-max`: the most lines a player may ask `+radio/recall` for, 500 unless set.
+        - `name-length`, `title-length` and `alterego-length`: the longest frequency name, title and alterego, in characters.
diff --git a/scene-verse/package.yaml b/scene-verse/package.yaml
new file mode 100644
index 0000000..70a55c1
--- /dev/null
+++ b/scene-verse/package.yaml
@@ -0,0 +1,75 @@
+format: "1.16"
+package: scene-verse
+title: "Scene verse and canon"
+version: 2.0.0
+authors: [SharpMUSH]
+description: "Verse and canon on scenes: two scene details for +scene/set, and +scene/verses."
+license: MIT
+homepage: https://github.com/SharpMUSH/SharpMUSH.Packages
+keywords: [scene, verse, canon, rp]
+category: Scenes
+requires_server: ">=1.0"
+verified_server: "1.0"
+
+# The details and +scene/verses call the Scene plugin's scene functions, so it installs only while the
+# plugin runs.
+plugins: [scene]
+
+# The scene package keeps any detail a scene's owner sets; this one names two and shows them. Everything
+# here is attached to the scene package's objects, so uninstalling it takes it all away again. Scenes keep
+# the values they were given, and they then show under their keys.
+depends:
+  - package: scene
+    version: ">=1.6"
+    source:
+      repo: https://github.com/SharpMUSH/SharpMUSH
+      path: examples/packages/scene/
+      branch: main
+
+objects:
+  - ref: verse
+    target: "{{scene/logger}}"
+    attributes:
+      # The details, read by the Scene plugin (+help scene details): the verse follows a scene's title in +scene
+      # lists and shows on the portal's scene cards; canon takes several values, split by |.
+      DETAIL`VERSE: |-
+        {"label":"Verse","hint":"The setting or universe the scene takes place in.","listed":true,"order":10}
+      DETAIL`CANON: |-
+        {"label":"Canon","hint":"The source works the scene draws on. Split several with |.","many":true,"order":20}
+
+      # +scene/verses: the verses of the scenes running now, and how many scenes each has.
+      # The verses of scenes %0, split by |, once each.
+      FUN`VERSE`ALL: |-
+        setunion(squish(iter(%0,scene(%i0,verse),,|),|),,|)
+      # How many of scenes %0 are set in verse %1, ignoring case.
+      FUN`VERSE`COUNT: |-
+        words(iter(%0,if(not(comp(lcstr(scene(%i0,verse)),lcstr(%1))),x)))
+      FUN`VERSE`TABLE: |-
+        box(datacolumns(u(%!/FUN`TABLE`OPTS,2,|,1|2,1|),tone(strong,Verse)%r[iter(%1,%i0,|,%r)],>[tone(strong,Scenes)]%r[iter(%1,u(%!/FUN`VERSE`COUNT,%0,%i0),|,%r)]),Verses played now,,u(%!/FUN`FRAME))
+      CMD`VERSES:
+        value: |-
+          $(?is)^\+scene/verses$: think setq(active_scenes,scenelist(active))[setq(verses,u(%!/FUN`VERSE`ALL,%q<active_scenes>))]; @assert words(%q<verses>,|)=@pemit %#=notice(SCENE,No scene running now has a verse. +scene/set verse=<verse> gives yours one.); @pemit %#=u(%!/FUN`VERSE`TABLE,%q<active_scenes>,%q<verses>)%r+scene/list verse=<verse> lists a verse's scenes.
+        flags: [REGEXP]
+
+  # +help scene verse, a subtopic of +help scene. Bodies are evaluated, so brackets, parentheses and percent
+  # signs are escaped.
+  - ref: verse_help
+    target: "{{scene/scene_help}}"
+    attributes:
+      SEE`SCENE`VERSE: |-
+        scene details
+      HELP`SCENE`VERSE: |-
+        A scene can say which **verse** it is set in, and which **canon** it draws on.
+
+        - `+scene/set verse=<verse>` — the setting or universe it takes place in
+        - `+scene/set canon=<work>|<work>` — the source works it draws on
+        - `+scene/verses` — the verses of the scenes running now, and how many each has
+        - `+scene/list verse=<verse>` — the scenes running now in one verse; `+scene/old verse=<verse>` the finished ones
+
+        For example:
+
+        `+scene/set verse=Marvel`
+
+        Output: `\[SCENE\] Done: Scene 1: Verse is now Marvel.`
+
+        The verse follows the scene's title in `+scene`, and both show on its card and at the top of its log. See `+help scene details` for the rest.