Claudia (#2186)

if (caller != this.home)
    return E_PERM;
elseif (valid(l = this:match_part(@args)))
    l:look_self();
    return 1;
else
    return 0;
endif
.

return args[1].owner == this.owner;
.

part = args[1];
if (match(part, tostr("^", this.name, "'s "), 0))
    return this:(verb)(part[length(this.name) + 4..length(part)]);
endif
base = $string_utils:match(part, children(this.part), "name", children(this.part), 
"aliases");
if (base == $ambiguous_match)
    if (part in {"leg", "arm"})
        return this:(verb)(tostr({"right", "left"}[random(2)], " ", part));
    else
        return base;
    endif
else
    return base;
endif
.

if (((length((c = callers())[1][2]) >= 5) && (c[1][2][1..5] == "@exam")) && (c[1][4] 
== $player))
    player:tell("  The @examine command is obsolete.");
    player:tell("  Try: `examine ", argstr, "'");
    kill_task(task_id());
else
    return pass(@args);
endif
.

who = args[1];
hidden = pass(@args);
if ("i don't want to see @gender" || (!$perm_utils:controls(who, this)))
    where = $object_utils:has_verb(this, "@gender")[1];
    hidden = setadd(hidden, {where, verb_info(where, "@gender")[3], verb_args(where, 
"@gender")});
endif
return hidden;
.

if ($perm_utils:controls(caller_perms(), this))
    for x in (children(this.part))
        x:set_description(x.undamaged_description);
    endfor
endif
.