@verb #7165:"receive_page" this none this rxdo #55
@program #7165:"receive_page" this none this
"Copied from Generic Player (#12):receive_page by Slacker (#55)Jun 20 13:59:14 2002"
"Return codes:"
"  1:  page was received"
"  2:  player is not connected"
"  0:  page refused"
"If a specialization wants to refuse a page, it should return 0 to say it was refused. This code now uses is_listening(), and thus does interact with the gagging system, returning a refusal if this object is not listening to the player."
this:sub_tell(@args)
user = caller_perms()
for x in (callers())
  if (x[1] != this && is_player(x[1]))
    user = x[1]
    break
  endif
endfor
if (!this:connected(0))
  "Try Jabber..."
  return $jabber:receive_page(this, @args)
endif
return this:is_listening() ? 1 | (this:connected(0) ? 0 | 2)
"Last modified by Dax (#789) on Thu May  5 15:18:29 2005 MDT."
.