1314 {0, 890522943, {"File Editor", #-1, {#52, #6, #3, #2, #1}, {}, #7165, 1, 0, 0, 0 , 0, 0, {}}, {{#1, {{#7165, "", "filelist", {}}, {#8084, "r", "obj_disk_size", 0 }}}, {#2, {{#789, "r", "www_counter", 55}, {#60, "r", "aliases", {"File Editor"} }}}, {#3, {}}, {#6, {{#7165, "rc", "help_db", 0}, {#7165, "rc", "who_location_ms g", "%1 [editing files]"}}}, {#52, {{#7165, "rc", "edit_msg_prefix", "file"}, {# 60, "r", "original", {#8888, #2005}}, {#60, "", "inserting", {3, 14}}, {#60, "", "changes", {{}, {"", "", "", "", "", " SchoolNet MOO Info Line ", "", "Welcome to the School Net MOO Info Line.", "
", "Please make a selection.", "
", "
To find out more about the School Net MOO
"}}}, {#60, "r", "a ctive", {#6656, #8424}}, {#60, "", "texts", {{"Whee ha!", "tada"}, {"", "< head>", "" , "", "", " SchoolNet MOO Info Line ", "", "Welcome to the School Net MOO Info Line.", "
", "Please make a selection.", "
", "
To find out more about the School Net MOO
", "
"}}}, {#7165, "rc", "no_littering_msg", { "Psst, wanna buy a duck?", "", "Oh yeah, leaving a file on the ground is general ly a $bad_thing, eh?"}}, {#60, "r", "stateprops", {{"fnames", 0}, {"paths", 0}, {"texts", 0}, {"changes", 0}, {"inserting", 1}, {"readable", 0}}}, {#60, "r", "i nvoke_task", 0}, {#60, "r", "times", {879611338, 887153608}}, {#60, "r", "readab le", {0, 0}}}}, {#51, {{#7165, "rc", "paths", {"/1/6/7/2", "/5/4/3/2"}}, {#7165, "rc", "fnames", {"text", "main.pml"}}}}}, {{#3135, "rxdo", "parse_invoke", "thi s", "none", "this", "fqp = argstr;", "if (!player.wizard || index(fqp, \"!\"))", " fname = fqp[index(fqp, \"!\") + 1..$];", " try", " path = (z = player:my _match_object(fqp[1..index(fqp, \"!\") - 1])):basedir();", " except (E_INVIND)" , " return player:tell(\"I don't see any '\", fqp[1..index(fqp, \"!\") - 1], \"' here.\") && 0;", " endtry", " try", " if (z:fileaccess(fname) == \"\" & & !$perm_utils:controls(player, z))", " return player:tell(\"Permission den ied.\") && 0;", " endif", " except (E_INVARG)", " return player:tell(\"Fi le not found.\") && 0;", " endtry", "else", " if (r = rindex(fqp, \"/\"))", " fname = fqp[r + 1..$];", " path = fqp[1..r - 1];", " else", " path = p layer.cwd;", " fname = fqp;", " endif", "endif", "if (typeof(zz = `fileread( path, fname) ! ANY') == ERR)", " return player:tell(\"Error reading file: \", z z, \" (\", fileerror(), \")\");", "endif", "return {path, fname, zz};"}, {#3135, "rxdo", "working_on", "this", "none", "this", "\"Copied from Verb Editor (#50): working_on by Hacker (#38) Aug 18 03:05:04 1996\";", "if (!(corrupt = this:ok(wh o = args[1])))", " return corrupt;", "else", " {path, fname} = {this.paths[who ], this.fnames[who]};", " if (!player.wizard)", " return tostr(\"#\", strsub (path, \"/\", \"\"), \"!\", fname);", " endif", " return path + \"/\" + fname; ", "endif"}, {#3135, "rxdo", "init_session", "this", "none", "this", "{who, path , fname, text} = args;", "if (this:ok(who))", " this.paths[who] = path;", " th is.fnames[who] = fname;", " this:load(who, text);", " this.active[who]:tell(\" Now editing \", this:working_on(who), \".\");", "endif"}, {#7165, "rdo", "com*pi le save", "none", "any", "any", "\"Copied from Note Editor (#49):com by Hacker ( #38) Aug 18 03:13:48 1996\";", "if (!(who = this:loaded(player)))", " player:te ll(this:nothing_loaded_msg());", " return;", "elseif (!dobjstr)", " fname = th is.fnames[who];", " object = toobj(strsub(this.paths[who], \"/\", \"\"));", "el se", " player:tell(\"Saving as another file or property isn't supported yet in the file editor.\");", " return;", "endif", "text = this:text(who);", "text || (text = {});", "if (!player:controls(object))", " return player:tell(E_PERM, \" . You cannot modify the files on that object.\");", "endif", "$file_utils:delet e_cache(this.paths[who], fname);", "if ((result = `object:filewrite(fname, text) ! ANY') != 0)", " player:tell(\"Text not saved to \", this:working_on(who), \" : \", result);", " if (!dobjstr)", " player:tell(\"Use `save' with an argum ent to save the text elsewhere.\");", " endif", "else", " player:tell(\"Text w ritten to \", this:working_on(who), \".\");", " if (!player.wizard || object != #0)", " object:_obj_disk_size(1);", " endif", " this:set_changed(who, 0);" , "endif"}}, {{#53, "_recycle", #55, #53, #789}, {#789, "_recycle", #789, #4, #7 89}, {#789, "@recycle", #55, #12, #789}}} . 0