@verb #755:"www_speak" this none this rxdo #60
@program #755:"www_speak" this none this
"Say (or emote) the text; if the user isn't gaged.  Called from :www_login"
caller == this || raise(E_PERM)
{id, text, style, ungaged} = args
if (ungaged)
  text = strsub(tostr(text), "HREF=\"", "TARGET=\"NEW\" HREF=\"")
  while (m = match(text, "%<[A-Z][A-Z][a-z]", 1))
    text[m[1] + 1] = $string_utils.alphabet[index($string_utils.alphabet, text[m[1] + 1])]
  endwhile
  if (`style[1..3] == "Say" ! E_RANGE => 0')
    action = {"says", "asks", "exclaims"}[(text[$] in {"?", "!"}) + 1]
    text = tostr("<B>", id, "</B> ", action, ", \"", text, "\"")
  elseif (`style[1..2] == "Do" ! E_RANGE => 0')
    text = tostr("<B>", id, "</B> ", text)
  endif
  this:announce(text)
endif
"Last modified by Dax (#789) on Mon May 10 16:07:02 1999 MDT."
.