@verb #3512:"spy_teachers" this none this rxdo #6319
@program #3512:"spy_teachers" this none this
if (dobj:isa($project))
  this:tellit(player, "Project leader: %1", valid(dobj.leader) ? dobj.leader | "None")
  this:tellit(player, "Project members: %1", setremove(dobj.teachers, dobj.leader) || "None")
else
  p = s = {}
  for x in (dobj.students)
    x:isa($project) ? p = {@p, x} | (s = {@s, x})
  endfor
  this:tellit(player, "Projects: %1", p || "None")
  this:tellit(player, "Students: %1", s || "None")
endif
"Last modified by Raptor (#6319) on Tue May 11 00:05:27 1999 MDT."
.