@verb #14:"@check-p*roperty" any none none ro #55
@program #14:"@check-p*roperty" any none none
"Copied from Generic Programming student&&Etudiant d'informatique generique (#3924):@check-p by Sleeping_Beauty (#2) Sat Jul  1 06:27:33 1995 EDT"
"@check-prop object.property"
"  checks for descendents defining the given property."
set_task_perms(player)
if (!(spec = $code_utils:parse_propref(dobjstr)))
  player:notify(tostr("Usage:  ", verb, " <object>.<prop-name>"))
elseif ($command_utils:object_match_failed(object = player:my_match_object(spec[1]), spec[1]))
  "...bogus object..."
elseif (!($perm_utils:controls(player, object) || object.w))
  player:notify("You can't create a property on that object anyway.")
elseif ($object_utils:has_property(object, prop = spec[2]))
  player:notify("That object already has that property.")
elseif (olist = object:descendants_with_property_suspended(prop))
  player:notify("The following descendents have this property defined:")
  player:notify("  " + $string_utils:from_list(olist, " "))
else
  player:notify("No property name conflicts found.")
endif
"Last modified by Dax (#789) on Thu Nov  8 11:38:30 2001 MST."
.