@verb #12:"@address" none none none rdo #789
@program #12:"@address" none none none
"Tells you your e-mail address."
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 && !(this in spy.students))
      this.spied = setremove(this.spied, spy)
      spy:notify(player:title() + " viewed confidential info -- You avert your eyes.")
    endif
  endfor
  player:notify("Your e-mail address is:  " + player.email_address)
  suspend(1)
  this.spied = spies
endfork
.