@verb #16:"@mentor @unmentor" any none none rdo #789
@program #16:"@mentor @unmentor" any none none
"Usage: @[un]mentor <player>"
"Promote/demote someone to/from $mentor"
"Waits one minute, then sends the player a mail informing them of the change."
if (player != this)
  return $msg:mtell("huh")
elseif ($command_utils:player_match_failed(dobj = $string_utils:match_player(dobjstr), dobjstr))
  return
endif
if (verb == "@mentor")
  if (parent(dobj) != $prog)
    return player:sub_tell("%D is a %1, not a $prog.", $code_utils:classify_object(parent(dobj)))
  endif
  $building_utils:chparent(dobj, $mentor)
  $wiz_utils:guard_alert($msg:substitute("%N promotes %d to the rank of mentor."))
  player:sub_tell("%D will automatically be returned to the rank of programmer in one month.")
  $clock:schedule($mentor, "mail_promote", {dobj}, 0, 0, 60, $slacker)
  dobj.return_task = $clock:schedule($mentor, "auto_demote", {dobj}, 0, 0, 60 * 60 * 24 * 31, $slacker)
else
  if (parent(dobj) != $mentor)
    return player:sub_tell("%D is a %1, not a $mentor.", $code_utils:classify_object(parent(dobj)))
  endif
  `$clock:kill(dobj.return_task) ! ANY'
  $building_utils:Chparent(dobj, $prog)
  $wiz_utils:guard_alert($msg:substitute("%N demotes %d from the rank of mentor."))
  $clock:schedule($mentor, "auto_demote", {dobj}, 0, 0, 60, $slacker)
endif
"Last modified by Dax (#789) on Tue Aug 20 15:42:39 2002 MDT."
.