@verb #8562:"_show_banned" this none this rxdo #3887
@program #8562:"_show_banned" this none this
if (!this:has_access(player, "ban"))
  return this:say(this.msg_access_denied_say)
endif
player:tell("A display screen on a console nearby lights up with the following information:")
player:Tell("--- Banned Users ---")
line = ""
for b in (this.banned)
  line = tostr(line, $su:left(b:nn(), 25))
  if (length(line) >= 75)
    player:tell($su:space(5), line)
    line = ""
  endif
endfor
line && player:tell($su:space(5), line)
player:tell("- End -")
"Last modified by Daryl (#3887) on Sun Nov 21 11:19:28 1999 MST."
.