@verb #8084:"say" any any any rdo #8084
@program #8084:"say" any any any
if (player != this)
  return $msg:mtell("huh")
endif
"regexp = \"%(%%{.+}%%%)\";"
"val = match(argstr, regexp);"
"if (val)"
"  for x in (val[3])"
"    if (string = argstr[x[1] + 2..x[2] - 2])"
"      retval = `this:(\"_say_\" + $su:words(string)[1])(@`$su:words(string)[2..$] ! E_RANGE => {}') ! ANY => string';"
"      argstr[x[1]..x[2]] = retval;"
"    endif"
"  endfor"
"endif"
if (this.location:isa($editor))
  this.location:(verb)(@args)
else
  omsg = "%N %1s, \"%2\""
  msg = "You %1, \"%2\""
  thing = "say"
  for x in (this.smily_say)
    for y in (x[2])
      if (index(argstr, y))
        thing = x[1]
        break
      endif
    endfor
  endfor
  "  argstr = #308:subst(argstr);"
  player:sub_tell(msg, thing, argstr)
  player.location:sub_announce(omsg, thing, argstr)
endif
"Last modified by Dax (#789) on Mon Dec 10 21:49:24 2001 MST."
.