@verb #4051:"@change*desc @cdesc @desclist @desc*s" any any any rdo #4051
@program #4051:"@change*desc @cdesc @desclist @desc*s" any any any
"Copied from Cecil (#7407):@descs May 19 23:14:29 2001"
"Written for Hilly by Cecil, yay."
if (caller != this)
  return $msg:mtell("huh")
endif
if (verb[2] == "d")
  files = {}
  for f in (this:filelist())
    if (index(f, "desc_") == 1)
      files = {@files, f[6..$]}
    endif
  endfor
  player:tell({"Your descriptions are:", $su:english_list(files)})
elseif (!this:fileexists(fname = tostr("desc_", iobjstr || dobjstr)))
  return player:tell("Oops, couldn't find a description named \"", fname, "\".")
else
  this.description = {"*file*", tostr(this), fname}
  player:tell("Description selected.")
endif
"Last modified by Cecil (#7407) on Sat May 19 23:17:59 2001 MDT."
.