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; .