355
@verb #340:"get_object_for_path" this none this rxdo #7214
@program #340:"get_object_for_path" this none this
{path} = args
m = match(path, tostr("^", this:_quote_regexp(this.CVSROOT[2]), "/*", this:_quote_regexp(this.repository), "/%([^/]+%)%(%|/+.*%)$"))
if (!m)
  return #-1
endif
object = path[m[3][1][1]..m[3][1][2]]
if (typeof(`o = this.(object) ! ANY') == $OBJ && o in this.objects && o.module == this)
  return o
elseif (typeof(`o = this.("_" + object) ! ANY') == $OBJ && o in this.objects && o.module == this)
  return o
elseif (caller == this || $perm_utils:controls(caller_perms(), this))
  p = player:match_object($command_utils:read(tostr("parent for object named \"", object, "\"")))
  o = this:_new_object(p, object)
  return o
else
  return #-1
endif
"Last modified by Dax (#789) on Tue May  3 13:49:40 2005 MDT."
.

0