558
@verb #16:"@warn" any for/about any rxdo #789
@program #16:"@warn" any for/about any
"Copied from Generic Teacher (#15):@warn by Dax (#789)Jul 26 15:28:36 2002"
"@warn [player] for [reason]"
""
"Warns the player for the reason stated, adding a \"mark\" to their record, ejecting them from the room, and giving them a warning message."
reason = ""
if (callers())
  !caller_perms():isa($guardian) && raise(E_PERM, "I'm sorry, I can't let you do that...")
  {dobj, reason} = args
else
  if (player != this)
    return
  elseif ($command_utils:player_match_failed(dobj = $string_utils:match_player(dobjstr), dobjstr))
    return
  endif
endif
if (!(reason = iobjstr))
  reason = $cmd_utils:read("a reason")
endif
if (!player:isa($guardian) && !player:controls(dobj))
  return player:tell("You cannot @warn someone who is not your student.")
endif
dobj.criminal_record[2] = {@dobj.criminal_record[2], tostr("WARNED:  By ", player:nn(), " on ", ctime(), reason ? " for " + reason | "")}
dobj.warned = dobj.warned + 1
$msg:mtell({dobj, "i"}, "warn", reason)
dobj.anchor = #-1
move(dobj, $junk_pile)
suspend(1)
dobj:tell($wiz_utils:msg_warned())
$mail_agent:send_message(player, $site_log, "@warn " + dobj:nn(), {reason, "Number of times warned: " + tostr(dobj.warned)})
"Last modified by MadHatter (#8371) on Fri Jul 26 15:28:36 2002 MDT."
.

0