parent $registry object $user_db var $root dbref 'user_db var $root child_index 0 var $root fertile 0 var $root manager $user_db var $root owned [$user_db] var $root owners [$core] var $root writable [$user_db] var $root readable ['methods, 'code] var $db database #[] var $root trusted [$user] var $root inited 1 var $user_db connected [] var $registry stripped_characters "!@#$%^&*()_+-=~`'{}[]|/?\"\\,.<>;: " var $user_db invalid_chars "$#@!^&%~" var $registry reserved_names ["user", "builder", "programmer", "admin", "housekeeper", "Reaper", "noone", "guest", "a", "i", "an", "your", "you'r", "me", "god"] var $registry invalid_names ["ass", "cunt", "fuck", "shit", "damn", "the"] method users return dict_keys(.database()); . method connected var x; for x in (connected) { if ((!valid(x)) || (| !(x.connections()) |)) connected = setremove(connected, x); } return connected; . method did_connect .perms(caller(), $user); connected = [@connected, sender()]; . method did_disconnect .perms(caller(), $user); connected = setremove(connected, sender()); . method valid_name arg name; if (strlen($string.strip(name, invalid_chars)) < strlen(name)) throw(~invname, ("Names cannot contain any of '" + invalid_chars) + "'."); return (> pass(name) <); . method match arg name; return (> .find(name) <); .