@verb #13:"@clearp*roperty @clprop*erty @clear-property" any none none ro #55
@program #13:"@clearp*roperty @clprop*erty @clear-property" any none none
"Copied from Generic Programming student&&Etudiant d'informatique generique (#3924):@clearp by Sleeping_Beauty (#2) Sat Jul  1 06:29:14 1995 EDT"
"@clearproperty <obj>.<prop>"
"Set the value of <obj>.<prop> to `clear', making it appear to be the same as the property on its parent."
if (player != this)
  $msg:mtell("huh")
  return
endif
set_task_perms(player)
if (!(l = $code_utils:parse_propref(dobjstr)))
  player:notify(tostr("Usage:  ", verb, " &lt;object&gt;.&lt;property&gt;"))
elseif ($command_utils:object_match_failed(dobj = player:my_match_object(l[1]), l[1]))
  "... bogus object..."
elseif (is_clear_property(dobj, prop = l[2]))
  player:notify(tostr("Property ", dobj, ".", prop, " is already clear!"))
elseif ((result = clear_property(dobj, prop)) == E_INVARG)
  player:notify(tostr("You can't clear ", dobj, ".", prop, "; none of the ancestors define that property."))
elseif (typeof(result) == $ERR)
  player:notify(tostr(result))
else
  player:notify(tostr("Property ", dobj, ".", prop, " cleared; value is now ", toliteral(dobj.(prop)), "."))
endif
"Last modified by Dax (#789) on Tue May  3 13:45:55 2005 MDT."
.