42c
@verb #4457:": emote" any any any rxdo #4457
@program #4457:": emote" any any any
amode = 1
if (argstr[1] == "-")
  argstr2 = ""
  for x in ($su:explode(argstr)[2..$])
    argstr2 = argstr2 + " " + x
  endfor
  argstr3 = argstr
  argstr = argstr2[2..$]
  return this:(tostr(":-", $su:explode(argstr3)[1][2..$]))(@args)
endif
if (this.location:isa($editor))
  this.location:emote(@args)
else
  title = this:title()
  if (argstr[1] == ":")
    argstr = argstr[2..$]
    amode = 2
  endif
  "  if ((this:ok(this.location) && (this.location != #999)) && (!(#3852 in this.location.contents)))"
  if (this:ok(this.location))
    if (this.funky)
      argstr = this:funkargstr(argstr)
    else
      {meh, argstr} = #2440:fa(argstr)
      argstr = $gu:mg(@this.grads, argstr)
      argstr = #2440:dfa(meh, argstr)
    endif
  endif
  if (amode == 2)
    this.location:announce_all(title, argstr)
  else
    this.location:announce_all(title, " ", argstr)
  endif
endif
"Last modified by Rubbie (#4457) on Wed Aug 16 04:10:41 2000 MDT."
.

0