@verb #2570:"@ctrl-read:*" any none none rd #2570
@program #2570:"@ctrl-read:*" any none none
"Multiplexer maintenance command"
prefix = "*** ctrl:" + verb[12..$] + " "
if (!(i = index(dobjstr, ":")))
  error = "Invalid verb spec: " + dobjstr
else
  objstr = dobjstr[1..i - 1]
  verbstr = dobjstr[i + 1..$]
  if (!valid(o = this:my_match_object(objstr)))
    error = "Invalid object: " + objstr
  else
    vc = `verb_code(o, verbstr) ! ANY'
    if (typeof(vc) != $LIST)
      error = dobjstr + ":" + tostr(vc)
    else
      for line in (vc)
        player:tell(prefix, line)
      endfor
      error = ""
    endif
  endif
endif
if (error)
  player:tell(prefix, toliteral(error))
endif
player:tell(prefix, ".")
"Last modified by Dax (#789) on Wed May  4 06:46:02 2005 MDT."
.