318
@verb #13:"@file" any none none rdo #789
@program #13:"@file" any none none
if (player != this)
  return $msg:mtell("huh")
endif
set_task_perms(player)
if (length(args) != 1 || !(spec = $code_utils:parse_fileref(args[1])))
  return player:tell("Usage:  @file <object>!<file-name>")
endif
object = player:my_match_object(spec[1])
name = $string_utils:lowercase(spec[2])
if ($command_utils:object_match_failed(object, spec[1]))
elseif (!$perm_utils:controls(player, object))
  player:tell(E_PERM)
elseif (object:fileexists(name))
  player:tell("File ", object, "!", name, " already exists.")
else
  object:filewrite(name, {})
  player:tell("Empty file created.  Use @notedit to edit it.")
endif
"Last modified by Dax (#789) on Thu Nov  8 11:38:30 2001 MST."
.

0