View/Edit #12:@edit 2edit

Switch to edit mode.

Name(s): @edit 2edit
1:  "Copied from Dax (#789):2edit by Hacker (#38) Jul 22 18:04:16 1997"
2:  actives = {}
3:  for x in ({$note_editor, $verb_editor, $mail_editor})
4:    if (x:loaded(player))
5:      actives = {@actives, x}
6:    endif
7:  endfor
8:  if (player != this)
9:    $msg:mtell("huh")
10: elseif (dobjstr)
11:   "Are we going to edit a verb or a property/file/note?"
12:   if ($code_utils:parse_verbref(dobjstr))
13:     if (player:isa($prog))
14:       this:("@verbedit")()
15:     else
16:       player:tell("Sorry, you need to be a programmer to edit verbs.")
17:     endif
18:   else
19:     this:("@notedit")()
20:   endif
21: elseif (length(actives) == 1)
22:   actives[1]:invoke(argstr, "@edit")
23: else
24:   "Display a chart of current editor acitvity."
25:   data = {{"Command", "Working on", "Modified", "Since"}}
26:   for x in ({{"@notedit", $note_editor}, {"@verbedit", $verb_editor}, {"@send", $mail_editor}})
27:     if (who = x[2]:loaded(player))
28:       data = {@data, {x[1], x[2]:working_on(who), x[2]:changed(who) ? "Yes" | "No", player:ctime(x[2].times[who])}}
29:     else
30:       data = {@data, {x[1], "---", "---", "---"}}
31:     endif
32:   endfor
33:   this:tellColumns(3, {3, 1, 2, 2}, @data)
34: endif
35: "Last modified by Lao-Tzu (#8084) on Tue Jan 12 20:38:53 1999 MST."

Verb arguments: any any any
Verb perms: Readable NOT-Debug
Verb owned by: Hacker (#60)

You are not logged in.

[home | help | who | search | setup | code]