@verb #16:"@address*es" any none none rdo #789
@program #16:"@address*es" any none none
"Copied from Generic Teacher (#15):@addresses by Dax (#789)Jul 26 15:24:30 2002"
"Tells you the e-mail addresses of your player, or a player you control."
if (player != this)
  return player:tell(E_PERM)
endif
plyrs = args ? listdelete($command_utils:player_match_result($string_utils:match_player(args), args), 1) | {player, @this.students}
fork (0)
  spies = this.spied
  for spy in (spies)
    "Guardians are not allowed to see e-mail info (unless it is one of thier students)."
    if (parent(spy) == $guardian && !(player in spy.students))
      this.spied = setremove(this.spied, spy)
      spy:notify(player:title() + " viewed confidential info -- You avert your eyes.")
    endif
  endfor
  for plyr in (plyrs)
    dobj = toobj(plyr)
    if (!(dobj in this.students) && !player.wizard && player != dobj)
      $msg:mtell("not_own", dobj)
    else
      player:tell(dobj:title(), "'s e-mail address is \"", dobj.email_address, "\".")
    endif
  endfor
  suspend(1)
  this.spied = spies
endfork
"Last modified by MadHatter (#8371) on Fri Jul 26 15:24:30 2002 MDT."
.