View/Edit #5450:say_cmd

Switch to edit mode.

1:  if (!(caller_perms() == #7407 || $perm_utils:controls(caller_perms(), this)))
2:    return E_PERM
3:  endif
4:  argstr = $string_utils:from_list(args, "")
5:  if ($object_utils:isa(this.location, #1606))
6:    if (argstr[length(argstr)] == "?")
7:      msg = this.location:msg_oquestion()
8:      you = this.location:msg_question()
9:    elseif (argstr[length(argstr)] == "!")
10:     msg = this.location:msg_oexclaim()
11:     you = this.location:msg_exclaim()
12:   else
13:     msg = this.location:msg_osay()
14:     you = this.location:msg_say()
15:   endif
16: elseif ($object_utils:isa(this.location, $room))
17:   msg = this.location:msg_osay()
18:   you = this.location:msg_say()
19: else
20:   msg = #3:msg_osay()
21:   you = #3:msg_say()
22: endif
23: msg = $string_utils:subst(msg, {{"%n", this:title()}})
24: this:sub_announce_all_but({this}, msg, argstr)
25: this:sub_tell(you, argstr)
26: "Last modified by manta (#7165) on Fri Sep 11 05:10:07 1998 EDT."

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