parent $user_interfaces object $bad_commands var $root child_index 0 var $root owners [$bad_commands] var $root owned [$bad_commands] var $root fertile 0 var $has_commands commands [["quit", 'old_command_cmd], ["WHO", 'old_command_cmd], ["@create *", 'old_command_cmd], ["@dig *", 'old_command_cmd], ["news", 'old_command_cmd], ["help *", 'old_command_cmd]] var $has_commands shortcuts [] var $root inited 1 var $bad_commands non_supported_cmds #[["quit", "@quit"], ["WHO", "@who"], ["@create", "@spawn"], ["@dig", "@build"], ["help", "@help"], ["news", "@news"]] var $root manager $bad_commands var $root writable [$bad_commands] var $root readable ['parameters, 'methods, 'code] var $root dbref 'bad_commands var $old_command_environment verb_cache #[] var $old_command_environment command_cache [["quit", 'old_command_cmd], ["WHO", 'old_command_cmd], ["@create *", 'old_command_cmd], ["@dig *", 'old_command_cmd], ["news", 'old_command_cmd]] var $old_command_environment shortcuts_cache [] method mangled_command arg str; . method add_old_cmd_reference arg oldcmd, [newcmd]; .perms(sender(), 'admin); if (this() != $bad_commands) throw(~perm, "Only define bad commands on $bad_commands"); if (newcmd) non_supported_cmds = dict_add(non_supported_cmds, oldcmd, newcmd[1]); .add_command(oldcmd, 'old_command_cmd); . method del_old_cmd_reference . method old_command_cmd arg com, [args]; var line, equiv, pref; (> .perms(sender(), 'this) <); equiv = (| ($bad_commands.non_supported_cmds())[com] |); line = ("Oops, `" + com) + "` is not supported here."; if (equiv) line = ((line + " Try `") + equiv) + "`"; .tell(line); .tell("Use `@help commands` for an explanation on the differences in commands."); . method non_supported_cmds return non_supported_cmds; .