3f2
@verb #13:"@rmfile" any none none rdo #789
@program #13:"@rmfile" any none none
"Copied from Generic Programmer (#59):@rmfile by Dax (#789) Aug 29 15:06:49 1997"
if (this != player)
  return $msg:mtell("huh")
elseif (length(args) != 1 || !(spec = $code_utils:parse_fileref(args[1])))
  return player:tell("Usage:  @rmfile <object>!<file>")
endif
set_task_perms(player)
object = player:my_match_object(spec[1])
fname = spec[2]
if ($command_utils:object_match_failed(object, spec[1]))
  return
endif
result = `object:filedelete(fname) ! ANY'
if (result == "E_FILE")
  result = `object:filedelete($su:lowercase(fname)) ! ANY'
endif
if (result == E_INVARG)
  player:notify("That object does not have that file.")
elseif (typeof(result) == $ERR)
  player:notify(tostr(result))
elseif (result == "E_FILE")
  player:tell("File not found (", object, "!", fname, ").")
else
  player:notify("File removed.")
endif
"Last modified by Dax (#789) on Tue May  3 13:45:56 2005 MDT."
.

0