@verb #9090:"announce*_all_but" this none this rxdo #7446
@program #9090:"announce*_all_but" this none this
while (#-1 in this.p)
  this:getrid()
endwhile
if (verb == "announce")
  exclude = {player}
elseif (verb == "announce_all_but")
  exclude = args[1]
  args = listdelete(args, 1)
else
  exclude = {}
endif
args = $msg:censor(args)
sludge = {}
for x in (this.p)
  "  $cmd_utils:suspend_if_needed();"
  if (x.location == this && this.ps[x in this.p][1] == this:loc(player))
    sludge = listappend(sludge, x)
  endif
endfor
for o in (sludge)
  if (!(o in exclude))
    o:tell(tostr(@args))
  endif
endfor
"Last modified by Lao-Tzu (#8084) on Wed Jul 22 14:42:13 1998 EDT."
.