@verb #12:"@ban @unban" any any any rdo #55
@program #12:"@ban @unban" any any any
"@ban user from group  -- Prevents user from posting to group (group can be 'me')"
"@ban user             -- Prevents user from posting to the current group"
"@ban                  -- Prevents the sender of your current message from posting"
"Use @unban to undo"
if (player != this)
  return $msg:mtell("huh")
endif
set_task_perms(player)
if (!iobjstr)
  folder = this:current_folder()
elseif (prepstr == "from" && $mail_agent:match_failed(folder = $mail_agent:match_recipient(iobjstr), iobjstr))
  return
elseif (prepstr != "from")
  return player:tell("I don't understand that: try ", verb, " &lt;player&gt; from <list>")
endif
if (dobjstr)
  fool = dobjstr
  "Don't resolve here so you can @ban emails and anonymous pseudos"
else
  cur = this:current_message(folder)
  fool = $mail_agent:parse_address_field(folder:messages_in_seq(cur)[2][2])[1]
endif
player:tell(folder:(verb[2..$])(fool))
"Last modified by Dax (#789) on Thu Nov  8 11:59:19 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.