8db
@verb #16:"@toast*!" any any any rdo #55
@program #16:"@toast*!" any any any
"@toast <message-sequence> [from <recipient>].    Removes a piece of offensive mail from a newsgroup, sending a warning message to the player who sent it, and sets their .warned bit."
if (player != this)
  return $msg:mtell("huh")
elseif (!(p = this:parse_mailread_cmd("@rmm", args, "cur", "on")))
  "...parse failed, we've already complained..."
elseif (!prepstr && (p[1] != this && !$command_utils:yes_or_no("@toast on " + $mail_agent:name(p[1]) + ".  Continue?")))
  "...wasn't the folder player was expecting..."
  player:notify("@toast aborted.")
else
  this:set_current_folder(folder = p[1])
  msgs = folder:messages_in_seq(p[2])
  e = folder:rm_message_seq(p[2])
  if (typeof(e) == $ERR)
    player:notify(tostr(e))
  else
    folder:expunge_rmm()
    count = (n = $seq_utils:size(p[2])) == 1 ? "." | tostr(" (", n, " messages).")
    fname = folder == this ? "" | " from " + $mail_agent:name(folder)
    player:notify(tostr("Deleted ", e, fname, count))
    for msg in (msgs)
      {mnum, msg} = msg
      {time, sendinfo, recip, subject, replyto, @body} = msg
      delim = match(sendinfo, "(%(#[0-9]*%))")[3][1]
      sender = toobj(sendinfo[delim[1]..delim[2]])
      nastygram = $msg:substitute(this.(verb[2..$] + "_mail"), ctime(time), $mail_agent:name(folder), subject, sender.warned ? "You have already been warned of MOO policy violations." | "Your warned flag has been set.  Furthur violations of the MOO Canada policy may result in the suspension or termination of MOO priveledges.")
      nastygram = {@nastygram, @body}
      $mail_agent:send_message(player, {sender}, tostr("Message ", mnum, " on ", $mail_agent:name(folder), " deleted."), nastygram)
    endfor
    player:tell("Warning messages sent.")
    if (verb == "@toast")
    elseif (sender.warned)
      player:tell(sender.name, " (", sender, ") has already been warned.  @newt at will!!")
    else
      $mail_agent:send_message(player, $site_log, tostr("@warn ", sender.name, " (", sender, ")"), {})
      sender.warned = 1
      player:tell(sender.name, " has been warned.")
    endif
  endif
endif
"Last modified by Dax (#789) on Tue May  3 13:45:56 2005 MDT."
.

0