└── src ├── +INDEX ├── misc.cdc ├── mutex_vr.cdc ├── utilities.cdc ├── libraries.cdc ├── mutex_access.cdc ├── mutex_mail.cdc ├── weather_system.cdc ├── core_group.cdc ├── propagator_effects.cdc ├── staff_group.cdc ├── web_file.cdc ├── mail_root.cdc ├── mutex_building.cdc ├── place_desc_evaluator.cdc ├── core.cdc ├── building_group.cdc ├── changelog_group.cdc ├── http.cdc ├── programming_group.cdc ├── network.cdc ├── create_for_others_group.cdc ├── systrust_group.cdc ├── symbol.cdc ├── create_for_sender_group.cdc ├── pop3_daemon.cdc ├── format.cdc ├── client_problems.cdc ├── vr_problems.cdc ├── command_problems.cdc ├── generator.cdc ├── mutex_location.cdc ├── contrib_group.cdc ├── dismissed_problems.cdc ├── wrap_filter.cdc ├── general_problems.cdc ├── false.cdc ├── true.cdc ├── nothing.cdc ├── syslog_group.cdc ├── user_interfaces.cdc ├── mail_list_bugs.cdc ├── tutorial_realm.cdc ├── help_sys_event_hook.cdc ├── help_node_commands.cdc ├── mail_list_news.cdc ├── smtp_daemon.cdc ├── weather_hot.cdc ├── callback.cdc ├── true_lock_frob.cdc ├── false_lock_frob.cdc ├── weather_stormy.cdc ├── dir_desktop.cdc ├── help_sys.cdc ├── help_coldc_imp.cdc ├── inbound_connection.cdc ├── mail_postmaster.cdc ├── smtp_connection.cdc ├── help_coldc_lang.cdc ├── null_parser.cdc ├── help_obj.cdc ├── realm_of_creation.cdc ├── help_cmd_channel_add.cdc ├── help_coldc_textdump.cdc ├── mail_list_tracebacks.cdc ├── help_cmd_channel_acm.cdc ├── help_cmd_channel_dcm.cdc ├── help_coldc_native.cdc ├── help_cmd_channel_use_lock.cdc ├── help_cmd_name_templates.cdc ├── help_cmd_channel_join_lock.cdc ├── help_cmd_channel_leave_lock.cdc ├── logic_frob.cdc ├── pop3_connection.cdc ├── weather_snowy.cdc ├── help_cmd_mcp_upload.cdc ├── weather_windy.cdc ├── weather_rainy.cdc ├── changelog.cdc ├── mail_admin.cdc ├── help_theme.cdc ├── help_cmd_backup.cdc ├── help_func_this.cdc ├── introtut_path1.cdc ├── help_cmd_quit.cdc ├── weather_nice.cdc ├── introtut_path2.cdc ├── help_cmd_mojo.cdc ├── owner_lock_frob.cdc ├── parent_lock_frob.cdc ├── help_func_method.cdc ├── filters.cdc ├── user_parsers.cdc ├── help_func_objnum.cdc ├── indirect_lock_frob.cdc ├── storyteller.cdc ├── help_func_definer.cdc ├── help_func_parents.cdc ├── help_cmd_whereis.cdc ├── inside_lock_frob.cdc ├── climate_creation.cdc ├── help_cmd_walk.cdc ├── help_func_methods.cdc ├── help_func_tick.cdc ├── wrapped_format.cdc ├── help_cmd_boot.cdc ├── help_func_tasks.cdc ├── help_cmd_quota.cdc ├── help_func_children.cdc ├── help_cmd_add_parent.cdc ├── help_cmd_channel_purge.cdc ├── help_cmd_look.cdc ├── help_func_strlen.cdc ├── help_cmd_chparent.cdc ├── help_func_buflen.cdc ├── help_func_listlen.cdc ├── help_func_shutdown.cdc ├── realm_base_eval.cdc ├── object_lock_frob.cdc ├── help_cmd_kick.cdc ├── tagged_format.cdc ├── help_func_toerr.cdc ├── help_cmd_exits.cdc ├── lost_and_found.cdc ├── plain_page.cdc ├── help_func_caller.cdc ├── help_func_fclose.cdc ├── void.cdc ├── help_func_valid.cdc ├── not_lock_frob.cdc ├── help_cmds.cdc ├── help_func_fremove.cdc ├── help_func_toliteral.cdc ├── not.cdc ├── help_cmd_dnt.cdc ├── help_cmd_map.cdc ├── help_func_lowercase.cdc ├── help_func_uppercase.cdc ├── help_func_variables.cdc ├── help_func_close_connection.cdc ├── help_func_feof.cdc ├── help_core.cdc ├── help_func_fflush.cdc ├── channel_parser.cdc ├── help_cmd_date.cdc ├── help_func_dblog.cdc ├── help_func_objname.cdc ├── help_cmd_report.cdc ├── carry_lock_frob.cdc ├── page_root_index.cdc ├── cml_color.cdc ├── help_func_has_ancestor.cdc ├── help_func_task_id.cdc ├── place_db.cdc ├── help_cmd_core.cdc ├── help_cmd_say.cdc ├── help_func_toint.cdc ├── help_func_toobjnum.cdc ├── login_connection.cdc ├── or.cdc ├── help_coldc_data.cdc ├── help_app_desc.cdc ├── help_func_cancel.cdc ├── help_func_unbind_function.cdc ├── login_daemon.cdc ├── help_cmd_join.cdc ├── help_func_class.cdc ├── help_func_ticks_left.cdc ├── help_func_tofloat.cdc ├── help_func_error.cdc ├── introductory_tutorial.cdc ├── help_func_random.cdc ├── nowhere.cdc ├── help_func_cwrite.cdc ├── help_func_frmdir.cdc ├── mail_db.cdc ├── help_func_frob_value.cdc ├── and.cdc ├── help_cmd_whisper.cdc ├── help_func_unbind_port.cdc ├── help_func_frob_handler.cdc ├── help_func_pause.cdc ├── help_mail_next_new.cdc ├── help_cmd_realms.cdc ├── help_coldc_types_dbref.cdc ├── help_func_user.cdc ├── or_lock_frob.cdc ├── xor.cdc ├── and_lock_frob.cdc ├── help_cmd_think.cdc ├── page_file_index.cdc ├── help_func_sender.cdc ├── rect.cdc ├── help_func_rethrow.cdc ├── help_func_str_to_buf.cdc ├── help_func_tosym.cdc ├── help_cmd_spawn.cdc ├── help_func_time.cdc ├── help_cmd_cs.cdc ├── help_cmd_newpwd.cdc ├── help_cmd_channel_desc.cdc ├── help_cmd_drop.cdc ├── help_cmd_hlist.cdc ├── help_cmd_quote.cdc ├── help_app_gender.cdc ├── help_func_find_method.cdc ├── help_func_method_access.cdc ├── help_obj_command_cache_dmeths.cdc ├── help_func_debug_callers.cdc ├── help_cmd_kill.cdc ├── help_func_dict_keys.cdc ├── help_func_dict_values.cdc ├── help_cmd_addparent.cdc ├── help_cmd_delparent.cdc ├── gender_male.cdc ├── gender_neuter.cdc ├── help_cmd_delvariable.cdc ├── help_cmd_nh.cdc ├── help_cmd_teleport.cdc ├── help_func_lookup.cdc ├── help_func_set_user.cdc ├── help_coldc_expr_stmt.cdc ├── help_func_create.cdc ├── help_func_files.cdc ├── page.cdc ├── help_cmd_rehash.cdc ├── help_cmd_rehashall.cdc ├── help_coldc_types_errors.cdc ├── help_func_max.cdc ├── help_func_set_method_access.cdc ├── gender_female.cdc ├── help_cmd_forget.cdc ├── help_func_min.cdc ├── help_cmd_ca.cdc ├── help_cmd_hwrite.cdc ├── help_cmd_delcmd.cdc ├── help_cmd_shutdown.cdc ├── command_aliases_parser.cdc ├── help_cmd_undefsetting.cdc ├── help_func_add_var.cdc ├── help_index_subsystem.cdc ├── help_mail_rmmail.cdc ├── help_sys_parser.cdc ├── help_cmd_remembered.cdc ├── help_func_del_method.cdc ├── help_func_mtime.cdc ├── help_func_del_objname.cdc └── help_func_destroy.cdc /src/+INDEX: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /src/misc.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $misc: $core; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'fertile, 'core, 'variables]; 6 | var $root inited = 1; 7 | var $root managed = [$misc]; 8 | var $root manager = $misc; 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/mutex_vr.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mutex_vr: $mutex; 3 | 4 | var $root created_on = 858089305; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$mutex_vr]; 8 | var $root manager = $mutex_vr; 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/utilities.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $utilities: $core; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'core, 'variables]; 6 | var $root inited = 1; 7 | var $root managed = [$utilities]; 8 | var $root manager = $utilities; 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/libraries.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $libraries: $core; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'fertile, 'core, 'variables]; 6 | var $root inited = 1; 7 | var $root managed = [$libraries]; 8 | var $root manager = $libraries; 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/mutex_access.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mutex_access: $mutex; 3 | 4 | var $root created_on = 858089211; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$mutex_access]; 8 | var $root manager = $mutex_access; 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/mutex_mail.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mutex_mail: $mutex_access; 3 | 4 | var $root created_on = 858089236; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$mutex_mail]; 8 | var $root manager = $mutex_mail; 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/weather_system.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $weather_system: $misc; 3 | 4 | var $root created_on = 855309892; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$weather_system]; 8 | var $root manager = $weather_system; 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/core_group.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $core_group: $group; 3 | 4 | var $group group = #[]; 5 | var $root created_on = 904657222; 6 | var $root flags = ['variables, 'methods, 'code, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$core_group]; 9 | var $root manager = $core_group; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/propagator_effects.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $propagator_effects: $misc; 3 | 4 | var $root created_on = 861968399; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$propagator_effects]; 8 | var $root manager = $propagator_effects; 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/staff_group.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $staff_group: $group; 3 | 4 | var $group group = #[]; 5 | var $root created_on = 904657230; 6 | var $root flags = ['variables, 'methods, 'code, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$staff_group]; 9 | var $root manager = $staff_group; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/web_file.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $web_file: $file; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $root created_on = 999321766; 6 | var $root flags = ['variables, 'methods, 'code, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$web_file]; 9 | var $root manager = $web_file; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/mail_root.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mail_root: $misc; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'fertile, 'core, 'variables]; 6 | var $root inited = 1; 7 | var $root managed = [$mail_root]; 8 | var $root manager = $mail_root; 9 | var $root trusted = []; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/mutex_building.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mutex_building: $mutex_access, $mutex_vr; 3 | 4 | var $root created_on = 858089261; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$mutex_building]; 8 | var $root manager = $mutex_building; 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/place_desc_evaluator.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $place_desc_evaluator: $bs_eval; 3 | 4 | var $root created_on = 845665471; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$place_desc_evaluator]; 8 | var $root manager = $place_desc_evaluator; 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/core.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $core: $root, $dmi_data; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'core, 'variables]; 6 | var $root inited = 1; 7 | var $root managed = [$core]; 8 | var $root manager = $core; 9 | 10 | root method .core_group() { 11 | group = #[]; 12 | }; 13 | 14 | 15 | -------------------------------------------------------------------------------- /src/building_group.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $building_group: $staff_group; 3 | 4 | var $group group = #[]; 5 | var $root created_on = 904655977; 6 | var $root flags = ['variables, 'methods, 'code, 'fertile, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$building_group]; 9 | var $root manager = $building_group; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/changelog_group.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $changelog_group: $core_group; 3 | 4 | var $group group = #[[$root, 1]]; 5 | var $root created_on = 906983574; 6 | var $root flags = ['variables, 'methods, 'code, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$changelog_group]; 9 | var $root manager = $changelog_group; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/http.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $http: $libraries; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$http]; 8 | var $root manager = $http; 9 | 10 | public method .decode(): native; 11 | 12 | public method .encode(): native; 13 | 14 | 15 | -------------------------------------------------------------------------------- /src/programming_group.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $programming_group: $staff_group; 3 | 4 | var $group group = #[]; 5 | var $root created_on = 904657855; 6 | var $root flags = ['variables, 'methods, 'code, 'fertile, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$programming_group]; 9 | var $root manager = $programming_group; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/network.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $network: $core; 3 | 4 | var $root created_on = 809051864; 5 | var $root flags = ['methods, 'code, 'core, 'variables]; 6 | var $root inited = 1; 7 | var $root managed = [$network]; 8 | var $root manager = $network; 9 | 10 | protected method .hostname(): native; 11 | 12 | protected method .ip(): native; 13 | 14 | 15 | -------------------------------------------------------------------------------- /src/create_for_others_group.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $create_for_others_group: $core_group; 3 | 4 | var $group group = #[]; 5 | var $root created_on = 904657034; 6 | var $root flags = ['variables, 'methods, 'code, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$create_for_others_group]; 9 | var $root manager = $create_for_others_group; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/systrust_group.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $systrust_group: $core_group; 3 | 4 | var $group group = #[[$scheduler, 1], [$directories, 1]]; 5 | var $root created_on = 913800511; 6 | var $root flags = ['variables, 'methods, 'code, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$systrust_group]; 9 | var $root manager = $systrust_group; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/symbol.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $symbol: $libraries; 3 | 4 | var $root created_on = 811822782; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$symbol]; 8 | var $root manager = $symbol; 9 | 10 | public method .to_string() { 11 | arg sym; 12 | 13 | return tostr(sym); 14 | }; 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/create_for_sender_group.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $create_for_sender_group: $create_for_others_group; 3 | 4 | var $group group = #[]; 5 | var $root created_on = 904657041; 6 | var $root flags = ['variables, 'methods, 'code, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$create_for_sender_group]; 9 | var $root manager = $create_for_sender_group; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/pop3_daemon.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $pop3_daemon: $daemon; 3 | 4 | var $daemon connection = $pop3_connection; 5 | var $daemon listen = [[1210]]; 6 | var $dmi_data descriptions = #[]; 7 | var $root created_on = 872047000; 8 | var $root flags = ['variables, 'methods, 'code, 'core]; 9 | var $root inited = 1; 10 | var $root managed = [$pop3_daemon]; 11 | var $root manager = $pop3_daemon; 12 | 13 | 14 | -------------------------------------------------------------------------------- /src/format.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $format: $tag; 3 | 4 | var $root created_on = 837584154; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$format]; 8 | var $root manager = $format; 9 | 10 | public method .new_tag() { 11 | arg name, flags, args; 12 | 13 | return pass(name, flags, args, tosym("do_" + (name.strip()))); 14 | }; 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/client_problems.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $client_problems: $argroup; 3 | 4 | var $argroup requests = #[]; 5 | var $dmi_data descriptions = #[]; 6 | var $has_name name = ['prop, "Client", "Client"]; 7 | var $root created_on = 891396654; 8 | var $root flags = ['variables, 'methods, 'code, 'core]; 9 | var $root inited = 1; 10 | var $root managed = [$client_problems]; 11 | var $root manager = $client_problems; 12 | 13 | 14 | -------------------------------------------------------------------------------- /src/vr_problems.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $vr_problems: $argroup; 3 | 4 | var $argroup requests = #[]; 5 | var $dmi_data descriptions = #[]; 6 | var $has_name name = ['prop, "Virtual Reality", "Virtual Reality"]; 7 | var $root created_on = 891396592; 8 | var $root flags = ['variables, 'methods, 'code, 'core]; 9 | var $root inited = 1; 10 | var $root managed = [$vr_problems]; 11 | var $root manager = $vr_problems; 12 | 13 | 14 | -------------------------------------------------------------------------------- /src/command_problems.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $command_problems: $argroup; 3 | 4 | var $argroup requests = #[]; 5 | var $dmi_data descriptions = #[]; 6 | var $has_name name = ['prop, "Command", "Command"]; 7 | var $root created_on = 891396498; 8 | var $root flags = ['variables, 'methods, 'code, 'core]; 9 | var $root inited = 1; 10 | var $root managed = [$command_problems]; 11 | var $root manager = $command_problems; 12 | 13 | 14 | -------------------------------------------------------------------------------- /src/generator.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $generator: $tag; 3 | 4 | var $root created_on = 837584238; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$generator]; 8 | var $root manager = $generator; 9 | 10 | public method .new_tag() { 11 | arg name, flags, args; 12 | 13 | return pass(name, flags, args, tosym("gen_" + (name.strip()))); 14 | }; 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/mutex_location.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mutex_location: $mutex_access, $mutex_vr; 3 | 4 | var $mutex locks = #[]; 5 | var $mutex queues = #[]; 6 | var $mutex suspended = #[]; 7 | var $mutex tasks = #[]; 8 | var $root created_on = 858089228; 9 | var $root flags = ['variables, 'methods, 'code, 'core]; 10 | var $root inited = 1; 11 | var $root managed = [$mutex_location]; 12 | var $root manager = $mutex_location; 13 | 14 | 15 | -------------------------------------------------------------------------------- /src/contrib_group.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $contrib_group: $argroup; 3 | 4 | var $argroup requests = #[]; 5 | var $dmi_data descriptions = #[]; 6 | var $has_name name = ['prop, "Contrib Submission", "Contrib Submission"]; 7 | var $root created_on = 913807315; 8 | var $root flags = ['variables, 'methods, 'code, 'core]; 9 | var $root inited = 1; 10 | var $root managed = [$contrib_group]; 11 | var $root manager = $contrib_group; 12 | 13 | 14 | -------------------------------------------------------------------------------- /src/dismissed_problems.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $dismissed_problems: $argroup; 3 | 4 | var $argroup requests = #[]; 5 | var $dmi_data descriptions = #[]; 6 | var $has_name name = ['prop, "Dismissed", "Dismissed"]; 7 | var $root created_on = 891447478; 8 | var $root flags = ['variables, 'methods, 'code, 'core]; 9 | var $root inited = 1; 10 | var $root managed = [$dismissed_problems]; 11 | var $root manager = $dismissed_problems; 12 | 13 | 14 | -------------------------------------------------------------------------------- /src/wrap_filter.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $wrap_filter: $filters; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$wrap_filter]; 8 | var $root manager = $wrap_filter; 9 | 10 | public method .filter_text() { 11 | arg input; 12 | var len, output, e, line; 13 | 14 | return $string.wrap_line(input, sender().linelen()); 15 | }; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/general_problems.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $general_problems: $argroup; 3 | 4 | var $argroup requests = #[]; 5 | var $dmi_data descriptions = #[]; 6 | var $has_name name = ['prop, "General", "General"]; 7 | var $root created_on = 891385463; 8 | var $root flags = ['variables, 'methods, 'code, 'core]; 9 | var $root inited = 1; 10 | var $root managed = [$general_problems]; 11 | var $root manager = $general_problems; 12 | var $root quota_exempt = 0; 13 | 14 | 15 | -------------------------------------------------------------------------------- /src/false.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $false: $logic_frob; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$false]; 8 | var $root manager = $false; 9 | var $root trusted = []; 10 | 11 | public method .test() { 12 | arg @args; 13 | 14 | return 0; 15 | }; 16 | 17 | frob method .unparse() { 18 | arg dummy; 19 | 20 | return "no"; 21 | }; 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/true.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $true: $logic_frob; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$true]; 8 | var $root manager = $true; 9 | var $root trusted = []; 10 | 11 | public method .test() { 12 | arg @args; 13 | 14 | return 1; 15 | }; 16 | 17 | frob method .unparse() { 18 | arg dummy; 19 | 20 | return "yes"; 21 | }; 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/nothing.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $nothing: $thing; 3 | 4 | var $described prose = []; 5 | var $has_name name = ['prop, "nothing whatsoever", "nothing whatsoever"]; 6 | var $located location = $void; 7 | var $located obvious = 1; 8 | var $root created_on = 796268969; 9 | var $root flags = ['methods, 'code, 'variables, 'core]; 10 | var $root inited = 1; 11 | var $root managed = [$nothing]; 12 | var $root manager = $nothing; 13 | var $thing gender = $gender_neuter; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/syslog_group.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $syslog_group: $core_group; 3 | 4 | var $group group = #[[$daemon, 1], [$connection, 1], [$dns, 1], [$guest, 1], [$user, 1], [$body, 1], [$sys, 1], [$root, 1], [$login_interface, 1], [$http_interface, 1], [$connection_interface, 1]]; 5 | var $root created_on = 904656992; 6 | var $root flags = ['variables, 'methods, 'code, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$syslog_group]; 9 | var $root manager = $syslog_group; 10 | 11 | 12 | -------------------------------------------------------------------------------- /src/user_interfaces.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $user_interfaces: $command_cache; 3 | 4 | var $command_cache commands = 0; 5 | var $command_cache modules = []; 6 | var $command_cache shortcuts = 0; 7 | var $has_commands shortcuts = #[]; 8 | var $root created_on = 796268969; 9 | var $root flags = ['methods, 'code, 'fertile, 'variables, 'core]; 10 | var $root inited = 1; 11 | var $root managed = [$user_interfaces]; 12 | var $root manager = $user_interfaces; 13 | var $user_interfaces links = 0; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/mail_list_bugs.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mail_list_bugs: $mail_list; 3 | 4 | var $has_name name = ['prop, "bugs", "bugs"]; 5 | var $mail_list last_received_on = 0; 6 | var $mail_list mail = []; 7 | var $mail_list notify = []; 8 | var $mail_list readers = 1; 9 | var $mail_list senders = 1; 10 | var $root created_on = 811630223; 11 | var $root flags = ['methods, 'code, 'variables, 'core]; 12 | var $root inited = 1; 13 | var $root managed = [$mail_list_bugs]; 14 | var $root manager = $mail_list_bugs; 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/tutorial_realm.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $tutorial_realm: $realm; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "Tutorial", "Tutorial"]; 6 | var $realm links = #[]; 7 | var $realm local = []; 8 | var $root created_on = 874178606; 9 | var $root flags = ['variables, 'methods, 'code, 'core]; 10 | var $root inited = 1; 11 | var $root managed = [$tutorial_realm]; 12 | var $root manager = $tutorial_realm; 13 | var $root settings = #[["map-position", 0], ["propagate", 0]]; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_sys_event_hook.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_sys_event_hook: $help_sys_events; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "Hooks", "Hooks"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node links = #[]; 8 | var $root created_on = 864944385; 9 | var $root flags = ['variables, 'methods, 'code, 'core]; 10 | var $root inited = 1; 11 | var $root managed = [$help_sys_event_hook]; 12 | var $root manager = $help_sys_event_hook; 13 | 14 | 15 | -------------------------------------------------------------------------------- /src/help_node_commands.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_node_commands: $help_obj_help_node; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "Commands", "Commands"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node links = #[]; 8 | var $root created_on = 870636767; 9 | var $root flags = ['variables, 'methods, 'code, 'core]; 10 | var $root inited = 1; 11 | var $root managed = [$help_node_commands]; 12 | var $root manager = $help_node_commands; 13 | 14 | 15 | -------------------------------------------------------------------------------- /src/mail_list_news.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mail_list_news: $mail_list; 3 | 4 | var $has_name name = ['prop, "news", "news"]; 5 | var $mail_list last_received_on = 0; 6 | var $mail_list mail = []; 7 | var $mail_list notify = []; 8 | var $mail_list readers = 1; 9 | var $mail_list senders = []; 10 | var $root created_on = 796268969; 11 | var $root flags = ['methods, 'code, 'fertile, 'core, 'variables]; 12 | var $root inited = 1; 13 | var $root managed = [$mail_list_news]; 14 | var $root manager = $mail_list_news; 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/smtp_daemon.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $smtp_daemon: $daemon; 3 | 4 | var $daemon connection = $smtp_connection; 5 | var $daemon current_port = 1125; 6 | var $daemon listen = [[1125]]; 7 | var $root created_on = 849170427; 8 | var $root flags = ['variables, 'methods, 'code, 'core]; 9 | var $root inited = 1; 10 | var $root managed = [$smtp_daemon]; 11 | var $root manager = $smtp_daemon; 12 | var $smtp_daemon msg_id = 411; 13 | 14 | public method .get_msg_id() { 15 | msg_id++; 16 | return msg_id; 17 | }; 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/weather_hot.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $weather_hot: $weather; 3 | 4 | var $described prose = []; 5 | var $has_commands local = #[]; 6 | var $has_commands remote = #[]; 7 | var $has_commands shortcuts = #[]; 8 | var $has_name name = ['prop, "hot", "hot"]; 9 | var $root created_on = 855462673; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$weather_hot]; 13 | var $root manager = $weather_hot; 14 | var $root settings = #[["attributes", [1, 2, 1, 1, 1, 1]]]; 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/callback.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $callback: $frob; 3 | 4 | var $root created_on = 799275808; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$callback]; 8 | var $root manager = $callback; 9 | 10 | public method .exec() { 11 | arg self, @args; 12 | 13 | return (self[1]).(self[2])(self[3], args); 14 | }; 15 | 16 | public method .new() { 17 | arg method, static_args; 18 | 19 | return (); 20 | }; 21 | 22 | 23 | -------------------------------------------------------------------------------- /src/true_lock_frob.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $true_lock_frob: $true; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root managed = [$true_lock_frob]; 7 | var $root manager = $true_lock_frob; 8 | 9 | public method .lock_name() { 10 | arg value, @type; 11 | 12 | return "yes"; 13 | }; 14 | 15 | public method .new_lock() { 16 | return (); 17 | }; 18 | 19 | public method .try() { 20 | arg lock, obj; 21 | 22 | return 1; 23 | }; 24 | 25 | 26 | -------------------------------------------------------------------------------- /src/false_lock_frob.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $false_lock_frob: $false; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root managed = [$false_lock_frob]; 7 | var $root manager = $false_lock_frob; 8 | 9 | public method .lock_name() { 10 | arg value, @type; 11 | 12 | return "no"; 13 | }; 14 | 15 | public method .new_lock() { 16 | return (); 17 | }; 18 | 19 | public method .try() { 20 | arg lock, obj; 21 | 22 | return 0; 23 | }; 24 | 25 | 26 | -------------------------------------------------------------------------------- /src/weather_stormy.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $weather_stormy: $weather; 3 | 4 | var $described prose = []; 5 | var $has_commands local = #[]; 6 | var $has_commands remote = #[]; 7 | var $has_commands shortcuts = #[]; 8 | var $has_name name = ['prop, "stormy", "stormy"]; 9 | var $root created_on = 855462768; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$weather_stormy]; 13 | var $root manager = $weather_stormy; 14 | var $root settings = #[["attributes", [4, 3, 2, 3, 3, 3]]]; 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/dir_desktop.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $dir_desktop: $directories; 3 | 4 | var $directories default_page = $page_desktop_login; 5 | var $directories entries = #[["web_prefs", $page_set]]; 6 | var $directories http_auth_realm = 0; 7 | var $directories lock = [$security_lib, 'bounce_to_auth, ["/login"]]; 8 | var $dmi_data descriptions = #[]; 9 | var $root created_on = 864277943; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$dir_desktop]; 13 | var $root manager = $dir_desktop; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_sys.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_sys: $help_core; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "Subsystems", "Subsystems"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node group = 1; 8 | var $help_node links = #[]; 9 | var $help_node nolist = 1; 10 | var $root created_on = 870556878; 11 | var $root flags = ['variables, 'methods, 'code, 'core, 'fertile]; 12 | var $root inited = 1; 13 | var $root managed = [$help_sys]; 14 | var $root manager = $help_sys; 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/help_coldc_imp.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_coldc_imp: $help_coldc; 3 | 4 | var $has_name name = ['prop, "Implementation", "Implementation"]; 5 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[['this, $help_coldc_imp]]]>; 6 | var $help_node holder = 1; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 854662991; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_coldc_imp]; 13 | var $root manager = $help_coldc_imp; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/inbound_connection.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $inbound_connection: $connection; 3 | 4 | var $connection buffer = `[]; 5 | var $connection line_buffer = []; 6 | var $connection local_addr = ""; 7 | var $connection remote_addr = ""; 8 | var $connection tid = -1; 9 | var $connection timeout = 300; 10 | var $dmi_data descriptions = #[]; 11 | var $root created_on = 868487559; 12 | var $root flags = ['core, 'methods, 'code, 'variables]; 13 | var $root inited = 1; 14 | var $root managed = [$inbound_connection]; 15 | var $root manager = $inbound_connection; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/mail_postmaster.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mail_postmaster: $mail_list; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "postmaster", "postmaster"]; 6 | var $mail_list last_received_on = 0; 7 | var $mail_list mail = []; 8 | var $mail_list notify = []; 9 | var $mail_list readers = 0; 10 | var $mail_list senders = 1; 11 | var $root created_on = 869072520; 12 | var $root flags = ['variables, 'methods, 'code, 'core]; 13 | var $root inited = 1; 14 | var $root managed = [$mail_postmaster]; 15 | var $root manager = $mail_postmaster; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/smtp_connection.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $smtp_connection: $inbound_connection; 3 | 4 | var $connection buffer = `[]; 5 | var $connection interface = $smtp_interface; 6 | var $connection line_buffer = []; 7 | var $connection local_addr = ""; 8 | var $connection remote_addr = ""; 9 | var $connection timeout = 300; 10 | var $root created_on = 849170589; 11 | var $root flags = ['core, 'variables, 'methods, 'code]; 12 | var $root inited = 1; 13 | var $root managed = [$smtp_connection]; 14 | var $root manager = $smtp_connection; 15 | var $root quota_exempt = 1; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/help_coldc_lang.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_coldc_lang: $help_coldc; 3 | 4 | var $has_name name = ['prop, "Language Structure", "Language Structure"]; 5 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[['this, $help_coldc_lang]]]>; 6 | var $help_node holder = 1; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 853707985; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_coldc_lang]; 13 | var $root manager = $help_coldc_lang; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/null_parser.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $null_parser: $user_parsers; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$null_parser]; 8 | var $root manager = $null_parser; 9 | var $user_parsers priority = 10000; 10 | 11 | public method .parse() { 12 | arg user, str, @anything_else; 13 | var i; 14 | 15 | for i in [1 .. str.length()] { 16 | if ((str[i]) != " ") 17 | return ['failed]; 18 | } 19 | return ['ok]; 20 | }; 21 | 22 | 23 | -------------------------------------------------------------------------------- /src/help_obj.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_obj: $help_core; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "Objects", "Objects"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node group = 1; 8 | var $help_node holder = 1; 9 | var $help_node links = #[]; 10 | var $help_node nolist = 0; 11 | var $root created_on = 864416191; 12 | var $root flags = ['variables, 'methods, 'code, 'fertile, 'core]; 13 | var $root inited = 1; 14 | var $root managed = [$help_obj]; 15 | var $root manager = $help_obj; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/realm_of_creation.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $realm_of_creation: $realm; 3 | 4 | var $has_name name = ['prop, "", ""]; 5 | var $realm links = #[]; 6 | var $realm local = [$the_pit]; 7 | var $root created_on = 796268969; 8 | var $root flags = ['methods, 'code, 'variables, 'core]; 9 | var $root inited = 1; 10 | var $root managed = [$realm_of_creation]; 11 | var $root manager = $realm_of_creation; 12 | var $root settings = #[["propagate", 0], ["map-position", 0]]; 13 | 14 | root method .core_realm_of_creation() { 15 | .set_realm_local([$the_pit]); 16 | }; 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/help_cmd_channel_add.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_channel_add: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@add-channel|@addcom", "@add-channel|@addcom"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 878187456; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_channel_add]; 13 | var $root manager = $help_cmd_channel_add; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_coldc_textdump.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_coldc_textdump: $help_coldc; 3 | 4 | var $has_name name = ['prop, "Textdump", "Textdump"]; 5 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[['this, $help_coldc_textdump]]]>; 6 | var $help_node index = $help_index_driver; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 854926711; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_coldc_textdump]; 13 | var $root manager = $help_coldc_textdump; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/mail_list_tracebacks.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mail_list_tracebacks: $mail_list; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "tracebacks", "tracebacks"]; 6 | var $mail_list last_received_on = 0; 7 | var $mail_list mail = []; 8 | var $mail_list notify = []; 9 | var $mail_list readers = 0; 10 | var $mail_list senders = [$no_one]; 11 | var $root created_on = 904830832; 12 | var $root flags = ['variables, 'methods, 'code, 'core]; 13 | var $root inited = 1; 14 | var $root managed = [$mail_list_tracebacks]; 15 | var $root manager = $mail_list_tracebacks; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/help_cmd_channel_acm.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_channel_acm: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@add-channel-manager|@acm", "@add-channel-manager|@acm"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 878187174; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_channel_acm]; 13 | var $root manager = $help_cmd_channel_acm; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_channel_dcm.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_channel_dcm: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@del-channel-manager|@dcm", "@del-channel-manager|@dcm"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 878187203; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_channel_dcm]; 13 | var $root manager = $help_cmd_channel_dcm; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_coldc_native.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_coldc_native: $help_coldc; 3 | 4 | var $has_name name = ['prop, "Native Method Reference", "Native Method Reference"]; 5 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[['this, $help_coldc_native]]]>; 6 | var $help_node index = $help_index_driver; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 854058134; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_coldc_native]; 13 | var $root manager = $help_coldc_native; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_channel_use_lock.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_channel_use_lock: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@use-lock-channel|@ulc", "@use-lock-channel|@ulc"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 878187316; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_channel_use_lock]; 13 | var $root manager = $help_cmd_channel_use_lock; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_name_templates.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_name_templates: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@name-templates|@templates", "@name-templates|@templates"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 878186751; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_name_templates]; 13 | var $root manager = $help_cmd_name_templates; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_channel_join_lock.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_channel_join_lock: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@join-lock-channel|@jlc", "@join-lock-channel|@jlc"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 878187263; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_channel_join_lock]; 13 | var $root manager = $help_cmd_channel_join_lock; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_channel_leave_lock.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_channel_leave_lock: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@leave-lock-channel|@llc", "@leave-lock-channel|@llc"]; 6 | var $help_node body = <$ctext_frob, [["This node isn't written yet"], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 878187289; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_channel_leave_lock]; 13 | var $root manager = $help_cmd_channel_leave_lock; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/logic_frob.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $logic_frob: $frob; 3 | 4 | var $logic_frob token = 0; 5 | var $root created_on = 796268969; 6 | var $root flags = ['methods, 'code, 'variables, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$logic_frob]; 9 | var $root manager = $logic_frob; 10 | var $root trusted = []; 11 | 12 | public method .set_token() { 13 | arg new; 14 | 15 | (> .perms(sender(), 'manager) <); 16 | token = new; 17 | }; 18 | 19 | public method .token() { 20 | return token; 21 | }; 22 | 23 | public method .try() { 24 | arg @args; 25 | 26 | return 0; 27 | }; 28 | 29 | 30 | -------------------------------------------------------------------------------- /src/pop3_connection.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $pop3_connection: $inbound_connection; 3 | 4 | var $connection buffer = `[]; 5 | var $connection interface = $pop3_interface; 6 | var $connection line_buffer = []; 7 | var $connection local_addr = ""; 8 | var $connection remote_addr = ""; 9 | var $connection tid = -1; 10 | var $connection timeout = 300; 11 | var $dmi_data descriptions = #[]; 12 | var $root created_on = 872047000; 13 | var $root flags = ['core, 'methods, 'variables, 'code]; 14 | var $root inited = 1; 15 | var $root managed = [$pop3_connection]; 16 | var $root manager = $pop3_connection; 17 | var $root quota_exempt = 1; 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/weather_snowy.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $weather_snowy: $weather; 3 | 4 | var $described prose = []; 5 | var $foundation msgs = #[["invoke", #[["general", <$ctext_frob, [["It starts to snow."], #[]]>]]]]; 6 | var $has_commands local = #[]; 7 | var $has_commands remote = #[]; 8 | var $has_commands shortcuts = #[]; 9 | var $has_name name = ['prop, "snowy", "snowy"]; 10 | var $root created_on = 855463379; 11 | var $root flags = ['variables, 'methods, 'code, 'core]; 12 | var $root inited = 1; 13 | var $root managed = [$weather_snowy]; 14 | var $root manager = $weather_snowy; 15 | var $root settings = #[["attributes", [5, 2, 4, 2, 3, 1]]]; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/help_cmd_mcp_upload.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_mcp_upload: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@mcp-upload-session", "@mcp-upload-session"]; 6 | var $help_node body = <$ctext_frob, [["This command is used in conjunction with the MCP editor, and should not normally be called by a user."], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 877037992; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_mcp_upload]; 13 | var $root manager = $help_cmd_mcp_upload; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/weather_windy.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $weather_windy: $weather; 3 | 4 | var $described prose = []; 5 | var $foundation msgs = #[["invoke", #[["general", <$ctext_frob, [["The wind blows in strong gusts."], #[]]>]]]]; 6 | var $has_commands local = #[]; 7 | var $has_commands remote = #[]; 8 | var $has_commands shortcuts = #[]; 9 | var $has_name name = ['prop, "stormy", "stormy"]; 10 | var $root created_on = 855462710; 11 | var $root flags = ['variables, 'methods, 'code, 'core]; 12 | var $root inited = 1; 13 | var $root managed = [$weather_windy]; 14 | var $root manager = $weather_windy; 15 | var $root settings = #[["attributes", [4, 3, 4, 3, 3, 3]]]; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/weather_rainy.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $weather_rainy: $weather; 3 | 4 | var $described prose = []; 5 | var $foundation msgs = #[["invoke", #[["general", <$ctext_frob, [["It starts to rain."], #[['this, $weather_rainy]]]>]]]]; 6 | var $has_commands local = #[]; 7 | var $has_commands remote = #[]; 8 | var $has_commands shortcuts = #[]; 9 | var $has_name name = ['prop, "rainy", "rainy"]; 10 | var $root created_on = 855463377; 11 | var $root flags = ['variables, 'methods, 'code, 'core]; 12 | var $root inited = 1; 13 | var $root managed = [$weather_rainy]; 14 | var $root manager = $weather_rainy; 15 | var $root settings = #[["attributes", [3, 3, 3, 3, 3, 1]]]; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/changelog.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $changelog: $file; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $root created_on = 906983169; 6 | var $root flags = ['variables, 'methods, 'code, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$changelog]; 9 | var $root manager = $changelog; 10 | 11 | public method .log() { 12 | arg entry; 13 | 14 | if (!($changelog_group.includes(caller()))) 15 | (> .perms(sender()) <); 16 | 17 | // just silently die if logs/ isn't there 18 | catch any { 19 | .fopen("logs/changelog", ">>"); 20 | .fwrite((("[" + time()) + "] ") + entry); 21 | .fclose(); 22 | } 23 | }; 24 | 25 | 26 | -------------------------------------------------------------------------------- /src/mail_admin.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $mail_admin: $mail_list; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "admin", "admin"]; 6 | var $mail_list last_received_on = 0; 7 | var $mail_list mail = []; 8 | var $mail_list notify = []; 9 | var $mail_list readers = 0; 10 | var $mail_list senders = 1; 11 | var $root created_on = 869072525; 12 | var $root flags = ['variables, 'methods, 'code, 'core]; 13 | var $root inited = 1; 14 | var $root managed = [$mail_admin]; 15 | var $root manager = $mail_admin; 16 | 17 | public method .list_is_readable_by() { 18 | arg who; 19 | 20 | return (> pass(who) <) || ($sys.is_admin(who)); 21 | }; 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/help_theme.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_theme: $help_coldcore; 3 | 4 | var $has_name name = ['prop, "Theme", "Theme"]; 5 | var $help_node body = <$ctext_frob, [["This node needs to be written, use @help-list and @help-write"], #[]]>; 6 | var $help_node index = $help_index_core; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 847060976; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_theme]; 13 | var $root manager = $help_theme; 14 | 15 | root method .core_help_theme() { 16 | .set_body(["This node needs to be written, use @help-list and @help-write"]); 17 | }; 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/help_cmd_backup.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_backup: $help_cmds; 3 | 4 | var $has_name name = ['prop, "@backup", "@backup"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["p", [], [], 'do_p]>, <$format, ["b", [], ["ADMIN COMMAND"], 'do_b]>, <$format, ["p", [], [], 'do_p]>, <$format, ["dfn", [], ["Syntax: @backup"], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "Start an asynchronous backup of the binary database."], #[]]>; 6 | var $help_node index = $help_index_cmds; 7 | var $help_node links = #[]; 8 | var $root created_on = 848119816; 9 | var $root flags = ['variables, 'methods, 'code, 'core]; 10 | var $root inited = 1; 11 | var $root managed = [$help_cmd_backup]; 12 | var $root manager = $help_cmd_backup; 13 | 14 | 15 | -------------------------------------------------------------------------------- /src/help_func_this.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_this: $help_funcs_task; 3 | 4 | var $has_name name = ['prop, "this()", "this()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["OBJNUM"], 'do_i]>, " this()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns the objnum of the current object."], #[['this, $help_func_this]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384459; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_this]; 13 | var $root manager = $help_func_this; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/introtut_path1.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $introtut_path1: $path; 3 | 4 | var $described prose = []; 5 | var $dmi_data descriptions = #[]; 6 | var $has_commands local = #[]; 7 | var $has_commands remote = #[]; 8 | var $has_commands shortcuts = #[]; 9 | var $has_name name = ['prop, "path_140", "path_140"]; 10 | var $path names = #[[$introtut_moving, ['prop, "east", "", []]], [$introtut_moving_1, ['prop, "west", "", []]]]; 11 | var $path ways = #[[$introtut_moving, $introtut_moving_1], [$introtut_moving_1, $introtut_moving]]; 12 | var $root created_on = 882834737; 13 | var $root flags = ['variables, 'methods, 'code, 'core]; 14 | var $root inited = 1; 15 | var $root managed = [$introtut_path1]; 16 | var $root manager = $introtut_path1; 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/help_cmd_quit.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_quit: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@quit", "@quit"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], ["Syntax: ", <$format, ["tt", [], ["@quit"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This command logs your current connection off the server. Any other connections you have to the server remain unaffected."], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 870926235; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_quit]; 13 | var $root manager = $help_cmd_quit; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/weather_nice.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $weather_nice: $weather; 3 | 4 | var $described prose = <$ctext_frob, [["The weather is nice. The sun is shining and all that."], #[['this, $weather_nice]]]>; 5 | var $foundation msgs = #[["invoke", #[["general", <$ctext_frob, [["The weather is clear and nice."], #[]]>]]]]; 6 | var $has_commands local = #[]; 7 | var $has_commands remote = #[]; 8 | var $has_commands shortcuts = #[]; 9 | var $has_name name = ['prop, "nice", "nice"]; 10 | var $root created_on = 855447987; 11 | var $root flags = ['variables, 'methods, 'code, 'core]; 12 | var $root inited = 1; 13 | var $root managed = [$weather_nice]; 14 | var $root manager = $weather_nice; 15 | var $root settings = #[["attributes", [1, 2, 2, 1, 1, 1]]]; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/introtut_path2.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $introtut_path2: $path; 3 | 4 | var $described prose = []; 5 | var $dmi_data descriptions = #[]; 6 | var $has_commands local = #[]; 7 | var $has_commands remote = #[]; 8 | var $has_commands shortcuts = #[]; 9 | var $has_name name = ['prop, "path_142", "path_142"]; 10 | var $path names = #[[$introtut_moving_1, ['prop, "stairs", "", ["d?own"]]], [$introtut_moving_2, ['prop, "stairs", "", ["u?p"]]]]; 11 | var $path ways = #[[$introtut_moving_1, $introtut_moving_2], [$introtut_moving_2, $introtut_moving_1]]; 12 | var $root created_on = 882834737; 13 | var $root flags = ['variables, 'methods, 'code, 'core]; 14 | var $root inited = 1; 15 | var $root managed = [$introtut_path2]; 16 | var $root manager = $introtut_path2; 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/help_cmd_mojo.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_mojo: $help_cmds; 3 | 4 | var $has_name name = ['prop, "@mojo", "@mojo"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["p", [], [], 'do_p]>, <$format, ["b", [], ["ADMIN COMMAND"], 'do_b]>, <$format, ["p", [], [], 'do_p]>, <$format, ["dfn", [], ["Syntax: ", <$format, ["tt", [], ["@mojo on|off"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "Used by an administrator to enable full system privileges."], #[]]>; 6 | var $help_node index = $help_index_cmds; 7 | var $help_node links = #[]; 8 | var $root created_on = 848119784; 9 | var $root flags = ['variables, 'methods, 'code, 'core]; 10 | var $root inited = 1; 11 | var $root managed = [$help_cmd_mojo]; 12 | var $root manager = $help_cmd_mojo; 13 | 14 | 15 | -------------------------------------------------------------------------------- /src/owner_lock_frob.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $owner_lock_frob: $lock_frob; 3 | 4 | var $root created_on = 847067045; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$owner_lock_frob]; 8 | var $root manager = $owner_lock_frob; 9 | 10 | public method .lock_name() { 11 | arg value, @type; 12 | 13 | return "owner:" + ((value[1]).name()); 14 | }; 15 | 16 | public method .new_lock() { 17 | arg obj; 18 | 19 | if (type(obj) != 'objnum) 20 | throw(~perm, "Argument is not a dbref."); 21 | return (); 22 | }; 23 | 24 | public method .try() { 25 | arg lock, obj; 26 | 27 | return ((lock[1]) in (obj.owners())) || ($sys.is_system(obj)); 28 | }; 29 | 30 | 31 | -------------------------------------------------------------------------------- /src/parent_lock_frob.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $parent_lock_frob: $lock_frob; 3 | 4 | var $root created_on = 856053423; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$parent_lock_frob]; 8 | var $root manager = $parent_lock_frob; 9 | 10 | public method .lock_name() { 11 | arg value, @type; 12 | 13 | return "parent:" + ((value[1]).name()); 14 | }; 15 | 16 | public method .new_lock() { 17 | arg obj; 18 | 19 | if (type(obj) != 'objnum) 20 | throw(~perm, "Argument is not a dbref."); 21 | return (); 22 | }; 23 | 24 | public method .try() { 25 | arg lock, obj; 26 | 27 | return (obj.has_ancestor(lock[1])) || ($sys.is_system(obj)); 28 | }; 29 | 30 | 31 | -------------------------------------------------------------------------------- /src/help_func_method.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_method: $help_funcs_task; 3 | 4 | var $has_name name = ['prop, "method()", "method()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["SYMBOL"], 'do_i]>, " method()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns the name of the current method, as a symbol."], #[['this, $help_func_method]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384457; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_method]; 13 | var $root manager = $help_func_method; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/filters.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $filters: $misc; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'core, 'variables]; 6 | var $root inited = 1; 7 | var $root managed = [$filters]; 8 | var $root manager = $filters; 9 | 10 | public method .compress() { 11 | arg input; 12 | var e, output; 13 | 14 | // only goes 1 element deep--sorry, anybody sending anything past that will 15 | // be shot. 16 | output = []; 17 | if (type(input) == 'list) { 18 | for e in (input) { 19 | if (type(e) == 'list) 20 | output += e; 21 | else 22 | output += [e]; 23 | } 24 | } else { 25 | output = [input]; 26 | } 27 | return output; 28 | }; 29 | 30 | 31 | -------------------------------------------------------------------------------- /src/user_parsers.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $user_parsers: $misc; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'fertile, 'core, 'variables]; 6 | var $root inited = 1; 7 | var $root managed = [$user_parsers]; 8 | var $root manager = $user_parsers; 9 | var $root trusted = []; 10 | var $user_parsers priority = 0; 11 | 12 | public method .parse() { 13 | arg user, str, next_parser, @other_parsers; 14 | 15 | // Minimum parser routine. 16 | return next_parser.parse(user, str, @other_parsers); 17 | }; 18 | 19 | public method .priority() { 20 | return priority || 1000; 21 | }; 22 | 23 | public method .set_priority() { 24 | arg new; 25 | 26 | (> .perms(sender(), 'manager) <); 27 | priority = new; 28 | }; 29 | 30 | 31 | -------------------------------------------------------------------------------- /src/help_func_objnum.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_objnum: $help_funcs_obj; 3 | 4 | var $has_name name = ['prop, "objnum()", "objnum()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["INTEGER"], 'do_i]>, " objnum()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns an integer representing the current object's object number."], #[['this, $help_func_objnum]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384457; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_objnum]; 13 | var $root manager = $help_func_objnum; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/indirect_lock_frob.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $indirect_lock_frob: $lock_frob; 3 | 4 | var $root created_on = 847067040; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$indirect_lock_frob]; 8 | var $root manager = $indirect_lock_frob; 9 | 10 | public method .lock_name() { 11 | arg value, @type; 12 | 13 | return "indirect:" + ((value[1]).name()); 14 | }; 15 | 16 | public method .new_lock() { 17 | arg obj; 18 | 19 | if (type(obj) != 'objnum) 20 | throw(~perm, "Argument is not a dbref."); 21 | return (); 22 | }; 23 | 24 | public method .try() { 25 | arg lock, obj; 26 | 27 | return ((lock[1]).try_indirect_lock(obj)) || ($sys.is_system(obj)); 28 | }; 29 | 30 | 31 | -------------------------------------------------------------------------------- /src/storyteller.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $storyteller: $builder; 3 | 4 | var $command_cache commands = 0; 5 | var $command_cache modules = []; 6 | var $command_cache shortcuts = 0; 7 | var $has_commands local = #[]; 8 | var $has_commands remote = #[]; 9 | var $has_commands shortcuts = #[]; 10 | var $has_name name = ['prop, "Storyteller", "Storyteller"]; 11 | var $located location = $body_cave; 12 | var $location contents = []; 13 | var $root created_on = 809928922; 14 | var $root flags = ['methods, 'code, 'variables, 'core]; 15 | var $root inited = 1; 16 | var $root managed = [$storyteller]; 17 | var $root manager = $storyteller; 18 | var $thing gender = $gender_neuter; 19 | var $user formatter = $plain_format; 20 | var $user password = "*"; 21 | var $user task_connections = #[]; 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/help_func_definer.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_definer: $help_funcs_task; 3 | 4 | var $has_name name = ['prop, "definer()", "definer()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["OBJNUM"], 'do_i]>, " definer()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns the objnum of the object which defines the current method."], #[['this, $help_func_definer]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384456; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_definer]; 13 | var $root manager = $help_func_definer; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_parents.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_parents: $help_funcs_obj; 3 | 4 | var $has_name name = ['prop, "parents()", "parents()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["LIST"], 'do_i]>, " parents()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns a list of the objnums for the parents of the current object."], #[['this, $help_func_parents]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384457; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_parents]; 13 | var $root manager = $help_func_parents; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_whereis.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_whereis: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@whereis|@where-is", "@whereis|@where-is"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["p", [], [], 'do_p]>, "Syntax: `", <$format, ["tt", [], ["@where-is [,...]"], 'do_tt]>, " ", <$format, ["np", [], [], 'do_np]>, "The command prints out the location of each user in the list. It only prints the realm, not the exact room."], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 870926362; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_whereis]; 13 | var $root manager = $help_cmd_whereis; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/inside_lock_frob.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $inside_lock_frob: $lock_frob; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$inside_lock_frob]; 8 | var $root manager = $inside_lock_frob; 9 | var $root trusted = []; 10 | 11 | public method .lock_name() { 12 | arg value, @type; 13 | 14 | return "inside:" + ((value[1]).name()); 15 | }; 16 | 17 | public method .new_lock() { 18 | arg obj; 19 | 20 | if (type(obj) != 'objnum) 21 | throw(~perm, "Argument is not a dbref."); 22 | return (); 23 | }; 24 | 25 | public method .try() { 26 | arg lock, obj; 27 | 28 | return ((lock[1]).contains(obj)) || ($sys.is_system(obj)); 29 | }; 30 | 31 | 32 | -------------------------------------------------------------------------------- /src/climate_creation.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $climate_creation: $climate; 3 | 4 | var $climate daylengths = [0, 2, 0, -2]; 5 | var $climate realm = $realm_of_creation; 6 | var $climate seasons = ["spring", "summer", "fall", "winter"]; 7 | var $climate weathers = #[[$weather_nice, [50, 40, 20, 10]], [$weather_hot, [30, 60, 10, 2]], [$weather_windy, [10, 5, 10, 15]], [$weather_stormy, [0, 10, 0, 0]], [$weather_rainy, [30, 20, 60, 40]], [$weather_snowy, [10, 1, 10, 40]]]; 8 | var $has_commands local = #[]; 9 | var $has_commands remote = #[]; 10 | var $has_commands shortcuts = #[]; 11 | var $root created_on = 839896989; 12 | var $root flags = ['variables, 'methods, 'code, 'core]; 13 | var $root inited = 1; 14 | var $root managed = [$climate_creation]; 15 | var $root manager = $climate_creation; 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/help_cmd_walk.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_walk: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "walk|go", "walk|go"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], ["Syntax: ", <$format, ["tt", [], ["walk|go "], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This is a basic movement command which is rarely used due to exits having builtin shortcuts which effectively call this command when you enter the exit's name."], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 877822538; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_walk]; 13 | var $root manager = $help_cmd_walk; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_methods.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_methods: $help_funcs_meth; 3 | 4 | var $has_name name = ['prop, "methods()", "methods()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["LIST"], 'do_i]>, " methods()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns a list of symbols naming each method defined on the current object."], #[['this, $help_func_methods]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384457; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_methods]; 13 | var $root manager = $help_func_methods; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_tick.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_tick: $help_funcs_task; 3 | 4 | var $has_name name = ['prop, "tick()", "tick()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["INTEGER"], 'do_i]>, " tick()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns the current system-wide tick. It exists for backwards compatibility, and should not be used."], #[['this, $help_func_tick]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384459; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_tick]; 13 | var $root manager = $help_func_tick; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/wrapped_format.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $wrapped_format: $plain_format; 3 | 4 | var $root created_on = 848777209; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$wrapped_format]; 8 | var $root manager = $wrapped_format; 9 | 10 | public method .format() { 11 | arg data, vars; 12 | var str, len, line, out; 13 | 14 | str = (> (._eval_ctext(data, vars))[1] <); 15 | if ((strlen(str) < 2) || (substr(str, strlen(str) - 1) != "\n")) 16 | str += "\n"; 17 | 18 | // ugly and inneficient--use a client people 19 | len = (vars['receiver]).linelen(); 20 | out = ""; 21 | for line in (explode(str, "\n")) 22 | out += (line.wrap_line(len, " ")) + "\n"; 23 | return str_to_buf(out); 24 | }; 25 | 26 | 27 | -------------------------------------------------------------------------------- /src/help_cmd_boot.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_boot: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@boot", "@boot"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], ["Syntax: ", <$format, ["tt", [], ["@boot | "], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "@boot notifies the player or object specified that it is being returned to it's home, and does so if the player that invoked the command is allowed to do the action."], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 870563995; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_boot]; 13 | var $root manager = $help_cmd_boot; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_tasks.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_tasks: $help_funcs_task; 3 | 4 | var $has_name name = ['prop, "tasks()", "tasks()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["LIST"], 'do_i]>, " tasks()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns a list of integers, where each integer is the task id for a currently suspended or preempted task."], #[['this, $help_func_tasks]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384459; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_tasks]; 13 | var $root manager = $help_func_tasks; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_quota.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_quota: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@quota", "@quota"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["p", [], [], 'do_p]>, <$format, ["b", [], ["PROGRAMMER COMMAND"], 'do_b]>, <$format, ["p", [], [], 'do_p]>, "Syntax: ", <$format, ["tt", [], ["@quota to "], 'do_tt]>, <$format, ["p", [], [], 'do_p]>, "This command sets an objects quota to either a numeric amount or exempt or non-exempt."], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 887772510; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_quota]; 13 | var $root manager = $help_cmd_quota; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_children.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_children: $help_funcs_obj; 3 | 4 | var $has_name name = ['prop, "children()", "children()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["LIST"], 'do_i]>, " children()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns a list of object numbers for the children of the current object, in no particular order."], #[['this, $help_func_children]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384455; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_children]; 13 | var $root manager = $help_func_children; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_add_parent.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_add_parent: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@add-parent", "@add-parent"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["p", [], [], 'do_p]>, <$format, ["b", [], ["PROGRAMMER COMMAND"], 'do_b]>, <$format, ["p", [], [], 'do_p]>, <$format, ["dfn", [], ["Syntax: ", <$format, ["tt", [], ["@add-p?arent|@ap [to] "], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "@add-parent adds to the list of parents that the object has."], #[]]>; 7 | var $help_node links = #[]; 8 | var $root created_on = 869369522; 9 | var $root flags = ['variables, 'methods, 'code, 'core]; 10 | var $root inited = 1; 11 | var $root managed = [$help_cmd_add_parent]; 12 | var $root manager = $help_cmd_add_parent; 13 | 14 | 15 | -------------------------------------------------------------------------------- /src/help_cmd_channel_purge.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_channel_purge: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@purge-channel", "@purge-channel"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["p", [], [], 'do_p]>, <$format, ["dfn", [], ["Syntax: ", <$format, ["tt", [], ["@purge-channel "], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "Removes a channel from the world, but only if you are the channel manager.", <$format, ["p", [], [], 'do_p]>], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 878187342; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_channel_purge]; 13 | var $root manager = $help_cmd_channel_purge; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_look.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_look: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "look|examine", "look|examine"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], ["Syntax: ", <$format, ["tt", [], ["look|examine "], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This command displays your current surroundings including the description and contents of the location; or the description and contents of the object you are looking at."], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 870926567; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_look]; 13 | var $root manager = $help_cmd_look; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_strlen.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_strlen: $help_funcs_str; 3 | 4 | var $has_name name = ['prop, "strlen()", "strlen()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["INTEGER"], 'do_i]>, " strlen(", <$format, ["i", [], ["STRING string"], 'do_i]>, ")"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns the length of ", <$format, ["i", [], ["string"], 'do_i]>, "."], #[['this, $help_func_strlen]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384458; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_strlen]; 13 | var $root manager = $help_func_strlen; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_chparent.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_chparent: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@chparents", "@chparents"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["p", [], [], 'do_p]>, <$format, ["b", [], ["PROGRAMMER COMMAND"], 'do_b]>, <$format, ["p", [], [], 'do_p]>, <$format, ["dfn", [], ["Syntax: ", <$format, ["tt", [], ["@chpar?ents to [, ,...] "], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "Changes the parents for ."], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 870586634; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_chparent]; 13 | var $root manager = $help_cmd_chparent; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_buflen.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_buflen: $help_funcs_buf; 3 | 4 | var $has_name name = ['prop, "buflen()", "buflen()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["INTEGER"], 'do_i]>, " buflen(", <$format, ["i", [], ["BUFFER buf"], 'do_i]>, ")"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns the length of the buffer ", <$format, ["i", [], ["buf"], 'do_i]>, "."], #[['this, $help_func_buflen]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384455; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_buflen]; 13 | var $root manager = $help_func_buflen; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_listlen.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_listlen: $help_funcs_list; 3 | 4 | var $has_name name = ['prop, "listlen()", "listlen()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["INTEGER"], 'do_i]>, " listlen(", <$format, ["i", [], ["LIST list"], 'do_i]>, ")"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns the length of ", <$format, ["i", [], ["list"], 'do_i]>, "."], #[['this, $help_func_listlen]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384457; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_listlen]; 13 | var $root manager = $help_func_listlen; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_shutdown.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_shutdown: $help_funcs_sys; 3 | 4 | var $has_name name = ['prop, "shutdown()", "shutdown()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["INTEGER"], 'do_i]>, " shutdown()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function completes all of the current tasks, synchronizes the database, flushes all output and shuts down the server."], #[['this, $help_func_shutdown]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855385300; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_shutdown]; 13 | var $root manager = $help_func_shutdown; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/realm_base_eval.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $realm_base_eval: $bs_eval; 3 | 4 | var $root created_on = 847528368; 5 | var $root flags = ['variables, 'methods, 'code, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$realm_base_eval]; 8 | var $root manager = $realm_base_eval; 9 | 10 | public method .gen_daynight() { 11 | arg vars, flags, args; 12 | var v, i, len, n; 13 | 14 | v = vars['daytime]; 15 | return [[tostr(v[3])], vars]; 16 | }; 17 | 18 | public method .gen_hour() { 19 | arg vars, flags, args; 20 | var v, i, len, n; 21 | 22 | v = vars['daytime]; 23 | return [[tostr(v[1])], vars]; 24 | }; 25 | 26 | public method .gen_light() { 27 | arg vars, flags, args; 28 | var v, i, len, n; 29 | 30 | v = vars['daytime]; 31 | return [[tostr(v[2])], vars]; 32 | }; 33 | 34 | 35 | -------------------------------------------------------------------------------- /src/object_lock_frob.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $object_lock_frob: $lock_frob; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root managed = [$object_lock_frob]; 7 | var $root manager = $object_lock_frob; 8 | 9 | public method .lock_name() { 10 | arg value, @type; 11 | 12 | return (value[1]).name(); 13 | }; 14 | 15 | public method .new_lock() { 16 | arg obj; 17 | 18 | if (type(obj) != 'objnum) 19 | throw(~perm, "Argument is not a dbref."); 20 | return (); 21 | }; 22 | 23 | public method .try() { 24 | arg lock, obj; 25 | 26 | return ((lock[1]) == obj) || ((obj == sender()) || ($sys.is_system(obj))); 27 | }; 28 | 29 | frob method .unparse() { 30 | arg obj; 31 | 32 | return toliteral(obj[1]); 33 | }; 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/help_cmd_kick.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_kick: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@kick", "@kick"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["p", [], [], 'do_p]>, <$format, ["b", [], ["ADMIN COMMAND"], 'do_b]>, <$format, ["p", [], [], 'do_p]>, <$format, ["dfn", [], ["Syntax: ", <$format, ["tt", [], ["@kick "], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This command destroys all of a user's current login connections, effectively disconnecting them from the server."], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 878512086; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_kick]; 13 | var $root manager = $help_cmd_kick; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/tagged_format.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $tagged_format: $plain_format; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $root created_on = 888336074; 6 | var $root flags = ['variables, 'methods, 'code, 'core]; 7 | var $root inited = 1; 8 | var $root managed = [$tagged_format]; 9 | var $root manager = $tagged_format; 10 | 11 | public method .do_dt() { 12 | arg vars, flags, args; 13 | 14 | vars = vars.add('header, ""); 15 | [args, vars] = ._eval_ctext(args, vars); 16 | if ((| vars['columned] |)) 17 | return ["\n ", vars.add('header, pad(" " + args, 25 + ((args.length()) - ((.tag_text(args)).length()))))]; 18 | else 19 | return [("\n " + args) + "\n", vars.add('header, "")]; 20 | }; 21 | 22 | public method .tag_text() { 23 | arg text; 24 | 25 | throw(~override, "Override me!!!"); 26 | }; 27 | 28 | 29 | -------------------------------------------------------------------------------- /src/help_func_toerr.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_toerr: $help_funcs_data; 3 | 4 | var $has_name name = ['prop, "toerr()", "toerr()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["ERROR"], 'do_i]>, " toerr(", <$format, ["i", [], ["SYMBOL errname"], 'do_i]>, ")"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function converts the argument specified by ", <$format, ["i", [], ["errname"], 'do_i]>, " to an error code."], #[['this, $help_func_toerr]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384459; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_toerr]; 13 | var $root manager = $help_func_toerr; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_cmd_exits.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_exits: $help_cmds; 3 | 4 | var $dmi_data descriptions = #[]; 5 | var $has_name name = ['prop, "@ways|@exits", "@ways|@exits"]; 6 | var $help_node body = <$ctext_frob, [[<$format, ["p", [], [], 'do_p]>, "Syntax: '", <$format, ["tt", [], ["@ways"], 'do_tt]>, "' ", <$format, ["np", [], [], 'do_np]>, "@ways command prints the exits from the current room. Its exact formatting depends on the ", <$format, ["tt", [], ["exit-style"], 'do_tt]>, " setting on the player (can be one of none, brief, template?s, long or verbose)."], #[]]>; 7 | var $help_node index = $help_index_cmds; 8 | var $help_node links = #[]; 9 | var $root created_on = 870926312; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_cmd_exits]; 13 | var $root manager = $help_cmd_exits; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/lost_and_found.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $lost_and_found: $in_location; 3 | 4 | var $command_cache commands = 0; 5 | var $command_cache modules = []; 6 | var $command_cache shortcuts = 0; 7 | var $described prose = []; 8 | var $has_commands local = #[]; 9 | var $has_commands remote = #[]; 10 | var $has_commands shortcuts = #[]; 11 | var $has_name name = ['prop, "Lost and Found box", "Lost and Found box"]; 12 | var $located location = $void; 13 | var $located obvious = 1; 14 | var $location contents = []; 15 | var $root created_on = 806811775; 16 | var $root flags = ['methods, 'code, 'variables, 'core]; 17 | var $root inited = 1; 18 | var $root managed = [$lost_and_found]; 19 | var $root manager = $lost_and_found; 20 | var $root settings = #[["home", $lost_and_found]]; 21 | var $thing gender = $gender_neuter; 22 | var $thing lock = <$object_lock_frob, [$void]>; 23 | 24 | 25 | -------------------------------------------------------------------------------- /src/plain_page.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $plain_page: $page, $note; 3 | 4 | var $described prose = []; 5 | var $dmi_data descriptions = #[]; 6 | var $has_commands local = #[]; 7 | var $has_commands remote = #[]; 8 | var $has_commands shortcuts = #[]; 9 | var $has_name name = ['prop, "plain_page", "plain_page"]; 10 | var $has_text text = []; 11 | var $located location = $void; 12 | var $located obvious = 1; 13 | var $root created_on = 863765676; 14 | var $root credit = ["Brad Roberts ", "Bruce Mitchener, Jr. "]; 15 | var $root flags = ['variables, 'methods, 'code, 'core]; 16 | var $root inited = 1; 17 | var $root managed = [$plain_page]; 18 | var $root manager = $plain_page; 19 | var $thing gender = $gender_neuter; 20 | 21 | public method .generate() { 22 | arg header, info, args; 23 | 24 | return [.text()]; 25 | }; 26 | 27 | 28 | -------------------------------------------------------------------------------- /src/help_func_caller.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_caller: $help_funcs_task; 3 | 4 | var $has_name name = ['prop, "caller()", "caller()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["OBJNUM"], 'do_i]>, " caller()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns the objnum of the object which defines the method which called the current method. If the current method was called by the driver zero (0) is returned instead."], #[['this, $help_func_caller]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384455; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_caller]; 13 | var $root manager = $help_func_caller; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_fclose.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_fclose: $help_funcs_file; 3 | 4 | var $has_name name = ['prop, "fclose()", "fclose()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["INTEGER"], 'do_i]>, " fclose()"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function closes the file on the current object and returns one (1). If no file is open on the current object, the error ", <$format, ["tt", [], ["~file"], 'do_tt]>, " is thrown."], #[['this, $help_func_fclose]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384456; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_fclose]; 13 | var $root manager = $help_func_fclose; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/void.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $void: $place; 3 | 4 | var $command_cache commands = 0; 5 | var $command_cache modules = []; 6 | var $command_cache shortcuts = 0; 7 | var $described prose = ["A place existing for the soul purpose of doing so, when it wishes be."]; 8 | var $event_handler hooks = #[]; 9 | var $has_name name = ['uniq, "Void", "the Void"]; 10 | var $location contents = [$thing, $lost_and_found, $thing_frob, $trash, $located_location, $note, $slate, $generic_map, $plain_page, $nothing, $body, $wearable]; 11 | var $place entrances = []; 12 | var $place exits = []; 13 | var $place realm = $realm_of_creation; 14 | var $root created_on = 796268969; 15 | var $root flags = ['methods, 'code, 'variables, 'core]; 16 | var $root inited = 1; 17 | var $root managed = [$void]; 18 | var $root manager = $void; 19 | var $root settings = #[["propagate", 0], ["map-position", 0]]; 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/help_func_valid.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_valid: $help_funcs_data; 3 | 4 | var $has_name name = ['prop, "valid()", "valid()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["INTEGER"], 'do_i]>, " valid(", <$format, ["i", [], ["OBJNUM objnum"], 'do_i]>, ")"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function returns one (true) if the object pointed to by ", <$format, ["i", [], ["objnum"], 'do_i]>, " exists, or zero (false) if it does not."], #[['this, $help_func_valid]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384460; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_valid]; 13 | var $root manager = $help_func_valid; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/not_lock_frob.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $not_lock_frob: $not; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root managed = [$not_lock_frob]; 7 | var $root manager = $not_lock_frob; 8 | 9 | public method .lock_name() { 10 | arg lock, @type; 11 | 12 | [(type ?= 'literal)] = type; 13 | switch (type) { 14 | case 'literal: 15 | return ("(!" + ((lock[1]).lock_name(type))) + ")"; 16 | default: 17 | return "not " + ((lock[1]).lock_name(type)); 18 | } 19 | }; 20 | 21 | public method .new_lock() { 22 | arg lock; 23 | 24 | if (type(lock) != 'frob) 25 | throw(~perm, "Argument is not a lock."); 26 | return (); 27 | }; 28 | 29 | public method .try() { 30 | arg lock, obj; 31 | 32 | return !((lock[1]).try(obj)); 33 | }; 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/help_cmds.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmds: $help_core; 3 | 4 | var $has_name name = ['prop, "Commands", "Commands"]; 5 | var $help_node body = <$ctext_frob, [["This node is simply a place holder, and should not be linked in through an index or anything. If you see it, something has gone wrong."], #[['this, $help_cmds]]]>; 6 | var $help_node group = 1; 7 | var $help_node holder = 1; 8 | var $help_node links = #[]; 9 | var $help_node nolist = 1; 10 | var $root created_on = 847128224; 11 | var $root flags = ['variables, 'methods, 'code, 'core, 'fertile]; 12 | var $root inited = 1; 13 | var $root managed = [$help_cmds]; 14 | var $root manager = $help_cmds; 15 | 16 | public method .nolist() { 17 | arg @args; 18 | 19 | // all 'command' nodes are nolist 20 | return 1; 21 | }; 22 | 23 | public method .top_of_help_hierarchy() { 24 | return definer() == this(); 25 | }; 26 | 27 | 28 | -------------------------------------------------------------------------------- /src/help_func_fremove.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_fremove: $help_funcs_file; 3 | 4 | var $has_name name = ['prop, "fremove()", "fremove()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["INTEGER"], 'do_i]>, " fremove(", <$format, ["i", [], ["STRING path"], 'do_i]>, ")"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function removes a file. If the argument ", <$format, ["i", [], ["path"], 'do_i]>, " is given, it will attempt to remove that file."], #[['this, $help_func_fremove]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384456; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_fremove]; 13 | var $root manager = $help_func_fremove; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/help_func_toliteral.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_func_toliteral: $help_funcs_data; 3 | 4 | var $has_name name = ['prop, "toliteral()", "toliteral()"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["dfn", [], [<$format, ["tt", [], [<$format, ["i", [], ["STRING"], 'do_i]>, " toliteral(", <$format, ["i", [], ["ANY data"], 'do_i]>, ")"], 'do_tt]>], 'do_dfn]>, <$format, ["p", [], [], 'do_p]>, "This function converts any data to a literal representation of itself, which, if re-compiled, would result in the same data."], #[['this, $help_func_toliteral]]]>; 6 | var $help_node index = $help_index_function; 7 | var $help_node links = #[]; 8 | var $help_node nolist = 0; 9 | var $root created_on = 855384459; 10 | var $root flags = ['variables, 'methods, 'code, 'core]; 11 | var $root inited = 1; 12 | var $root managed = [$help_func_toliteral]; 13 | var $root manager = $help_func_toliteral; 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/not.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $not: $logic_frob; 3 | 4 | var $root created_on = 796268969; 5 | var $root flags = ['methods, 'code, 'variables, 'core]; 6 | var $root inited = 1; 7 | var $root managed = [$not]; 8 | var $root manager = $not; 9 | var $root trusted = []; 10 | 11 | public method .test() { 12 | arg notlist, @args; 13 | var val; 14 | 15 | catch ~range { 16 | catch ~type, ~methodnf 17 | return !((notlist[1]).test(@args)); 18 | with 19 | return !(notlist[1]); 20 | } with { 21 | return 1; 22 | } 23 | }; 24 | 25 | frob method .unparse() { 26 | arg notlist; 27 | 28 | catch any { 29 | catch ~type, ~methodnf 30 | return "NOT " + ((notlist[1]).unparse()); 31 | with 32 | return "NOT " + tostr(notlist[1]); 33 | } with { 34 | return ""; 35 | } 36 | }; 37 | 38 | 39 | -------------------------------------------------------------------------------- /src/help_cmd_dnt.cdc: -------------------------------------------------------------------------------- 1 | 2 | new object $help_cmd_dnt: $help_cmds; 3 | 4 | var $has_name name = ['prop, "@dnt|@del-name-template", "@dnt|@del-name-template"]; 5 | var $help_node body = <$ctext_frob, [[<$format, ["p", [], [], 'do_p]>, "Syntax: `", <$format, ["tt", [], ["@dnt|@del-name-template