@verb #1:"owned_properties" this none this rxd #55
@program #1:"owned_properties" this none this
"what:owned_properties([who])"
"Return a list of all properties on WHAT owned by WHO."
"Only wizardly verbs can specify WHO; mortal verbs can only search for properties owned by their own owners."
{?who = caller_perms()} = args
who != caller_perms() && !caller_perms().wizard && raise(E_PERM, "Mortal verbs can only search for properties owned by their own owners.")
props = {}
if (valid(parent(this)))
  for k in (properties(this))
    if (property_info(this, k)[1] == who)
      props = listappend(props, k)
    endif
  endfor
  return {@props, @parent(this):owned_properties(who)}
else
  for k in (properties(this))
    if (property_info(this, k)[1] == who)
      props = listappend(props, k)
    endif
  endfor
  return props
endif
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
.