3a6
@verb #16:"@programmer" any none none rdo #55
@program #16:"@programmer" any none none
if (player != this)
  return player:tell(E_PERM)
elseif ($command_utils:player_match_failed(victim = player:match_entity(dobjstr), dobjstr))
  return
elseif (victim.programmer)
  player:tell("That player is already a programmer.")
elseif (!victim:isa($builder))
  player:tell("That player isn't a builder yet.")
elseif (!(victim in player.students) && !player:isa($guardian))
  player:tell("That player isn't one of your students.")
else
  victim.programmer = 1
  victim:isa($prog) || $building_utils:chparent(victim, $prog)
  player:tell($string_utils:nn(victim), " is now a programmer.")
  $mail_agent:send_message(this, {$npl}, tostr($su:nn(victim), " Programmered!"), {tostr($su:nn(victim), " has been made a programmer by ", $su:nn(player), ".")})
endif
"Last modified by Cecil (#7407) on Tue Dec 10 16:53:38 2002 MST."
.

0