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