View/Edit #1984:do_notifies

Name(s): do_notifies

1:  caller == this || raise(E_PERM)
2:  {category, priority, message, guardianly, wizardly} = args
3:  to_notify = {}
4:  for x in (this.(category))
5:    if (tofloat(priority) >= tofloat(x[2]) && (guardianly <= x[1]:isa($guardian) && wizardly <= x[1].wizard))
6:      to_notify = setadd(to_notify, x[1])
7:    endif
8:    $command_utils:suspend_if_needed()
9:  endfor
10: for x in (to_notify)
11:   x:tell("*** ", category, ": ", message, " (", priority, ")")
12:   $command_utils:suspend_if_needed()
13: endfor
14: "Last modified by Dax (#789) on Mon Dec 10 20:58:33 2001 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: manta (#7165)

You are not logged in.