@verb #17:"@check-address" any none none rdo #55
@program #17:"@check-address" any none none
player:tell("Checking for people with email address ", dobjstr)
found = {}
for p in (players())
  try
    if (index(p.email_address, dobjstr))
      found = {@found, tostr(length(found) + 1, ". ", p.email_address, " (", p:title(), " ", p, ")")}
    endif
  except (ANY)
    player:tell("* ", $string_utils:nn(p), " doesn't have a .email_address property.")
  endtry
endfor
if (length(found) == 1)
  player:tell("Found 1 player:")
elseif (found)
  player:tell("Found ", length(found), " players:")
else
  player:tell("No players match.")
endif
player:tell({found})
"Last modified by Dax (#789) on Tue May  9 01:21:43 2000 MDT."
.