View/Edit #7854:subscribed subscribed_notify

Name(s): subscribed subscribed_notify

1:  "This isn't fully functional yet. -Ben"
2:  ng = args[1]
3:  if (!typeof(ng) == $OBJ || !valid(ng))
4:    return E_INVARG
5:  endif
6:  if (verb == "subscribed_notify")
7:    people = ng.mail_notify
8:    "Just to make sure all the entries are valid."
9:    for x in (people)
10:     if (!valid(x))
11:       people = setremove(people, x)
12:     endif
13:   endfor
14:   return LIST
15: endif
16: "Oh My God, this is going to be some intensive code... there has got to be"
17: "a simpler way of getting this to work.  WIZ-Perms and suspends... blech."
18: people = {}
19: for person in (players())
20:   for x in (person.current_message)
21:     if (typeof(x) == $LIST)
22:       if (x[1] == ng)
23:         people = setadd(people, person)
24:       endif
25:     endif
26:     $cmd_utils:suspend_if_needed(0)
27:   endfor
28:   $cmd_utils:suspend_if_needed(0)
29: endfor
30: "Last modified by Dax (#789) on Tue May  3 13:49:43 2005 MDT."

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

You are not logged in.