29b
@verb #6319:"receive_page" this none this rxdo #6319
@program #6319:"receive_page" this none this
if (length(args) > 1)
  fork (1)
    this:record(args[2], player, time())
  endfork
endif
this.last_paged_by = player
if (!this.isolate)
  p = `args[1][1] ! E_RANGE => ""'
  this:sub_tell("<FONT COLOR=\"#00DD00\">*** Incomming page from %1 ***</FONT>", player.name)
  this:sub_tell(@args)
  this:sub_tell("<FONT COLOR=\"#00DD00\">*** Shortest alias: %1 ***</FONT>", $list_utils:shortest(player.aliases))
  return this:connected(player:isa($guardian)) ? 1 | 2
else
  return 0
endif
"Last modified by Raptor (#6319) on Sat May 20 00:23:05 2000 MDT."
.

0