@verb #3873:"announce*_all_but" this none this rxdo #9131
@program #3873:"announce*_all_but" this none this
if (verb == "announce")
  exclude = {player}
elseif (verb == "announce_all_but")
  exclude = args[1]
  args = listdelete(args, 1)
else
  exclude = {}
endif
astr = tostr(@args)
who = astr[1..s = index(astr, " ") - 1]
if ("anti_spoof" in this.flags)
  if (who != player.name)
    astr = astr[1..s] + " (" + player.name + ") " + astr[s + 1..$]
  endif
endif
sub = $madness:player_get_sub(player)
astr = $madness:player_sub(player, sub, astr)
c = this:contents()
for o in (c)
  if (!(o in exclude))
    nstr = $madness:portal_dyslexia(o, astr)[1]
    nstr = $dealer:portal_acid(o, nstr)
    o:tell(this.silent ? argstr | nstr)
  endif
endfor
return 0
"Last modified by Eve (#2633) on Tue Oct  3 06:45:30 2000 MDT."
.