View/Edit #12:do_out_of_band_command

Switch to edit mode.

Name(s): do_out_of_band_command
1:  "Execute an out of band command starting with #$#"
2:  caller == $login || raise(E_PERM)
3:  {command, @arguments} = args
4:  oob = "#$#"
5:  if (length(command) != length(oob))
6:    arguments = {command[length(oob) + 1..$], @arguments}
7:  endif
8:  if (!arguments)
9:    E_NONE
10: elseif (arguments[1] == "xch_menu" && length(arguments) > 2)
11:   {command, key, @arguments} = arguments
12:   argument = $su:from_list(arguments, " ")
13:   result = $no_one:eval(argument)
14:   if (result[1])
15:     notify(player, key + " " + toliteral(result[2]))
16:   else
17:     raise(E_INVARG, result[2], argument)
18:   endif
19: elseif (arguments[1] == "authentication-key")
20:   this.mcp_key = arguments[2][1] == "<" ? arguments[2][2..$ - 1] | arguments[2]
21: elseif (arguments == {"client-options", "mcp-edit"})
22:   this.edit_options = setadd(this.edit_options, "mcp_edit")
23: endif
24: "Last modified by Dax (#789) on Sat Dec 17 14:04:51 2005 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Lao-Tzu (#8084)

You are not logged in.

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