View/Edit #50:local_editing_info

Switch to edit mode.

1:  if (caller == $verb_editor)
2:    set_task_perms(player)
3:  endif
4:  object = args[1]
5:  vname = args[2]
6:  if (typeof(vname) == $LIST)
7:    vargs = tostr(" ", vname[2], " ", $code_utils:short_prep(vname[3]), " ", vname[4])
8:    vname = vname[1]
9:  else
10:   vargs = ""
11: endif
12: code = args[3]
13: name = tostr(object.name, ":", vname)
14: "... so the next 2 lines are actually wrong, since verb_info won't"
15: "... necessarily retrieve the correct verb if we have more than one"
16: "... matching the given same name; anyway, if parse_invoke understood vname,"
17: "... so will @program.  I suspect these were put here because in the"
18: "... old scheme of things, vname was always a number."
19: "vname = strsub($string_utils:explode(verb_info(object, vname)[3])[1], \"*\", \"\")"
20: "vargs = verb_args(object, vname)"
21: ""
22: return {name, code, tostr("@program ", object, ":", vname, vargs)}
23: "Last modified by Dax (#789) on Tue May  3 13:45:02 2005 MDT."

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