parent $logic_class object $and var $root child_index 0 var $root fertile 0 var $root manager $and var $root owners [$and] var $root writable [$and] var $root readable ['parameters, 'methods, 'code] var $root trusted [] var $root owned [$and] var $root inited 1 var $root dbref 'and method unparse arg andlist; var str, x; str = ""; for x in (andlist) { catch any { str = (str + (x.unparse())) + " && "; } with handler { str = (str + tostr(x)) + " && "; } } return ("(" + (str && substr(str, 1, strlen(str) - 4))) + ")"; . method test arg andlist, [args]; var val, x; val = 0; for x in (andlist) { catch ~type, ~methodnf { val = x.test(@args); } with handler { val = x; } if (!val) break; } return val; .