469
@verb #16:"@nyet" any any any rdo #55
@program #16:"@nyet" any any any
"Copied from Generic Teacher (#15):@nyet by whiz (#3135)Jul 26 15:29:36 2002"
"@nyet [player] for [denial]"
""
"Marks to the logs that a wizzen has denied this player a request."
if (player != this)
  return $msg:mtell("huh")
endif
dobjstr = args[1]
if ($cmd_utils:player_match_failed(dobj = $string_utils:match_player(dobjstr), dobjstr))
  return
endif
if (!player:isa($guardian) && !player:controls(dobj))
  return player:sub_tell("%d is not one of your students.")
endif
nyet = `$su:from_list(args[2..$], " ") ! E_RANGE => $cmd_utils:read("a nyet")'
$mail_agent:send_message(player, $nyet_log, "@nyet " + dobj:nn(), {nyet})
dobj.criminal_record[1] = {@dobj.criminal_record[1], tostr("DENIED: \"", nyet, "\"  on ", ctime(), " by ", player:nn())}
$msg:mtell({dobj, "i"}, "nyet")
"Last modified by MadHatter (#8371) on Fri Jul 26 15:29:36 2002 MDT."
"This verb previously owned by whiz (#3135), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:02 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:02 2002 MDT."
.

0