6aa
@verb #13:"@disk-desc*ription" any is any rdo #55
@program #13:"@disk-desc*ription" any is any
"@disk-description <object> is <file ref>"
"See ?@disk-desc"
what = player:my_match_object(dobjstr)
fileref = $code_utils:parse_fileref(iobjstr)
fileobj = player:my_match_object(fileref[1])
if (player != this)
  return $msg:mtell("huh")
elseif (!player:controls(what))
  return player:tell("You don't have control over ", what:title(), " (", what, ").")
elseif (!player:controls(fileobj))
  return player:tell("You don't have control over ", fileobj:title(), " (", fileobj, ").")
elseif (player:free_dbytes() < value_bytes(what.description))
  return player:Tell("I'm afraid you don't have the disk quota needed for that.")
endif
x = what.description
if (!fileobj:fileexists(fileref[2]) || $cmd_utils:yes_or_no(tostr("The file ", fileobj, "!", $file_utils:trans_to(fileref[2]), " already exists. Overwrite by copying the current room description?")))
  x = typeof(x) == $STR ? {x} | x
  fileobj:filewrite(fileref[2], x)
endif
what.description = {"*file*", fileobj, $file_utils:trans_to(fileref[2])}
if (what:has_verb("Description") != {#1})
  player:tell("* Warning *. ", what:title(), " (", what, ") has a description verb defined on it that is not on #1. Therfore, the disk based description may not be accessed. If it isn't, talk to ", what:has_verb("description")[1].owner:title(), " (", what:has_verb("description")[1].owner, ") and ask them to read ?@disk-description and update their verb accordingly.")
endif
player:Tell("Description now references file ", fileobj, "!", $file_utils:trans_to(fileref[2]), ".")
"Last modified by Dax (#789) on Tue May  3 14:03:25 2005 MDT."
.

0