parent $lock_class
object $object_lock

var $root owners [$object_lock]
var $root owned [$object_lock]
var $root manager $object_lock
var $root writable [$object_lock]
var $root readable ['parameters, 'methods, 'code]
var $root dbref 'object_lock

method new
    arg obj;
    
    if (type(obj) != 'dbref)
        throw(~perm, "Argument is not a dbref.");
    return <this(), [obj]>;
.

method try
    arg lock, obj;
    
    return (lock[1]) == obj;
.

method test
    arg testlist, testee, [args];
    var x;
    
    for x in (testlist) {
        if (testee == x)
            return 1;
    }
    return 0;
.