5a6
@verb #13:"@edits" any any any rdo #55
@program #13:"@edits" any any any
player:tell("Scanning...")
if (prepstr == "for" && iobjstr)
  if ($command_utils:player_match_failed(who = $string_utils:match_player(iobjstr), iobjstr))
    return
  endif
  who = tostr(who)
else
  who = ""
endif
n = 0
for o in ($mceh_core)
  try
    {cvsroot, dir, @entries} = $cvsfo:cvsinfo(o)
  except ("E_FILE")
    continue
  endtry
  for e in (entries)
    {cvsroot, dir, filename, perms, hash} = e
    text = $cvsfo:_contents(o, filename)
    if (text == 0)
      "      player:tell(\"Deleted: \", o, \":\", filename[2..$]);"
      "This is spammy too, but may be useful later!"
    elseif (hash != value_hash(text))
      vn = filename[2..$]
      v = vn in verbs(o)
      v == 0 && (v = vn)
      if (filename[1] == "V" && index(verb_code(o, v)[$], who))
        player:tell("M ", o, ":", filename[2..$])
        n = n + 1
      endif
    endif
    "    $command_utils:suspend_if_needed(0) && player:tell(o, \"...\");"
    "This just seemed spammy --Cecil"
    $command_utils:suspend_if_needed(0)
  endfor
endfor
player:tell("*** ", n, " edits are not checked in ***")
"Last modified by Cecil (#7407) on Thu Jan 24 15:56:56 2002 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.

0