View/Edit #5544:notify

Switch to edit mode.

1:  $command_utils:suspend_if_needed()
2:  if (this == #5544 || this == #5450)
3:    return
4:  endif
5:  if (this.owner:connected() && (this.listening == 2 || (this.listening && this.location != this.owner.location)))
6:    if (typeof(args[1]) == $LIST)
7:      for x in (args[1])
8:        this:(verb)(x)
9:      endfor
10:   else
11:     if (this.owner != this)
12:       this.owner:sub_tell(this:msg_notify_prefix(), tostr(@args))
13:     else
14:       pass(@args)
15:     endif
16:   endif
17: endif
18: if (this.following && this.owner.location != this.location && !this.follow_task)
19:   fork f (this.follow_wait)
20:     try
21:       if (this.owner.location:accept(this))
22:         this:moveto_loud(this.owner.location)
23:       endif
24:     finally
25:       this.follow_task = 0
26:     endtry
27:   endfork
28:   this.follow_task = f
29: endif
30: "Last modified by Dax (#789) on Tue May  3 13:45:06 2005 MDT."

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