@verb #14:"@grad*uate" any none none rdo #55
@program #14:"@grad*uate" any none none
"Copied from Generic Manager (#768):@grad by Slacker (#2) Aug 24 12:44:23 1997"
"Allows teachers make a student be a regular non-student player."
if (player != this)
  $msg:mtell("huh")
elseif ($command_utils:player_match_failed(dobj = $string_utils:match_player(dobjstr), dobjstr))
elseif (!(dobj in this.students))
  $msg:mtell("not_own", dobj)
elseif (dobj.email_address == player.email_address)
  this:sub_tell("%D doesn't have %d~p own email address.")
else
  this:sub_tell("%D is now a free player.")
endif
"Last modified by Dax (#789) on Sun Jul 28 13:03:37 2002 MDT."
.