@verb #14:"@rmprop*erty" any none none rdo #55
@program #14:"@rmprop*erty" any none none
if (this != player)
  return $msg:mtell("huh")
elseif (length(args) != 1 || !(spec = $code_utils:parse_propref(args[1])))
  return player:tell("Usage:  ", verb, " <object>.<property>")
endif
set_task_perms(player)
object = player:my_match_object(spec[1])
pname = spec[2]
if ($command_utils:object_match_failed(object, spec[1]))
  return
endif
result = `delete_property(object, pname) ! ANY'
if (result == E_PROPNF)
  player:notify("That object does not define that property.")
elseif (typeof(result) == $ERR)
  player:notify(tostr(result))
else
  player:notify("Property removed.")
endif
"Last modified by Dax (#789) on Tue May  3 13:45:56 2005 MDT."
.