22d
@verb #6319:"fixfiles" any none none rdo #6319
@program #6319:"fixfiles" any none none
"Caution!  This verb makes all files on specified object +r (readable)...should only be used for objects with a lot of files that mysteriously go !r."
if (player != this)
  return $msg:mtell("huh")
endif
if (!valid(what = player:match_object(args[1])))
  return player:tell("Sorry, what?")
endif
for x in (what:filelist())
  force_input(player, tostr("@chmod ", what, "!", x, " +r"))
endfor
"Last modified by Dax (#789) on Mon Dec 10 21:46:16 2001 MST."
.

0